source: UsbWattMeter/trunk/curl-7.47.1/lib/x509asn1.c

Last change on this file was 167, checked in by coas-nagasima, 8 years ago

MIMEにSJISを設定
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
  • Property svn:mime-type set to text/x-csrc; charset=SHIFT_JIS
File size: 34.0 KB
Line 
1/***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2015, Daniel Stenberg, <daniel@haxx.se>, et al.
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at https://curl.haxx.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 ***************************************************************************/
22
23#include "curl_setup.h"
24
25#if defined(USE_GSKIT) || defined(USE_NSS) || defined(USE_GNUTLS) || \
26 defined(USE_CYASSL)
27
28#include <curl/curl.h>
29#include "urldata.h"
30#include "strequal.h"
31#include "hostcheck.h"
32#include "vtls/vtls.h"
33#include "sendf.h"
34#include "inet_pton.h"
35#include "curl_base64.h"
36#include "x509asn1.h"
37#include "curl_printf.h"
38#include "curl_memory.h"
39/* The last #include file should be: */
40#include "memdebug.h"
41
42
43/* ASN.1 OIDs. */
44static const char cnOID[] = "2.5.4.3"; /* Common name. */
45static const char sanOID[] = "2.5.29.17"; /* Subject alternative name. */
46
47static const curl_OID OIDtable[] = {
48 { "1.2.840.10040.4.1", "dsa" },
49 { "1.2.840.10040.4.3", "dsa-with-sha1" },
50 { "1.2.840.10045.2.1", "ecPublicKey" },
51 { "1.2.840.10045.3.0.1", "c2pnb163v1" },
52 { "1.2.840.10045.4.1", "ecdsa-with-SHA1" },
53 { "1.2.840.10046.2.1", "dhpublicnumber" },
54 { "1.2.840.113549.1.1.1", "rsaEncryption" },
55 { "1.2.840.113549.1.1.2", "md2WithRSAEncryption" },
56 { "1.2.840.113549.1.1.4", "md5WithRSAEncryption" },
57 { "1.2.840.113549.1.1.5", "sha1WithRSAEncryption" },
58 { "1.2.840.113549.1.1.10", "RSASSA-PSS" },
59 { "1.2.840.113549.1.1.14", "sha224WithRSAEncryption" },
60 { "1.2.840.113549.1.1.11", "sha256WithRSAEncryption" },
61 { "1.2.840.113549.1.1.12", "sha384WithRSAEncryption" },
62 { "1.2.840.113549.1.1.13", "sha512WithRSAEncryption" },
63 { "1.2.840.113549.2.2", "md2" },
64 { "1.2.840.113549.2.5", "md5" },
65 { "1.3.14.3.2.26", "sha1" },
66 { cnOID, "CN" },
67 { "2.5.4.4", "SN" },
68 { "2.5.4.5", "serialNumber" },
69 { "2.5.4.6", "C" },
70 { "2.5.4.7", "L" },
71 { "2.5.4.8", "ST" },
72 { "2.5.4.9", "streetAddress" },
73 { "2.5.4.10", "O" },
74 { "2.5.4.11", "OU" },
75 { "2.5.4.12", "title" },
76 { "2.5.4.13", "description" },
77 { "2.5.4.17", "postalCode" },
78 { "2.5.4.41", "name" },
79 { "2.5.4.42", "givenName" },
80 { "2.5.4.43", "initials" },
81 { "2.5.4.44", "generationQualifier" },
82 { "2.5.4.45", "X500UniqueIdentifier" },
83 { "2.5.4.46", "dnQualifier" },
84 { "2.5.4.65", "pseudonym" },
85 { "1.2.840.113549.1.9.1", "emailAddress" },
86 { "2.5.4.72", "role" },
87 { sanOID, "subjectAltName" },
88 { "2.5.29.18", "issuerAltName" },
89 { "2.5.29.19", "basicConstraints" },
90 { "2.16.840.1.101.3.4.2.4", "sha224" },
91 { "2.16.840.1.101.3.4.2.1", "sha256" },
92 { "2.16.840.1.101.3.4.2.2", "sha384" },
93 { "2.16.840.1.101.3.4.2.3", "sha512" },
94 { (const char *) NULL, (const char *) NULL }
95};
96
97/*
98 * Lightweight ASN.1 parser.
99 * In particular, it does not check for syntactic/lexical errors.
100 * It is intended to support certificate information gathering for SSL backends
101 * that offer a mean to get certificates as a whole, but do not supply
102 * entry points to get particular certificate sub-fields.
103 * Please note there is no pretention here to rewrite a full SSL library.
104 */
105
106
107const char * Curl_getASN1Element(curl_asn1Element * elem,
108 const char * beg, const char * end)
109{
110 unsigned char b;
111 unsigned long len;
112 curl_asn1Element lelem;
113
114 /* Get a single ASN.1 element into `elem', parse ASN.1 string at `beg'
115 ending at `end'.
116 Returns a pointer in source string after the parsed element, or NULL
117 if an error occurs. */
118
119 if(beg >= end || !*beg)
120 return (const char *) NULL;
121
122 /* Process header byte. */
123 elem->header = beg;
124 b = (unsigned char) *beg++;
125 elem->constructed = (b & 0x20) != 0;
126 elem->class = (b >> 6) & 3;
127 b &= 0x1F;
128 if(b == 0x1F)
129 return (const char *) NULL; /* Long tag values not supported here. */
130 elem->tag = b;
131
132 /* Process length. */
133 if(beg >= end)
134 return (const char *) NULL;
135 b = (unsigned char) *beg++;
136 if(!(b & 0x80))
137 len = b;
138 else if(!(b &= 0x7F)) {
139 /* Unspecified length. Since we have all the data, we can determine the
140 effective length by skipping element until an end element is found. */
141 if(!elem->constructed)
142 return (const char *) NULL;
143 elem->beg = beg;
144 while(beg < end && *beg) {
145 beg = Curl_getASN1Element(&lelem, beg, end);
146 if(!beg)
147 return (const char *) NULL;
148 }
149 if(beg >= end)
150 return (const char *) NULL;
151 elem->end = beg;
152 return beg + 1;
153 }
154 else if(beg + b > end)
155 return (const char *) NULL; /* Does not fit in source. */
156 else {
157 /* Get long length. */
158 len = 0;
159 do {
160 if(len & 0xFF000000L)
161 return (const char *) NULL; /* Lengths > 32 bits are not supported. */
162 len = (len << 8) | (unsigned char) *beg++;
163 } while(--b);
164 }
165 if((unsigned long) (end - beg) < len)
166 return (const char *) NULL; /* Element data does not fit in source. */
167 elem->beg = beg;
168 elem->end = beg + len;
169 return elem->end;
170}
171
172static const curl_OID * searchOID(const char * oid)
173{
174 const curl_OID * op;
175
176 /* Search the null terminated OID or OID identifier in local table.
177 Return the table entry pointer or NULL if not found. */
178
179 for(op = OIDtable; op->numoid; op++)
180 if(!strcmp(op->numoid, oid) || curl_strequal(op->textoid, oid))
181 return op;
182
183 return (const curl_OID *) NULL;
184}
185
186static const char * bool2str(const char * beg, const char * end)
187{
188 /* Convert an ASN.1 Boolean value into its string representation.
189 Return the dynamically allocated string, or NULL if source is not an
190 ASN.1 Boolean value. */
191
192 if(end - beg != 1)
193 return (const char *) NULL;
194 return strdup(*beg? "TRUE": "FALSE");
195}
196
197static const char * octet2str(const char * beg, const char * end)
198{
199 size_t n = end - beg;
200 char * buf;
201
202 /* Convert an ASN.1 octet string to a printable string.
203 Return the dynamically allocated string, or NULL if an error occurs. */
204
205 buf = malloc(3 * n + 1);
206 if(buf)
207 for(n = 0; beg < end; n += 3)
208 snprintf(buf + n, 4, "%02x:", *(const unsigned char *) beg++);
209 return buf;
210}
211
212static const char * bit2str(const char * beg, const char * end)
213{
214 /* Convert an ASN.1 bit string to a printable string.
215 Return the dynamically allocated string, or NULL if an error occurs. */
216
217 if(++beg > end)
218 return (const char *) NULL;
219 return octet2str(beg, end);
220}
221
222static const char * int2str(const char * beg, const char * end)
223{
224 long val = 0;
225 size_t n = end - beg;
226
227 /* Convert an ASN.1 integer value into its string representation.
228 Return the dynamically allocated string, or NULL if source is not an
229 ASN.1 integer value. */
230
231 if(!n)
232 return (const char *) NULL;
233
234 if(n > 4)
235 return octet2str(beg, end);
236
237 /* Represent integers <= 32-bit as a single value. */
238 if(*beg & 0x80)
239 val = ~val;
240
241 do
242 val = (val << 8) | *(const unsigned char *) beg++;
243 while(beg < end);
244 return curl_maprintf("%s%lx", (val < 0 || val >= 10)? "0x": "", val);
245}
246
247static ssize_t
248utf8asn1str(char * * to, int type, const char * from, const char * end)
249{
250 size_t inlength = end - from;
251 int size = 1;
252 size_t outlength;
253 int charsize;
254 unsigned int wc;
255 char * buf;
256
257 /* Perform a lazy conversion from an ASN.1 typed string to UTF8. Allocate the
258 destination buffer dynamically. The allocation size will normally be too
259 large: this is to avoid buffer overflows.
260 Terminate the string with a nul byte and return the converted
261 string length. */
262
263 *to = (char *) NULL;
264 switch (type) {
265 case CURL_ASN1_BMP_STRING:
266 size = 2;
267 break;
268 case CURL_ASN1_UNIVERSAL_STRING:
269 size = 4;
270 break;
271 case CURL_ASN1_NUMERIC_STRING:
272 case CURL_ASN1_PRINTABLE_STRING:
273 case CURL_ASN1_TELETEX_STRING:
274 case CURL_ASN1_IA5_STRING:
275 case CURL_ASN1_VISIBLE_STRING:
276 case CURL_ASN1_UTF8_STRING:
277 break;
278 default:
279 return -1; /* Conversion not supported. */
280 }
281
282 if(inlength % size)
283 return -1; /* Length inconsistent with character size. */
284 buf = malloc(4 * (inlength / size) + 1);
285 if(!buf)
286 return -1; /* Not enough memory. */
287
288 if(type == CURL_ASN1_UTF8_STRING) {
289 /* Just copy. */
290 outlength = inlength;
291 if(outlength)
292 memcpy(buf, from, outlength);
293 }
294 else {
295 for(outlength = 0; from < end;) {
296 wc = 0;
297 switch (size) {
298 case 4:
299 wc = (wc << 8) | *(const unsigned char *) from++;
300 wc = (wc << 8) | *(const unsigned char *) from++;
301 /* fallthrough */
302 case 2:
303 wc = (wc << 8) | *(const unsigned char *) from++;
304 /* fallthrough */
305 default: /* case 1: */
306 wc = (wc << 8) | *(const unsigned char *) from++;
307 }
308 charsize = 1;
309 if(wc >= 0x00000080) {
310 if(wc >= 0x00000800) {
311 if(wc >= 0x00010000) {
312 if(wc >= 0x00200000) {
313 free(buf);
314 return -1; /* Invalid char. size for target encoding. */
315 }
316 buf[outlength + 3] = (char) (0x80 | (wc & 0x3F));
317 wc = (wc >> 6) | 0x00010000;
318 charsize++;
319 }
320 buf[outlength + 2] = (char) (0x80 | (wc & 0x3F));
321 wc = (wc >> 6) | 0x00000800;
322 charsize++;
323 }
324 buf[outlength + 1] = (char) (0x80 | (wc & 0x3F));
325 wc = (wc >> 6) | 0x000000C0;
326 charsize++;
327 }
328 buf[outlength] = (char) wc;
329 outlength += charsize;
330 }
331 }
332 buf[outlength] = '\0';
333 *to = buf;
334 return outlength;
335}
336
337static const char * string2str(int type, const char * beg, const char * end)
338{
339 char * buf;
340
341 /* Convert an ASN.1 String into its UTF-8 string representation.
342 Return the dynamically allocated string, or NULL if an error occurs. */
343
344 if(utf8asn1str(&buf, type, beg, end) < 0)
345 return (const char *) NULL;
346 return buf;
347}
348
349static int encodeUint(char * buf, int n, unsigned int x)
350{
351 int i = 0;
352 unsigned int y = x / 10;
353
354 /* Decimal ASCII encode unsigned integer `x' in the `n'-byte buffer at `buf'.
355 Return the total number of encoded digits, even if larger than `n'. */
356
357 if(y) {
358 i += encodeUint(buf, n, y);
359 x -= y * 10;
360 }
361 if(i < n)
362 buf[i] = (char) ('0' + x);
363 i++;
364 if(i < n)
365 buf[i] = '\0'; /* Store a terminator if possible. */
366 return i;
367}
368
369static int encodeOID(char * buf, int n, const char * beg, const char * end)
370{
371 int i = 0;
372 unsigned int x;
373 unsigned int y;
374
375 /* Convert an ASN.1 OID into its dotted string representation.
376 Store the result in th `n'-byte buffer at `buf'.
377 Return the converted string length, or -1 if an error occurs. */
378
379 /* Process the first two numbers. */
380 y = *(const unsigned char *) beg++;
381 x = y / 40;
382 y -= x * 40;
383 i += encodeUint(buf + i, n - i, x);
384 if(i < n)
385 buf[i] = '.';
386 i++;
387 i += encodeUint(buf + i, n - i, y);
388
389 /* Process the trailing numbers. */
390 while(beg < end) {
391 if(i < n)
392 buf[i] = '.';
393 i++;
394 x = 0;
395 do {
396 if(x & 0xFF000000)
397 return -1;
398 y = *(const unsigned char *) beg++;
399 x = (x << 7) | (y & 0x7F);
400 } while(y & 0x80);
401 i += encodeUint(buf + i, n - i, x);
402 }
403 if(i < n)
404 buf[i] = '\0';
405 return i;
406}
407
408static const char * OID2str(const char * beg, const char * end, bool symbolic)
409{
410 char * buf = (char *) NULL;
411 const curl_OID * op;
412 int n;
413
414 /* Convert an ASN.1 OID into its dotted or symbolic string representation.
415 Return the dynamically allocated string, or NULL if an error occurs. */
416
417 if(beg < end) {
418 n = encodeOID((char *) NULL, -1, beg, end);
419 if(n >= 0) {
420 buf = malloc(n + 1);
421 if(buf) {
422 encodeOID(buf, n, beg, end);
423 buf[n] = '\0';
424
425 if(symbolic) {
426 op = searchOID(buf);
427 if(op) {
428 free(buf);
429 buf = strdup(op->textoid);
430 }
431 }
432 }
433 }
434 }
435 return buf;
436}
437
438static const char * GTime2str(const char * beg, const char * end)
439{
440 const char * tzp;
441 const char * fracp;
442 char sec1, sec2;
443 size_t fracl;
444 size_t tzl;
445 const char * sep = "";
446
447 /* Convert an ASN.1 Generalized time to a printable string.
448 Return the dynamically allocated string, or NULL if an error occurs. */
449
450 for(fracp = beg; fracp < end && *fracp >= '0' && *fracp <= '9'; fracp++)
451 ;
452
453 /* Get seconds digits. */
454 sec1 = '0';
455 switch (fracp - beg - 12) {
456 case 0:
457 sec2 = '0';
458 break;
459 case 2:
460 sec1 = fracp[-2];
461 case 1:
462 sec2 = fracp[-1];
463 break;
464 default:
465 return (const char *) NULL;
466 }
467
468 /* Scan for timezone, measure fractional seconds. */
469 tzp = fracp;
470 fracl = 0;
471 if(fracp < end && (*fracp == '.' || *fracp == ',')) {
472 fracp++;
473 do
474 tzp++;
475 while(tzp < end && *tzp >= '0' && *tzp <= '9');
476 /* Strip leading zeroes in fractional seconds. */
477 for(fracl = tzp - fracp - 1; fracl && fracp[fracl - 1] == '0'; fracl--)
478 ;
479 }
480
481 /* Process timezone. */
482 if(tzp >= end)
483 ; /* Nothing to do. */
484 else if(*tzp == 'Z') {
485 tzp = " GMT";
486 end = tzp + 4;
487 }
488 else {
489 sep = " ";
490 tzp++;
491 }
492
493 tzl = end - tzp;
494 return curl_maprintf("%.4s-%.2s-%.2s %.2s:%.2s:%c%c%s%.*s%s%.*s",
495 beg, beg + 4, beg + 6,
496 beg + 8, beg + 10, sec1, sec2,
497 fracl? ".": "", fracl, fracp,
498 sep, tzl, tzp);
499}
500
501static const char * UTime2str(const char * beg, const char * end)
502{
503 const char * tzp;
504 size_t tzl;
505 const char * sec;
506
507 /* Convert an ASN.1 UTC time to a printable string.
508 Return the dynamically allocated string, or NULL if an error occurs. */
509
510 for(tzp = beg; tzp < end && *tzp >= '0' && *tzp <= '9'; tzp++)
511 ;
512 /* Get the seconds. */
513 sec = beg + 10;
514 switch (tzp - sec) {
515 case 0:
516 sec = "00";
517 case 2:
518 break;
519 default:
520 return (const char *) NULL;
521 }
522
523 /* Process timezone. */
524 if(tzp >= end)
525 return (const char *) NULL;
526 if(*tzp == 'Z') {
527 tzp = "GMT";
528 end = tzp + 3;
529 }
530 else
531 tzp++;
532
533 tzl = end - tzp;
534 return curl_maprintf("%u%.2s-%.2s-%.2s %.2s:%.2s:%.2s %.*s",
535 20 - (*beg >= '5'), beg, beg + 2, beg + 4,
536 beg + 6, beg + 8, sec,
537 tzl, tzp);
538}
539
540const char * Curl_ASN1tostr(curl_asn1Element * elem, int type)
541{
542 /* Convert an ASN.1 element to a printable string.
543 Return the dynamically allocated string, or NULL if an error occurs. */
544
545 if(elem->constructed)
546 return (const char *) NULL; /* No conversion of structured elements. */
547
548 if(!type)
549 type = elem->tag; /* Type not forced: use element tag as type. */
550
551 switch (type) {
552 case CURL_ASN1_BOOLEAN:
553 return bool2str(elem->beg, elem->end);
554 case CURL_ASN1_INTEGER:
555 case CURL_ASN1_ENUMERATED:
556 return int2str(elem->beg, elem->end);
557 case CURL_ASN1_BIT_STRING:
558 return bit2str(elem->beg, elem->end);
559 case CURL_ASN1_OCTET_STRING:
560 return octet2str(elem->beg, elem->end);
561 case CURL_ASN1_NULL:
562 return strdup("");
563 case CURL_ASN1_OBJECT_IDENTIFIER:
564 return OID2str(elem->beg, elem->end, TRUE);
565 case CURL_ASN1_UTC_TIME:
566 return UTime2str(elem->beg, elem->end);
567 case CURL_ASN1_GENERALIZED_TIME:
568 return GTime2str(elem->beg, elem->end);
569 case CURL_ASN1_UTF8_STRING:
570 case CURL_ASN1_NUMERIC_STRING:
571 case CURL_ASN1_PRINTABLE_STRING:
572 case CURL_ASN1_TELETEX_STRING:
573 case CURL_ASN1_IA5_STRING:
574 case CURL_ASN1_VISIBLE_STRING:
575 case CURL_ASN1_UNIVERSAL_STRING:
576 case CURL_ASN1_BMP_STRING:
577 return string2str(type, elem->beg, elem->end);
578 }
579
580 return (const char *) NULL; /* Unsupported. */
581}
582
583static ssize_t encodeDN(char * buf, size_t n, curl_asn1Element * dn)
584{
585 curl_asn1Element rdn;
586 curl_asn1Element atv;
587 curl_asn1Element oid;
588 curl_asn1Element value;
589 size_t l = 0;
590 const char * p1;
591 const char * p2;
592 const char * p3;
593 const char * str;
594
595 /* ASCII encode distinguished name at `dn' into the `n'-byte buffer at `buf'.
596 Return the total string length, even if larger than `n'. */
597
598 for(p1 = dn->beg; p1 < dn->end;) {
599 p1 = Curl_getASN1Element(&rdn, p1, dn->end);
600 for(p2 = rdn.beg; p2 < rdn.end;) {
601 p2 = Curl_getASN1Element(&atv, p2, rdn.end);
602 p3 = Curl_getASN1Element(&oid, atv.beg, atv.end);
603 Curl_getASN1Element(&value, p3, atv.end);
604 str = Curl_ASN1tostr(&oid, 0);
605 if(!str)
606 return -1;
607
608 /* Encode delimiter.
609 If attribute has a short uppercase name, delimiter is ", ". */
610 if(l) {
611 for(p3 = str; isupper(*p3); p3++)
612 ;
613 for(p3 = (*p3 || p3 - str > 2)? "/": ", "; *p3; p3++) {
614 if(l < n)
615 buf[l] = *p3;
616 l++;
617 }
618 }
619
620 /* Encode attribute name. */
621 for(p3 = str; *p3; p3++) {
622 if(l < n)
623 buf[l] = *p3;
624 l++;
625 }
626 free((char *) str);
627
628 /* Generate equal sign. */
629 if(l < n)
630 buf[l] = '=';
631 l++;
632
633 /* Generate value. */
634 str = Curl_ASN1tostr(&value, 0);
635 if(!str)
636 return -1;
637 for(p3 = str; *p3; p3++) {
638 if(l < n)
639 buf[l] = *p3;
640 l++;
641 }
642 free((char *) str);
643 }
644 }
645
646 return l;
647}
648
649const char * Curl_DNtostr(curl_asn1Element * dn)
650{
651 char * buf = (char *) NULL;
652 ssize_t n = encodeDN(buf, 0, dn);
653
654 /* Convert an ASN.1 distinguished name into a printable string.
655 Return the dynamically allocated string, or NULL if an error occurs. */
656
657 if(n >= 0) {
658 buf = malloc(n + 1);
659 if(buf) {
660 encodeDN(buf, n + 1, dn);
661 buf[n] = '\0';
662 }
663 }
664 return (const char *) buf;
665}
666
667/*
668 * X509 parser.
669 */
670
671void Curl_parseX509(curl_X509certificate * cert,
672 const char * beg, const char * end)
673{
674 curl_asn1Element elem;
675 curl_asn1Element tbsCertificate;
676 const char * ccp;
677 static const char defaultVersion = 0; /* v1. */
678
679 /* ASN.1 parse an X509 certificate into structure subfields.
680 Syntax is assumed to have already been checked by the SSL backend.
681 See RFC 5280. */
682
683 cert->certificate.header = NULL;
684 cert->certificate.beg = beg;
685 cert->certificate.end = end;
686
687 /* Get the sequence content. */
688 Curl_getASN1Element(&elem, beg, end);
689 beg = elem.beg;
690 end = elem.end;
691
692 /* Get tbsCertificate. */
693 beg = Curl_getASN1Element(&tbsCertificate, beg, end);
694 /* Skip the signatureAlgorithm. */
695 beg = Curl_getASN1Element(&cert->signatureAlgorithm, beg, end);
696 /* Get the signatureValue. */
697 Curl_getASN1Element(&cert->signature, beg, end);
698
699 /* Parse TBSCertificate. */
700 beg = tbsCertificate.beg;
701 end = tbsCertificate.end;
702 /* Get optional version, get serialNumber. */
703 cert->version.header = NULL;
704 cert->version.beg = &defaultVersion;
705 cert->version.end = &defaultVersion + sizeof defaultVersion;;
706 beg = Curl_getASN1Element(&elem, beg, end);
707 if(elem.tag == 0) {
708 Curl_getASN1Element(&cert->version, elem.beg, elem.end);
709 beg = Curl_getASN1Element(&elem, beg, end);
710 }
711 cert->serialNumber = elem;
712 /* Get signature algorithm. */
713 beg = Curl_getASN1Element(&cert->signatureAlgorithm, beg, end);
714 /* Get issuer. */
715 beg = Curl_getASN1Element(&cert->issuer, beg, end);
716 /* Get notBefore and notAfter. */
717 beg = Curl_getASN1Element(&elem, beg, end);
718 ccp = Curl_getASN1Element(&cert->notBefore, elem.beg, elem.end);
719 Curl_getASN1Element(&cert->notAfter, ccp, elem.end);
720 /* Get subject. */
721 beg = Curl_getASN1Element(&cert->subject, beg, end);
722 /* Get subjectPublicKeyAlgorithm and subjectPublicKey. */
723 beg = Curl_getASN1Element(&cert->subjectPublicKeyInfo, beg, end);
724 ccp = Curl_getASN1Element(&cert->subjectPublicKeyAlgorithm,
725 cert->subjectPublicKeyInfo.beg,
726 cert->subjectPublicKeyInfo.end);
727 Curl_getASN1Element(&cert->subjectPublicKey, ccp,
728 cert->subjectPublicKeyInfo.end);
729 /* Get optional issuerUiqueID, subjectUniqueID and extensions. */
730 cert->issuerUniqueID.tag = cert->subjectUniqueID.tag = 0;
731 cert->extensions.tag = elem.tag = 0;
732 cert->issuerUniqueID.header = cert->subjectUniqueID.header = NULL;
733 cert->issuerUniqueID.beg = cert->issuerUniqueID.end = "";
734 cert->subjectUniqueID.beg = cert->subjectUniqueID.end = "";
735 cert->extensions.header = NULL;
736 cert->extensions.beg = cert->extensions.end = "";
737 if(beg < end)
738 beg = Curl_getASN1Element(&elem, beg, end);
739 if(elem.tag == 1) {
740 cert->issuerUniqueID = elem;
741 if(beg < end)
742 beg = Curl_getASN1Element(&elem, beg, end);
743 }
744 if(elem.tag == 2) {
745 cert->subjectUniqueID = elem;
746 if(beg < end)
747 beg = Curl_getASN1Element(&elem, beg, end);
748 }
749 if(elem.tag == 3)
750 Curl_getASN1Element(&cert->extensions, elem.beg, elem.end);
751}
752
753static size_t copySubstring(char * to, const char * from)
754{
755 size_t i;
756
757 /* Copy at most 64-characters, terminate with a newline and returns the
758 effective number of stored characters. */
759
760 for(i = 0; i < 64; i++) {
761 to[i] = *from;
762 if(!*from++)
763 break;
764 }
765
766 to[i++] = '\n';
767 return i;
768}
769
770static const char * dumpAlgo(curl_asn1Element * param,
771 const char * beg, const char * end)
772{
773 curl_asn1Element oid;
774
775 /* Get algorithm parameters and return algorithm name. */
776
777 beg = Curl_getASN1Element(&oid, beg, end);
778 param->header = NULL;
779 param->tag = 0;
780 param->beg = param->end = end;
781 if(beg < end)
782 Curl_getASN1Element(param, beg, end);
783 return OID2str(oid.beg, oid.end, TRUE);
784}
785
786static void do_pubkey_field(struct SessionHandle * data, int certnum,
787 const char * label, curl_asn1Element * elem)
788{
789 const char * output;
790
791 /* Generate a certificate information record for the public key. */
792
793 output = Curl_ASN1tostr(elem, 0);
794 if(output) {
795 if(data->set.ssl.certinfo)
796 Curl_ssl_push_certinfo(data, certnum, label, output);
797 if(!certnum)
798 infof(data, " %s: %s\n", label, output);
799 free((char *) output);
800 }
801}
802
803static void do_pubkey(struct SessionHandle * data, int certnum,
804 const char * algo, curl_asn1Element * param,
805 curl_asn1Element * pubkey)
806{
807 curl_asn1Element elem;
808 curl_asn1Element pk;
809 const char * p;
810 const char * q;
811 unsigned long len;
812 unsigned int i;
813
814 /* Generate all information records for the public key. */
815
816 /* Get the public key (single element). */
817 Curl_getASN1Element(&pk, pubkey->beg + 1, pubkey->end);
818
819 if(curl_strequal(algo, "rsaEncryption")) {
820 p = Curl_getASN1Element(&elem, pk.beg, pk.end);
821 /* Compute key length. */
822 for(q = elem.beg; !*q && q < elem.end; q++)
823 ;
824 len = (unsigned long)((elem.end - q) * 8);
825 if(len)
826 for(i = *(unsigned char *) q; !(i & 0x80); i <<= 1)
827 len--;
828 if(len > 32)
829 elem.beg = q; /* Strip leading zero bytes. */
830 if(!certnum)
831 infof(data, " RSA Public Key (%lu bits)\n", len);
832 if(data->set.ssl.certinfo) {
833 q = curl_maprintf("%lu", len);
834 if(q) {
835 Curl_ssl_push_certinfo(data, certnum, "RSA Public Key", q);
836 free((char *) q);
837 }
838 }
839 /* Generate coefficients. */
840 do_pubkey_field(data, certnum, "rsa(n)", &elem);
841 Curl_getASN1Element(&elem, p, pk.end);
842 do_pubkey_field(data, certnum, "rsa(e)", &elem);
843 }
844 else if(curl_strequal(algo, "dsa")) {
845 p = Curl_getASN1Element(&elem, param->beg, param->end);
846 do_pubkey_field(data, certnum, "dsa(p)", &elem);
847 p = Curl_getASN1Element(&elem, p, param->end);
848 do_pubkey_field(data, certnum, "dsa(q)", &elem);
849 Curl_getASN1Element(&elem, p, param->end);
850 do_pubkey_field(data, certnum, "dsa(g)", &elem);
851 do_pubkey_field(data, certnum, "dsa(pub_key)", &pk);
852 }
853 else if(curl_strequal(algo, "dhpublicnumber")) {
854 p = Curl_getASN1Element(&elem, param->beg, param->end);
855 do_pubkey_field(data, certnum, "dh(p)", &elem);
856 Curl_getASN1Element(&elem, param->beg, param->end);
857 do_pubkey_field(data, certnum, "dh(g)", &elem);
858 do_pubkey_field(data, certnum, "dh(pub_key)", &pk);
859 }
860#if 0 /* Patent-encumbered. */
861 else if(curl_strequal(algo, "ecPublicKey")) {
862 /* Left TODO. */
863 }
864#endif
865}
866
867CURLcode Curl_extract_certinfo(struct connectdata * conn,
868 int certnum,
869 const char * beg,
870 const char * end)
871{
872 curl_X509certificate cert;
873 struct SessionHandle * data = conn->data;
874 curl_asn1Element param;
875 const char * ccp;
876 char * cp1;
877 size_t cl1;
878 char * cp2;
879 CURLcode result;
880 unsigned long version;
881 size_t i;
882 size_t j;
883
884 if(!data->set.ssl.certinfo)
885 if(certnum)
886 return CURLE_OK;
887
888 /* Prepare the certificate information for curl_easy_getinfo(). */
889
890 /* Extract the certificate ASN.1 elements. */
891 Curl_parseX509(&cert, beg, end);
892
893 /* Subject. */
894 ccp = Curl_DNtostr(&cert.subject);
895 if(!ccp)
896 return CURLE_OUT_OF_MEMORY;
897 if(data->set.ssl.certinfo)
898 Curl_ssl_push_certinfo(data, certnum, "Subject", ccp);
899 if(!certnum)
900 infof(data, "%2d Subject: %s\n", certnum, ccp);
901 free((char *) ccp);
902
903 /* Issuer. */
904 ccp = Curl_DNtostr(&cert.issuer);
905 if(!ccp)
906 return CURLE_OUT_OF_MEMORY;
907 if(data->set.ssl.certinfo)
908 Curl_ssl_push_certinfo(data, certnum, "Issuer", ccp);
909 if(!certnum)
910 infof(data, " Issuer: %s\n", ccp);
911 free((char *) ccp);
912
913 /* Version (always fits in less than 32 bits). */
914 version = 0;
915 for(ccp = cert.version.beg; ccp < cert.version.end; ccp++)
916 version = (version << 8) | *(const unsigned char *) ccp;
917 if(data->set.ssl.certinfo) {
918 ccp = curl_maprintf("%lx", version);
919 if(!ccp)
920 return CURLE_OUT_OF_MEMORY;
921 Curl_ssl_push_certinfo(data, certnum, "Version", ccp);
922 free((char *) ccp);
923 }
924 if(!certnum)
925 infof(data, " Version: %lu (0x%lx)\n", version + 1, version);
926
927 /* Serial number. */
928 ccp = Curl_ASN1tostr(&cert.serialNumber, 0);
929 if(!ccp)
930 return CURLE_OUT_OF_MEMORY;
931 if(data->set.ssl.certinfo)
932 Curl_ssl_push_certinfo(data, certnum, "Serial Number", ccp);
933 if(!certnum)
934 infof(data, " Serial Number: %s\n", ccp);
935 free((char *) ccp);
936
937 /* Signature algorithm .*/
938 ccp = dumpAlgo(&param, cert.signatureAlgorithm.beg,
939 cert.signatureAlgorithm.end);
940 if(!ccp)
941 return CURLE_OUT_OF_MEMORY;
942 if(data->set.ssl.certinfo)
943 Curl_ssl_push_certinfo(data, certnum, "Signature Algorithm", ccp);
944 if(!certnum)
945 infof(data, " Signature Algorithm: %s\n", ccp);
946 free((char *) ccp);
947
948 /* Start Date. */
949 ccp = Curl_ASN1tostr(&cert.notBefore, 0);
950 if(!ccp)
951 return CURLE_OUT_OF_MEMORY;
952 if(data->set.ssl.certinfo)
953 Curl_ssl_push_certinfo(data, certnum, "Start Date", ccp);
954 if(!certnum)
955 infof(data, " Start Date: %s\n", ccp);
956 free((char *) ccp);
957
958 /* Expire Date. */
959 ccp = Curl_ASN1tostr(&cert.notAfter, 0);
960 if(!ccp)
961 return CURLE_OUT_OF_MEMORY;
962 if(data->set.ssl.certinfo)
963 Curl_ssl_push_certinfo(data, certnum, "Expire Date", ccp);
964 if(!certnum)
965 infof(data, " Expire Date: %s\n", ccp);
966 free((char *) ccp);
967
968 /* Public Key Algorithm. */
969 ccp = dumpAlgo(&param, cert.subjectPublicKeyAlgorithm.beg,
970 cert.subjectPublicKeyAlgorithm.end);
971 if(!ccp)
972 return CURLE_OUT_OF_MEMORY;
973 if(data->set.ssl.certinfo)
974 Curl_ssl_push_certinfo(data, certnum, "Public Key Algorithm", ccp);
975 if(!certnum)
976 infof(data, " Public Key Algorithm: %s\n", ccp);
977 do_pubkey(data, certnum, ccp, &param, &cert.subjectPublicKey);
978 free((char *) ccp);
979
980/* TODO: extensions. */
981
982 /* Signature. */
983 ccp = Curl_ASN1tostr(&cert.signature, 0);
984 if(!ccp)
985 return CURLE_OUT_OF_MEMORY;
986 if(data->set.ssl.certinfo)
987 Curl_ssl_push_certinfo(data, certnum, "Signature", ccp);
988 if(!certnum)
989 infof(data, " Signature: %s\n", ccp);
990 free((char *) ccp);
991
992 /* Generate PEM certificate. */
993 result = Curl_base64_encode(data, cert.certificate.beg,
994 cert.certificate.end - cert.certificate.beg,
995 &cp1, &cl1);
996 if(result)
997 return result;
998 /* Compute the number of characters in final certificate string. Format is:
999 -----BEGIN CERTIFICATE-----\n
1000 <max 64 base64 characters>\n
1001 .
1002 .
1003 .
1004 -----END CERTIFICATE-----\n
1005 */
1006 i = 28 + cl1 + (cl1 + 64 - 1) / 64 + 26;
1007 cp2 = malloc(i + 1);
1008 if(!cp2) {
1009 free(cp1);
1010 return CURLE_OUT_OF_MEMORY;
1011 }
1012 /* Build the certificate string. */
1013 i = copySubstring(cp2, "-----BEGIN CERTIFICATE-----");
1014 for(j = 0; j < cl1; j += 64)
1015 i += copySubstring(cp2 + i, cp1 + j);
1016 i += copySubstring(cp2 + i, "-----END CERTIFICATE-----");
1017 cp2[i] = '\0';
1018 free(cp1);
1019 if(data->set.ssl.certinfo)
1020 Curl_ssl_push_certinfo(data, certnum, "Cert", cp2);
1021 if(!certnum)
1022 infof(data, "%s\n", cp2);
1023 free(cp2);
1024 return CURLE_OK;
1025}
1026
1027#endif /* USE_GSKIT or USE_NSS or USE_GNUTLS or USE_CYASSL */
1028
1029#if defined(USE_GSKIT)
1030
1031static const char * checkOID(const char * beg, const char * end,
1032 const char * oid)
1033{
1034 curl_asn1Element e;
1035 const char * ccp;
1036 const char * p;
1037 bool matched;
1038
1039 /* Check if first ASN.1 element at `beg' is the given OID.
1040 Return a pointer in the source after the OID if found, else NULL. */
1041
1042 ccp = Curl_getASN1Element(&e, beg, end);
1043 if(!ccp || e.tag != CURL_ASN1_OBJECT_IDENTIFIER)
1044 return (const char *) NULL;
1045
1046 p = OID2str(e.beg, e.end, FALSE);
1047 if(!p)
1048 return (const char *) NULL;
1049
1050 matched = !strcmp(p, oid);
1051 free((char *) p);
1052 return matched? ccp: (const char *) NULL;
1053}
1054
1055CURLcode Curl_verifyhost(struct connectdata * conn,
1056 const char * beg, const char * end)
1057{
1058 struct SessionHandle * data = conn->data;
1059 curl_X509certificate cert;
1060 curl_asn1Element dn;
1061 curl_asn1Element elem;
1062 curl_asn1Element ext;
1063 curl_asn1Element name;
1064 const char * p;
1065 const char * q;
1066 char * dnsname;
1067 int matched = -1;
1068 size_t addrlen = (size_t) -1;
1069 ssize_t len;
1070#ifdef ENABLE_IPV6
1071 struct in6_addr addr;
1072#else
1073 struct in_addr addr;
1074#endif
1075
1076 /* Verify that connection server matches info in X509 certificate at
1077 `beg'..`end'. */
1078
1079 if(!data->set.ssl.verifyhost)
1080 return CURLE_OK;
1081
1082 if(!beg)
1083 return CURLE_PEER_FAILED_VERIFICATION;
1084 Curl_parseX509(&cert, beg, end);
1085
1086 /* Get the server IP address. */
1087#ifdef ENABLE_IPV6
1088 if(conn->bits.ipv6_ip && Curl_inet_pton(AF_INET6, conn->host.name, &addr))
1089 addrlen = sizeof(struct in6_addr);
1090 else
1091#endif
1092 if(Curl_inet_pton(AF_INET, conn->host.name, &addr))
1093 addrlen = sizeof(struct in_addr);
1094
1095 /* Process extensions. */
1096 for(p = cert.extensions.beg; p < cert.extensions.end && matched != 1;) {
1097 p = Curl_getASN1Element(&ext, p, cert.extensions.end);
1098 /* Check if extension is a subjectAlternativeName. */
1099 ext.beg = checkOID(ext.beg, ext.end, sanOID);
1100 if(ext.beg) {
1101 ext.beg = Curl_getASN1Element(&elem, ext.beg, ext.end);
1102 /* Skip critical if present. */
1103 if(elem.tag == CURL_ASN1_BOOLEAN)
1104 ext.beg = Curl_getASN1Element(&elem, ext.beg, ext.end);
1105 /* Parse the octet string contents: is a single sequence. */
1106 Curl_getASN1Element(&elem, elem.beg, elem.end);
1107 /* Check all GeneralNames. */
1108 for(q = elem.beg; matched != 1 && q < elem.end;) {
1109 q = Curl_getASN1Element(&name, q, elem.end);
1110 switch (name.tag) {
1111 case 2: /* DNS name. */
1112 len = utf8asn1str(&dnsname, CURL_ASN1_IA5_STRING,
1113 name.beg, name.end);
1114 if(len > 0 && (size_t)len == strlen(dnsname))
1115 matched = Curl_cert_hostcheck(dnsname, conn->host.name);
1116 else
1117 matched = 0;
1118 free(dnsname);
1119 break;
1120
1121 case 7: /* IP address. */
1122 matched = (size_t) (name.end - q) == addrlen &&
1123 !memcmp(&addr, q, addrlen);
1124 break;
1125 }
1126 }
1127 }
1128 }
1129
1130 switch (matched) {
1131 case 1:
1132 /* an alternative name matched the server hostname */
1133 infof(data, "\t subjectAltName: %s matched\n", conn->host.dispname);
1134 return CURLE_OK;
1135 case 0:
1136 /* an alternative name field existed, but didn't match and then
1137 we MUST fail */
1138 infof(data, "\t subjectAltName does not match %s\n", conn->host.dispname);
1139 return CURLE_PEER_FAILED_VERIFICATION;
1140 }
1141
1142 /* Process subject. */
1143 name.header = NULL;
1144 name.beg = name.end = "";
1145 q = cert.subject.beg;
1146 /* we have to look to the last occurrence of a commonName in the
1147 distinguished one to get the most significant one. */
1148 while(q < cert.subject.end) {
1149 q = Curl_getASN1Element(&dn, q, cert.subject.end);
1150 for(p = dn.beg; p < dn.end;) {
1151 p = Curl_getASN1Element(&elem, p, dn.end);
1152 /* We have a DN's AttributeTypeAndValue: check it in case it's a CN. */
1153 elem.beg = checkOID(elem.beg, elem.end, cnOID);
1154 if(elem.beg)
1155 name = elem; /* Latch CN. */
1156 }
1157 }
1158
1159 /* Check the CN if found. */
1160 if(!Curl_getASN1Element(&elem, name.beg, name.end))
1161 failf(data, "SSL: unable to obtain common name from peer certificate");
1162 else {
1163 len = utf8asn1str(&dnsname, elem.tag, elem.beg, elem.end);
1164 if(len < 0) {
1165 free(dnsname);
1166 return CURLE_OUT_OF_MEMORY;
1167 }
1168 if(strlen(dnsname) != (size_t) len) /* Nul byte in string ? */
1169 failf(data, "SSL: illegal cert name field");
1170 else if(Curl_cert_hostcheck((const char *) dnsname, conn->host.name)) {
1171 infof(data, "\t common name: %s (matched)\n", dnsname);
1172 free(dnsname);
1173 return CURLE_OK;
1174 }
1175 else
1176 failf(data, "SSL: certificate subject name '%s' does not match "
1177 "target host name '%s'", dnsname, conn->host.dispname);
1178 free(dnsname);
1179 }
1180
1181 return CURLE_PEER_FAILED_VERIFICATION;
1182}
1183
1184#endif /* USE_GSKIT */
Note: See TracBrowser for help on using the repository browser.