]>
Commit | Line | Data |
---|---|---|
9aeaf1b4 DSH |
1 | /* v3_conf.c */ |
2 | /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL | |
3 | * project 1999. | |
4 | */ | |
5 | /* ==================================================================== | |
6 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | |
7 | * | |
8 | * Redistribution and use in source and binary forms, with or without | |
9 | * modification, are permitted provided that the following conditions | |
10 | * are met: | |
11 | * | |
12 | * 1. Redistributions of source code must retain the above copyright | |
13 | * notice, this list of conditions and the following disclaimer. | |
14 | * | |
15 | * 2. Redistributions in binary form must reproduce the above copyright | |
16 | * notice, this list of conditions and the following disclaimer in | |
17 | * the documentation and/or other materials provided with the | |
18 | * distribution. | |
19 | * | |
20 | * 3. All advertising materials mentioning features or use of this | |
21 | * software must display the following acknowledgment: | |
22 | * "This product includes software developed by the OpenSSL Project | |
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | |
24 | * | |
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | |
26 | * endorse or promote products derived from this software without | |
27 | * prior written permission. For written permission, please contact | |
28 | * licensing@OpenSSL.org. | |
29 | * | |
30 | * 5. Products derived from this software may not be called "OpenSSL" | |
31 | * nor may "OpenSSL" appear in their names without prior written | |
32 | * permission of the OpenSSL Project. | |
33 | * | |
34 | * 6. Redistributions of any form whatsoever must retain the following | |
35 | * acknowledgment: | |
36 | * "This product includes software developed by the OpenSSL Project | |
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | |
38 | * | |
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | |
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | |
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | |
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | |
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | |
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | |
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | |
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | |
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | |
51 | * ==================================================================== | |
52 | * | |
53 | * This product includes cryptographic software written by Eric Young | |
54 | * (eay@cryptsoft.com). This product includes software written by Tim | |
55 | * Hudson (tjh@cryptsoft.com). | |
56 | * | |
57 | */ | |
388ff0b0 | 58 | /* extension creation utilities */ |
9aeaf1b4 | 59 | |
e527ba09 DSH |
60 | |
61 | ||
62 | #include <stdio.h> | |
9aeaf1b4 | 63 | #include <ctype.h> |
e527ba09 DSH |
64 | #include "cryptlib.h" |
65 | #include "conf.h" | |
66 | #include "x509.h" | |
9aeaf1b4 DSH |
67 | #include "x509v3.h" |
68 | ||
388ff0b0 DSH |
69 | #ifndef NOPROTO |
70 | static int v3_check_critical(char **value); | |
71 | static int v3_check_generic(char **value); | |
72 | static X509_EXTENSION *do_ext_conf(LHASH *conf, X509V3_CTX *ctx, int ext_nid, int crit, char *value); | |
e778802f | 73 | static X509_EXTENSION *v3_generic_extension(const char *ext, char *value, int crit, int type); |
388ff0b0 DSH |
74 | #else |
75 | static int v3_check_critical(); | |
76 | static int v3_check_generic(); | |
77 | static X509_EXTENSION *do_ext_conf(); | |
78 | static X509V3_EXTENSION *v3_generic_extension(); | |
79 | #endif | |
80 | ||
9aeaf1b4 DSH |
81 | X509_EXTENSION *X509V3_EXT_conf(conf, ctx, name, value) |
82 | LHASH *conf; /* Config file */ | |
83 | X509V3_CTX *ctx; | |
84 | char *name; /* Name */ | |
85 | char *value; /* Value */ | |
86 | { | |
388ff0b0 DSH |
87 | int crit; |
88 | int ext_type; | |
aa066b9e | 89 | X509_EXTENSION *ret; |
388ff0b0 DSH |
90 | crit = v3_check_critical(&value); |
91 | if((ext_type = v3_check_generic(&value))) | |
92 | return v3_generic_extension(name, value, crit, ext_type); | |
aa066b9e DSH |
93 | ret = do_ext_conf(conf, ctx, OBJ_sn2nid(name), crit, value); |
94 | if(!ret) { | |
95 | X509V3err(X509V3_F_X509V3_EXT_CONF,X509V3_R_ERROR_IN_EXTENSION); | |
96 | ERR_add_error_data(4,"name=", name, ", value=", value); | |
97 | } | |
98 | return ret; | |
9aeaf1b4 DSH |
99 | } |
100 | ||
9aeaf1b4 DSH |
101 | X509_EXTENSION *X509V3_EXT_conf_nid(conf, ctx, ext_nid, value) |
102 | LHASH *conf; /* Config file */ | |
103 | X509V3_CTX *ctx; | |
104 | int ext_nid; | |
105 | char *value; /* Value */ | |
388ff0b0 DSH |
106 | { |
107 | int crit; | |
108 | int ext_type; | |
109 | crit = v3_check_critical(&value); | |
110 | if((ext_type = v3_check_generic(&value))) | |
111 | return v3_generic_extension(OBJ_nid2sn(ext_nid), | |
112 | value, crit, ext_type); | |
113 | return do_ext_conf(conf, ctx, ext_nid, crit, value); | |
114 | } | |
115 | ||
116 | static X509_EXTENSION *do_ext_conf(conf, ctx, ext_nid, crit, value) | |
117 | LHASH *conf; /* Config file */ | |
118 | X509V3_CTX *ctx; | |
119 | int ext_nid; | |
120 | int crit; | |
121 | char *value; /* Value */ | |
9aeaf1b4 DSH |
122 | { |
123 | X509_EXTENSION *ext = NULL; | |
124 | X509V3_EXT_METHOD *method; | |
125 | STACK *nval; | |
126 | char *ext_struc; | |
127 | char *ext_der, *p; | |
128 | int ext_len; | |
9aeaf1b4 | 129 | ASN1_OCTET_STRING *ext_oct; |
aa066b9e DSH |
130 | if(ext_nid == NID_undef) { |
131 | X509V3err(X509V3_F_DO_EXT_CONF,X509V3_R_UNKNOWN_EXTENSION_NAME); | |
132 | return NULL; | |
133 | } | |
9aeaf1b4 | 134 | if(!(method = X509V3_EXT_get_nid(ext_nid))) { |
aa066b9e | 135 | X509V3err(X509V3_F_DO_EXT_CONF,X509V3_R_UNKNOWN_EXTENSION); |
9aeaf1b4 DSH |
136 | return NULL; |
137 | } | |
9aeaf1b4 DSH |
138 | /* Now get internal extension representation based on type */ |
139 | if(method->v2i) { | |
140 | if(*value == '@') nval = CONF_get_section(conf, value + 1); | |
141 | else nval = X509V3_parse_list(value); | |
142 | if(!nval) { | |
143 | X509V3err(X509V3_F_X509V3_EXT_CONF,X509V3_R_INVALID_EXTENSION_STRING); | |
144 | ERR_add_error_data(4, "name=", OBJ_nid2sn(ext_nid), ",section=", value); | |
145 | return NULL; | |
146 | } | |
147 | ext_struc = method->v2i(method, ctx, nval); | |
148 | if(*value != '@') sk_pop_free(nval, X509V3_conf_free); | |
149 | if(!ext_struc) return NULL; | |
150 | } else if(method->s2i) { | |
151 | if(!(ext_struc = method->s2i(method, ctx, value))) return NULL; | |
41b731f2 DSH |
152 | } else if(method->r2i) { |
153 | if(!ctx->db) { | |
154 | X509V3err(X509V3_F_X509V3_EXT_CONF,X509V3_R_NO_CONFIG_DATABASE); | |
155 | return NULL; | |
156 | } | |
157 | if(!(ext_struc = method->r2i(method, ctx, value))) return NULL; | |
9aeaf1b4 DSH |
158 | } else { |
159 | X509V3err(X509V3_F_X509V3_EXT_CONF,X509V3_R_EXTENSION_SETTING_NOT_SUPPORTED); | |
160 | ERR_add_error_data(2, "name=", OBJ_nid2sn(ext_nid)); | |
161 | return NULL; | |
162 | } | |
163 | ||
164 | /* We've now got the internal representation: convert to DER */ | |
165 | ext_len = method->i2d(ext_struc, NULL); | |
166 | ext_der = Malloc(ext_len); | |
167 | p = ext_der; | |
168 | method->i2d(ext_struc, &p); | |
169 | method->ext_free(ext_struc); | |
170 | ext_oct = ASN1_OCTET_STRING_new(); | |
171 | ext_oct->data = ext_der; | |
172 | ext_oct->length = ext_len; | |
173 | ||
174 | ext = X509_EXTENSION_create_by_NID(NULL, ext_nid, crit, ext_oct); | |
175 | ASN1_OCTET_STRING_free(ext_oct); | |
176 | ||
177 | return ext; | |
178 | ||
179 | } | |
180 | ||
388ff0b0 DSH |
181 | /* Check the extension string for critical flag */ |
182 | static int v3_check_critical(value) | |
183 | char **value; | |
184 | { | |
185 | char *p = *value; | |
186 | if((strlen(p) < 9) || strncmp(p, "critical,", 9)) return 0; | |
187 | p+=9; | |
188 | while(isspace(*p)) p++; | |
189 | *value = p; | |
190 | return 1; | |
191 | } | |
192 | ||
193 | /* Check extension string for generic extension and return the type */ | |
194 | static int v3_check_generic(value) | |
195 | char **value; | |
196 | { | |
197 | char *p = *value; | |
198 | if((strlen(p) < 4) || strncmp(p, "RAW:,", 4)) return 0; | |
199 | p+=4; | |
200 | while(isspace(*p)) p++; | |
201 | *value = p; | |
202 | return 1; | |
203 | } | |
204 | ||
205 | /* Create a generic extension: for now just handle RAW type */ | |
206 | static X509_EXTENSION *v3_generic_extension(ext, value, crit, type) | |
e778802f | 207 | const char *ext; |
388ff0b0 DSH |
208 | char *value; |
209 | int crit; | |
210 | int type; | |
211 | { | |
212 | unsigned char *ext_der=NULL; | |
213 | long ext_len; | |
214 | ASN1_OBJECT *obj=NULL; | |
215 | ASN1_OCTET_STRING *oct=NULL; | |
216 | X509_EXTENSION *extension=NULL; | |
217 | if(!(obj = OBJ_txt2obj(ext, 0))) { | |
218 | X509V3err(X509V3_F_V3_GENERIC_EXTENSION,X509V3_R_EXTENSION_NAME_ERROR); | |
219 | ERR_add_error_data(2, "name=", ext); | |
220 | goto err; | |
221 | } | |
222 | ||
223 | if(!(ext_der = string_to_hex(value, &ext_len))) { | |
224 | X509V3err(X509V3_F_V3_GENERIC_EXTENSION,X509V3_R_EXTENSION_VALUE_ERROR); | |
225 | ERR_add_error_data(2, "value=", value); | |
226 | goto err; | |
227 | } | |
228 | ||
229 | if(!(oct = ASN1_OCTET_STRING_new())) { | |
230 | X509V3err(X509V3_F_V3_GENERIC_EXTENSION,ERR_R_MALLOC_FAILURE); | |
231 | goto err; | |
232 | } | |
233 | ||
234 | oct->data = ext_der; | |
235 | oct->length = ext_len; | |
236 | ext_der = NULL; | |
237 | ||
238 | extension = X509_EXTENSION_create_by_OBJ(NULL, obj, crit, oct); | |
239 | ||
240 | err: | |
241 | ASN1_OBJECT_free(obj); | |
242 | ASN1_OCTET_STRING_free(oct); | |
243 | if(ext_der) Free(ext_der); | |
244 | return extension; | |
245 | } | |
246 | ||
247 | ||
9aeaf1b4 DSH |
248 | /* This is the main function: add a bunch of extensions based on a config file |
249 | * section | |
250 | */ | |
251 | ||
252 | int X509V3_EXT_add_conf(conf, ctx, section, cert) | |
253 | LHASH *conf; | |
254 | X509V3_CTX *ctx; | |
255 | char *section; | |
256 | X509 *cert; | |
257 | { | |
258 | X509_EXTENSION *ext; | |
259 | STACK *nval; | |
260 | CONF_VALUE *val; | |
261 | int i; | |
262 | if(!(nval = CONF_get_section(conf, section))) return 0; | |
263 | for(i = 0; i < sk_num(nval); i++) { | |
264 | val = (CONF_VALUE *)sk_value(nval, i); | |
265 | if(!(ext = X509V3_EXT_conf(conf, ctx, val->name, val->value))) | |
266 | return 0; | |
267 | if(cert) X509_add_ext(cert, ext, -1); | |
268 | X509_EXTENSION_free(ext); | |
269 | } | |
270 | return 1; | |
271 | } | |
272 | ||
1756d405 DSH |
273 | /* Same as above but for a CRL */ |
274 | ||
275 | int X509V3_EXT_CRL_add_conf(conf, ctx, section, crl) | |
276 | LHASH *conf; | |
277 | X509V3_CTX *ctx; | |
278 | char *section; | |
279 | X509_CRL *crl; | |
280 | { | |
281 | X509_EXTENSION *ext; | |
282 | STACK *nval; | |
283 | CONF_VALUE *val; | |
284 | int i; | |
285 | if(!(nval = CONF_get_section(conf, section))) return 0; | |
286 | for(i = 0; i < sk_num(nval); i++) { | |
287 | val = (CONF_VALUE *)sk_value(nval, i); | |
288 | if(!(ext = X509V3_EXT_conf(conf, ctx, val->name, val->value))) | |
289 | return 0; | |
290 | if(crl) X509_CRL_add_ext(crl, ext, -1); | |
291 | X509_EXTENSION_free(ext); | |
292 | } | |
293 | return 1; | |
294 | } | |
295 | ||
1d48dd00 DSH |
296 | /* Config database functions */ |
297 | ||
298 | char * X509V3_get_string(ctx, name, section) | |
299 | X509V3_CTX *ctx; | |
300 | char *name; | |
301 | char *section; | |
302 | { | |
303 | if(ctx->db_meth->get_string) | |
304 | return ctx->db_meth->get_string(ctx->db, name, section); | |
305 | return NULL; | |
306 | } | |
307 | ||
308 | STACK * X509V3_get_section(ctx, section) | |
309 | X509V3_CTX *ctx; | |
310 | char *section; | |
311 | { | |
312 | if(ctx->db_meth->get_section) | |
313 | return ctx->db_meth->get_section(ctx->db, section); | |
314 | return NULL; | |
315 | } | |
316 | ||
41b731f2 | 317 | void X509V3_string_free(ctx, str) |
1d48dd00 DSH |
318 | X509V3_CTX *ctx; |
319 | char *str; | |
320 | { | |
41b731f2 | 321 | if(!str) return; |
1d48dd00 DSH |
322 | if(ctx->db_meth->free_string) |
323 | return ctx->db_meth->free_string(ctx->db, str); | |
324 | } | |
325 | ||
41b731f2 | 326 | void X509V3_section_free(ctx, section) |
1d48dd00 DSH |
327 | X509V3_CTX *ctx; |
328 | STACK *section; | |
329 | { | |
41b731f2 | 330 | if(!section) return; |
1d48dd00 DSH |
331 | if(ctx->db_meth->free_section) |
332 | return ctx->db_meth->free_section(ctx->db, section); | |
333 | } | |
334 | ||
335 | static char *conf_lhash_get_string(db, section, value) | |
336 | void *db; | |
337 | char *section; | |
338 | char *value; | |
339 | { | |
340 | return CONF_get_string(db, section, value); | |
341 | } | |
342 | ||
343 | static STACK *conf_lhash_get_section(db, section) | |
344 | void *db; | |
345 | char *section; | |
346 | { | |
347 | return CONF_get_section(db, section); | |
348 | } | |
349 | ||
350 | static X509V3_CONF_METHOD conf_lhash_method = { | |
351 | conf_lhash_get_string, | |
352 | conf_lhash_get_section, | |
353 | NULL, | |
354 | NULL | |
355 | }; | |
356 | ||
357 | void X509V3_set_conf_lhash(ctx, lhash) | |
358 | X509V3_CTX *ctx; | |
359 | LHASH *lhash; | |
360 | { | |
361 | ctx->db_meth = &conf_lhash_method; | |
362 | ctx->db = lhash; | |
363 | } | |
364 | ||
365 | void X509V3_set_ctx(ctx, issuer, subj, req, crl, flags) | |
366 | X509V3_CTX *ctx; | |
367 | X509 *issuer; | |
368 | X509 *subj; | |
369 | X509_REQ *req; | |
370 | X509_CRL *crl; | |
371 | int flags; | |
372 | { | |
373 | ctx->issuer_cert = issuer; | |
374 | ctx->subject_cert = subj; | |
375 | ctx->crl = crl; | |
376 | ctx->subject_req = req; | |
377 | ctx->flags = flags; | |
378 | } |