TEST: Adapt all applicable tests to the new distinguishing ID
[openssl.git] / test / verify_extra_test.c
1 /*
2  * Copyright 2015-2018 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the Apache License 2.0 (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
8  */
9
10 #include <stdio.h>
11 #include <string.h>
12 #include <openssl/crypto.h>
13 #include <openssl/bio.h>
14 #include <openssl/x509.h>
15 #include <openssl/pem.h>
16 #include <openssl/err.h>
17 #include "testutil.h"
18
19 static const char *roots_f;
20 static const char *untrusted_f;
21 static const char *bad_f;
22 static const char *req_f;
23
24 static STACK_OF(X509) *load_certs_from_file(const char *filename)
25 {
26     STACK_OF(X509) *certs;
27     BIO *bio;
28     X509 *x;
29
30     bio = BIO_new_file(filename, "r");
31
32     if (bio == NULL) {
33         return NULL;
34     }
35
36     certs = sk_X509_new_null();
37     if (certs == NULL) {
38         BIO_free(bio);
39         return NULL;
40     }
41
42     ERR_set_mark();
43     do {
44         x = PEM_read_bio_X509(bio, NULL, 0, NULL);
45         if (x != NULL && !sk_X509_push(certs, x)) {
46             sk_X509_pop_free(certs, X509_free);
47             BIO_free(bio);
48             return NULL;
49         } else if (x == NULL) {
50             /*
51              * We probably just ran out of certs, so ignore any errors
52              * generated
53              */
54             ERR_pop_to_mark();
55         }
56     } while (x != NULL);
57
58     BIO_free(bio);
59
60     return certs;
61 }
62
63 /*
64  * Test for CVE-2015-1793 (Alternate Chains Certificate Forgery)
65  *
66  * Chain is as follows:
67  *
68  * rootCA (self-signed)
69  *   |
70  * interCA
71  *   |
72  * subinterCA       subinterCA (self-signed)
73  *   |                   |
74  * leaf ------------------
75  *   |
76  * bad
77  *
78  * rootCA, interCA, subinterCA, subinterCA (ss) all have CA=TRUE
79  * leaf and bad have CA=FALSE
80  *
81  * subinterCA and subinterCA (ss) have the same subject name and keys
82  *
83  * interCA (but not rootCA) and subinterCA (ss) are in the trusted store
84  * (roots.pem)
85  * leaf and subinterCA are in the untrusted list (untrusted.pem)
86  * bad is the certificate being verified (bad.pem)
87  *
88  * Versions vulnerable to CVE-2015-1793 will fail to detect that leaf has
89  * CA=FALSE, and will therefore incorrectly verify bad
90  *
91  */
92 static int test_alt_chains_cert_forgery(void)
93 {
94     int ret = 0;
95     int i;
96     X509 *x = NULL;
97     STACK_OF(X509) *untrusted = NULL;
98     BIO *bio = NULL;
99     X509_STORE_CTX *sctx = NULL;
100     X509_STORE *store = NULL;
101     X509_LOOKUP *lookup = NULL;
102
103     store = X509_STORE_new();
104     if (store == NULL)
105         goto err;
106
107     lookup = X509_STORE_add_lookup(store, X509_LOOKUP_file());
108     if (lookup == NULL)
109         goto err;
110     if (!X509_LOOKUP_load_file(lookup, roots_f, X509_FILETYPE_PEM))
111         goto err;
112
113     untrusted = load_certs_from_file(untrusted_f);
114
115     if ((bio = BIO_new_file(bad_f, "r")) == NULL)
116         goto err;
117
118     if ((x = PEM_read_bio_X509(bio, NULL, 0, NULL)) == NULL)
119         goto err;
120
121     sctx = X509_STORE_CTX_new();
122     if (sctx == NULL)
123         goto err;
124
125     if (!X509_STORE_CTX_init(sctx, store, x, untrusted))
126         goto err;
127
128     i = X509_verify_cert(sctx);
129
130     if (i == 0 && X509_STORE_CTX_get_error(sctx) == X509_V_ERR_INVALID_CA) {
131         /* This is the result we were expecting: Test passed */
132         ret = 1;
133     }
134  err:
135     X509_STORE_CTX_free(sctx);
136     X509_free(x);
137     BIO_free(bio);
138     sk_X509_pop_free(untrusted, X509_free);
139     X509_STORE_free(store);
140     return ret;
141 }
142
143 static int test_store_ctx(void)
144 {
145     X509_STORE_CTX *sctx = NULL;
146     X509 *x = NULL;
147     BIO *bio = NULL;
148     int testresult = 0, ret;
149
150     bio = BIO_new_file(bad_f, "r");
151     if (bio == NULL)
152         goto err;
153
154     x = PEM_read_bio_X509(bio, NULL, 0, NULL);
155     if (x == NULL)
156         goto err;
157
158     sctx = X509_STORE_CTX_new();
159     if (sctx == NULL)
160         goto err;
161
162     if (!X509_STORE_CTX_init(sctx, NULL, x, NULL))
163         goto err;
164
165     /* Verifying a cert where we have no trusted certs should fail */
166     ret = X509_verify_cert(sctx);
167
168     if (ret == 0) {
169         /* This is the result we were expecting: Test passed */
170         testresult = 1;
171     }
172
173  err:
174     X509_STORE_CTX_free(sctx);
175     X509_free(x);
176     BIO_free(bio);
177     return testresult;
178 }
179
180 OPT_TEST_DECLARE_USAGE("roots.pem untrusted.pem bad.pem\n")
181
182 static int test_distinguishing_id(void)
183 {
184     X509 *x = NULL;
185     BIO *bio = NULL;
186     int ret = 0;
187     ASN1_OCTET_STRING *v = NULL, *v2 = NULL;
188     char *distid = "this is an ID";
189
190     bio = BIO_new_file(bad_f, "r");
191     if (bio == NULL)
192         goto err;
193
194     x = PEM_read_bio_X509(bio, NULL, 0, NULL);
195     if (x == NULL)
196         goto err;
197
198     v = ASN1_OCTET_STRING_new();
199     if (v == NULL)
200         goto err;
201
202     if (!ASN1_OCTET_STRING_set(v, (unsigned char *)distid,
203                                (int)strlen(distid))) {
204         ASN1_OCTET_STRING_free(v);
205         goto err;
206     }
207
208     X509_set0_distinguishing_id(x, v);
209
210     v2 = X509_get0_distinguishing_id(x);
211     if (!TEST_ptr(v2)
212             || !TEST_int_eq(ASN1_OCTET_STRING_cmp(v, v2), 0))
213         goto err;
214
215     ret = 1;
216  err:
217     X509_free(x);
218     BIO_free(bio);
219     return ret;
220 }
221
222 static int test_req_distinguishing_id(void)
223 {
224     X509_REQ *x = NULL;
225     BIO *bio = NULL;
226     int ret = 0;
227     ASN1_OCTET_STRING *v = NULL, *v2 = NULL;
228     char *distid = "this is an ID";
229
230     bio = BIO_new_file(req_f, "r");
231     if (bio == NULL)
232         goto err;
233
234     x = PEM_read_bio_X509_REQ(bio, NULL, 0, NULL);
235     if (x == NULL)
236         goto err;
237
238     v = ASN1_OCTET_STRING_new();
239     if (v == NULL)
240         goto err;
241
242     if (!ASN1_OCTET_STRING_set(v, (unsigned char *)distid,
243                                (int)strlen(distid))) {
244         ASN1_OCTET_STRING_free(v);
245         goto err;
246     }
247
248     X509_REQ_set0_distinguishing_id(x, v);
249
250     v2 = X509_REQ_get0_distinguishing_id(x);
251     if (!TEST_ptr(v2)
252             || !TEST_int_eq(ASN1_OCTET_STRING_cmp(v, v2), 0))
253         goto err;
254
255     ret = 1;
256  err:
257     X509_REQ_free(x);
258     BIO_free(bio);
259     return ret;
260 }
261
262 int setup_tests(void)
263 {
264     if (!test_skip_common_options()) {
265         TEST_error("Error parsing test options\n");
266         return 0;
267     }
268
269     if (!TEST_ptr(roots_f = test_get_argument(0))
270             || !TEST_ptr(untrusted_f = test_get_argument(1))
271             || !TEST_ptr(bad_f = test_get_argument(2))
272             || !TEST_ptr(req_f = test_get_argument(3)))
273         return 0;
274
275     ADD_TEST(test_alt_chains_cert_forgery);
276     ADD_TEST(test_store_ctx);
277     ADD_TEST(test_distinguishing_id);
278     ADD_TEST(test_req_distinguishing_id);
279     return 1;
280 }