projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[MBEDTLS]
[reactos.git] / reactos / dll / 3rdparty / mbedtls / x509.c
1 /*
2 * X.509 common functions for parsing and verification
3 *
4 * Copyright (C) 2006-2015, ARM Limited, All Rights Reserved
5 * SPDX-License-Identifier: GPL-2.0
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License along
18 * with this program; if not, write to the Free Software Foundation, Inc.,
19 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 *
21 * This file is part of mbed TLS (https://tls.mbed.org)
22 */
23 /*
24 * The ITU-T X.509 standard defines a certificate format for PKI.
25 *
26 * http://www.ietf.org/rfc/rfc5280.txt (Certificates and CRLs)
27 * http://www.ietf.org/rfc/rfc3279.txt (Alg IDs for CRLs)
28 * http://www.ietf.org/rfc/rfc2986.txt (CSRs, aka PKCS#10)
29 *
30 * http://www.itu.int/ITU-T/studygroups/com17/languages/X.680-0207.pdf
31 * http://www.itu.int/ITU-T/studygroups/com17/languages/X.690-0207.pdf
32 */
33
34 #if !defined(MBEDTLS_CONFIG_FILE)
35 #include "mbedtls/config.h"
36 #else
37 #include MBEDTLS_CONFIG_FILE
38 #endif
39
40 #if defined(MBEDTLS_X509_USE_C)
41
42 #include "mbedtls/x509.h"
43 #include "mbedtls/asn1.h"
44 #include "mbedtls/oid.h"
45
46 #include <stdio.h>
47 #include <string.h>
48
49 #if defined(MBEDTLS_PEM_PARSE_C)
50 #include "mbedtls/pem.h"
51 #endif
52
53 #if defined(MBEDTLS_PLATFORM_C)
54 #include "mbedtls/platform.h"
55 #else
56 #include <stdio.h>
57 #include <stdlib.h>
58 #define mbedtls_free free
59 #define mbedtls_calloc calloc
60 #define mbedtls_printf printf
61 #define mbedtls_snprintf snprintf
62 #endif
63
64
65 #if defined(MBEDTLS_HAVE_TIME)
66 #include "mbedtls/platform_time.h"
67 #endif
68
69 #if defined(_WIN32) && !defined(EFIX64) && !defined(EFI32)
70 #include <windows.h>
71 #else
72 #include <time.h>
73 #endif
74
75 #if defined(MBEDTLS_FS_IO)
76 #include <stdio.h>
77 #if !defined(_WIN32)
78 #include <sys/types.h>
79 #include <sys/stat.h>
80 #include <dirent.h>
81 #endif
82 #endif
83
84 #define CHECK(code) if( ( ret = code ) != 0 ){ return( ret ); }
85 #define CHECK_RANGE(min, max, val) if( val < min || val > max ){ return( ret ); }
86
87 /*
88 * CertificateSerialNumber ::= INTEGER
89 */
90 int mbedtls_x509_get_serial( unsigned char **p, const unsigned char *end,
91 mbedtls_x509_buf *serial )
92 {
93 int ret;
94
95 if( ( end - *p ) < 1 )
96 return( MBEDTLS_ERR_X509_INVALID_SERIAL +
97 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
98
99 if( **p != ( MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_PRIMITIVE | 2 ) &&
100 **p != MBEDTLS_ASN1_INTEGER )
101 return( MBEDTLS_ERR_X509_INVALID_SERIAL +
102 MBEDTLS_ERR_ASN1_UNEXPECTED_TAG );
103
104 serial->tag = *(*p)++;
105
106 if( ( ret = mbedtls_asn1_get_len( p, end, &serial->len ) ) != 0 )
107 return( MBEDTLS_ERR_X509_INVALID_SERIAL + ret );
108
109 serial->p = *p;
110 *p += serial->len;
111
112 return( 0 );
113 }
114
115 /* Get an algorithm identifier without parameters (eg for signatures)
116 *
117 * AlgorithmIdentifier ::= SEQUENCE {
118 * algorithm OBJECT IDENTIFIER,
119 * parameters ANY DEFINED BY algorithm OPTIONAL }
120 */
121 int mbedtls_x509_get_alg_null( unsigned char **p, const unsigned char *end,
122 mbedtls_x509_buf *alg )
123 {
124 int ret;
125
126 if( ( ret = mbedtls_asn1_get_alg_null( p, end, alg ) ) != 0 )
127 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
128
129 return( 0 );
130 }
131
132 /*
133 * Parse an algorithm identifier with (optional) paramaters
134 */
135 int mbedtls_x509_get_alg( unsigned char **p, const unsigned char *end,
136 mbedtls_x509_buf *alg, mbedtls_x509_buf *params )
137 {
138 int ret;
139
140 if( ( ret = mbedtls_asn1_get_alg( p, end, alg, params ) ) != 0 )
141 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
142
143 return( 0 );
144 }
145
146 #if defined(MBEDTLS_X509_RSASSA_PSS_SUPPORT)
147 /*
148 * HashAlgorithm ::= AlgorithmIdentifier
149 *
150 * AlgorithmIdentifier ::= SEQUENCE {
151 * algorithm OBJECT IDENTIFIER,
152 * parameters ANY DEFINED BY algorithm OPTIONAL }
153 *
154 * For HashAlgorithm, parameters MUST be NULL or absent.
155 */
156 static int x509_get_hash_alg( const mbedtls_x509_buf *alg, mbedtls_md_type_t *md_alg )
157 {
158 int ret;
159 unsigned char *p;
160 const unsigned char *end;
161 mbedtls_x509_buf md_oid;
162 size_t len;
163
164 /* Make sure we got a SEQUENCE and setup bounds */
165 if( alg->tag != ( MBEDTLS_ASN1_CONSTRUCTED | MBEDTLS_ASN1_SEQUENCE ) )
166 return( MBEDTLS_ERR_X509_INVALID_ALG +
167 MBEDTLS_ERR_ASN1_UNEXPECTED_TAG );
168
169 p = (unsigned char *) alg->p;
170 end = p + alg->len;
171
172 if( p >= end )
173 return( MBEDTLS_ERR_X509_INVALID_ALG +
174 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
175
176 /* Parse md_oid */
177 md_oid.tag = *p;
178
179 if( ( ret = mbedtls_asn1_get_tag( &p, end, &md_oid.len, MBEDTLS_ASN1_OID ) ) != 0 )
180 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
181
182 md_oid.p = p;
183 p += md_oid.len;
184
185 /* Get md_alg from md_oid */
186 if( ( ret = mbedtls_oid_get_md_alg( &md_oid, md_alg ) ) != 0 )
187 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
188
189 /* Make sure params is absent of NULL */
190 if( p == end )
191 return( 0 );
192
193 if( ( ret = mbedtls_asn1_get_tag( &p, end, &len, MBEDTLS_ASN1_NULL ) ) != 0 || len != 0 )
194 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
195
196 if( p != end )
197 return( MBEDTLS_ERR_X509_INVALID_ALG +
198 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
199
200 return( 0 );
201 }
202
203 /*
204 * RSASSA-PSS-params ::= SEQUENCE {
205 * hashAlgorithm [0] HashAlgorithm DEFAULT sha1Identifier,
206 * maskGenAlgorithm [1] MaskGenAlgorithm DEFAULT mgf1SHA1Identifier,
207 * saltLength [2] INTEGER DEFAULT 20,
208 * trailerField [3] INTEGER DEFAULT 1 }
209 * -- Note that the tags in this Sequence are explicit.
210 *
211 * RFC 4055 (which defines use of RSASSA-PSS in PKIX) states that the value
212 * of trailerField MUST be 1, and PKCS#1 v2.2 doesn't even define any other
213 * option. Enfore this at parsing time.
214 */
215 int mbedtls_x509_get_rsassa_pss_params( const mbedtls_x509_buf *params,
216 mbedtls_md_type_t *md_alg, mbedtls_md_type_t *mgf_md,
217 int *salt_len )
218 {
219 int ret;
220 unsigned char *p;
221 const unsigned char *end, *end2;
222 size_t len;
223 mbedtls_x509_buf alg_id, alg_params;
224
225 /* First set everything to defaults */
226 *md_alg = MBEDTLS_MD_SHA1;
227 *mgf_md = MBEDTLS_MD_SHA1;
228 *salt_len = 20;
229
230 /* Make sure params is a SEQUENCE and setup bounds */
231 if( params->tag != ( MBEDTLS_ASN1_CONSTRUCTED | MBEDTLS_ASN1_SEQUENCE ) )
232 return( MBEDTLS_ERR_X509_INVALID_ALG +
233 MBEDTLS_ERR_ASN1_UNEXPECTED_TAG );
234
235 p = (unsigned char *) params->p;
236 end = p + params->len;
237
238 if( p == end )
239 return( 0 );
240
241 /*
242 * HashAlgorithm
243 */
244 if( ( ret = mbedtls_asn1_get_tag( &p, end, &len,
245 MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_CONSTRUCTED | 0 ) ) == 0 )
246 {
247 end2 = p + len;
248
249 /* HashAlgorithm ::= AlgorithmIdentifier (without parameters) */
250 if( ( ret = mbedtls_x509_get_alg_null( &p, end2, &alg_id ) ) != 0 )
251 return( ret );
252
253 if( ( ret = mbedtls_oid_get_md_alg( &alg_id, md_alg ) ) != 0 )
254 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
255
256 if( p != end2 )
257 return( MBEDTLS_ERR_X509_INVALID_ALG +
258 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
259 }
260 else if( ret != MBEDTLS_ERR_ASN1_UNEXPECTED_TAG )
261 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
262
263 if( p == end )
264 return( 0 );
265
266 /*
267 * MaskGenAlgorithm
268 */
269 if( ( ret = mbedtls_asn1_get_tag( &p, end, &len,
270 MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_CONSTRUCTED | 1 ) ) == 0 )
271 {
272 end2 = p + len;
273
274 /* MaskGenAlgorithm ::= AlgorithmIdentifier (params = HashAlgorithm) */
275 if( ( ret = mbedtls_x509_get_alg( &p, end2, &alg_id, &alg_params ) ) != 0 )
276 return( ret );
277
278 /* Only MFG1 is recognised for now */
279 if( MBEDTLS_OID_CMP( MBEDTLS_OID_MGF1, &alg_id ) != 0 )
280 return( MBEDTLS_ERR_X509_FEATURE_UNAVAILABLE +
281 MBEDTLS_ERR_OID_NOT_FOUND );
282
283 /* Parse HashAlgorithm */
284 if( ( ret = x509_get_hash_alg( &alg_params, mgf_md ) ) != 0 )
285 return( ret );
286
287 if( p != end2 )
288 return( MBEDTLS_ERR_X509_INVALID_ALG +
289 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
290 }
291 else if( ret != MBEDTLS_ERR_ASN1_UNEXPECTED_TAG )
292 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
293
294 if( p == end )
295 return( 0 );
296
297 /*
298 * salt_len
299 */
300 if( ( ret = mbedtls_asn1_get_tag( &p, end, &len,
301 MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_CONSTRUCTED | 2 ) ) == 0 )
302 {
303 end2 = p + len;
304
305 if( ( ret = mbedtls_asn1_get_int( &p, end2, salt_len ) ) != 0 )
306 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
307
308 if( p != end2 )
309 return( MBEDTLS_ERR_X509_INVALID_ALG +
310 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
311 }
312 else if( ret != MBEDTLS_ERR_ASN1_UNEXPECTED_TAG )
313 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
314
315 if( p == end )
316 return( 0 );
317
318 /*
319 * trailer_field (if present, must be 1)
320 */
321 if( ( ret = mbedtls_asn1_get_tag( &p, end, &len,
322 MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_CONSTRUCTED | 3 ) ) == 0 )
323 {
324 int trailer_field;
325
326 end2 = p + len;
327
328 if( ( ret = mbedtls_asn1_get_int( &p, end2, &trailer_field ) ) != 0 )
329 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
330
331 if( p != end2 )
332 return( MBEDTLS_ERR_X509_INVALID_ALG +
333 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
334
335 if( trailer_field != 1 )
336 return( MBEDTLS_ERR_X509_INVALID_ALG );
337 }
338 else if( ret != MBEDTLS_ERR_ASN1_UNEXPECTED_TAG )
339 return( MBEDTLS_ERR_X509_INVALID_ALG + ret );
340
341 if( p != end )
342 return( MBEDTLS_ERR_X509_INVALID_ALG +
343 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
344
345 return( 0 );
346 }
347 #endif /* MBEDTLS_X509_RSASSA_PSS_SUPPORT */
348
349 /*
350 * AttributeTypeAndValue ::= SEQUENCE {
351 * type AttributeType,
352 * value AttributeValue }
353 *
354 * AttributeType ::= OBJECT IDENTIFIER
355 *
356 * AttributeValue ::= ANY DEFINED BY AttributeType
357 */
358 static int x509_get_attr_type_value( unsigned char **p,
359 const unsigned char *end,
360 mbedtls_x509_name *cur )
361 {
362 int ret;
363 size_t len;
364 mbedtls_x509_buf *oid;
365 mbedtls_x509_buf *val;
366
367 if( ( ret = mbedtls_asn1_get_tag( p, end, &len,
368 MBEDTLS_ASN1_CONSTRUCTED | MBEDTLS_ASN1_SEQUENCE ) ) != 0 )
369 return( MBEDTLS_ERR_X509_INVALID_NAME + ret );
370
371 if( ( end - *p ) < 1 )
372 return( MBEDTLS_ERR_X509_INVALID_NAME +
373 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
374
375 oid = &cur->oid;
376 oid->tag = **p;
377
378 if( ( ret = mbedtls_asn1_get_tag( p, end, &oid->len, MBEDTLS_ASN1_OID ) ) != 0 )
379 return( MBEDTLS_ERR_X509_INVALID_NAME + ret );
380
381 oid->p = *p;
382 *p += oid->len;
383
384 if( ( end - *p ) < 1 )
385 return( MBEDTLS_ERR_X509_INVALID_NAME +
386 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
387
388 if( **p != MBEDTLS_ASN1_BMP_STRING && **p != MBEDTLS_ASN1_UTF8_STRING &&
389 **p != MBEDTLS_ASN1_T61_STRING && **p != MBEDTLS_ASN1_PRINTABLE_STRING &&
390 **p != MBEDTLS_ASN1_IA5_STRING && **p != MBEDTLS_ASN1_UNIVERSAL_STRING &&
391 **p != MBEDTLS_ASN1_BIT_STRING )
392 return( MBEDTLS_ERR_X509_INVALID_NAME +
393 MBEDTLS_ERR_ASN1_UNEXPECTED_TAG );
394
395 val = &cur->val;
396 val->tag = *(*p)++;
397
398 if( ( ret = mbedtls_asn1_get_len( p, end, &val->len ) ) != 0 )
399 return( MBEDTLS_ERR_X509_INVALID_NAME + ret );
400
401 val->p = *p;
402 *p += val->len;
403
404 cur->next = NULL;
405
406 return( 0 );
407 }
408
409 /*
410 * Name ::= CHOICE { -- only one possibility for now --
411 * rdnSequence RDNSequence }
412 *
413 * RDNSequence ::= SEQUENCE OF RelativeDistinguishedName
414 *
415 * RelativeDistinguishedName ::=
416 * SET OF AttributeTypeAndValue
417 *
418 * AttributeTypeAndValue ::= SEQUENCE {
419 * type AttributeType,
420 * value AttributeValue }
421 *
422 * AttributeType ::= OBJECT IDENTIFIER
423 *
424 * AttributeValue ::= ANY DEFINED BY AttributeType
425 *
426 * The data structure is optimized for the common case where each RDN has only
427 * one element, which is represented as a list of AttributeTypeAndValue.
428 * For the general case we still use a flat list, but we mark elements of the
429 * same set so that they are "merged" together in the functions that consume
430 * this list, eg mbedtls_x509_dn_gets().
431 */
432 int mbedtls_x509_get_name( unsigned char **p, const unsigned char *end,
433 mbedtls_x509_name *cur )
434 {
435 int ret;
436 size_t set_len;
437 const unsigned char *end_set;
438
439 /* don't use recursion, we'd risk stack overflow if not optimized */
440 while( 1 )
441 {
442 /*
443 * parse SET
444 */
445 if( ( ret = mbedtls_asn1_get_tag( p, end, &set_len,
446 MBEDTLS_ASN1_CONSTRUCTED | MBEDTLS_ASN1_SET ) ) != 0 )
447 return( MBEDTLS_ERR_X509_INVALID_NAME + ret );
448
449 end_set = *p + set_len;
450
451 while( 1 )
452 {
453 if( ( ret = x509_get_attr_type_value( p, end_set, cur ) ) != 0 )
454 return( ret );
455
456 if( *p == end_set )
457 break;
458
459 /* Mark this item as being no the only one in a set */
460 cur->next_merged = 1;
461
462 cur->next = mbedtls_calloc( 1, sizeof( mbedtls_x509_name ) );
463
464 if( cur->next == NULL )
465 return( MBEDTLS_ERR_X509_ALLOC_FAILED );
466
467 cur = cur->next;
468 }
469
470 /*
471 * continue until end of SEQUENCE is reached
472 */
473 if( *p == end )
474 return( 0 );
475
476 cur->next = mbedtls_calloc( 1, sizeof( mbedtls_x509_name ) );
477
478 if( cur->next == NULL )
479 return( MBEDTLS_ERR_X509_ALLOC_FAILED );
480
481 cur = cur->next;
482 }
483 }
484
485 static int x509_parse_int( unsigned char **p, size_t n, int *res )
486 {
487 *res = 0;
488
489 for( ; n > 0; --n )
490 {
491 if( ( **p < '0') || ( **p > '9' ) )
492 return ( MBEDTLS_ERR_X509_INVALID_DATE );
493
494 *res *= 10;
495 *res += ( *(*p)++ - '0' );
496 }
497
498 return( 0 );
499 }
500
501 static int x509_date_is_valid(const mbedtls_x509_time *t)
502 {
503 int ret = MBEDTLS_ERR_X509_INVALID_DATE;
504
505 CHECK_RANGE( 0, 9999, t->year );
506 CHECK_RANGE( 0, 23, t->hour );
507 CHECK_RANGE( 0, 59, t->min );
508 CHECK_RANGE( 0, 59, t->sec );
509
510 switch( t->mon )
511 {
512 case 1: case 3: case 5: case 7: case 8: case 10: case 12:
513 CHECK_RANGE( 1, 31, t->day );
514 break;
515 case 4: case 6: case 9: case 11:
516 CHECK_RANGE( 1, 30, t->day );
517 break;
518 case 2:
519 CHECK_RANGE( 1, 28 + (t->year % 4 == 0), t->day );
520 break;
521 default:
522 return( ret );
523 }
524
525 return( 0 );
526 }
527
528 /*
529 * Parse an ASN1_UTC_TIME (yearlen=2) or ASN1_GENERALIZED_TIME (yearlen=4)
530 * field.
531 */
532 static int x509_parse_time( unsigned char **p, size_t len, size_t yearlen,
533 mbedtls_x509_time *tm )
534 {
535 int ret;
536
537 /*
538 * Minimum length is 10 or 12 depending on yearlen
539 */
540 if ( len < yearlen + 8 )
541 return ( MBEDTLS_ERR_X509_INVALID_DATE );
542 len -= yearlen + 8;
543
544 /*
545 * Parse year, month, day, hour, minute
546 */
547 CHECK( x509_parse_int( p, yearlen, &tm->year ) );
548 if ( 2 == yearlen )
549 {
550 if ( tm->year < 50 )
551 tm->year += 100;
552
553 tm->year += 1900;
554 }
555
556 CHECK( x509_parse_int( p, 2, &tm->mon ) );
557 CHECK( x509_parse_int( p, 2, &tm->day ) );
558 CHECK( x509_parse_int( p, 2, &tm->hour ) );
559 CHECK( x509_parse_int( p, 2, &tm->min ) );
560
561 /*
562 * Parse seconds if present
563 */
564 if ( len >= 2 )
565 {
566 CHECK( x509_parse_int( p, 2, &tm->sec ) );
567 len -= 2;
568 }
569 else
570 return ( MBEDTLS_ERR_X509_INVALID_DATE );
571
572 /*
573 * Parse trailing 'Z' if present
574 */
575 if ( 1 == len && 'Z' == **p )
576 {
577 (*p)++;
578 len--;
579 }
580
581 /*
582 * We should have parsed all characters at this point
583 */
584 if ( 0 != len )
585 return ( MBEDTLS_ERR_X509_INVALID_DATE );
586
587 CHECK( x509_date_is_valid( tm ) );
588
589 return ( 0 );
590 }
591
592 /*
593 * Time ::= CHOICE {
594 * utcTime UTCTime,
595 * generalTime GeneralizedTime }
596 */
597 int mbedtls_x509_get_time( unsigned char **p, const unsigned char *end,
598 mbedtls_x509_time *tm )
599 {
600 int ret;
601 size_t len, year_len;
602 unsigned char tag;
603
604 if( ( end - *p ) < 1 )
605 return( MBEDTLS_ERR_X509_INVALID_DATE +
606 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
607
608 tag = **p;
609
610 if( tag == MBEDTLS_ASN1_UTC_TIME )
611 year_len = 2;
612 else if( tag == MBEDTLS_ASN1_GENERALIZED_TIME )
613 year_len = 4;
614 else
615 return( MBEDTLS_ERR_X509_INVALID_DATE +
616 MBEDTLS_ERR_ASN1_UNEXPECTED_TAG );
617
618 (*p)++;
619 ret = mbedtls_asn1_get_len( p, end, &len );
620
621 if( ret != 0 )
622 return( MBEDTLS_ERR_X509_INVALID_DATE + ret );
623
624 return x509_parse_time( p, len, year_len, tm );
625 }
626
627 int mbedtls_x509_get_sig( unsigned char **p, const unsigned char *end, mbedtls_x509_buf *sig )
628 {
629 int ret;
630 size_t len;
631 int tag_type;
632
633 if( ( end - *p ) < 1 )
634 return( MBEDTLS_ERR_X509_INVALID_SIGNATURE +
635 MBEDTLS_ERR_ASN1_OUT_OF_DATA );
636
637 tag_type = **p;
638
639 if( ( ret = mbedtls_asn1_get_bitstring_null( p, end, &len ) ) != 0 )
640 return( MBEDTLS_ERR_X509_INVALID_SIGNATURE + ret );
641
642 sig->tag = tag_type;
643 sig->len = len;
644 sig->p = *p;
645
646 *p += len;
647
648 return( 0 );
649 }
650
651 /*
652 * Get signature algorithm from alg OID and optional parameters
653 */
654 int mbedtls_x509_get_sig_alg( const mbedtls_x509_buf *sig_oid, const mbedtls_x509_buf *sig_params,
655 mbedtls_md_type_t *md_alg, mbedtls_pk_type_t *pk_alg,
656 void **sig_opts )
657 {
658 int ret;
659
660 if( *sig_opts != NULL )
661 return( MBEDTLS_ERR_X509_BAD_INPUT_DATA );
662
663 if( ( ret = mbedtls_oid_get_sig_alg( sig_oid, md_alg, pk_alg ) ) != 0 )
664 return( MBEDTLS_ERR_X509_UNKNOWN_SIG_ALG + ret );
665
666 #if defined(MBEDTLS_X509_RSASSA_PSS_SUPPORT)
667 if( *pk_alg == MBEDTLS_PK_RSASSA_PSS )
668 {
669 mbedtls_pk_rsassa_pss_options *pss_opts;
670
671 pss_opts = mbedtls_calloc( 1, sizeof( mbedtls_pk_rsassa_pss_options ) );
672 if( pss_opts == NULL )
673 return( MBEDTLS_ERR_X509_ALLOC_FAILED );
674
675 ret = mbedtls_x509_get_rsassa_pss_params( sig_params,
676 md_alg,
677 &pss_opts->mgf1_hash_id,
678 &pss_opts->expected_salt_len );
679 if( ret != 0 )
680 {
681 mbedtls_free( pss_opts );
682 return( ret );
683 }
684
685 *sig_opts = (void *) pss_opts;
686 }
687 else
688 #endif /* MBEDTLS_X509_RSASSA_PSS_SUPPORT */
689 {
690 /* Make sure parameters are absent or NULL */
691 if( ( sig_params->tag != MBEDTLS_ASN1_NULL && sig_params->tag != 0 ) ||
692 sig_params->len != 0 )
693 return( MBEDTLS_ERR_X509_INVALID_ALG );
694 }
695
696 return( 0 );
697 }
698
699 /*
700 * X.509 Extensions (No parsing of extensions, pointer should
701 * be either manually updated or extensions should be parsed!)
702 */
703 int mbedtls_x509_get_ext( unsigned char **p, const unsigned char *end,
704 mbedtls_x509_buf *ext, int tag )
705 {
706 int ret;
707 size_t len;
708
709 if( *p == end )
710 return( 0 );
711
712 ext->tag = **p;
713
714 if( ( ret = mbedtls_asn1_get_tag( p, end, &ext->len,
715 MBEDTLS_ASN1_CONTEXT_SPECIFIC | MBEDTLS_ASN1_CONSTRUCTED | tag ) ) != 0 )
716 return( ret );
717
718 ext->p = *p;
719 end = *p + ext->len;
720
721 /*
722 * Extensions ::= SEQUENCE SIZE (1..MAX) OF Extension
723 *
724 * Extension ::= SEQUENCE {
725 * extnID OBJECT IDENTIFIER,
726 * critical BOOLEAN DEFAULT FALSE,
727 * extnValue OCTET STRING }
728 */
729 if( ( ret = mbedtls_asn1_get_tag( p, end, &len,
730 MBEDTLS_ASN1_CONSTRUCTED | MBEDTLS_ASN1_SEQUENCE ) ) != 0 )
731 return( MBEDTLS_ERR_X509_INVALID_EXTENSIONS + ret );
732
733 if( end != *p + len )
734 return( MBEDTLS_ERR_X509_INVALID_EXTENSIONS +
735 MBEDTLS_ERR_ASN1_LENGTH_MISMATCH );
736
737 return( 0 );
738 }
739
740 /*
741 * Store the name in printable form into buf; no more
742 * than size characters will be written
743 */
744 int mbedtls_x509_dn_gets( char *buf, size_t size, const mbedtls_x509_name *dn )
745 {
746 int ret;
747 size_t i, n;
748 unsigned char c, merge = 0;
749 const mbedtls_x509_name *name;
750 const char *short_name = NULL;
751 char s[MBEDTLS_X509_MAX_DN_NAME_SIZE], *p;
752
753 memset( s, 0, sizeof( s ) );
754
755 name = dn;
756 p = buf;
757 n = size;
758
759 while( name != NULL )
760 {
761 if( !name->oid.p )
762 {
763 name = name->next;
764 continue;
765 }
766
767 if( name != dn )
768 {
769 ret = mbedtls_snprintf( p, n, merge ? " + " : ", " );
770 MBEDTLS_X509_SAFE_SNPRINTF;
771 }
772
773 ret = mbedtls_oid_get_attr_short_name( &name->oid, &short_name );
774
775 if( ret == 0 )
776 ret = mbedtls_snprintf( p, n, "%s=", short_name );
777 else
778 ret = mbedtls_snprintf( p, n, "\?\?=" );
779 MBEDTLS_X509_SAFE_SNPRINTF;
780
781 for( i = 0; i < name->val.len; i++ )
782 {
783 if( i >= sizeof( s ) - 1 )
784 break;
785
786 c = name->val.p[i];
787 if( c < 32 || c == 127 || ( c > 128 && c < 160 ) )
788 s[i] = '?';
789 else s[i] = c;
790 }
791 s[i] = '\0';
792 ret = mbedtls_snprintf( p, n, "%s", s );
793 MBEDTLS_X509_SAFE_SNPRINTF;
794
795 merge = name->next_merged;
796 name = name->next;
797 }
798
799 return( (int) ( size - n ) );
800 }
801
802 /*
803 * Store the serial in printable form into buf; no more
804 * than size characters will be written
805 */
806 int mbedtls_x509_serial_gets( char *buf, size_t size, const mbedtls_x509_buf *serial )
807 {
808 int ret;
809 size_t i, n, nr;
810 char *p;
811
812 p = buf;
813 n = size;
814
815 nr = ( serial->len <= 32 )
816 ? serial->len : 28;
817
818 for( i = 0; i < nr; i++ )
819 {
820 if( i == 0 && nr > 1 && serial->p[i] == 0x0 )
821 continue;
822
823 ret = mbedtls_snprintf( p, n, "%02X%s",
824 serial->p[i], ( i < nr - 1 ) ? ":" : "" );
825 MBEDTLS_X509_SAFE_SNPRINTF;
826 }
827
828 if( nr != serial->len )
829 {
830 ret = mbedtls_snprintf( p, n, "...." );
831 MBEDTLS_X509_SAFE_SNPRINTF;
832 }
833
834 return( (int) ( size - n ) );
835 }
836
837 /*
838 * Helper for writing signature algorithms
839 */
840 int mbedtls_x509_sig_alg_gets( char *buf, size_t size, const mbedtls_x509_buf *sig_oid,
841 mbedtls_pk_type_t pk_alg, mbedtls_md_type_t md_alg,
842 const void *sig_opts )
843 {
844 int ret;
845 char *p = buf;
846 size_t n = size;
847 const char *desc = NULL;
848
849 ret = mbedtls_oid_get_sig_alg_desc( sig_oid, &desc );
850 if( ret != 0 )
851 ret = mbedtls_snprintf( p, n, "???" );
852 else
853 ret = mbedtls_snprintf( p, n, "%s", desc );
854 MBEDTLS_X509_SAFE_SNPRINTF;
855
856 #if defined(MBEDTLS_X509_RSASSA_PSS_SUPPORT)
857 if( pk_alg == MBEDTLS_PK_RSASSA_PSS )
858 {
859 const mbedtls_pk_rsassa_pss_options *pss_opts;
860 const mbedtls_md_info_t *md_info, *mgf_md_info;
861
862 pss_opts = (const mbedtls_pk_rsassa_pss_options *) sig_opts;
863
864 md_info = mbedtls_md_info_from_type( md_alg );
865 mgf_md_info = mbedtls_md_info_from_type( pss_opts->mgf1_hash_id );
866
867 ret = mbedtls_snprintf( p, n, " (%s, MGF1-%s, 0x%02X)",
868 md_info ? mbedtls_md_get_name( md_info ) : "???",
869 mgf_md_info ? mbedtls_md_get_name( mgf_md_info ) : "???",
870 pss_opts->expected_salt_len );
871 MBEDTLS_X509_SAFE_SNPRINTF;
872 }
873 #else
874 ((void) pk_alg);
875 ((void) md_alg);
876 ((void) sig_opts);
877 #endif /* MBEDTLS_X509_RSASSA_PSS_SUPPORT */
878
879 return( (int)( size - n ) );
880 }
881
882 /*
883 * Helper for writing "RSA key size", "EC key size", etc
884 */
885 int mbedtls_x509_key_size_helper( char *buf, size_t buf_size, const char *name )
886 {
887 char *p = buf;
888 size_t n = buf_size;
889 int ret;
890
891 ret = mbedtls_snprintf( p, n, "%s key size", name );
892 MBEDTLS_X509_SAFE_SNPRINTF;
893
894 return( 0 );
895 }
896
897 #if defined(MBEDTLS_HAVE_TIME_DATE)
898 /*
899 * Set the time structure to the current time.
900 * Return 0 on success, non-zero on failure.
901 */
902 #if defined(_WIN32) && !defined(EFIX64) && !defined(EFI32)
903 static int x509_get_current_time( mbedtls_x509_time *now )
904 {
905 SYSTEMTIME st;
906
907 GetSystemTime( &st );
908
909 now->year = st.wYear;
910 now->mon = st.wMonth;
911 now->day = st.wDay;
912 now->hour = st.wHour;
913 now->min = st.wMinute;
914 now->sec = st.wSecond;
915
916 return( 0 );
917 }
918 #else
919 static int x509_get_current_time( mbedtls_x509_time *now )
920 {
921 struct tm *lt;
922 mbedtls_time_t tt;
923 int ret = 0;
924
925 #if defined(MBEDTLS_THREADING_C)
926 if( mbedtls_mutex_lock( &mbedtls_threading_gmtime_mutex ) != 0 )
927 return( MBEDTLS_ERR_THREADING_MUTEX_ERROR );
928 #endif
929
930 tt = mbedtls_time( NULL );
931 lt = gmtime( &tt );
932
933 if( lt == NULL )
934 ret = -1;
935 else
936 {
937 now->year = lt->tm_year + 1900;
938 now->mon = lt->tm_mon + 1;
939 now->day = lt->tm_mday;
940 now->hour = lt->tm_hour;
941 now->min = lt->tm_min;
942 now->sec = lt->tm_sec;
943 }
944
945 #if defined(MBEDTLS_THREADING_C)
946 if( mbedtls_mutex_unlock( &mbedtls_threading_gmtime_mutex ) != 0 )
947 return( MBEDTLS_ERR_THREADING_MUTEX_ERROR );
948 #endif
949
950 return( ret );
951 }
952 #endif /* _WIN32 && !EFIX64 && !EFI32 */
953
954 /*
955 * Return 0 if before <= after, 1 otherwise
956 */
957 static int x509_check_time( const mbedtls_x509_time *before, const mbedtls_x509_time *after )
958 {
959 if( before->year > after->year )
960 return( 1 );
961
962 if( before->year == after->year &&
963 before->mon > after->mon )
964 return( 1 );
965
966 if( before->year == after->year &&
967 before->mon == after->mon &&
968 before->day > after->day )
969 return( 1 );
970
971 if( before->year == after->year &&
972 before->mon == after->mon &&
973 before->day == after->day &&
974 before->hour > after->hour )
975 return( 1 );
976
977 if( before->year == after->year &&
978 before->mon == after->mon &&
979 before->day == after->day &&
980 before->hour == after->hour &&
981 before->min > after->min )
982 return( 1 );
983
984 if( before->year == after->year &&
985 before->mon == after->mon &&
986 before->day == after->day &&
987 before->hour == after->hour &&
988 before->min == after->min &&
989 before->sec > after->sec )
990 return( 1 );
991
992 return( 0 );
993 }
994
995 int mbedtls_x509_time_is_past( const mbedtls_x509_time *to )
996 {
997 mbedtls_x509_time now;
998
999 if( x509_get_current_time( &now ) != 0 )
1000 return( 1 );
1001
1002 return( x509_check_time( &now, to ) );
1003 }
1004
1005 int mbedtls_x509_time_is_future( const mbedtls_x509_time *from )
1006 {
1007 mbedtls_x509_time now;
1008
1009 if( x509_get_current_time( &now ) != 0 )
1010 return( 1 );
1011
1012 return( x509_check_time( from, &now ) );
1013 }
1014
1015 #else /* MBEDTLS_HAVE_TIME_DATE */
1016
1017 int mbedtls_x509_time_is_past( const mbedtls_x509_time *to )
1018 {
1019 ((void) to);
1020 return( 0 );
1021 }
1022
1023 int mbedtls_x509_time_is_future( const mbedtls_x509_time *from )
1024 {
1025 ((void) from);
1026 return( 0 );
1027 }
1028 #endif /* MBEDTLS_HAVE_TIME_DATE */
1029
1030 #if defined(MBEDTLS_SELF_TEST)
1031
1032 #include "mbedtls/x509_crt.h"
1033 #include "mbedtls/certs.h"
1034
1035 /*
1036 * Checkup routine
1037 */
1038 int mbedtls_x509_self_test( int verbose )
1039 {
1040 #if defined(MBEDTLS_CERTS_C) && defined(MBEDTLS_SHA256_C)
1041 int ret;
1042 uint32_t flags;
1043 mbedtls_x509_crt cacert;
1044 mbedtls_x509_crt clicert;
1045
1046 if( verbose != 0 )
1047 mbedtls_printf( " X.509 certificate load: " );
1048
1049 mbedtls_x509_crt_init( &clicert );
1050
1051 ret = mbedtls_x509_crt_parse( &clicert, (const unsigned char *) mbedtls_test_cli_crt,
1052 mbedtls_test_cli_crt_len );
1053 if( ret != 0 )
1054 {
1055 if( verbose != 0 )
1056 mbedtls_printf( "failed\n" );
1057
1058 return( ret );
1059 }
1060
1061 mbedtls_x509_crt_init( &cacert );
1062
1063 ret = mbedtls_x509_crt_parse( &cacert, (const unsigned char *) mbedtls_test_ca_crt,
1064 mbedtls_test_ca_crt_len );
1065 if( ret != 0 )
1066 {
1067 if( verbose != 0 )
1068 mbedtls_printf( "failed\n" );
1069
1070 return( ret );
1071 }
1072
1073 if( verbose != 0 )
1074 mbedtls_printf( "passed\n X.509 signature verify: ");
1075
1076 ret = mbedtls_x509_crt_verify( &clicert, &cacert, NULL, NULL, &flags, NULL, NULL );
1077 if( ret != 0 )
1078 {
1079 if( verbose != 0 )
1080 mbedtls_printf( "failed\n" );
1081
1082 return( ret );
1083 }
1084
1085 if( verbose != 0 )
1086 mbedtls_printf( "passed\n\n");
1087
1088 mbedtls_x509_crt_free( &cacert );
1089 mbedtls_x509_crt_free( &clicert );
1090
1091 return( 0 );
1092 #else
1093 ((void) verbose);
1094 return( 0 );
1095 #endif /* MBEDTLS_CERTS_C && MBEDTLS_SHA1_C */
1096 }
1097
1098 #endif /* MBEDTLS_SELF_TEST */
1099
1100 #endif /* MBEDTLS_X509_USE_C */
A free Windows-compatible Operating System