1/***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2019, 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_WOLFSSL) || defined(USE_SCHANNEL)
27
28#include <curl/curl.h>
29#include "urldata.h"
30#include "strcase.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
38/* The last 3 #include files should be in this order */
39#include "curl_printf.h"
40#include "curl_memory.h"
41#include "memdebug.h"
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
106static const char *getASN1Element(curl_asn1Element *elem,
107 const char *beg, const char *end)
108 WARN_UNUSED_RESULT;
109
110static const char *getASN1Element(curl_asn1Element *elem,
111 const char *beg, const char *end)
112{
113 unsigned char b;
114 unsigned long len;
115 curl_asn1Element lelem;
116
117 /* Get a single ASN.1 element into `elem', parse ASN.1 string at `beg'
118 ending at `end'.
119 Returns a pointer in source string after the parsed element, or NULL
120 if an error occurs. */
121 if(!beg || !end || beg >= end || !*beg ||
122 (size_t)(end - beg) > CURL_ASN1_MAX)
123 return NULL;
124
125 /* Process header byte. */
126 elem->header = beg;
127 b = (unsigned char) *beg++;
128 elem->constructed = (b & 0x20) != 0;
129 elem->class = (b >> 6) & 3;
130 b &= 0x1F;
131 if(b == 0x1F)
132 return NULL; /* Long tag values not supported here. */
133 elem->tag = b;
134
135 /* Process length. */
136 if(beg >= end)
137 return NULL;
138 b = (unsigned char) *beg++;
139 if(!(b & 0x80))
140 len = b;
141 else if(!(b &= 0x7F)) {
142 /* Unspecified length. Since we have all the data, we can determine the
143 effective length by skipping element until an end element is found. */
144 if(!elem->constructed)
145 return NULL;
146 elem->beg = beg;
147 while(beg < end && *beg) {
148 beg = getASN1Element(&lelem, beg, end);
149 if(!beg)
150 return NULL;
151 }
152 if(beg >= end)
153 return NULL;
154 elem->end = beg;
155 return beg + 1;
156 }
157 else if((unsigned)b > (size_t)(end - beg))
158 return NULL; /* Does not fit in source. */
159 else {
160 /* Get long length. */
161 len = 0;
162 do {
163 if(len & 0xFF000000L)
164 return NULL; /* Lengths > 32 bits are not supported. */
165 len = (len << 8) | (unsigned char) *beg++;
166 } while(--b);
167 }
168 if(len > (size_t)(end - beg))
169 return NULL; /* Element data does not fit in source. */
170 elem->beg = beg;
171 elem->end = beg + len;
172 return elem->end;
173}
174
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 */
179static const curl_OID * searchOID(const char *oid)
180{
181 const curl_OID *op;
182 for(op = OIDtable; op->numoid; op++)
183 if(!strcmp(op->numoid, oid) || strcasecompare(op->textoid, oid))
184 return op;
185
186 return NULL;
187}
188
189/*
190 * Convert an ASN.1 Boolean value into its string representation. Return the
191 * dynamically allocated string, or NULL if source is not an ASN.1 Boolean
192 * value.
193 */
194
195static const char *bool2str(const char *beg, const char *end)
196{
197 if(end - beg != 1)
198 return NULL;
199 return strdup(*beg? "TRUE": "FALSE");
200}
201
202/*
203 * Convert an ASN.1 octet string to a printable string.
204 * Return the dynamically allocated string, or NULL if an error occurs.
205 */
206static const char *octet2str(const char *beg, const char *end)
207{
208 size_t n = end - beg;
209 char *buf = NULL;
210
211 if(n <= (SIZE_T_MAX - 1) / 3) {
212 buf = malloc(3 * n + 1);
213 if(buf)
214 for(n = 0; beg < end; n += 3)
215 msnprintf(buf + n, 4, "%02x:", *(const unsigned char *) beg++);
216 }
217 return buf;
218}
219
220static const char *bit2str(const char *beg, const char *end)
221{
222 /* Convert an ASN.1 bit string to a printable string.
223 Return the dynamically allocated string, or NULL if an error occurs. */
224
225 if(++beg > end)
226 return NULL;
227 return octet2str(beg, end);
228}
229
230/*
231 * Convert an ASN.1 integer value into its string representation.
232 * Return the dynamically allocated string, or NULL if source is not an
233 * ASN.1 integer value.
234 */
235static const char *int2str(const char *beg, const char *end)
236{
237 unsigned long val = 0;
238 size_t n = end - beg;
239
240 if(!n)
241 return NULL;
242
243 if(n > 4)
244 return octet2str(beg, end);
245
246 /* Represent integers <= 32-bit as a single value. */
247 if(*beg & 0x80)
248 val = ~val;
249
250 do
251 val = (val << 8) | *(const unsigned char *) beg++;
252 while(beg < end);
253 return curl_maprintf("%s%lx", val >= 10? "0x": "", val);
254}
255
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 */
263static ssize_t
264utf8asn1str(char **to, int type, const char *from, const char *end)
265{
266 size_t inlength = end - from;
267 int size = 1;
268 size_t outlength;
269 char *buf;
270
271 *to = NULL;
272 switch(type) {
273 case CURL_ASN1_BMP_STRING:
274 size = 2;
275 break;
276 case CURL_ASN1_UNIVERSAL_STRING:
277 size = 4;
278 break;
279 case CURL_ASN1_NUMERIC_STRING:
280 case CURL_ASN1_PRINTABLE_STRING:
281 case CURL_ASN1_TELETEX_STRING:
282 case CURL_ASN1_IA5_STRING:
283 case CURL_ASN1_VISIBLE_STRING:
284 case CURL_ASN1_UTF8_STRING:
285 break;
286 default:
287 return -1; /* Conversion not supported. */
288 }
289
290 if(inlength % size)
291 return -1; /* Length inconsistent with character size. */
292 if(inlength / size > (SIZE_T_MAX - 1) / 4)
293 return -1; /* Too big. */
294 buf = malloc(4 * (inlength / size) + 1);
295 if(!buf)
296 return -1; /* Not enough memory. */
297
298 if(type == CURL_ASN1_UTF8_STRING) {
299 /* Just copy. */
300 outlength = inlength;
301 if(outlength)
302 memcpy(buf, from, outlength);
303 }
304 else {
305 for(outlength = 0; from < end;) {
306 int charsize;
307 unsigned int wc;
308
309 wc = 0;
310 switch(size) {
311 case 4:
312 wc = (wc << 8) | *(const unsigned char *) from++;
313 wc = (wc << 8) | *(const unsigned char *) from++;
314 /* FALLTHROUGH */
315 case 2:
316 wc = (wc << 8) | *(const unsigned char *) from++;
317 /* FALLTHROUGH */
318 default: /* case 1: */
319 wc = (wc << 8) | *(const unsigned char *) from++;
320 }
321 charsize = 1;
322 if(wc >= 0x00000080) {
323 if(wc >= 0x00000800) {
324 if(wc >= 0x00010000) {
325 if(wc >= 0x00200000) {
326 free(buf);
327 return -1; /* Invalid char. size for target encoding. */
328 }
329 buf[outlength + 3] = (char) (0x80 | (wc & 0x3F));
330 wc = (wc >> 6) | 0x00010000;
331 charsize++;
332 }
333 buf[outlength + 2] = (char) (0x80 | (wc & 0x3F));
334 wc = (wc >> 6) | 0x00000800;
335 charsize++;
336 }
337 buf[outlength + 1] = (char) (0x80 | (wc & 0x3F));
338 wc = (wc >> 6) | 0x000000C0;
339 charsize++;
340 }
341 buf[outlength] = (char) wc;
342 outlength += charsize;
343 }
344 }
345 buf[outlength] = '\0';
346 *to = buf;
347 return outlength;
348}
349
350/*
351 * Convert an ASN.1 String into its UTF-8 string representation.
352 * Return the dynamically allocated string, or NULL if an error occurs.
353 */
354static const char *string2str(int type, const char *beg, const char *end)
355{
356 char *buf;
357 if(utf8asn1str(&buf, type, beg, end) < 0)
358 return NULL;
359 return buf;
360}
361
362/*
363 * Decimal ASCII encode unsigned integer `x' into the buflen sized buffer at
364 * buf. Return the total number of encoded digits, even if larger than
365 * `buflen'.
366 */
367static size_t encodeUint(char *buf, size_t buflen, unsigned int x)
368{
369 size_t i = 0;
370 unsigned int y = x / 10;
371
372 if(y) {
373 i = encodeUint(buf, buflen, y);
374 x -= y * 10;
375 }
376 if(i < buflen)
377 buf[i] = (char) ('0' + x);
378 i++;
379 if(i < buflen)
380 buf[i] = '\0'; /* Store a terminator if possible. */
381 return i;
382}
383
384/*
385 * Convert an ASN.1 OID into its dotted string representation.
386 * Store the result in th `n'-byte buffer at `buf'.
387 * Return the converted string length, or 0 on errors.
388 */
389static size_t encodeOID(char *buf, size_t buflen,
390 const char *beg, const char *end)
391{
392 size_t i;
393 unsigned int x;
394 unsigned int y;
395
396 /* Process the first two numbers. */
397 y = *(const unsigned char *) beg++;
398 x = y / 40;
399 y -= x * 40;
400 i = encodeUint(buf, buflen, x);
401 if(i < buflen)
402 buf[i] = '.';
403 i++;
404 if(i >= buflen)
405 i += encodeUint(NULL, 0, y);
406 else
407 i += encodeUint(buf + i, buflen - i, y);
408
409 /* Process the trailing numbers. */
410 while(beg < end) {
411 if(i < buflen)
412 buf[i] = '.';
413 i++;
414 x = 0;
415 do {
416 if(x & 0xFF000000)
417 return 0;
418 y = *(const unsigned char *) beg++;
419 x = (x << 7) | (y & 0x7F);
420 } while(y & 0x80);
421 if(i >= buflen)
422 i += encodeUint(NULL, 0, x);
423 else
424 i += encodeUint(buf + i, buflen - i, x);
425 }
426 if(i < buflen)
427 buf[i] = '\0';
428 return i;
429}
430
431/*
432 * Convert an ASN.1 OID into its dotted or symbolic string representation.
433 * Return the dynamically allocated string, or NULL if an error occurs.
434 */
435
436static const char *OID2str(const char *beg, const char *end, bool symbolic)
437{
438 char *buf = NULL;
439 if(beg < end) {
440 size_t buflen = encodeOID(NULL, 0, beg, end);
441 if(buflen) {
442 buf = malloc(buflen + 1); /* one extra for the zero byte */
443 if(buf) {
444 encodeOID(buf, buflen, beg, end);
445 buf[buflen] = '\0';
446
447 if(symbolic) {
448 const curl_OID *op = searchOID(buf);
449 if(op) {
450 free(buf);
451 buf = strdup(op->textoid);
452 }
453 }
454 }
455 }
456 }
457 return buf;
458}
459
460static const char *GTime2str(const char *beg, const char *end)
461{
462 const char *tzp;
463 const char *fracp;
464 char sec1, sec2;
465 size_t fracl;
466 size_t tzl;
467 const char *sep = "";
468
469 /* Convert an ASN.1 Generalized time to a printable string.
470 Return the dynamically allocated string, or NULL if an error occurs. */
471
472 for(fracp = beg; fracp < end && *fracp >= '0' && *fracp <= '9'; fracp++)
473 ;
474
475 /* Get seconds digits. */
476 sec1 = '0';
477 switch(fracp - beg - 12) {
478 case 0:
479 sec2 = '0';
480 break;
481 case 2:
482 sec1 = fracp[-2];
483 /* FALLTHROUGH */
484 case 1:
485 sec2 = fracp[-1];
486 break;
487 default:
488 return NULL;
489 }
490
491 /* Scan for timezone, measure fractional seconds. */
492 tzp = fracp;
493 fracl = 0;
494 if(fracp < end && (*fracp == '.' || *fracp == ',')) {
495 fracp++;
496 do
497 tzp++;
498 while(tzp < end && *tzp >= '0' && *tzp <= '9');
499 /* Strip leading zeroes in fractional seconds. */
500 for(fracl = tzp - fracp - 1; fracl && fracp[fracl - 1] == '0'; fracl--)
501 ;
502 }
503
504 /* Process timezone. */
505 if(tzp >= end)
506 ; /* Nothing to do. */
507 else if(*tzp == 'Z') {
508 tzp = " GMT";
509 end = tzp + 4;
510 }
511 else {
512 sep = " ";
513 tzp++;
514 }
515
516 tzl = end - tzp;
517 return curl_maprintf("%.4s-%.2s-%.2s %.2s:%.2s:%c%c%s%.*s%s%.*s",
518 beg, beg + 4, beg + 6,
519 beg + 8, beg + 10, sec1, sec2,
520 fracl? ".": "", fracl, fracp,
521 sep, tzl, tzp);
522}
523
524/*
525 * Convert an ASN.1 UTC time to a printable string.
526 * Return the dynamically allocated string, or NULL if an error occurs.
527 */
528static const char *UTime2str(const char *beg, const char *end)
529{
530 const char *tzp;
531 size_t tzl;
532 const char *sec;
533
534 for(tzp = beg; tzp < end && *tzp >= '0' && *tzp <= '9'; tzp++)
535 ;
536 /* Get the seconds. */
537 sec = beg + 10;
538 switch(tzp - sec) {
539 case 0:
540 sec = "00";
541 case 2:
542 break;
543 default:
544 return NULL;
545 }
546
547 /* Process timezone. */
548 if(tzp >= end)
549 return NULL;
550 if(*tzp == 'Z') {
551 tzp = "GMT";
552 end = tzp + 3;
553 }
554 else
555 tzp++;
556
557 tzl = end - tzp;
558 return curl_maprintf("%u%.2s-%.2s-%.2s %.2s:%.2s:%.2s %.*s",
559 20 - (*beg >= '5'), beg, beg + 2, beg + 4,
560 beg + 6, beg + 8, sec,
561 tzl, tzp);
562}
563
564/*
565 * Convert an ASN.1 element to a printable string.
566 * Return the dynamically allocated string, or NULL if an error occurs.
567 */
568static const char *ASN1tostr(curl_asn1Element *elem, int type)
569{
570 if(elem->constructed)
571 return NULL; /* No conversion of structured elements. */
572
573 if(!type)
574 type = elem->tag; /* Type not forced: use element tag as type. */
575
576 switch(type) {
577 case CURL_ASN1_BOOLEAN:
578 return bool2str(elem->beg, elem->end);
579 case CURL_ASN1_INTEGER:
580 case CURL_ASN1_ENUMERATED:
581 return int2str(elem->beg, elem->end);
582 case CURL_ASN1_BIT_STRING:
583 return bit2str(elem->beg, elem->end);
584 case CURL_ASN1_OCTET_STRING:
585 return octet2str(elem->beg, elem->end);
586 case CURL_ASN1_NULL:
587 return strdup("");
588 case CURL_ASN1_OBJECT_IDENTIFIER:
589 return OID2str(elem->beg, elem->end, TRUE);
590 case CURL_ASN1_UTC_TIME:
591 return UTime2str(elem->beg, elem->end);
592 case CURL_ASN1_GENERALIZED_TIME:
593 return GTime2str(elem->beg, elem->end);
594 case CURL_ASN1_UTF8_STRING:
595 case CURL_ASN1_NUMERIC_STRING:
596 case CURL_ASN1_PRINTABLE_STRING:
597 case CURL_ASN1_TELETEX_STRING:
598 case CURL_ASN1_IA5_STRING:
599 case CURL_ASN1_VISIBLE_STRING:
600 case CURL_ASN1_UNIVERSAL_STRING:
601 case CURL_ASN1_BMP_STRING:
602 return string2str(type, elem->beg, elem->end);
603 }
604
605 return NULL; /* Unsupported. */
606}
607
608/*
609 * ASCII encode distinguished name at `dn' into the `buflen'-sized buffer at
610 * `buf'. Return the total string length, even if larger than `buflen'.
611 */
612static ssize_t encodeDN(char *buf, size_t buflen, curl_asn1Element *dn)
613{
614 curl_asn1Element rdn;
615 curl_asn1Element atv;
616 curl_asn1Element oid;
617 curl_asn1Element value;
618 size_t l = 0;
619 const char *p1;
620 const char *p2;
621 const char *p3;
622 const char *str;
623
624 for(p1 = dn->beg; p1 < dn->end;) {
625 p1 = getASN1Element(&rdn, p1, dn->end);
626 if(!p1)
627 return -1;
628 for(p2 = rdn.beg; p2 < rdn.end;) {
629 p2 = getASN1Element(&atv, p2, rdn.end);
630 if(!p2)
631 return -1;
632 p3 = getASN1Element(&oid, atv.beg, atv.end);
633 if(!p3)
634 return -1;
635 if(!getASN1Element(&value, p3, atv.end))
636 return -1;
637 str = ASN1tostr(&oid, 0);
638 if(!str)
639 return -1;
640
641 /* Encode delimiter.
642 If attribute has a short uppercase name, delimiter is ", ". */
643 if(l) {
644 for(p3 = str; isupper(*p3); p3++)
645 ;
646 for(p3 = (*p3 || p3 - str > 2)? "/": ", "; *p3; p3++) {
647 if(l < buflen)
648 buf[l] = *p3;
649 l++;
650 }
651 }
652
653 /* Encode attribute name. */
654 for(p3 = str; *p3; p3++) {
655 if(l < buflen)
656 buf[l] = *p3;
657 l++;
658 }
659 free((char *) str);
660
661 /* Generate equal sign. */
662 if(l < buflen)
663 buf[l] = '=';
664 l++;
665
666 /* Generate value. */
667 str = ASN1tostr(&value, 0);
668 if(!str)
669 return -1;
670 for(p3 = str; *p3; p3++) {
671 if(l < buflen)
672 buf[l] = *p3;
673 l++;
674 }
675 free((char *) str);
676 }
677 }
678
679 return l;
680}
681
682/*
683 * Convert an ASN.1 distinguished name into a printable string.
684 * Return the dynamically allocated string, or NULL if an error occurs.
685 */
686static const char *DNtostr(curl_asn1Element *dn)
687{
688 char *buf = NULL;
689 ssize_t buflen = encodeDN(NULL, 0, dn);
690
691 if(buflen >= 0) {
692 buf = malloc(buflen + 1);
693 if(buf) {
694 encodeDN(buf, buflen + 1, dn);
695 buf[buflen] = '\0';
696 }
697 }
698 return buf;
699}
700
701/*
702 * ASN.1 parse an X509 certificate into structure subfields.
703 * Syntax is assumed to have already been checked by the SSL backend.
704 * See RFC 5280.
705 */
706int Curl_parseX509(curl_X509certificate *cert,
707 const char *beg, const char *end)
708{
709 curl_asn1Element elem;
710 curl_asn1Element tbsCertificate;
711 const char *ccp;
712 static const char defaultVersion = 0; /* v1. */
713
714 cert->certificate.header = NULL;
715 cert->certificate.beg = beg;
716 cert->certificate.end = end;
717
718 /* Get the sequence content. */
719 if(!getASN1Element(&elem, beg, end))
720 return -1; /* Invalid bounds/size. */
721 beg = elem.beg;
722 end = elem.end;
723
724 /* Get tbsCertificate. */
725 beg = getASN1Element(&tbsCertificate, beg, end);
726 if(!beg)
727 return -1;
728 /* Skip the signatureAlgorithm. */
729 beg = getASN1Element(&cert->signatureAlgorithm, beg, end);
730 if(!beg)
731 return -1;
732 /* Get the signatureValue. */
733 if(!getASN1Element(&cert->signature, beg, end))
734 return -1;
735
736 /* Parse TBSCertificate. */
737 beg = tbsCertificate.beg;
738 end = tbsCertificate.end;
739 /* Get optional version, get serialNumber. */
740 cert->version.header = NULL;
741 cert->version.beg = &defaultVersion;
742 cert->version.end = &defaultVersion + sizeof(defaultVersion);
743 beg = getASN1Element(&elem, beg, end);
744 if(!beg)
745 return -1;
746 if(elem.tag == 0) {
747 if(!getASN1Element(&cert->version, elem.beg, elem.end))
748 return -1;
749 beg = getASN1Element(&elem, beg, end);
750 if(!beg)
751 return -1;
752 }
753 cert->serialNumber = elem;
754 /* Get signature algorithm. */
755 beg = getASN1Element(&cert->signatureAlgorithm, beg, end);
756 /* Get issuer. */
757 beg = getASN1Element(&cert->issuer, beg, end);
758 if(!beg)
759 return -1;
760 /* Get notBefore and notAfter. */
761 beg = getASN1Element(&elem, beg, end);
762 if(!beg)
763 return -1;
764 ccp = getASN1Element(&cert->notBefore, elem.beg, elem.end);
765 if(!ccp)
766 return -1;
767 if(!getASN1Element(&cert->notAfter, ccp, elem.end))
768 return -1;
769 /* Get subject. */
770 beg = getASN1Element(&cert->subject, beg, end);
771 if(!beg)
772 return -1;
773 /* Get subjectPublicKeyAlgorithm and subjectPublicKey. */
774 beg = getASN1Element(&cert->subjectPublicKeyInfo, beg, end);
775 if(!beg)
776 return -1;
777 ccp = getASN1Element(&cert->subjectPublicKeyAlgorithm,
778 cert->subjectPublicKeyInfo.beg,
779 cert->subjectPublicKeyInfo.end);
780 if(!ccp)
781 return -1;
782 if(!getASN1Element(&cert->subjectPublicKey, ccp,
783 cert->subjectPublicKeyInfo.end))
784 return -1;
785 /* Get optional issuerUiqueID, subjectUniqueID and extensions. */
786 cert->issuerUniqueID.tag = cert->subjectUniqueID.tag = 0;
787 cert->extensions.tag = elem.tag = 0;
788 cert->issuerUniqueID.header = cert->subjectUniqueID.header = NULL;
789 cert->issuerUniqueID.beg = cert->issuerUniqueID.end = "";
790 cert->subjectUniqueID.beg = cert->subjectUniqueID.end = "";
791 cert->extensions.header = NULL;
792 cert->extensions.beg = cert->extensions.end = "";
793 if(beg < end) {
794 beg = getASN1Element(&elem, beg, end);
795 if(!beg)
796 return -1;
797 }
798 if(elem.tag == 1) {
799 cert->issuerUniqueID = elem;
800 if(beg < end) {
801 beg = getASN1Element(&elem, beg, end);
802 if(!beg)
803 return -1;
804 }
805 }
806 if(elem.tag == 2) {
807 cert->subjectUniqueID = elem;
808 if(beg < end) {
809 beg = getASN1Element(&elem, beg, end);
810 if(!beg)
811 return -1;
812 }
813 }
814 if(elem.tag == 3)
815 if(!getASN1Element(&cert->extensions, elem.beg, elem.end))
816 return -1;
817 return 0;
818}
819
820
821/*
822 * Copy at most 64-characters, terminate with a newline and returns the
823 * effective number of stored characters.
824 */
825static size_t copySubstring(char *to, const char *from)
826{
827 size_t i;
828 for(i = 0; i < 64; i++) {
829 to[i] = *from;
830 if(!*from++)
831 break;
832 }
833
834 to[i++] = '\n';
835 return i;
836}
837
838static const char *dumpAlgo(curl_asn1Element *param,
839 const char *beg, const char *end)
840{
841 curl_asn1Element oid;
842
843 /* Get algorithm parameters and return algorithm name. */
844
845 beg = getASN1Element(&oid, beg, end);
846 if(!beg)
847 return NULL;
848 param->header = NULL;
849 param->tag = 0;
850 param->beg = param->end = end;
851 if(beg < end)
852 if(!getASN1Element(param, beg, end))
853 return NULL;
854 return OID2str(oid.beg, oid.end, TRUE);
855}
856
857static void do_pubkey_field(struct Curl_easy *data, int certnum,
858 const char *label, curl_asn1Element *elem)
859{
860 const char *output;
861
862 /* Generate a certificate information record for the public key. */
863
864 output = ASN1tostr(elem, 0);
865 if(output) {
866 if(data->set.ssl.certinfo)
867 Curl_ssl_push_certinfo(data, certnum, label, output);
868 if(!certnum)
869 infof(data, " %s: %s\n", label, output);
870 free((char *) output);
871 }
872}
873
874static void do_pubkey(struct Curl_easy *data, int certnum,
875 const char *algo, curl_asn1Element *param,
876 curl_asn1Element *pubkey)
877{
878 curl_asn1Element elem;
879 curl_asn1Element pk;
880 const char *p;
881
882 /* Generate all information records for the public key. */
883
884 /* Get the public key (single element). */
885 if(!getASN1Element(&pk, pubkey->beg + 1, pubkey->end))
886 return;
887
888 if(strcasecompare(algo, "rsaEncryption")) {
889 const char *q;
890 unsigned long len;
891
892 p = getASN1Element(&elem, pk.beg, pk.end);
893 if(!p)
894 return;
895
896 /* Compute key length. */
897 for(q = elem.beg; !*q && q < elem.end; q++)
898 ;
899 len = (unsigned long)((elem.end - q) * 8);
900 if(len) {
901 unsigned int i;
902 for(i = *(unsigned char *) q; !(i & 0x80); i <<= 1)
903 len--;
904 }
905 if(len > 32)
906 elem.beg = q; /* Strip leading zero bytes. */
907 if(!certnum)
908 infof(data, " RSA Public Key (%lu bits)\n", len);
909 if(data->set.ssl.certinfo) {
910 q = curl_maprintf("%lu", len);
911 if(q) {
912 Curl_ssl_push_certinfo(data, certnum, "RSA Public Key", q);
913 free((char *) q);
914 }
915 }
916 /* Generate coefficients. */
917 do_pubkey_field(data, certnum, "rsa(n)", &elem);
918 if(!getASN1Element(&elem, p, pk.end))
919 return;
920 do_pubkey_field(data, certnum, "rsa(e)", &elem);
921 }
922 else if(strcasecompare(algo, "dsa")) {
923 p = getASN1Element(&elem, param->beg, param->end);
924 if(p) {
925 do_pubkey_field(data, certnum, "dsa(p)", &elem);
926 p = getASN1Element(&elem, p, param->end);
927 if(p) {
928 do_pubkey_field(data, certnum, "dsa(q)", &elem);
929 if(getASN1Element(&elem, p, param->end)) {
930 do_pubkey_field(data, certnum, "dsa(g)", &elem);
931 do_pubkey_field(data, certnum, "dsa(pub_key)", &pk);
932 }
933 }
934 }
935 }
936 else if(strcasecompare(algo, "dhpublicnumber")) {
937 p = getASN1Element(&elem, param->beg, param->end);
938 if(p) {
939 do_pubkey_field(data, certnum, "dh(p)", &elem);
940 if(getASN1Element(&elem, param->beg, param->end)) {
941 do_pubkey_field(data, certnum, "dh(g)", &elem);
942 do_pubkey_field(data, certnum, "dh(pub_key)", &pk);
943 }
944 }
945 }
946}
947
948CURLcode Curl_extract_certinfo(struct connectdata *conn,
949 int certnum,
950 const char *beg,
951 const char *end)
952{
953 curl_X509certificate cert;
954 struct Curl_easy *data = conn->data;
955 curl_asn1Element param;
956 const char *ccp;
957 char *cp1;
958 size_t cl1;
959 char *cp2;
960 CURLcode result;
961 unsigned long version;
962 size_t i;
963 size_t j;
964
965 if(!data->set.ssl.certinfo)
966 if(certnum)
967 return CURLE_OK;
968
969 /* Prepare the certificate information for curl_easy_getinfo(). */
970
971 /* Extract the certificate ASN.1 elements. */
972 if(Curl_parseX509(&cert, beg, end))
973 return CURLE_PEER_FAILED_VERIFICATION;
974
975 /* Subject. */
976 ccp = DNtostr(&cert.subject);
977 if(!ccp)
978 return CURLE_OUT_OF_MEMORY;
979 if(data->set.ssl.certinfo)
980 Curl_ssl_push_certinfo(data, certnum, "Subject", ccp);
981 if(!certnum)
982 infof(data, "%2d Subject: %s\n", certnum, ccp);
983 free((char *) ccp);
984
985 /* Issuer. */
986 ccp = DNtostr(&cert.issuer);
987 if(!ccp)
988 return CURLE_OUT_OF_MEMORY;
989 if(data->set.ssl.certinfo)
990 Curl_ssl_push_certinfo(data, certnum, "Issuer", ccp);
991 if(!certnum)
992 infof(data, " Issuer: %s\n", ccp);
993 free((char *) ccp);
994
995 /* Version (always fits in less than 32 bits). */
996 version = 0;
997 for(ccp = cert.version.beg; ccp < cert.version.end; ccp++)
998 version = (version << 8) | *(const unsigned char *) ccp;
999 if(data->set.ssl.certinfo) {
1000 ccp = curl_maprintf("%lx", version);
1001 if(!ccp)
1002 return CURLE_OUT_OF_MEMORY;
1003 Curl_ssl_push_certinfo(data, certnum, "Version", ccp);
1004 free((char *) ccp);
1005 }
1006 if(!certnum)
1007 infof(data, " Version: %lu (0x%lx)\n", version + 1, version);
1008
1009 /* Serial number. */
1010 ccp = ASN1tostr(&cert.serialNumber, 0);
1011 if(!ccp)
1012 return CURLE_OUT_OF_MEMORY;
1013 if(data->set.ssl.certinfo)
1014 Curl_ssl_push_certinfo(data, certnum, "Serial Number", ccp);
1015 if(!certnum)
1016 infof(data, " Serial Number: %s\n", ccp);
1017 free((char *) ccp);
1018
1019 /* Signature algorithm .*/
1020 ccp = dumpAlgo(&param, cert.signatureAlgorithm.beg,
1021 cert.signatureAlgorithm.end);
1022 if(!ccp)
1023 return CURLE_OUT_OF_MEMORY;
1024 if(data->set.ssl.certinfo)
1025 Curl_ssl_push_certinfo(data, certnum, "Signature Algorithm", ccp);
1026 if(!certnum)
1027 infof(data, " Signature Algorithm: %s\n", ccp);
1028 free((char *) ccp);
1029
1030 /* Start Date. */
1031 ccp = ASN1tostr(&cert.notBefore, 0);
1032 if(!ccp)
1033 return CURLE_OUT_OF_MEMORY;
1034 if(data->set.ssl.certinfo)
1035 Curl_ssl_push_certinfo(data, certnum, "Start Date", ccp);
1036 if(!certnum)
1037 infof(data, " Start Date: %s\n", ccp);
1038 free((char *) ccp);
1039
1040 /* Expire Date. */
1041 ccp = ASN1tostr(&cert.notAfter, 0);
1042 if(!ccp)
1043 return CURLE_OUT_OF_MEMORY;
1044 if(data->set.ssl.certinfo)
1045 Curl_ssl_push_certinfo(data, certnum, "Expire Date", ccp);
1046 if(!certnum)
1047 infof(data, " Expire Date: %s\n", ccp);
1048 free((char *) ccp);
1049
1050 /* Public Key Algorithm. */
1051 ccp = dumpAlgo(&param, cert.subjectPublicKeyAlgorithm.beg,
1052 cert.subjectPublicKeyAlgorithm.end);
1053 if(!ccp)
1054 return CURLE_OUT_OF_MEMORY;
1055 if(data->set.ssl.certinfo)
1056 Curl_ssl_push_certinfo(data, certnum, "Public Key Algorithm", ccp);
1057 if(!certnum)
1058 infof(data, " Public Key Algorithm: %s\n", ccp);
1059 do_pubkey(data, certnum, ccp, &param, &cert.subjectPublicKey);
1060 free((char *) ccp);
1061
1062 /* Signature. */
1063 ccp = ASN1tostr(&cert.signature, 0);
1064 if(!ccp)
1065 return CURLE_OUT_OF_MEMORY;
1066 if(data->set.ssl.certinfo)
1067 Curl_ssl_push_certinfo(data, certnum, "Signature", ccp);
1068 if(!certnum)
1069 infof(data, " Signature: %s\n", ccp);
1070 free((char *) ccp);
1071
1072 /* Generate PEM certificate. */
1073 result = Curl_base64_encode(data, cert.certificate.beg,
1074 cert.certificate.end - cert.certificate.beg,
1075 &cp1, &cl1);
1076 if(result)
1077 return result;
1078 /* Compute the number of characters in final certificate string. Format is:
1079 -----BEGIN CERTIFICATE-----\n
1080 <max 64 base64 characters>\n
1081 .
1082 .
1083 .
1084 -----END CERTIFICATE-----\n
1085 */
1086 i = 28 + cl1 + (cl1 + 64 - 1) / 64 + 26;
1087 cp2 = malloc(i + 1);
1088 if(!cp2) {
1089 free(cp1);
1090 return CURLE_OUT_OF_MEMORY;
1091 }
1092 /* Build the certificate string. */
1093 i = copySubstring(cp2, "-----BEGIN CERTIFICATE-----");
1094 for(j = 0; j < cl1; j += 64)
1095 i += copySubstring(cp2 + i, cp1 + j);
1096 i += copySubstring(cp2 + i, "-----END CERTIFICATE-----");
1097 cp2[i] = '\0';
1098 free(cp1);
1099 if(data->set.ssl.certinfo)
1100 Curl_ssl_push_certinfo(data, certnum, "Cert", cp2);
1101 if(!certnum)
1102 infof(data, "%s\n", cp2);
1103 free(cp2);
1104 return CURLE_OK;
1105}
1106
1107#endif /* USE_GSKIT or USE_NSS or USE_GNUTLS or USE_WOLFSSL or USE_SCHANNEL */
1108
1109#if defined(USE_GSKIT)
1110
1111static const char *checkOID(const char *beg, const char *end,
1112 const char *oid)
1113{
1114 curl_asn1Element e;
1115 const char *ccp;
1116 const char *p;
1117 bool matched;
1118
1119 /* Check if first ASN.1 element at `beg' is the given OID.
1120 Return a pointer in the source after the OID if found, else NULL. */
1121
1122 ccp = getASN1Element(&e, beg, end);
1123 if(!ccp || e.tag != CURL_ASN1_OBJECT_IDENTIFIER)
1124 return NULL;
1125
1126 p = OID2str(e.beg, e.end, FALSE);
1127 if(!p)
1128 return NULL;
1129
1130 matched = !strcmp(p, oid);
1131 free((char *) p);
1132 return matched? ccp: NULL;
1133}
1134
1135CURLcode Curl_verifyhost(struct connectdata *conn,
1136 const char *beg, const char *end)
1137{
1138 struct Curl_easy *data = conn->data;
1139 curl_X509certificate cert;
1140 curl_asn1Element dn;
1141 curl_asn1Element elem;
1142 curl_asn1Element ext;
1143 curl_asn1Element name;
1144 const char *p;
1145 const char *q;
1146 char *dnsname;
1147 int matched = -1;
1148 size_t addrlen = (size_t) -1;
1149 ssize_t len;
1150 const char * const hostname = SSL_IS_PROXY()? conn->http_proxy.host.name:
1151 conn->host.name;
1152 const char * const dispname = SSL_IS_PROXY()?
1153 conn->http_proxy.host.dispname:
1154 conn->host.dispname;
1155#ifdef ENABLE_IPV6
1156 struct in6_addr addr;
1157#else
1158 struct in_addr addr;
1159#endif
1160
1161 /* Verify that connection server matches info in X509 certificate at
1162 `beg'..`end'. */
1163
1164 if(!SSL_CONN_CONFIG(verifyhost))
1165 return CURLE_OK;
1166
1167 if(Curl_parseX509(&cert, beg, end))
1168 return CURLE_PEER_FAILED_VERIFICATION;
1169
1170 /* Get the server IP address. */
1171#ifdef ENABLE_IPV6
1172 if(conn->bits.ipv6_ip && Curl_inet_pton(AF_INET6, hostname, &addr))
1173 addrlen = sizeof(struct in6_addr);
1174 else
1175#endif
1176 if(Curl_inet_pton(AF_INET, hostname, &addr))
1177 addrlen = sizeof(struct in_addr);
1178
1179 /* Process extensions. */
1180 for(p = cert.extensions.beg; p < cert.extensions.end && matched != 1;) {
1181 p = getASN1Element(&ext, p, cert.extensions.end);
1182 if(!p)
1183 return CURLE_PEER_FAILED_VERIFICATION;
1184
1185 /* Check if extension is a subjectAlternativeName. */
1186 ext.beg = checkOID(ext.beg, ext.end, sanOID);
1187 if(ext.beg) {
1188 ext.beg = getASN1Element(&elem, ext.beg, ext.end);
1189 if(!ext.beg)
1190 return CURLE_PEER_FAILED_VERIFICATION;
1191 /* Skip critical if present. */
1192 if(elem.tag == CURL_ASN1_BOOLEAN) {
1193 ext.beg = getASN1Element(&elem, ext.beg, ext.end);
1194 if(!ext.beg)
1195 return CURLE_PEER_FAILED_VERIFICATION;
1196 }
1197 /* Parse the octet string contents: is a single sequence. */
1198 if(!getASN1Element(&elem, elem.beg, elem.end))
1199 return CURLE_PEER_FAILED_VERIFICATION;
1200 /* Check all GeneralNames. */
1201 for(q = elem.beg; matched != 1 && q < elem.end;) {
1202 q = getASN1Element(&name, q, elem.end);
1203 if(!q)
1204 break;
1205 switch(name.tag) {
1206 case 2: /* DNS name. */
1207 len = utf8asn1str(&dnsname, CURL_ASN1_IA5_STRING,
1208 name.beg, name.end);
1209 if(len > 0 && (size_t)len == strlen(dnsname))
1210 matched = Curl_cert_hostcheck(dnsname, hostname);
1211 else
1212 matched = 0;
1213 free(dnsname);
1214 break;
1215
1216 case 7: /* IP address. */
1217 matched = (size_t) (name.end - name.beg) == addrlen &&
1218 !memcmp(&addr, name.beg, addrlen);
1219 break;
1220 }
1221 }
1222 }
1223 }
1224
1225 switch(matched) {
1226 case 1:
1227 /* an alternative name matched the server hostname */
1228 infof(data, "\t subjectAltName: %s matched\n", dispname);
1229 return CURLE_OK;
1230 case 0:
1231 /* an alternative name field existed, but didn't match and then
1232 we MUST fail */
1233 infof(data, "\t subjectAltName does not match %s\n", dispname);
1234 return CURLE_PEER_FAILED_VERIFICATION;
1235 }
1236
1237 /* Process subject. */
1238 name.header = NULL;
1239 name.beg = name.end = "";
1240 q = cert.subject.beg;
1241 /* we have to look to the last occurrence of a commonName in the
1242 distinguished one to get the most significant one. */
1243 while(q < cert.subject.end) {
1244 q = getASN1Element(&dn, q, cert.subject.end);
1245 if(!q)
1246 break;
1247 for(p = dn.beg; p < dn.end;) {
1248 p = getASN1Element(&elem, p, dn.end);
1249 if(!p)
1250 return CURLE_PEER_FAILED_VERIFICATION;
1251 /* We have a DN's AttributeTypeAndValue: check it in case it's a CN. */
1252 elem.beg = checkOID(elem.beg, elem.end, cnOID);
1253 if(elem.beg)
1254 name = elem; /* Latch CN. */
1255 }
1256 }
1257
1258 /* Check the CN if found. */
1259 if(!getASN1Element(&elem, name.beg, name.end))
1260 failf(data, "SSL: unable to obtain common name from peer certificate");
1261 else {
1262 len = utf8asn1str(&dnsname, elem.tag, elem.beg, elem.end);
1263 if(len < 0) {
1264 free(dnsname);
1265 return CURLE_OUT_OF_MEMORY;
1266 }
1267 if(strlen(dnsname) != (size_t) len) /* Nul byte in string ? */
1268 failf(data, "SSL: illegal cert name field");
1269 else if(Curl_cert_hostcheck((const char *) dnsname, hostname)) {
1270 infof(data, "\t common name: %s (matched)\n", dnsname);
1271 free(dnsname);
1272 return CURLE_OK;
1273 }
1274 else
1275 failf(data, "SSL: certificate subject name '%s' does not match "
1276 "target host name '%s'", dnsname, dispname);
1277 free(dnsname);
1278 }
1279
1280 return CURLE_PEER_FAILED_VERIFICATION;
1281}
1282
1283#endif /* USE_GSKIT */
1284