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
;
183 CRYPTO_DOWN_REF(&vfy
->references
, &i
, vfy
->lock
);
184 REF_PRINT_COUNT("X509_STORE", vfy
);
187 REF_ASSERT_ISNT(i
< 0);
189 sk
= vfy
->get_cert_methods
;
190 for (i
= 0; i
< sk_X509_LOOKUP_num(sk
); i
++) {
191 lu
= sk_X509_LOOKUP_value(sk
, i
);
192 X509_LOOKUP_shutdown(lu
);
193 X509_LOOKUP_free(lu
);
195 sk_X509_LOOKUP_free(sk
);
196 sk_X509_OBJECT_pop_free(vfy
->objs
, X509_OBJECT_free
);
198 CRYPTO_free_ex_data(CRYPTO_EX_INDEX_X509_STORE
, vfy
, &vfy
->ex_data
);
199 X509_VERIFY_PARAM_free(vfy
->param
);
200 CRYPTO_THREAD_lock_free(vfy
->lock
);
204 int X509_STORE_up_ref(X509_STORE
*vfy
)
208 if (CRYPTO_UP_REF(&vfy
->references
, &i
, vfy
->lock
) <= 0)
211 REF_PRINT_COUNT("X509_STORE", a
);
212 REF_ASSERT_ISNT(i
< 2);
213 return ((i
> 1) ? 1 : 0);
216 X509_LOOKUP
*X509_STORE_add_lookup(X509_STORE
*v
, X509_LOOKUP_METHOD
*m
)
219 STACK_OF(X509_LOOKUP
) *sk
;
222 sk
= v
->get_cert_methods
;
223 for (i
= 0; i
< sk_X509_LOOKUP_num(sk
); i
++) {
224 lu
= sk_X509_LOOKUP_value(sk
, i
);
225 if (m
== lu
->method
) {
230 lu
= X509_LOOKUP_new(m
);
235 if (sk_X509_LOOKUP_push(v
->get_cert_methods
, lu
))
238 X509_LOOKUP_free(lu
);
244 X509_OBJECT
*X509_STORE_CTX_get_obj_by_subject(X509_STORE_CTX
*vs
,
245 X509_LOOKUP_TYPE type
,
248 X509_OBJECT
*ret
= X509_OBJECT_new();
252 if (!X509_STORE_CTX_get_by_subject(vs
, type
, name
, ret
)) {
253 X509_OBJECT_free(ret
);
259 int X509_STORE_CTX_get_by_subject(X509_STORE_CTX
*vs
, X509_LOOKUP_TYPE type
,
260 X509_NAME
*name
, X509_OBJECT
*ret
)
262 X509_STORE
*ctx
= vs
->ctx
;
264 X509_OBJECT stmp
, *tmp
;
267 CRYPTO_THREAD_write_lock(ctx
->lock
);
268 tmp
= X509_OBJECT_retrieve_by_subject(ctx
->objs
, type
, name
);
269 CRYPTO_THREAD_unlock(ctx
->lock
);
271 if (tmp
== NULL
|| type
== X509_LU_CRL
) {
272 for (i
= 0; i
< sk_X509_LOOKUP_num(ctx
->get_cert_methods
); i
++) {
273 lu
= sk_X509_LOOKUP_value(ctx
->get_cert_methods
, i
);
274 j
= X509_LOOKUP_by_subject(lu
, type
, name
, &stmp
);
284 ret
->type
= tmp
->type
;
285 ret
->data
.ptr
= tmp
->data
.ptr
;
287 X509_OBJECT_up_ref_count(ret
);
292 static int x509_store_add(X509_STORE
*ctx
, void *x
, int crl
) {
294 int ret
= 0, added
= 0;
298 obj
= X509_OBJECT_new();
303 obj
->type
= X509_LU_CRL
;
304 obj
->data
.crl
= (X509_CRL
*)x
;
306 obj
->type
= X509_LU_X509
;
307 obj
->data
.x509
= (X509
*)x
;
309 X509_OBJECT_up_ref_count(obj
);
311 CRYPTO_THREAD_write_lock(ctx
->lock
);
313 if (X509_OBJECT_retrieve_match(ctx
->objs
, obj
)) {
316 added
= sk_X509_OBJECT_push(ctx
->objs
, obj
);
320 CRYPTO_THREAD_unlock(ctx
->lock
);
322 if (added
== 0) /* obj not pushed */
323 X509_OBJECT_free(obj
);
328 int X509_STORE_add_cert(X509_STORE
*ctx
, X509
*x
)
330 if (!x509_store_add(ctx
, x
, 0)) {
331 X509err(X509_F_X509_STORE_ADD_CERT
, ERR_R_MALLOC_FAILURE
);
337 int X509_STORE_add_crl(X509_STORE
*ctx
, X509_CRL
*x
)
339 if (!x509_store_add(ctx
, x
, 1)) {
340 X509err(X509_F_X509_STORE_ADD_CRL
, ERR_R_MALLOC_FAILURE
);
346 int X509_OBJECT_up_ref_count(X509_OBJECT
*a
)
352 return X509_up_ref(a
->data
.x509
);
354 return X509_CRL_up_ref(a
->data
.crl
);
359 X509
*X509_OBJECT_get0_X509(const X509_OBJECT
*a
)
361 if (a
== NULL
|| a
->type
!= X509_LU_X509
)
366 X509_CRL
*X509_OBJECT_get0_X509_CRL(X509_OBJECT
*a
)
368 if (a
== NULL
|| a
->type
!= X509_LU_CRL
)
373 X509_LOOKUP_TYPE
X509_OBJECT_get_type(const X509_OBJECT
*a
)
378 X509_OBJECT
*X509_OBJECT_new()
380 X509_OBJECT
*ret
= OPENSSL_zalloc(sizeof(*ret
));
383 X509err(X509_F_X509_OBJECT_NEW
, ERR_R_MALLOC_FAILURE
);
386 ret
->type
= X509_LU_NONE
;
391 void X509_OBJECT_free(X509_OBJECT
*a
)
399 X509_free(a
->data
.x509
);
402 X509_CRL_free(a
->data
.crl
);
408 static int x509_object_idx_cnt(STACK_OF(X509_OBJECT
) *h
, X509_LOOKUP_TYPE type
,
409 X509_NAME
*name
, int *pnmatch
)
419 stmp
.data
.x509
= &x509_s
;
420 x509_s
.cert_info
.subject
= name
;
423 stmp
.data
.crl
= &crl_s
;
424 crl_s
.crl
.issuer
= name
;
431 idx
= sk_X509_OBJECT_find(h
, &stmp
);
432 if (idx
>= 0 && pnmatch
) {
434 const X509_OBJECT
*tobj
, *pstmp
;
437 for (tidx
= idx
+ 1; tidx
< sk_X509_OBJECT_num(h
); tidx
++) {
438 tobj
= sk_X509_OBJECT_value(h
, tidx
);
439 if (x509_object_cmp(&tobj
, &pstmp
))
447 int X509_OBJECT_idx_by_subject(STACK_OF(X509_OBJECT
) *h
, X509_LOOKUP_TYPE type
,
450 return x509_object_idx_cnt(h
, type
, name
, NULL
);
453 X509_OBJECT
*X509_OBJECT_retrieve_by_subject(STACK_OF(X509_OBJECT
) *h
,
454 X509_LOOKUP_TYPE type
,
458 idx
= X509_OBJECT_idx_by_subject(h
, type
, name
);
461 return sk_X509_OBJECT_value(h
, idx
);
464 STACK_OF(X509_OBJECT
) *X509_STORE_get0_objects(X509_STORE
*v
)
469 STACK_OF(X509
) *X509_STORE_CTX_get1_certs(X509_STORE_CTX
*ctx
, X509_NAME
*nm
)
472 STACK_OF(X509
) *sk
= NULL
;
476 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
477 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_X509
, nm
, &cnt
);
480 * Nothing found in cache: do lookup to possibly add new objects to
483 X509_OBJECT
*xobj
= X509_OBJECT_new();
485 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
488 if (!X509_STORE_CTX_get_by_subject(ctx
, X509_LU_X509
, nm
, xobj
)) {
489 X509_OBJECT_free(xobj
);
492 X509_OBJECT_free(xobj
);
493 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
494 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_X509
, nm
, &cnt
);
496 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
501 sk
= sk_X509_new_null();
502 for (i
= 0; i
< cnt
; i
++, idx
++) {
503 obj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, idx
);
506 if (!sk_X509_push(sk
, x
)) {
507 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
509 sk_X509_pop_free(sk
, X509_free
);
513 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
517 STACK_OF(X509_CRL
) *X509_STORE_CTX_get1_crls(X509_STORE_CTX
*ctx
, X509_NAME
*nm
)
520 STACK_OF(X509_CRL
) *sk
= sk_X509_CRL_new_null();
522 X509_OBJECT
*obj
, *xobj
= X509_OBJECT_new();
524 /* Always do lookup to possibly add new CRLs to cache */
525 if (sk
== NULL
|| xobj
== NULL
||
526 !X509_STORE_CTX_get_by_subject(ctx
, X509_LU_CRL
, nm
, xobj
)) {
527 X509_OBJECT_free(xobj
);
528 sk_X509_CRL_free(sk
);
531 X509_OBJECT_free(xobj
);
532 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
533 idx
= x509_object_idx_cnt(ctx
->ctx
->objs
, X509_LU_CRL
, nm
, &cnt
);
535 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
536 sk_X509_CRL_free(sk
);
540 for (i
= 0; i
< cnt
; i
++, idx
++) {
541 obj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, idx
);
544 if (!sk_X509_CRL_push(sk
, x
)) {
545 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
547 sk_X509_CRL_pop_free(sk
, X509_CRL_free
);
551 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
555 X509_OBJECT
*X509_OBJECT_retrieve_match(STACK_OF(X509_OBJECT
) *h
,
560 idx
= sk_X509_OBJECT_find(h
, x
);
563 if ((x
->type
!= X509_LU_X509
) && (x
->type
!= X509_LU_CRL
))
564 return sk_X509_OBJECT_value(h
, idx
);
565 for (i
= idx
; i
< sk_X509_OBJECT_num(h
); i
++) {
566 obj
= sk_X509_OBJECT_value(h
, i
);
568 ((const X509_OBJECT
**)&obj
, (const X509_OBJECT
**)&x
))
570 if (x
->type
== X509_LU_X509
) {
571 if (!X509_cmp(obj
->data
.x509
, x
->data
.x509
))
573 } else if (x
->type
== X509_LU_CRL
) {
574 if (!X509_CRL_match(obj
->data
.crl
, x
->data
.crl
))
583 * Try to get issuer certificate from store. Due to limitations
584 * of the API this can only retrieve a single certificate matching
585 * a given subject name. However it will fill the cache with all
586 * matching certificates, so we can examine the cache for all
590 * 1 lookup successful.
591 * 0 certificate not found.
592 * -1 some other error.
594 int X509_STORE_CTX_get1_issuer(X509
**issuer
, X509_STORE_CTX
*ctx
, X509
*x
)
597 X509_OBJECT
*obj
= X509_OBJECT_new(), *pobj
= NULL
;
603 xn
= X509_get_issuer_name(x
);
604 ok
= X509_STORE_CTX_get_by_subject(ctx
, X509_LU_X509
, xn
, obj
);
606 X509_OBJECT_free(obj
);
609 /* If certificate matches all OK */
610 if (ctx
->check_issued(ctx
, x
, obj
->data
.x509
)) {
611 if (x509_check_cert_time(ctx
, obj
->data
.x509
, -1)) {
612 *issuer
= obj
->data
.x509
;
613 X509_up_ref(*issuer
);
614 X509_OBJECT_free(obj
);
618 X509_OBJECT_free(obj
);
620 /* Else find index of first cert accepted by 'check_issued' */
622 CRYPTO_THREAD_write_lock(ctx
->ctx
->lock
);
623 idx
= X509_OBJECT_idx_by_subject(ctx
->ctx
->objs
, X509_LU_X509
, xn
);
624 if (idx
!= -1) { /* should be true as we've had at least one
626 /* Look through all matching certs for suitable issuer */
627 for (i
= idx
; i
< sk_X509_OBJECT_num(ctx
->ctx
->objs
); i
++) {
628 pobj
= sk_X509_OBJECT_value(ctx
->ctx
->objs
, i
);
629 /* See if we've run past the matches */
630 if (pobj
->type
!= X509_LU_X509
)
632 if (X509_NAME_cmp(xn
, X509_get_subject_name(pobj
->data
.x509
)))
634 if (ctx
->check_issued(ctx
, x
, pobj
->data
.x509
)) {
635 *issuer
= pobj
->data
.x509
;
638 * If times check, exit with match,
639 * otherwise keep looking. Leave last
640 * match in issuer so we return nearest
641 * match if no certificate time is OK.
644 if (x509_check_cert_time(ctx
, *issuer
, -1))
649 CRYPTO_THREAD_unlock(ctx
->ctx
->lock
);
651 X509_up_ref(*issuer
);
655 int X509_STORE_set_flags(X509_STORE
*ctx
, unsigned long flags
)
657 return X509_VERIFY_PARAM_set_flags(ctx
->param
, flags
);
660 int X509_STORE_set_depth(X509_STORE
*ctx
, int depth
)
662 X509_VERIFY_PARAM_set_depth(ctx
->param
, depth
);
666 int X509_STORE_set_purpose(X509_STORE
*ctx
, int purpose
)
668 return X509_VERIFY_PARAM_set_purpose(ctx
->param
, purpose
);
671 int X509_STORE_set_trust(X509_STORE
*ctx
, int trust
)
673 return X509_VERIFY_PARAM_set_trust(ctx
->param
, trust
);
676 int X509_STORE_set1_param(X509_STORE
*ctx
, X509_VERIFY_PARAM
*param
)
678 return X509_VERIFY_PARAM_set1(ctx
->param
, param
);
681 X509_VERIFY_PARAM
*X509_STORE_get0_param(X509_STORE
*ctx
)
686 void X509_STORE_set_verify(X509_STORE
*ctx
, X509_STORE_CTX_verify_fn verify
)
688 ctx
->verify
= verify
;
691 X509_STORE_CTX_verify_fn
X509_STORE_get_verify(X509_STORE
*ctx
)
696 void X509_STORE_set_verify_cb(X509_STORE
*ctx
,
697 X509_STORE_CTX_verify_cb verify_cb
)
699 ctx
->verify_cb
= verify_cb
;
702 X509_STORE_CTX_verify_cb
X509_STORE_get_verify_cb(X509_STORE
*ctx
)
704 return ctx
->verify_cb
;
707 void X509_STORE_set_get_issuer(X509_STORE
*ctx
,
708 X509_STORE_CTX_get_issuer_fn get_issuer
)
710 ctx
->get_issuer
= get_issuer
;
713 X509_STORE_CTX_get_issuer_fn
X509_STORE_get_get_issuer(X509_STORE
*ctx
)
715 return ctx
->get_issuer
;
718 void X509_STORE_set_check_issued(X509_STORE
*ctx
,
719 X509_STORE_CTX_check_issued_fn check_issued
)
721 ctx
->check_issued
= check_issued
;
724 X509_STORE_CTX_check_issued_fn
X509_STORE_get_check_issued(X509_STORE
*ctx
)
726 return ctx
->check_issued
;
729 void X509_STORE_set_check_revocation(X509_STORE
*ctx
,
730 X509_STORE_CTX_check_revocation_fn check_revocation
)
732 ctx
->check_revocation
= check_revocation
;
735 X509_STORE_CTX_check_revocation_fn
X509_STORE_get_check_revocation(X509_STORE
*ctx
)
737 return ctx
->check_revocation
;
740 void X509_STORE_set_get_crl(X509_STORE
*ctx
,
741 X509_STORE_CTX_get_crl_fn get_crl
)
743 ctx
->get_crl
= get_crl
;
746 X509_STORE_CTX_get_crl_fn
X509_STORE_get_get_crl(X509_STORE
*ctx
)
751 void X509_STORE_set_check_crl(X509_STORE
*ctx
,
752 X509_STORE_CTX_check_crl_fn check_crl
)
754 ctx
->check_crl
= check_crl
;
757 X509_STORE_CTX_check_crl_fn
X509_STORE_get_check_crl(X509_STORE
*ctx
)
759 return ctx
->check_crl
;
762 void X509_STORE_set_cert_crl(X509_STORE
*ctx
,
763 X509_STORE_CTX_cert_crl_fn cert_crl
)
765 ctx
->cert_crl
= cert_crl
;
768 X509_STORE_CTX_cert_crl_fn
X509_STORE_get_cert_crl(X509_STORE
*ctx
)
770 return ctx
->cert_crl
;
773 void X509_STORE_set_check_policy(X509_STORE
*ctx
,
774 X509_STORE_CTX_check_policy_fn check_policy
)
776 ctx
->check_policy
= check_policy
;
779 X509_STORE_CTX_check_policy_fn
X509_STORE_get_check_policy(X509_STORE
*ctx
)
781 return ctx
->check_policy
;
784 void X509_STORE_set_lookup_certs(X509_STORE
*ctx
,
785 X509_STORE_CTX_lookup_certs_fn lookup_certs
)
787 ctx
->lookup_certs
= lookup_certs
;
790 X509_STORE_CTX_lookup_certs_fn
X509_STORE_get_lookup_certs(X509_STORE
*ctx
)
792 return ctx
->lookup_certs
;
795 void X509_STORE_set_lookup_crls(X509_STORE
*ctx
,
796 X509_STORE_CTX_lookup_crls_fn lookup_crls
)
798 ctx
->lookup_crls
= lookup_crls
;
801 X509_STORE_CTX_lookup_crls_fn
X509_STORE_get_lookup_crls(X509_STORE
*ctx
)
803 return ctx
->lookup_crls
;
806 void X509_STORE_set_cleanup(X509_STORE
*ctx
,
807 X509_STORE_CTX_cleanup_fn ctx_cleanup
)
809 ctx
->cleanup
= ctx_cleanup
;
812 X509_STORE_CTX_cleanup_fn
X509_STORE_get_cleanup(X509_STORE
*ctx
)
817 int X509_STORE_set_ex_data(X509_STORE
*ctx
, int idx
, void *data
)
819 return CRYPTO_set_ex_data(&ctx
->ex_data
, idx
, data
);
822 void *X509_STORE_get_ex_data(X509_STORE
*ctx
, int idx
)
824 return CRYPTO_get_ex_data(&ctx
->ex_data
, idx
);
827 X509_STORE
*X509_STORE_CTX_get0_store(X509_STORE_CTX
*ctx
)