2 * Copyright 1995-2017 The OpenSSL Project Authors. All Rights Reserved.
4 * Licensed under the OpenSSL license (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
11 #include "internal/cryptlib.h"
12 #include "internal/refcount.h"
13 #include <openssl/x509.h>
14 #include "internal/x509_int.h"
15 #include <openssl/x509v3.h>
18 X509_LOOKUP
*X509_LOOKUP_new(X509_LOOKUP_METHOD
*method
)
22 ret
= OPENSSL_zalloc(sizeof(*ret
));
27 if ((method
->new_item
!= NULL
) && !method
->new_item(ret
)) {
34 void X509_LOOKUP_free(X509_LOOKUP
*ctx
)
38 if ((ctx
->method
!= NULL
) && (ctx
->method
->free
!= NULL
))
39 (*ctx
->method
->free
) (ctx
);
43 int X509_STORE_lock(X509_STORE
*s
)
45 return CRYPTO_THREAD_write_lock(s
->lock
);
48 int X509_STORE_unlock(X509_STORE
*s
)
50 return CRYPTO_THREAD_unlock(s
->lock
);
53 int X509_LOOKUP_init(X509_LOOKUP
*ctx
)
55 if (ctx
->method
== NULL
)
57 if (ctx
->method
->init
!= NULL
)
58 return ctx
->method
->init(ctx
);
63 int X509_LOOKUP_shutdown(X509_LOOKUP
*ctx
)
65 if (ctx
->method
== NULL
)
67 if (ctx
->method
->shutdown
!= NULL
)
68 return ctx
->method
->shutdown(ctx
);
73 int X509_LOOKUP_ctrl(X509_LOOKUP
*ctx
, int cmd
, const char *argc
, long argl
,
76 if (ctx
->method
== NULL
)
78 if (ctx
->method
->ctrl
!= NULL
)
79 return ctx
->method
->ctrl(ctx
, cmd
, argc
, argl
, ret
);
84 int X509_LOOKUP_by_subject(X509_LOOKUP
*ctx
, X509_LOOKUP_TYPE type
,
85 X509_NAME
*name
, X509_OBJECT
*ret
)
87 if ((ctx
->method
== NULL
) || (ctx
->method
->get_by_subject
== NULL
))
91 return ctx
->method
->get_by_subject(ctx
, type
, name
, ret
);
94 int X509_LOOKUP_by_issuer_serial(X509_LOOKUP
*ctx
, X509_LOOKUP_TYPE type
,
95 X509_NAME
*name
, ASN1_INTEGER
*serial
,
98 if ((ctx
->method
== NULL
) || (ctx
->method
->get_by_issuer_serial
== NULL
))
100 return ctx
->method
->get_by_issuer_serial(ctx
, type
, name
, serial
, ret
);
103 int X509_LOOKUP_by_fingerprint(X509_LOOKUP
*ctx
, X509_LOOKUP_TYPE type
,
104 const unsigned char *bytes
, int len
,
107 if ((ctx
->method
== NULL
) || (ctx
->method
->get_by_fingerprint
== NULL
))
109 return ctx
->method
->get_by_fingerprint(ctx
, type
, bytes
, len
, ret
);
112 int X509_LOOKUP_by_alias(X509_LOOKUP
*ctx
, X509_LOOKUP_TYPE type
,
113 const char *str
, int len
, X509_OBJECT
*ret
)
115 if ((ctx
->method
== NULL
) || (ctx
->method
->get_by_alias
== NULL
))
117 return ctx
->method
->get_by_alias(ctx
, type
, str
, len
, ret
);
120 static int x509_object_cmp(const X509_OBJECT
*const *a
,
121 const X509_OBJECT
*const *b
)
125 ret
= ((*a
)->type
- (*b
)->type
);
128 switch ((*a
)->type
) {
130 ret
= X509_subject_name_cmp((*a
)->data
.x509
, (*b
)->data
.x509
);
133 ret
= X509_CRL_cmp((*a
)->data
.crl
, (*b
)->data
.crl
);
142 X509_STORE
*X509_STORE_new(void)
146 if ((ret
= OPENSSL_zalloc(sizeof(*ret
))) == NULL
)
148 if ((ret
->objs
= sk_X509_OBJECT_new(x509_object_cmp
)) == NULL
)
151 if ((ret
->get_cert_methods
= sk_X509_LOOKUP_new_null()) == NULL
)
154 if ((ret
->param
= X509_VERIFY_PARAM_new()) == NULL
)
157 if (!CRYPTO_new_ex_data(CRYPTO_EX_INDEX_X509_STORE
, ret
, &ret
->ex_data
))
160 ret
->lock
= CRYPTO_THREAD_lock_new();
161 if (ret
->lock
== NULL
)
168 X509_VERIFY_PARAM_free(ret
->param
);
169 sk_X509_OBJECT_free(ret
->objs
);
170 sk_X509_LOOKUP_free(ret
->get_cert_methods
);
175 void X509_STORE_free(X509_STORE
*vfy
)
178 STACK_OF(X509_LOOKUP
) *sk
;
184 CRYPTO_DOWN_REF(&vfy
->references
, &i
, vfy
->lock
);
185 REF_PRINT_COUNT("X509_STORE", vfy
);
188 REF_ASSERT_ISNT(i
< 0);
190 sk
= vfy
->get_cert_methods
;
191 for (i
= 0; i
< sk_X509_LOOKUP_num(sk
); i
++) {
192 lu
= sk_X509_LOOKUP_value(sk
, i
);
193 X509_LOOKUP_shutdown(lu
);
194 X509_LOOKUP_free(lu
);
196 sk_X509_LOOKUP_free(sk
);
197 sk_X509_OBJECT_pop_free(vfy
->objs
, X509_OBJECT_free
);
199 CRYPTO_free_ex_data(CRYPTO_EX_INDEX_X509_STORE
, vfy
, &vfy
->ex_data
);
200 X509_VERIFY_PARAM_free(vfy
->param
);
201 CRYPTO_THREAD_lock_free(vfy
->lock
);
205 int X509_STORE_up_ref(X509_STORE
*vfy
)
209 if (CRYPTO_UP_REF(&vfy
->references
, &i
, vfy
->lock
) <= 0)
212 REF_PRINT_COUNT("X509_STORE", a
);
213 REF_ASSERT_ISNT(i
< 2);
214 return ((i
> 1) ? 1 : 0);
217 X509_LOOKUP
*X509_STORE_add_lookup(X509_STORE
*v
, X509_LOOKUP_METHOD
*m
)
220 STACK_OF(X509_LOOKUP
) *sk
;
223 sk
= v
->get_cert_methods
;
224 for (i
= 0; i
< sk_X509_LOOKUP_num(sk
); i
++) {
225 lu
= sk_X509_LOOKUP_value(sk
, i
);
226 if (m
== lu
->method
) {
231 lu
= X509_LOOKUP_new(m
);
236 if (sk_X509_LOOKUP_push(v
->get_cert_methods
, lu
))
239 X509_LOOKUP_free(lu
);
245 X509_OBJECT
*X509_STORE_CTX_get_obj_by_subject(X509_STORE_CTX
*vs
,
246 X509_LOOKUP_TYPE type
,
249 X509_OBJECT
*ret
= X509_OBJECT_new();
253 if (!X509_STORE_CTX_get_by_subject(vs
, type
, name
, ret
)) {
254 X509_OBJECT_free(ret
);
260 int X509_STORE_CTX_get_by_subject(X509_STORE_CTX
*vs
, X509_LOOKUP_TYPE type
,
261 X509_NAME
*name
, X509_OBJECT
*ret
)
263 X509_STORE
*ctx
= vs
->ctx
;
265 X509_OBJECT stmp
, *tmp
;
268 CRYPTO_THREAD_write_lock(ctx
->lock
);
269 tmp
= X509_OBJECT_retrieve_by_subject(ctx
->objs
, type
, name
);
270 CRYPTO_THREAD_unlock(ctx
->lock
);
272 if (tmp
== NULL
|| type
== X509_LU_CRL
) {
273 for (i
= 0; i
< sk_X509_LOOKUP_num(ctx
->get_cert_methods
); i
++) {
274 lu
= sk_X509_LOOKUP_value(ctx
->get_cert_methods
, i
);
275 j
= X509_LOOKUP_by_subject(lu
, type
, name
, &stmp
);
285 ret
->type
= tmp
->type
;
286 ret
->data
.ptr
= tmp
->data
.ptr
;
288 X509_OBJECT_up_ref_count(ret
);
293 static int x509_store_add(X509_STORE
*ctx
, void *x
, int crl
) {
295 int ret
= 0, added
= 0;
299 obj
= X509_OBJECT_new();
304 obj
->type
= X509_LU_CRL
;
305 obj
->data
.crl
= (X509_CRL
*)x
;
307 obj
->type
= X509_LU_X509
;
308 obj
->data
.x509
= (X509
*)x
;
310 X509_OBJECT_up_ref_count(obj
);
312 CRYPTO_THREAD_write_lock(ctx
->lock
);
314 if (X509_OBJECT_retrieve_match(ctx
->objs
, obj
)) {
317 added
= sk_X509_OBJECT_push(ctx
->objs
, obj
);
321 CRYPTO_THREAD_unlock(ctx
->lock
);
323 if (added
== 0) /* obj not pushed */
324 X509_OBJECT_free(obj
);
329 int X509_STORE_add_cert(X509_STORE
*ctx
, X509
*x
)
331 if (!x509_store_add(ctx
, x
, 0)) {
332 X509err(X509_F_X509_STORE_ADD_CERT
, ERR_R_MALLOC_FAILURE
);
338 int X509_STORE_add_crl(X509_STORE
*ctx
, X509_CRL
*x
)
340 if (!x509_store_add(ctx
, x
, 1)) {
341 X509err(X509_F_X509_STORE_ADD_CRL
, ERR_R_MALLOC_FAILURE
);
347 int X509_OBJECT_up_ref_count(X509_OBJECT
*a
)
353 return X509_up_ref(a
->data
.x509
);
355 return X509_CRL_up_ref(a
->data
.crl
);
360 X509
*X509_OBJECT_get0_X509(const X509_OBJECT
*a
)
362 if (a
== NULL
|| a
->type
!= X509_LU_X509
)
367 X509_CRL
*X509_OBJECT_get0_X509_CRL(X509_OBJECT
*a
)
369 if (a
== NULL
|| a
->type
!= X509_LU_CRL
)
374 X509_LOOKUP_TYPE
X509_OBJECT_get_type(const X509_OBJECT
*a
)
379 X509_OBJECT
*X509_OBJECT_new()
381 X509_OBJECT
*ret
= OPENSSL_zalloc(sizeof(*ret
));
384 X509err(X509_F_X509_OBJECT_NEW
, ERR_R_MALLOC_FAILURE
);
387 ret
->type
= X509_LU_NONE
;
392 void X509_OBJECT_free(X509_OBJECT
*a
)
400 X509_free(a
->data
.x509
);
403 X509_CRL_free(a
->data
.crl
);
409 static int x509_object_idx_cnt(STACK_OF(X509_OBJECT
) *h
, X509_LOOKUP_TYPE type
,
410 X509_NAME
*name
, int *pnmatch
)
420 stmp
.data
.x509
= &x509_s
;
421 x509_s
.cert_info
.subject
= name
;
424 stmp
.data
.crl
= &crl_s
;
425 crl_s
.crl
.issuer
= name
;
432 idx
= sk_X509_OBJECT_find(h
, &stmp
);
433 if (idx
>= 0 && pnmatch
) {
435 const X509_OBJECT
*tobj
, *pstmp
;
438 for (tidx
= idx
+ 1; tidx
< sk_X509_OBJECT_num(h
); tidx
++) {
439 tobj
= sk_X509_OBJECT_value(h
, tidx
);
440 if (x509_object_cmp(&tobj
, &pstmp
))
448 int X509_OBJECT_idx_by_subject(STACK_OF(X509_OBJECT
) *h
, X509_LOOKUP_TYPE type
,
451 return x509_object_idx_cnt(h
, type
, name
, NULL
);
454 X509_OBJECT
*X509_OBJECT_retrieve_by_subject(STACK_OF(X509_OBJECT
) *h
,
455 X509_LOOKUP_TYPE type
,
459 idx
= X509_OBJECT_idx_by_subject(h
, type
, name
);
462 return sk_X509_OBJECT_value(h
, idx
);
465 STACK_OF(X509_OBJECT
) *X509_STORE_get0_objects(X509_STORE
*v
)
470 STACK_OF(X509
) *X509_STORE_CTX_get1_certs(X509_STORE_CTX
*ctx
, X509_NAME
*nm
)
473 STACK_OF(X509
) *sk
= NULL
;
477 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
478 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_X509
, nm
, &cnt
);
481 * Nothing found in cache: do lookup to possibly add new objects to
484 X509_OBJECT
*xobj
= X509_OBJECT_new();
486 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
489 if (!X509_STORE_CTX_get_by_subject(ctx
, X509_LU_X509
, nm
, xobj
)) {
490 X509_OBJECT_free(xobj
);
493 X509_OBJECT_free(xobj
);
494 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
495 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_X509
, nm
, &cnt
);
497 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
502 sk
= sk_X509_new_null();
503 for (i
= 0; i
< cnt
; i
++, idx
++) {
504 obj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, idx
);
507 if (!sk_X509_push(sk
, x
)) {
508 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
510 sk_X509_pop_free(sk
, X509_free
);
514 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
518 STACK_OF(X509_CRL
) *X509_STORE_CTX_get1_crls(X509_STORE_CTX
*ctx
, X509_NAME
*nm
)
521 STACK_OF(X509_CRL
) *sk
= sk_X509_CRL_new_null();
523 X509_OBJECT
*obj
, *xobj
= X509_OBJECT_new();
525 /* Always do lookup to possibly add new CRLs to cache */
526 if (sk
== NULL
|| xobj
== NULL
||
527 !X509_STORE_CTX_get_by_subject(ctx
, X509_LU_CRL
, nm
, xobj
)) {
528 X509_OBJECT_free(xobj
);
529 sk_X509_CRL_free(sk
);
532 X509_OBJECT_free(xobj
);
533 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
534 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_CRL
, nm
, &cnt
);
536 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
537 sk_X509_CRL_free(sk
);
541 for (i
= 0; i
< cnt
; i
++, idx
++) {
542 obj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, idx
);
545 if (!sk_X509_CRL_push(sk
, x
)) {
546 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
548 sk_X509_CRL_pop_free(sk
, X509_CRL_free
);
552 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
556 X509_OBJECT
*X509_OBJECT_retrieve_match(STACK_OF(X509_OBJECT
) *h
,
561 idx
= sk_X509_OBJECT_find(h
, x
);
564 if ((x
->type
!= X509_LU_X509
) && (x
->type
!= X509_LU_CRL
))
565 return sk_X509_OBJECT_value(h
, idx
);
566 for (i
= idx
; i
< sk_X509_OBJECT_num(h
); i
++) {
567 obj
= sk_X509_OBJECT_value(h
, i
);
569 ((const X509_OBJECT
**)&obj
, (const X509_OBJECT
**)&x
))
571 if (x
->type
== X509_LU_X509
) {
572 if (!X509_cmp(obj
->data
.x509
, x
->data
.x509
))
574 } else if (x
->type
== X509_LU_CRL
) {
575 if (!X509_CRL_match(obj
->data
.crl
, x
->data
.crl
))
584 * Try to get issuer certificate from store. Due to limitations
585 * of the API this can only retrieve a single certificate matching
586 * a given subject name. However it will fill the cache with all
587 * matching certificates, so we can examine the cache for all
591 * 1 lookup successful.
592 * 0 certificate not found.
593 * -1 some other error.
595 int X509_STORE_CTX_get1_issuer(X509
**issuer
, X509_STORE_CTX
*ctx
, X509
*x
)
598 X509_OBJECT
*obj
= X509_OBJECT_new(), *pobj
= NULL
;
604 xn
= X509_get_issuer_name(x
);
605 ok
= X509_STORE_CTX_get_by_subject(ctx
, X509_LU_X509
, xn
, obj
);
607 X509_OBJECT_free(obj
);
610 /* If certificate matches all OK */
611 if (ctx
->check_issued(ctx
, x
, obj
->data
.x509
)) {
612 if (x509_check_cert_time(ctx
, obj
->data
.x509
, -1)) {
613 *issuer
= obj
->data
.x509
;
614 X509_up_ref(*issuer
);
615 X509_OBJECT_free(obj
);
619 X509_OBJECT_free(obj
);
621 /* Else find index of first cert accepted by 'check_issued' */
623 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
624 idx
= X509_OBJECT_idx_by_subject(ctx
->ctx
->objs
, X509_LU_X509
, xn
);
625 if (idx
!= -1) { /* should be true as we've had at least one
627 /* Look through all matching certs for suitable issuer */
628 for (i
= idx
; i
< sk_X509_OBJECT_num(ctx
->ctx
->objs
); i
++) {
629 pobj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, i
);
630 /* See if we've run past the matches */
631 if (pobj
->type
!= X509_LU_X509
)
633 if (X509_NAME_cmp(xn
, X509_get_subject_name(pobj
->data
.x509
)))
635 if (ctx
->check_issued(ctx
, x
, pobj
->data
.x509
)) {
636 *issuer
= pobj
->data
.x509
;
639 * If times check, exit with match,
640 * otherwise keep looking. Leave last
641 * match in issuer so we return nearest
642 * match if no certificate time is OK.
645 if (x509_check_cert_time(ctx
, *issuer
, -1))
650 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
652 X509_up_ref(*issuer
);
656 int X509_STORE_set_flags(X509_STORE
*ctx
, unsigned long flags
)
658 return X509_VERIFY_PARAM_set_flags(ctx
->param
, flags
);
661 int X509_STORE_set_depth(X509_STORE
*ctx
, int depth
)
663 X509_VERIFY_PARAM_set_depth(ctx
->param
, depth
);
667 int X509_STORE_set_purpose(X509_STORE
*ctx
, int purpose
)
669 return X509_VERIFY_PARAM_set_purpose(ctx
->param
, purpose
);
672 int X509_STORE_set_trust(X509_STORE
*ctx
, int trust
)
674 return X509_VERIFY_PARAM_set_trust(ctx
->param
, trust
);
677 int X509_STORE_set1_param(X509_STORE
*ctx
, X509_VERIFY_PARAM
*param
)
679 return X509_VERIFY_PARAM_set1(ctx
->param
, param
);
682 X509_VERIFY_PARAM
*X509_STORE_get0_param(X509_STORE
*ctx
)
687 void X509_STORE_set_verify(X509_STORE
*ctx
, X509_STORE_CTX_verify_fn verify
)
689 ctx
->verify
= verify
;
692 X509_STORE_CTX_verify_fn
X509_STORE_get_verify(X509_STORE
*ctx
)
697 void X509_STORE_set_verify_cb(X509_STORE
*ctx
,
698 X509_STORE_CTX_verify_cb verify_cb
)
700 ctx
->verify_cb
= verify_cb
;
703 X509_STORE_CTX_verify_cb
X509_STORE_get_verify_cb(X509_STORE
*ctx
)
705 return ctx
->verify_cb
;
708 void X509_STORE_set_get_issuer(X509_STORE
*ctx
,
709 X509_STORE_CTX_get_issuer_fn get_issuer
)
711 ctx
->get_issuer
= get_issuer
;
714 X509_STORE_CTX_get_issuer_fn
X509_STORE_get_get_issuer(X509_STORE
*ctx
)
716 return ctx
->get_issuer
;
719 void X509_STORE_set_check_issued(X509_STORE
*ctx
,
720 X509_STORE_CTX_check_issued_fn check_issued
)
722 ctx
->check_issued
= check_issued
;
725 X509_STORE_CTX_check_issued_fn
X509_STORE_get_check_issued(X509_STORE
*ctx
)
727 return ctx
->check_issued
;
730 void X509_STORE_set_check_revocation(X509_STORE
*ctx
,
731 X509_STORE_CTX_check_revocation_fn check_revocation
)
733 ctx
->check_revocation
= check_revocation
;
736 X509_STORE_CTX_check_revocation_fn
X509_STORE_get_check_revocation(X509_STORE
*ctx
)
738 return ctx
->check_revocation
;
741 void X509_STORE_set_get_crl(X509_STORE
*ctx
,
742 X509_STORE_CTX_get_crl_fn get_crl
)
744 ctx
->get_crl
= get_crl
;
747 X509_STORE_CTX_get_crl_fn
X509_STORE_get_get_crl(X509_STORE
*ctx
)
752 void X509_STORE_set_check_crl(X509_STORE
*ctx
,
753 X509_STORE_CTX_check_crl_fn check_crl
)
755 ctx
->check_crl
= check_crl
;
758 X509_STORE_CTX_check_crl_fn
X509_STORE_get_check_crl(X509_STORE
*ctx
)
760 return ctx
->check_crl
;
763 void X509_STORE_set_cert_crl(X509_STORE
*ctx
,
764 X509_STORE_CTX_cert_crl_fn cert_crl
)
766 ctx
->cert_crl
= cert_crl
;
769 X509_STORE_CTX_cert_crl_fn
X509_STORE_get_cert_crl(X509_STORE
*ctx
)
771 return ctx
->cert_crl
;
774 void X509_STORE_set_check_policy(X509_STORE
*ctx
,
775 X509_STORE_CTX_check_policy_fn check_policy
)
777 ctx
->check_policy
= check_policy
;
780 X509_STORE_CTX_check_policy_fn
X509_STORE_get_check_policy(X509_STORE
*ctx
)
782 return ctx
->check_policy
;
785 void X509_STORE_set_lookup_certs(X509_STORE
*ctx
,
786 X509_STORE_CTX_lookup_certs_fn lookup_certs
)
788 ctx
->lookup_certs
= lookup_certs
;
791 X509_STORE_CTX_lookup_certs_fn
X509_STORE_get_lookup_certs(X509_STORE
*ctx
)
793 return ctx
->lookup_certs
;
796 void X509_STORE_set_lookup_crls(X509_STORE
*ctx
,
797 X509_STORE_CTX_lookup_crls_fn lookup_crls
)
799 ctx
->lookup_crls
= lookup_crls
;
802 X509_STORE_CTX_lookup_crls_fn
X509_STORE_get_lookup_crls(X509_STORE
*ctx
)
804 return ctx
->lookup_crls
;
807 void X509_STORE_set_cleanup(X509_STORE
*ctx
,
808 X509_STORE_CTX_cleanup_fn ctx_cleanup
)
810 ctx
->cleanup
= ctx_cleanup
;
813 X509_STORE_CTX_cleanup_fn
X509_STORE_get_cleanup(X509_STORE
*ctx
)
818 int X509_STORE_set_ex_data(X509_STORE
*ctx
, int idx
, void *data
)
820 return CRYPTO_set_ex_data(&ctx
->ex_data
, idx
, data
);
823 void *X509_STORE_get_ex_data(X509_STORE
*ctx
, int idx
)
825 return CRYPTO_get_ex_data(&ctx
->ex_data
, idx
);
828 X509_STORE
*X509_STORE_CTX_get0_store(X509_STORE_CTX
*ctx
)