f16b3f0b4a1c1c1f87b4bca610e40c2d59ca8873
[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
23 static STACK_OF(X509) *load_certs_from_file(const char *filename)
24 {
25     STACK_OF(X509) *certs;
26     BIO *bio;
27     X509 *x;
28
29     bio = BIO_new_file(filename, "r");
30
31     if (bio == NULL) {
32         return NULL;
33     }
34
35     certs = sk_X509_new_null();
36     if (certs == NULL) {
37         BIO_free(bio);
38         return NULL;
39     }
40
41     ERR_set_mark();
42     do {
43         x = PEM_read_bio_X509(bio, NULL, 0, NULL);
44         if (x != NULL && !sk_X509_push(certs, x)) {
45             sk_X509_pop_free(certs, X509_free);
46             BIO_free(bio);
47             return NULL;
48         } else if (x == NULL) {
49             /*
50              * We probably just ran out of certs, so ignore any errors
51              * generated
52              */
53             ERR_pop_to_mark();
54         }
55     } while (x != NULL);
56
57     BIO_free(bio);
58
59     return certs;
60 }
61
62 /*
63  * Test for CVE-2015-1793 (Alternate Chains Certificate Forgery)
64  *
65  * Chain is as follows:
66  *
67  * rootCA (self-signed)
68  *   |
69  * interCA
70  *   |
71  * subinterCA       subinterCA (self-signed)
72  *   |                   |
73  * leaf ------------------
74  *   |
75  * bad
76  *
77  * rootCA, interCA, subinterCA, subinterCA (ss) all have CA=TRUE
78  * leaf and bad have CA=FALSE
79  *
80  * subinterCA and subinterCA (ss) have the same subject name and keys
81  *
82  * interCA (but not rootCA) and subinterCA (ss) are in the trusted store
83  * (roots.pem)
84  * leaf and subinterCA are in the untrusted list (untrusted.pem)
85  * bad is the certificate being verified (bad.pem)
86  *
87  * Versions vulnerable to CVE-2015-1793 will fail to detect that leaf has
88  * CA=FALSE, and will therefore incorrectly verify bad
89  *
90  */
91 static int test_alt_chains_cert_forgery(void)
92 {
93     int ret = 0;
94     int i;
95     X509 *x = NULL;
96     STACK_OF(X509) *untrusted = NULL;
97     BIO *bio = NULL;
98     X509_STORE_CTX *sctx = NULL;
99     X509_STORE *store = NULL;
100     X509_LOOKUP *lookup = NULL;
101
102     store = X509_STORE_new();
103     if (store == NULL)
104         goto err;
105
106     lookup = X509_STORE_add_lookup(store, X509_LOOKUP_file());
107     if (lookup == NULL)
108         goto err;
109     if (!X509_LOOKUP_load_file(lookup, roots_f, X509_FILETYPE_PEM))
110         goto err;
111
112     untrusted = load_certs_from_file(untrusted_f);
113
114     if ((bio = BIO_new_file(bad_f, "r")) == NULL)
115         goto err;
116
117     if ((x = PEM_read_bio_X509(bio, NULL, 0, NULL)) == NULL)
118         goto err;
119
120     sctx = X509_STORE_CTX_new();
121     if (sctx == NULL)
122         goto err;
123
124     if (!X509_STORE_CTX_init(sctx, store, x, untrusted))
125         goto err;
126
127     i = X509_verify_cert(sctx);
128
129     if (i == 0 && X509_STORE_CTX_get_error(sctx) == X509_V_ERR_INVALID_CA) {
130         /* This is the result we were expecting: Test passed */
131         ret = 1;
132     }
133  err:
134     X509_STORE_CTX_free(sctx);
135     X509_free(x);
136     BIO_free(bio);
137     sk_X509_pop_free(untrusted, X509_free);
138     X509_STORE_free(store);
139     return ret;
140 }
141
142 static int test_store_ctx(void)
143 {
144     X509_STORE_CTX *sctx = NULL;
145     X509 *x = NULL;
146     BIO *bio = NULL;
147     int testresult = 0, ret;
148
149     bio = BIO_new_file(bad_f, "r");
150     if (bio == NULL)
151         goto err;
152
153     x = PEM_read_bio_X509(bio, NULL, 0, NULL);
154     if (x == NULL)
155         goto err;
156
157     sctx = X509_STORE_CTX_new();
158     if (sctx == NULL)
159         goto err;
160
161     if (!X509_STORE_CTX_init(sctx, NULL, x, NULL))
162         goto err;
163
164     /* Verifying a cert where we have no trusted certs should fail */
165     ret = X509_verify_cert(sctx);
166
167     if (ret == 0) {
168         /* This is the result we were expecting: Test passed */
169         testresult = 1;
170     }
171
172  err:
173     X509_STORE_CTX_free(sctx);
174     X509_free(x);
175     BIO_free(bio);
176     return testresult;
177 }
178
179 OPT_TEST_DECLARE_USAGE("roots.pem untrusted.pem bad.pem\n")
180
181 #ifndef OPENSSL_NO_SM2
182 static int test_sm2_id(void)
183 {
184     /* we only need an X509 structure, no matter if it's a real SM2 cert */
185     X509 *x = NULL;
186     BIO *bio = NULL;
187     int ret = 0;
188     ASN1_OCTET_STRING *v = NULL, *v2 = NULL;
189     char *sm2id = "this is an ID";
190
191     bio = BIO_new_file(bad_f, "r");
192     if (bio == NULL)
193         goto err;
194
195     x = PEM_read_bio_X509(bio, NULL, 0, NULL);
196     if (x == NULL)
197         goto err;
198
199     v = ASN1_OCTET_STRING_new();
200     if (v == NULL)
201         goto err;
202
203     if (!ASN1_OCTET_STRING_set(v, (unsigned char *)sm2id, (int)strlen(sm2id))) {
204         ASN1_OCTET_STRING_free(v);
205         goto err;
206     }
207
208     X509_set0_sm2_id(x, v);
209
210     v2 = X509_get0_sm2_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 #endif
222
223 int setup_tests(void)
224 {
225     if (!TEST_ptr(roots_f = test_get_argument(0))
226             || !TEST_ptr(untrusted_f = test_get_argument(1))
227             || !TEST_ptr(bad_f = test_get_argument(2)))
228         return 0;
229
230     ADD_TEST(test_alt_chains_cert_forgery);
231     ADD_TEST(test_store_ctx);
232 #ifndef OPENSSL_NO_SM2
233     ADD_TEST(test_sm2_id);
234 #endif
235     return 1;
236 }