/src/openssl/crypto/x509/x509_lu.c
Line | Count | Source (jump to first uncovered line) |
1 | | /* crypto/x509/x509_lu.c */ |
2 | | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
3 | | * All rights reserved. |
4 | | * |
5 | | * This package is an SSL implementation written |
6 | | * by Eric Young (eay@cryptsoft.com). |
7 | | * The implementation was written so as to conform with Netscapes SSL. |
8 | | * |
9 | | * This library is free for commercial and non-commercial use as long as |
10 | | * the following conditions are aheared to. The following conditions |
11 | | * apply to all code found in this distribution, be it the RC4, RSA, |
12 | | * lhash, DES, etc., code; not just the SSL code. The SSL documentation |
13 | | * included with this distribution is covered by the same copyright terms |
14 | | * except that the holder is Tim Hudson (tjh@cryptsoft.com). |
15 | | * |
16 | | * Copyright remains Eric Young's, and as such any Copyright notices in |
17 | | * the code are not to be removed. |
18 | | * If this package is used in a product, Eric Young should be given attribution |
19 | | * as the author of the parts of the library used. |
20 | | * This can be in the form of a textual message at program startup or |
21 | | * in documentation (online or textual) provided with the package. |
22 | | * |
23 | | * Redistribution and use in source and binary forms, with or without |
24 | | * modification, are permitted provided that the following conditions |
25 | | * are met: |
26 | | * 1. Redistributions of source code must retain the copyright |
27 | | * notice, this list of conditions and the following disclaimer. |
28 | | * 2. Redistributions in binary form must reproduce the above copyright |
29 | | * notice, this list of conditions and the following disclaimer in the |
30 | | * documentation and/or other materials provided with the distribution. |
31 | | * 3. All advertising materials mentioning features or use of this software |
32 | | * must display the following acknowledgement: |
33 | | * "This product includes cryptographic software written by |
34 | | * Eric Young (eay@cryptsoft.com)" |
35 | | * The word 'cryptographic' can be left out if the rouines from the library |
36 | | * being used are not cryptographic related :-). |
37 | | * 4. If you include any Windows specific code (or a derivative thereof) from |
38 | | * the apps directory (application code) you must include an acknowledgement: |
39 | | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" |
40 | | * |
41 | | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND |
42 | | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
43 | | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
44 | | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE |
45 | | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
46 | | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
47 | | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
48 | | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
49 | | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
50 | | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
51 | | * SUCH DAMAGE. |
52 | | * |
53 | | * The licence and distribution terms for any publically available version or |
54 | | * derivative of this code cannot be changed. i.e. this code cannot simply be |
55 | | * copied and put under another distribution licence |
56 | | * [including the GNU Public Licence.] |
57 | | */ |
58 | | |
59 | | #include <stdio.h> |
60 | | #include "cryptlib.h" |
61 | | #include <openssl/lhash.h> |
62 | | #include <openssl/x509.h> |
63 | | #include <openssl/x509v3.h> |
64 | | |
65 | | X509_LOOKUP *X509_LOOKUP_new(X509_LOOKUP_METHOD *method) |
66 | 1.24k | { |
67 | 1.24k | X509_LOOKUP *ret; |
68 | | |
69 | 1.24k | ret = (X509_LOOKUP *)OPENSSL_malloc(sizeof(X509_LOOKUP)); |
70 | 1.24k | if (ret == NULL) |
71 | 0 | return NULL; |
72 | | |
73 | 1.24k | ret->init = 0; |
74 | 1.24k | ret->skip = 0; |
75 | 1.24k | ret->method = method; |
76 | 1.24k | ret->method_data = NULL; |
77 | 1.24k | ret->store_ctx = NULL; |
78 | 1.24k | if ((method->new_item != NULL) && !method->new_item(ret)) { |
79 | 0 | OPENSSL_free(ret); |
80 | 0 | return NULL; |
81 | 0 | } |
82 | 1.24k | return ret; |
83 | 1.24k | } |
84 | | |
85 | | void X509_LOOKUP_free(X509_LOOKUP *ctx) |
86 | 1.24k | { |
87 | 1.24k | if (ctx == NULL) |
88 | 0 | return; |
89 | 1.24k | if ((ctx->method != NULL) && (ctx->method->free != NULL)) |
90 | 0 | (*ctx->method->free) (ctx); |
91 | 1.24k | OPENSSL_free(ctx); |
92 | 1.24k | } |
93 | | |
94 | | int X509_LOOKUP_init(X509_LOOKUP *ctx) |
95 | 0 | { |
96 | 0 | if (ctx->method == NULL) |
97 | 0 | return 0; |
98 | 0 | if (ctx->method->init != NULL) |
99 | 0 | return ctx->method->init(ctx); |
100 | 0 | else |
101 | 0 | return 1; |
102 | 0 | } |
103 | | |
104 | | int X509_LOOKUP_shutdown(X509_LOOKUP *ctx) |
105 | 1.24k | { |
106 | 1.24k | if (ctx->method == NULL) |
107 | 0 | return 0; |
108 | 1.24k | if (ctx->method->shutdown != NULL) |
109 | 0 | return ctx->method->shutdown(ctx); |
110 | 1.24k | else |
111 | 1.24k | return 1; |
112 | 1.24k | } |
113 | | |
114 | | int X509_LOOKUP_ctrl(X509_LOOKUP *ctx, int cmd, const char *argc, long argl, |
115 | | char **ret) |
116 | 1.24k | { |
117 | 1.24k | if (ctx->method == NULL) |
118 | 0 | return -1; |
119 | 1.24k | if (ctx->method->ctrl != NULL) |
120 | 1.24k | return ctx->method->ctrl(ctx, cmd, argc, argl, ret); |
121 | 0 | else |
122 | 0 | return 1; |
123 | 1.24k | } |
124 | | |
125 | | int X509_LOOKUP_by_subject(X509_LOOKUP *ctx, int type, X509_NAME *name, |
126 | | X509_OBJECT *ret) |
127 | 0 | { |
128 | 0 | if ((ctx->method == NULL) || (ctx->method->get_by_subject == NULL)) |
129 | 0 | return X509_LU_FAIL; |
130 | 0 | if (ctx->skip) |
131 | 0 | return 0; |
132 | 0 | return ctx->method->get_by_subject(ctx, type, name, ret); |
133 | 0 | } |
134 | | |
135 | | int X509_LOOKUP_by_issuer_serial(X509_LOOKUP *ctx, int type, X509_NAME *name, |
136 | | ASN1_INTEGER *serial, X509_OBJECT *ret) |
137 | 0 | { |
138 | 0 | if ((ctx->method == NULL) || (ctx->method->get_by_issuer_serial == NULL)) |
139 | 0 | return X509_LU_FAIL; |
140 | 0 | return ctx->method->get_by_issuer_serial(ctx, type, name, serial, ret); |
141 | 0 | } |
142 | | |
143 | | int X509_LOOKUP_by_fingerprint(X509_LOOKUP *ctx, int type, |
144 | | unsigned char *bytes, int len, |
145 | | X509_OBJECT *ret) |
146 | 0 | { |
147 | 0 | if ((ctx->method == NULL) || (ctx->method->get_by_fingerprint == NULL)) |
148 | 0 | return X509_LU_FAIL; |
149 | 0 | return ctx->method->get_by_fingerprint(ctx, type, bytes, len, ret); |
150 | 0 | } |
151 | | |
152 | | int X509_LOOKUP_by_alias(X509_LOOKUP *ctx, int type, char *str, int len, |
153 | | X509_OBJECT *ret) |
154 | 0 | { |
155 | 0 | if ((ctx->method == NULL) || (ctx->method->get_by_alias == NULL)) |
156 | 0 | return X509_LU_FAIL; |
157 | 0 | return ctx->method->get_by_alias(ctx, type, str, len, ret); |
158 | 0 | } |
159 | | |
160 | | static int x509_object_cmp(const X509_OBJECT *const *a, |
161 | | const X509_OBJECT *const *b) |
162 | 31.2M | { |
163 | 31.2M | int ret; |
164 | | |
165 | 31.2M | ret = ((*a)->type - (*b)->type); |
166 | 31.2M | if (ret) |
167 | 0 | return ret; |
168 | 31.2M | switch ((*a)->type) { |
169 | 31.2M | case X509_LU_X509: |
170 | 31.2M | ret = X509_subject_name_cmp((*a)->data.x509, (*b)->data.x509); |
171 | 31.2M | break; |
172 | 0 | case X509_LU_CRL: |
173 | 0 | ret = X509_CRL_cmp((*a)->data.crl, (*b)->data.crl); |
174 | 0 | break; |
175 | 0 | default: |
176 | | /* abort(); */ |
177 | 0 | return 0; |
178 | 31.2M | } |
179 | 31.2M | return ret; |
180 | 31.2M | } |
181 | | |
182 | | X509_STORE *X509_STORE_new(void) |
183 | 1.24k | { |
184 | 1.24k | X509_STORE *ret; |
185 | | |
186 | 1.24k | if ((ret = (X509_STORE *)OPENSSL_malloc(sizeof(X509_STORE))) == NULL) |
187 | 0 | return NULL; |
188 | 1.24k | if ((ret->objs = sk_X509_OBJECT_new(x509_object_cmp)) == NULL) |
189 | 0 | goto err0; |
190 | 1.24k | ret->cache = 1; |
191 | 1.24k | if ((ret->get_cert_methods = sk_X509_LOOKUP_new_null()) == NULL) |
192 | 0 | goto err1; |
193 | 1.24k | ret->verify = 0; |
194 | 1.24k | ret->verify_cb = 0; |
195 | | |
196 | 1.24k | if ((ret->param = X509_VERIFY_PARAM_new()) == NULL) |
197 | 0 | goto err2; |
198 | | |
199 | 1.24k | ret->get_issuer = 0; |
200 | 1.24k | ret->check_issued = 0; |
201 | 1.24k | ret->check_revocation = 0; |
202 | 1.24k | ret->get_crl = 0; |
203 | 1.24k | ret->check_crl = 0; |
204 | 1.24k | ret->cert_crl = 0; |
205 | 1.24k | ret->lookup_certs = 0; |
206 | 1.24k | ret->lookup_crls = 0; |
207 | 1.24k | ret->cleanup = 0; |
208 | | |
209 | 1.24k | if (!CRYPTO_new_ex_data(CRYPTO_EX_INDEX_X509_STORE, ret, &ret->ex_data)) |
210 | 0 | goto err3; |
211 | | |
212 | 1.24k | ret->references = 1; |
213 | 1.24k | return ret; |
214 | | |
215 | 0 | err3: |
216 | 0 | X509_VERIFY_PARAM_free(ret->param); |
217 | 0 | err2: |
218 | 0 | sk_X509_LOOKUP_free(ret->get_cert_methods); |
219 | 0 | err1: |
220 | 0 | sk_X509_OBJECT_free(ret->objs); |
221 | 0 | err0: |
222 | 0 | OPENSSL_free(ret); |
223 | 0 | return NULL; |
224 | 0 | } |
225 | | |
226 | | static void cleanup(X509_OBJECT *a) |
227 | 157k | { |
228 | 157k | if (!a) |
229 | 0 | return; |
230 | 157k | if (a->type == X509_LU_X509) { |
231 | 157k | X509_free(a->data.x509); |
232 | 157k | } else if (a->type == X509_LU_CRL) { |
233 | 0 | X509_CRL_free(a->data.crl); |
234 | 0 | } else { |
235 | | /* abort(); */ |
236 | 0 | } |
237 | | |
238 | 157k | OPENSSL_free(a); |
239 | 157k | } |
240 | | |
241 | | void X509_STORE_free(X509_STORE *vfy) |
242 | 1.24k | { |
243 | 1.24k | int i; |
244 | 1.24k | STACK_OF(X509_LOOKUP) *sk; |
245 | 1.24k | X509_LOOKUP *lu; |
246 | | |
247 | 1.24k | if (vfy == NULL) |
248 | 0 | return; |
249 | | |
250 | 1.24k | i = CRYPTO_add(&vfy->references, -1, CRYPTO_LOCK_X509_STORE); |
251 | | #ifdef REF_PRINT |
252 | | REF_PRINT("X509_STORE", vfy); |
253 | | #endif |
254 | 1.24k | if (i > 0) |
255 | 0 | return; |
256 | | #ifdef REF_CHECK |
257 | | if (i < 0) { |
258 | | fprintf(stderr, "X509_STORE_free, bad reference count\n"); |
259 | | abort(); /* ok */ |
260 | | } |
261 | | #endif |
262 | | |
263 | 1.24k | sk = vfy->get_cert_methods; |
264 | 2.48k | for (i = 0; i < sk_X509_LOOKUP_num(sk); i++) { |
265 | 1.24k | lu = sk_X509_LOOKUP_value(sk, i); |
266 | 1.24k | X509_LOOKUP_shutdown(lu); |
267 | 1.24k | X509_LOOKUP_free(lu); |
268 | 1.24k | } |
269 | 1.24k | sk_X509_LOOKUP_free(sk); |
270 | 1.24k | sk_X509_OBJECT_pop_free(vfy->objs, cleanup); |
271 | | |
272 | 1.24k | CRYPTO_free_ex_data(CRYPTO_EX_INDEX_X509_STORE, vfy, &vfy->ex_data); |
273 | 1.24k | if (vfy->param) |
274 | 1.24k | X509_VERIFY_PARAM_free(vfy->param); |
275 | 1.24k | OPENSSL_free(vfy); |
276 | 1.24k | } |
277 | | |
278 | | X509_LOOKUP *X509_STORE_add_lookup(X509_STORE *v, X509_LOOKUP_METHOD *m) |
279 | 2.48k | { |
280 | 2.48k | int i; |
281 | 2.48k | STACK_OF(X509_LOOKUP) *sk; |
282 | 2.48k | X509_LOOKUP *lu; |
283 | | |
284 | 2.48k | sk = v->get_cert_methods; |
285 | 2.48k | for (i = 0; i < sk_X509_LOOKUP_num(sk); i++) { |
286 | 1.24k | lu = sk_X509_LOOKUP_value(sk, i); |
287 | 1.24k | if (m == lu->method) { |
288 | 1.24k | return lu; |
289 | 1.24k | } |
290 | 1.24k | } |
291 | | /* a new one */ |
292 | 1.24k | lu = X509_LOOKUP_new(m); |
293 | 1.24k | if (lu == NULL) |
294 | 0 | return NULL; |
295 | 1.24k | else { |
296 | 1.24k | lu->store_ctx = v; |
297 | 1.24k | if (sk_X509_LOOKUP_push(v->get_cert_methods, lu)) |
298 | 1.24k | return lu; |
299 | 0 | else { |
300 | 0 | X509_LOOKUP_free(lu); |
301 | 0 | return NULL; |
302 | 0 | } |
303 | 1.24k | } |
304 | 1.24k | } |
305 | | |
306 | | int X509_STORE_get_by_subject(X509_STORE_CTX *vs, int type, X509_NAME *name, |
307 | | X509_OBJECT *ret) |
308 | 0 | { |
309 | 0 | X509_STORE *ctx = vs->ctx; |
310 | 0 | X509_LOOKUP *lu; |
311 | 0 | X509_OBJECT stmp, *tmp; |
312 | 0 | int i, j; |
313 | |
|
314 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
315 | 0 | tmp = X509_OBJECT_retrieve_by_subject(ctx->objs, type, name); |
316 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
317 | |
|
318 | 0 | if (tmp == NULL || type == X509_LU_CRL) { |
319 | 0 | for (i = vs->current_method; |
320 | 0 | i < sk_X509_LOOKUP_num(ctx->get_cert_methods); i++) { |
321 | 0 | lu = sk_X509_LOOKUP_value(ctx->get_cert_methods, i); |
322 | 0 | j = X509_LOOKUP_by_subject(lu, type, name, &stmp); |
323 | 0 | if (j < 0) { |
324 | 0 | vs->current_method = j; |
325 | 0 | return j; |
326 | 0 | } else if (j) { |
327 | 0 | tmp = &stmp; |
328 | 0 | break; |
329 | 0 | } |
330 | 0 | } |
331 | 0 | vs->current_method = 0; |
332 | 0 | if (tmp == NULL) |
333 | 0 | return 0; |
334 | 0 | } |
335 | | |
336 | | /*- if (ret->data.ptr != NULL) |
337 | | X509_OBJECT_free_contents(ret); */ |
338 | | |
339 | 0 | ret->type = tmp->type; |
340 | 0 | ret->data.ptr = tmp->data.ptr; |
341 | |
|
342 | 0 | X509_OBJECT_up_ref_count(ret); |
343 | |
|
344 | 0 | return 1; |
345 | 0 | } |
346 | | |
347 | | int X509_STORE_add_cert(X509_STORE *ctx, X509 *x) |
348 | 157k | { |
349 | 157k | X509_OBJECT *obj; |
350 | 157k | int ret = 1; |
351 | | |
352 | 157k | if (x == NULL) |
353 | 0 | return 0; |
354 | 157k | obj = (X509_OBJECT *)OPENSSL_malloc(sizeof(X509_OBJECT)); |
355 | 157k | if (obj == NULL) { |
356 | 0 | X509err(X509_F_X509_STORE_ADD_CERT, ERR_R_MALLOC_FAILURE); |
357 | 0 | return 0; |
358 | 0 | } |
359 | 157k | obj->type = X509_LU_X509; |
360 | 157k | obj->data.x509 = x; |
361 | | |
362 | 157k | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
363 | | |
364 | 157k | X509_OBJECT_up_ref_count(obj); |
365 | | |
366 | 157k | if (X509_OBJECT_retrieve_match(ctx->objs, obj)) { |
367 | 0 | X509_OBJECT_free_contents(obj); |
368 | 0 | OPENSSL_free(obj); |
369 | 0 | X509err(X509_F_X509_STORE_ADD_CERT, |
370 | 0 | X509_R_CERT_ALREADY_IN_HASH_TABLE); |
371 | 0 | ret = 0; |
372 | 157k | } else if (!sk_X509_OBJECT_push(ctx->objs, obj)) { |
373 | 0 | X509_OBJECT_free_contents(obj); |
374 | 0 | OPENSSL_free(obj); |
375 | 0 | X509err(X509_F_X509_STORE_ADD_CERT, ERR_R_MALLOC_FAILURE); |
376 | 0 | ret = 0; |
377 | 0 | } |
378 | | |
379 | 157k | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
380 | | |
381 | 157k | return ret; |
382 | 157k | } |
383 | | |
384 | | int X509_STORE_add_crl(X509_STORE *ctx, X509_CRL *x) |
385 | 0 | { |
386 | 0 | X509_OBJECT *obj; |
387 | 0 | int ret = 1; |
388 | |
|
389 | 0 | if (x == NULL) |
390 | 0 | return 0; |
391 | 0 | obj = (X509_OBJECT *)OPENSSL_malloc(sizeof(X509_OBJECT)); |
392 | 0 | if (obj == NULL) { |
393 | 0 | X509err(X509_F_X509_STORE_ADD_CRL, ERR_R_MALLOC_FAILURE); |
394 | 0 | return 0; |
395 | 0 | } |
396 | 0 | obj->type = X509_LU_CRL; |
397 | 0 | obj->data.crl = x; |
398 | |
|
399 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
400 | |
|
401 | 0 | X509_OBJECT_up_ref_count(obj); |
402 | |
|
403 | 0 | if (X509_OBJECT_retrieve_match(ctx->objs, obj)) { |
404 | 0 | X509_OBJECT_free_contents(obj); |
405 | 0 | OPENSSL_free(obj); |
406 | 0 | X509err(X509_F_X509_STORE_ADD_CRL, X509_R_CERT_ALREADY_IN_HASH_TABLE); |
407 | 0 | ret = 0; |
408 | 0 | } else if (!sk_X509_OBJECT_push(ctx->objs, obj)) { |
409 | 0 | X509_OBJECT_free_contents(obj); |
410 | 0 | OPENSSL_free(obj); |
411 | 0 | X509err(X509_F_X509_STORE_ADD_CRL, ERR_R_MALLOC_FAILURE); |
412 | 0 | ret = 0; |
413 | 0 | } |
414 | |
|
415 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
416 | |
|
417 | 0 | return ret; |
418 | 0 | } |
419 | | |
420 | | void X509_OBJECT_up_ref_count(X509_OBJECT *a) |
421 | 157k | { |
422 | 157k | switch (a->type) { |
423 | 157k | case X509_LU_X509: |
424 | 157k | CRYPTO_add(&a->data.x509->references, 1, CRYPTO_LOCK_X509); |
425 | 157k | break; |
426 | 0 | case X509_LU_CRL: |
427 | 0 | CRYPTO_add(&a->data.crl->references, 1, CRYPTO_LOCK_X509_CRL); |
428 | 0 | break; |
429 | 157k | } |
430 | 157k | } |
431 | | |
432 | | void X509_OBJECT_free_contents(X509_OBJECT *a) |
433 | 0 | { |
434 | 0 | switch (a->type) { |
435 | 0 | case X509_LU_X509: |
436 | 0 | X509_free(a->data.x509); |
437 | 0 | break; |
438 | 0 | case X509_LU_CRL: |
439 | 0 | X509_CRL_free(a->data.crl); |
440 | 0 | break; |
441 | 0 | } |
442 | 0 | } |
443 | | |
444 | | static int x509_object_idx_cnt(STACK_OF(X509_OBJECT) *h, int type, |
445 | | X509_NAME *name, int *pnmatch) |
446 | 0 | { |
447 | 0 | X509_OBJECT stmp; |
448 | 0 | X509 x509_s; |
449 | 0 | X509_CINF cinf_s; |
450 | 0 | X509_CRL crl_s; |
451 | 0 | X509_CRL_INFO crl_info_s; |
452 | 0 | int idx; |
453 | |
|
454 | 0 | stmp.type = type; |
455 | 0 | switch (type) { |
456 | 0 | case X509_LU_X509: |
457 | 0 | stmp.data.x509 = &x509_s; |
458 | 0 | x509_s.cert_info = &cinf_s; |
459 | 0 | cinf_s.subject = name; |
460 | 0 | break; |
461 | 0 | case X509_LU_CRL: |
462 | 0 | stmp.data.crl = &crl_s; |
463 | 0 | crl_s.crl = &crl_info_s; |
464 | 0 | crl_info_s.issuer = name; |
465 | 0 | break; |
466 | 0 | default: |
467 | | /* abort(); */ |
468 | 0 | return -1; |
469 | 0 | } |
470 | | |
471 | 0 | idx = sk_X509_OBJECT_find(h, &stmp); |
472 | 0 | if (idx >= 0 && pnmatch) { |
473 | 0 | int tidx; |
474 | 0 | const X509_OBJECT *tobj, *pstmp; |
475 | 0 | *pnmatch = 1; |
476 | 0 | pstmp = &stmp; |
477 | 0 | for (tidx = idx + 1; tidx < sk_X509_OBJECT_num(h); tidx++) { |
478 | 0 | tobj = sk_X509_OBJECT_value(h, tidx); |
479 | 0 | if (x509_object_cmp(&tobj, &pstmp)) |
480 | 0 | break; |
481 | 0 | (*pnmatch)++; |
482 | 0 | } |
483 | 0 | } |
484 | 0 | return idx; |
485 | 0 | } |
486 | | |
487 | | int X509_OBJECT_idx_by_subject(STACK_OF(X509_OBJECT) *h, int type, |
488 | | X509_NAME *name) |
489 | 0 | { |
490 | 0 | return x509_object_idx_cnt(h, type, name, NULL); |
491 | 0 | } |
492 | | |
493 | | X509_OBJECT *X509_OBJECT_retrieve_by_subject(STACK_OF(X509_OBJECT) *h, |
494 | | int type, X509_NAME *name) |
495 | 0 | { |
496 | 0 | int idx; |
497 | 0 | idx = X509_OBJECT_idx_by_subject(h, type, name); |
498 | 0 | if (idx == -1) |
499 | 0 | return NULL; |
500 | 0 | return sk_X509_OBJECT_value(h, idx); |
501 | 0 | } |
502 | | |
503 | | STACK_OF(X509) *X509_STORE_get1_certs(X509_STORE_CTX *ctx, X509_NAME *nm) |
504 | 0 | { |
505 | 0 | int i, idx, cnt; |
506 | 0 | STACK_OF(X509) *sk; |
507 | 0 | X509 *x; |
508 | 0 | X509_OBJECT *obj; |
509 | 0 | sk = sk_X509_new_null(); |
510 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
511 | 0 | idx = x509_object_idx_cnt(ctx->ctx->objs, X509_LU_X509, nm, &cnt); |
512 | 0 | if (idx < 0) { |
513 | | /* |
514 | | * Nothing found in cache: do lookup to possibly add new objects to |
515 | | * cache |
516 | | */ |
517 | 0 | X509_OBJECT xobj; |
518 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
519 | 0 | if (!X509_STORE_get_by_subject(ctx, X509_LU_X509, nm, &xobj)) { |
520 | 0 | sk_X509_free(sk); |
521 | 0 | return NULL; |
522 | 0 | } |
523 | 0 | X509_OBJECT_free_contents(&xobj); |
524 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
525 | 0 | idx = x509_object_idx_cnt(ctx->ctx->objs, X509_LU_X509, nm, &cnt); |
526 | 0 | if (idx < 0) { |
527 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
528 | 0 | sk_X509_free(sk); |
529 | 0 | return NULL; |
530 | 0 | } |
531 | 0 | } |
532 | 0 | for (i = 0; i < cnt; i++, idx++) { |
533 | 0 | obj = sk_X509_OBJECT_value(ctx->ctx->objs, idx); |
534 | 0 | x = obj->data.x509; |
535 | 0 | CRYPTO_add(&x->references, 1, CRYPTO_LOCK_X509); |
536 | 0 | if (!sk_X509_push(sk, x)) { |
537 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
538 | 0 | X509_free(x); |
539 | 0 | sk_X509_pop_free(sk, X509_free); |
540 | 0 | return NULL; |
541 | 0 | } |
542 | 0 | } |
543 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
544 | 0 | return sk; |
545 | |
|
546 | 0 | } |
547 | | |
548 | | STACK_OF(X509_CRL) *X509_STORE_get1_crls(X509_STORE_CTX *ctx, X509_NAME *nm) |
549 | 0 | { |
550 | 0 | int i, idx, cnt; |
551 | 0 | STACK_OF(X509_CRL) *sk; |
552 | 0 | X509_CRL *x; |
553 | 0 | X509_OBJECT *obj, xobj; |
554 | 0 | sk = sk_X509_CRL_new_null(); |
555 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
556 | | |
557 | | /* |
558 | | * Always do lookup to possibly add new CRLs to cache |
559 | | */ |
560 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
561 | 0 | if (!X509_STORE_get_by_subject(ctx, X509_LU_CRL, nm, &xobj)) { |
562 | 0 | sk_X509_CRL_free(sk); |
563 | 0 | return NULL; |
564 | 0 | } |
565 | 0 | X509_OBJECT_free_contents(&xobj); |
566 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
567 | 0 | idx = x509_object_idx_cnt(ctx->ctx->objs, X509_LU_CRL, nm, &cnt); |
568 | 0 | if (idx < 0) { |
569 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
570 | 0 | sk_X509_CRL_free(sk); |
571 | 0 | return NULL; |
572 | 0 | } |
573 | | |
574 | 0 | for (i = 0; i < cnt; i++, idx++) { |
575 | 0 | obj = sk_X509_OBJECT_value(ctx->ctx->objs, idx); |
576 | 0 | x = obj->data.crl; |
577 | 0 | CRYPTO_add(&x->references, 1, CRYPTO_LOCK_X509_CRL); |
578 | 0 | if (!sk_X509_CRL_push(sk, x)) { |
579 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
580 | 0 | X509_CRL_free(x); |
581 | 0 | sk_X509_CRL_pop_free(sk, X509_CRL_free); |
582 | 0 | return NULL; |
583 | 0 | } |
584 | 0 | } |
585 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
586 | 0 | return sk; |
587 | 0 | } |
588 | | |
589 | | X509_OBJECT *X509_OBJECT_retrieve_match(STACK_OF(X509_OBJECT) *h, |
590 | | X509_OBJECT *x) |
591 | 157k | { |
592 | 157k | int idx, i; |
593 | 157k | X509_OBJECT *obj; |
594 | 157k | idx = sk_X509_OBJECT_find(h, x); |
595 | 157k | if (idx == -1) |
596 | 157k | return NULL; |
597 | 0 | if ((x->type != X509_LU_X509) && (x->type != X509_LU_CRL)) |
598 | 0 | return sk_X509_OBJECT_value(h, idx); |
599 | 0 | for (i = idx; i < sk_X509_OBJECT_num(h); i++) { |
600 | 0 | obj = sk_X509_OBJECT_value(h, i); |
601 | 0 | if (x509_object_cmp |
602 | 0 | ((const X509_OBJECT **)&obj, (const X509_OBJECT **)&x)) |
603 | 0 | return NULL; |
604 | 0 | if (x->type == X509_LU_X509) { |
605 | 0 | if (!X509_cmp(obj->data.x509, x->data.x509)) |
606 | 0 | return obj; |
607 | 0 | } else if (x->type == X509_LU_CRL) { |
608 | 0 | if (!X509_CRL_match(obj->data.crl, x->data.crl)) |
609 | 0 | return obj; |
610 | 0 | } else |
611 | 0 | return obj; |
612 | 0 | } |
613 | 0 | return NULL; |
614 | 0 | } |
615 | | |
616 | | /*- |
617 | | * Try to get issuer certificate from store. Due to limitations |
618 | | * of the API this can only retrieve a single certificate matching |
619 | | * a given subject name. However it will fill the cache with all |
620 | | * matching certificates, so we can examine the cache for all |
621 | | * matches. |
622 | | * |
623 | | * Return values are: |
624 | | * 1 lookup successful. |
625 | | * 0 certificate not found. |
626 | | * -1 some other error. |
627 | | */ |
628 | | int X509_STORE_CTX_get1_issuer(X509 **issuer, X509_STORE_CTX *ctx, X509 *x) |
629 | 0 | { |
630 | 0 | X509_NAME *xn; |
631 | 0 | X509_OBJECT obj, *pobj; |
632 | 0 | int i, ok, idx, ret; |
633 | 0 | xn = X509_get_issuer_name(x); |
634 | 0 | ok = X509_STORE_get_by_subject(ctx, X509_LU_X509, xn, &obj); |
635 | 0 | if (ok != X509_LU_X509) { |
636 | 0 | if (ok == X509_LU_RETRY) { |
637 | 0 | X509_OBJECT_free_contents(&obj); |
638 | 0 | X509err(X509_F_X509_STORE_CTX_GET1_ISSUER, X509_R_SHOULD_RETRY); |
639 | 0 | return -1; |
640 | 0 | } else if (ok != X509_LU_FAIL) { |
641 | 0 | X509_OBJECT_free_contents(&obj); |
642 | | /* not good :-(, break anyway */ |
643 | 0 | return -1; |
644 | 0 | } |
645 | 0 | return 0; |
646 | 0 | } |
647 | | /* If certificate matches all OK */ |
648 | 0 | if (ctx->check_issued(ctx, x, obj.data.x509)) { |
649 | 0 | *issuer = obj.data.x509; |
650 | 0 | return 1; |
651 | 0 | } |
652 | 0 | X509_OBJECT_free_contents(&obj); |
653 | | |
654 | | /* Else find index of first cert accepted by 'check_issued' */ |
655 | 0 | ret = 0; |
656 | 0 | CRYPTO_w_lock(CRYPTO_LOCK_X509_STORE); |
657 | 0 | idx = X509_OBJECT_idx_by_subject(ctx->ctx->objs, X509_LU_X509, xn); |
658 | 0 | if (idx != -1) { /* should be true as we've had at least one |
659 | | * match */ |
660 | | /* Look through all matching certs for suitable issuer */ |
661 | 0 | for (i = idx; i < sk_X509_OBJECT_num(ctx->ctx->objs); i++) { |
662 | 0 | pobj = sk_X509_OBJECT_value(ctx->ctx->objs, i); |
663 | | /* See if we've run past the matches */ |
664 | 0 | if (pobj->type != X509_LU_X509) |
665 | 0 | break; |
666 | 0 | if (X509_NAME_cmp(xn, X509_get_subject_name(pobj->data.x509))) |
667 | 0 | break; |
668 | 0 | if (ctx->check_issued(ctx, x, pobj->data.x509)) { |
669 | 0 | *issuer = pobj->data.x509; |
670 | 0 | X509_OBJECT_up_ref_count(pobj); |
671 | 0 | ret = 1; |
672 | 0 | break; |
673 | 0 | } |
674 | 0 | } |
675 | 0 | } |
676 | 0 | CRYPTO_w_unlock(CRYPTO_LOCK_X509_STORE); |
677 | 0 | return ret; |
678 | 0 | } |
679 | | |
680 | | int X509_STORE_set_flags(X509_STORE *ctx, unsigned long flags) |
681 | 0 | { |
682 | 0 | return X509_VERIFY_PARAM_set_flags(ctx->param, flags); |
683 | 0 | } |
684 | | |
685 | | int X509_STORE_set_depth(X509_STORE *ctx, int depth) |
686 | 0 | { |
687 | 0 | X509_VERIFY_PARAM_set_depth(ctx->param, depth); |
688 | 0 | return 1; |
689 | 0 | } |
690 | | |
691 | | int X509_STORE_set_purpose(X509_STORE *ctx, int purpose) |
692 | 0 | { |
693 | 0 | return X509_VERIFY_PARAM_set_purpose(ctx->param, purpose); |
694 | 0 | } |
695 | | |
696 | | int X509_STORE_set_trust(X509_STORE *ctx, int trust) |
697 | 0 | { |
698 | 0 | return X509_VERIFY_PARAM_set_trust(ctx->param, trust); |
699 | 0 | } |
700 | | |
701 | | int X509_STORE_set1_param(X509_STORE *ctx, X509_VERIFY_PARAM *param) |
702 | 0 | { |
703 | 0 | return X509_VERIFY_PARAM_set1(ctx->param, param); |
704 | 0 | } |
705 | | |
706 | | void X509_STORE_set_verify_cb(X509_STORE *ctx, |
707 | | int (*verify_cb) (int, X509_STORE_CTX *)) |
708 | 0 | { |
709 | 0 | ctx->verify_cb = verify_cb; |
710 | 0 | } |
711 | | |
712 | | void X509_STORE_set_lookup_crls_cb(X509_STORE *ctx, |
713 | | STACK_OF(X509_CRL) *(*cb) (X509_STORE_CTX |
714 | | *ctx, |
715 | | X509_NAME *nm)) |
716 | 0 | { |
717 | 0 | ctx->lookup_crls = cb; |
718 | 0 | } |
719 | | |
720 | | X509_STORE *X509_STORE_CTX_get0_store(X509_STORE_CTX *ctx) |
721 | 0 | { |
722 | 0 | return ctx->ctx; |
723 | 0 | } |
724 | | |
725 | | IMPLEMENT_STACK_OF(X509_LOOKUP) |
726 | | |
727 | | IMPLEMENT_STACK_OF(X509_OBJECT) |