2 /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
5 /* ====================================================================
6 * Copyright (c) 1999 The OpenSSL Project. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
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
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/)"
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.
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.
34 * 6. Redistributions of any form whatsoever must retain the following
36 * "This product includes software developed by the OpenSSL Project
37 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
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 * ====================================================================
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).
61 #include <openssl/x509v3.h>
64 static void x509v3_cache_extensions(X509
*x
);
66 static int ca_check(X509
*x
);
67 static int check_purpose_ssl_client(X509_PURPOSE
*xp
, X509
*x
, int ca
);
68 static int check_purpose_ssl_server(X509_PURPOSE
*xp
, X509
*x
, int ca
);
69 static int check_purpose_ns_ssl_server(X509_PURPOSE
*xp
, X509
*x
, int ca
);
70 static int purpose_smime(X509
*x
, int ca
);
71 static int check_purpose_smime_sign(X509_PURPOSE
*xp
, X509
*x
, int ca
);
72 static int check_purpose_smime_encrypt(X509_PURPOSE
*xp
, X509
*x
, int ca
);
73 static int check_purpose_crl_sign(X509_PURPOSE
*xp
, X509
*x
, int ca
);
75 static int xp_cmp(X509_PURPOSE
**a
, X509_PURPOSE
**b
);
76 static void xptable_free(X509_PURPOSE
*p
);
78 static X509_PURPOSE xstandard
[] = {
79 {X509_PURPOSE_SSL_CLIENT
, X509_TRUST_SSL_CLIENT
, 0, check_purpose_ssl_client
, "SSL client", "sslclient", NULL
},
80 {X509_PURPOSE_SSL_SERVER
, X509_TRUST_SSL_SERVER
, 0, check_purpose_ssl_server
, "SSL server", "sslserver", NULL
},
81 {X509_PURPOSE_NS_SSL_SERVER
, X509_TRUST_SSL_SERVER
, 0, check_purpose_ns_ssl_server
, "Netscape SSL server", "nssslserver", NULL
},
82 {X509_PURPOSE_SMIME_SIGN
, X509_TRUST_EMAIL
, 0, check_purpose_smime_sign
, "S/MIME signing", "smimesign", NULL
},
83 {X509_PURPOSE_SMIME_ENCRYPT
, X509_TRUST_EMAIL
, 0, check_purpose_smime_encrypt
, "S/MIME encryption", "smimeencrypt", NULL
},
84 {X509_PURPOSE_CRL_SIGN
, X509_TRUST_ANY
, 0, check_purpose_crl_sign
, "CRL signing", "crlsign", NULL
},
87 #define X509_PURPOSE_COUNT (sizeof(xstandard)/sizeof(X509_PURPOSE))
89 IMPLEMENT_STACK_OF(X509_PURPOSE
)
91 static STACK_OF(X509_PURPOSE
) *xptable
= NULL
;
93 static int xp_cmp(X509_PURPOSE
**a
, X509_PURPOSE
**b
)
95 return (*a
)->purpose
- (*b
)->purpose
;
98 int X509_check_purpose(X509
*x
, int id
, int ca
)
102 if(!(x
->ex_flags
& EXFLAG_SET
)) {
103 CRYPTO_w_lock(CRYPTO_LOCK_X509
);
104 x509v3_cache_extensions(x
);
105 CRYPTO_w_unlock(CRYPTO_LOCK_X509
);
107 if(id
== -1) return 1;
108 idx
= X509_PURPOSE_get_by_id(id
);
109 if(idx
== -1) return -1;
110 pt
= X509_PURPOSE_get0(idx
);
111 return pt
->check_purpose(pt
, x
, ca
);
114 int X509_PURPOSE_get_count(void)
116 if(!xptable
) return X509_PURPOSE_COUNT
;
117 return sk_X509_PURPOSE_num(xptable
) + X509_PURPOSE_COUNT
;
120 X509_PURPOSE
* X509_PURPOSE_get0(int idx
)
122 if(idx
< 0) return NULL
;
123 if(idx
< X509_PURPOSE_COUNT
) return xstandard
+ idx
;
124 return sk_X509_PURPOSE_value(xptable
, idx
- X509_PURPOSE_COUNT
);
127 int X509_PURPOSE_get_by_sname(char *sname
)
131 for(i
= 0; i
< X509_PURPOSE_get_count(); i
++) {
132 xptmp
= X509_PURPOSE_get0(i
);
133 if(!strcmp(xptmp
->sname
, sname
)) return i
;
139 int X509_PURPOSE_get_by_id(int purpose
)
143 if((purpose
>= X509_PURPOSE_MIN
) && (purpose
<= X509_PURPOSE_MAX
))
144 return purpose
- X509_PURPOSE_MIN
;
145 tmp
.purpose
= purpose
;
146 if(!xptable
) return -1;
147 idx
= sk_X509_PURPOSE_find(xptable
, &tmp
);
148 if(idx
== -1) return -1;
149 return idx
+ X509_PURPOSE_COUNT
;
152 int X509_PURPOSE_add(int id
, int trust
, int flags
,
153 int (*ck
)(X509_PURPOSE
*, X509
*, int),
154 char *name
, char *sname
, void *arg
)
158 /* This is set according to what we change: application can't set it */
159 flags
&= ~X509_PURPOSE_DYNAMIC
;
160 /* This will always be set for application modified trust entries */
161 flags
|= X509_PURPOSE_DYNAMIC_NAME
;
162 /* Get existing entry if any */
163 idx
= X509_PURPOSE_get_by_id(id
);
164 /* Need a new entry */
166 if(!(ptmp
= Malloc(sizeof(X509_PURPOSE
)))) {
167 X509V3err(X509V3_F_X509_PURPOSE_ADD
,ERR_R_MALLOC_FAILURE
);
170 ptmp
->flags
= X509_PURPOSE_DYNAMIC
;
171 } else ptmp
= X509_PURPOSE_get0(idx
);
173 /* Free existing name if dynamic */
174 if(ptmp
->flags
& X509_PURPOSE_DYNAMIC_NAME
) {
178 /* dup supplied name */
179 ptmp
->name
= BUF_strdup(name
);
180 ptmp
->sname
= BUF_strdup(sname
);
181 if(!ptmp
->name
|| !ptmp
->sname
) {
182 X509V3err(X509V3_F_X509_PURPOSE_ADD
,ERR_R_MALLOC_FAILURE
);
185 /* Keep the dynamic flag of existing entry */
186 ptmp
->flags
&= X509_PURPOSE_DYNAMIC
;
187 /* Set all other flags */
188 ptmp
->flags
|= flags
;
192 ptmp
->check_purpose
= ck
;
193 ptmp
->usr_data
= arg
;
195 /* If its a new entry manage the dynamic table */
197 if(!xptable
&& !(xptable
= sk_X509_PURPOSE_new(xp_cmp
))) {
198 X509V3err(X509V3_F_X509_PURPOSE_ADD
,ERR_R_MALLOC_FAILURE
);
201 if (!sk_X509_PURPOSE_push(xptable
, ptmp
)) {
202 X509V3err(X509V3_F_X509_PURPOSE_ADD
,ERR_R_MALLOC_FAILURE
);
209 static void xptable_free(X509_PURPOSE
*p
)
212 if (p
->flags
& X509_PURPOSE_DYNAMIC
)
214 if (p
->flags
& X509_PURPOSE_DYNAMIC_NAME
) {
222 void X509_PURPOSE_cleanup(void)
225 sk_X509_PURPOSE_pop_free(xptable
, xptable_free
);
226 for(i
= 0; i
< X509_PURPOSE_COUNT
; i
++) xptable_free(xstandard
+ i
);
230 int X509_PURPOSE_get_id(X509_PURPOSE
*xp
)
235 char *X509_PURPOSE_get0_name(X509_PURPOSE
*xp
)
240 char *X509_PURPOSE_get0_sname(X509_PURPOSE
*xp
)
245 int X509_PURPOSE_get_trust(X509_PURPOSE
*xp
)
251 static void x509v3_cache_extensions(X509
*x
)
253 BASIC_CONSTRAINTS
*bs
;
254 ASN1_BIT_STRING
*usage
;
256 STACK_OF(ASN1_OBJECT
) *extusage
;
258 if(x
->ex_flags
& EXFLAG_SET
) return;
259 X509_digest(x
, EVP_sha1(), x
->sha1_hash
, NULL
);
260 /* Does subject name match issuer ? */
261 if(!X509_NAME_cmp(X509_get_subject_name(x
), X509_get_issuer_name(x
)))
262 x
->ex_flags
|= EXFLAG_SS
;
263 /* V1 should mean no extensions ... */
264 if(!X509_get_version(x
)) x
->ex_flags
|= EXFLAG_V1
;
265 /* Handle basic constraints */
266 if((bs
=X509_get_ext_d2i(x
, NID_basic_constraints
, NULL
, NULL
))) {
267 if(bs
->ca
) x
->ex_flags
|= EXFLAG_CA
;
269 if((bs
->pathlen
->type
== V_ASN1_NEG_INTEGER
)
271 x
->ex_flags
|= EXFLAG_INVALID
;
273 } else x
->ex_pathlen
= ASN1_INTEGER_get(bs
->pathlen
);
274 } else x
->ex_pathlen
= -1;
275 BASIC_CONSTRAINTS_free(bs
);
276 x
->ex_flags
|= EXFLAG_BCONS
;
278 /* Handle key usage */
279 if((usage
=X509_get_ext_d2i(x
, NID_key_usage
, NULL
, NULL
))) {
280 if(usage
->length
> 0) {
281 x
->ex_kusage
= usage
->data
[0];
282 if(usage
->length
> 1)
283 x
->ex_kusage
|= usage
->data
[1] << 8;
284 } else x
->ex_kusage
= 0;
285 x
->ex_flags
|= EXFLAG_KUSAGE
;
286 ASN1_BIT_STRING_free(usage
);
289 if((extusage
=X509_get_ext_d2i(x
, NID_ext_key_usage
, NULL
, NULL
))) {
290 x
->ex_flags
|= EXFLAG_XKUSAGE
;
291 for(i
= 0; i
< sk_ASN1_OBJECT_num(extusage
); i
++) {
292 switch(OBJ_obj2nid(sk_ASN1_OBJECT_value(extusage
,i
))) {
293 case NID_server_auth
:
294 x
->ex_xkusage
|= XKU_SSL_SERVER
;
297 case NID_client_auth
:
298 x
->ex_xkusage
|= XKU_SSL_CLIENT
;
301 case NID_email_protect
:
302 x
->ex_xkusage
|= XKU_SMIME
;
306 x
->ex_xkusage
|= XKU_CODE_SIGN
;
311 x
->ex_xkusage
|= XKU_SGC
;
314 sk_ASN1_OBJECT_pop_free(extusage
, ASN1_OBJECT_free
);
317 if((ns
=X509_get_ext_d2i(x
, NID_netscape_cert_type
, NULL
, NULL
))) {
318 if(ns
->length
> 0) x
->ex_nscert
= ns
->data
[0];
319 else x
->ex_nscert
= 0;
320 x
->ex_flags
|= EXFLAG_NSCERT
;
321 ASN1_BIT_STRING_free(ns
);
323 x
->ex_flags
|= EXFLAG_SET
;
327 /* CA checks common to all purposes
331 * 2 basicConstraints absent so "maybe" a CA
332 * 3 basicConstraints absent but self signed V1.
335 #define V1_ROOT (EXFLAG_V1|EXFLAG_SS)
336 #define ku_reject(x, usage) \
337 (((x)->ex_flags & EXFLAG_KUSAGE) && !((x)->ex_kusage & (usage)))
338 #define xku_reject(x, usage) \
339 (((x)->ex_flags & EXFLAG_XKUSAGE) && !((x)->ex_xkusage & (usage)))
340 #define ns_reject(x, usage) \
341 (((x)->ex_flags & EXFLAG_NSCERT) && !((x)->ex_nscert & (usage)))
343 static int ca_check(X509
*x
)
345 /* keyUsage if present should allow cert signing */
346 if(ku_reject(x
, KU_KEY_CERT_SIGN
)) return 0;
347 if(x
->ex_flags
& EXFLAG_BCONS
) {
348 if(x
->ex_flags
& EXFLAG_CA
) return 1;
349 /* If basicConstraints says not a CA then say so */
352 if((x
->ex_flags
& V1_ROOT
) == V1_ROOT
) return 3;
358 static int check_purpose_ssl_client(X509_PURPOSE
*xp
, X509
*x
, int ca
)
360 if(xku_reject(x
,XKU_SSL_CLIENT
)) return 0;
363 ca_ret
= ca_check(x
);
364 if(!ca_ret
) return 0;
365 /* check nsCertType if present */
366 if(x
->ex_flags
& EXFLAG_NSCERT
) {
367 if(x
->ex_nscert
& NS_SSL_CA
) return ca_ret
;
370 if(ca_ret
!= 2) return ca_ret
;
373 /* We need to do digital signatures with it */
374 if(ku_reject(x
,KU_DIGITAL_SIGNATURE
)) return 0;
375 /* nsCertType if present should allow SSL client use */
376 if(ns_reject(x
, NS_SSL_CLIENT
)) return 0;
380 static int check_purpose_ssl_server(X509_PURPOSE
*xp
, X509
*x
, int ca
)
382 if(xku_reject(x
,XKU_SSL_SERVER
|XKU_SGC
)) return 0;
383 /* Otherwise same as SSL client for a CA */
384 if(ca
) return check_purpose_ssl_client(xp
, x
, 1);
386 if(ns_reject(x
, NS_SSL_SERVER
)) return 0;
387 /* Now as for keyUsage: we'll at least need to sign OR encipher */
388 if(ku_reject(x
, KU_DIGITAL_SIGNATURE
|KU_KEY_ENCIPHERMENT
)) return 0;
394 static int check_purpose_ns_ssl_server(X509_PURPOSE
*xp
, X509
*x
, int ca
)
397 ret
= check_purpose_ssl_server(xp
, x
, ca
);
398 if(!ret
|| ca
) return ret
;
399 /* We need to encipher or Netscape complains */
400 if(ku_reject(x
, KU_KEY_ENCIPHERMENT
)) return 0;
404 /* common S/MIME checks */
405 static int purpose_smime(X509
*x
, int ca
)
407 if(xku_reject(x
,XKU_SMIME
)) return 0;
410 ca_ret
= ca_check(x
);
411 if(!ca_ret
) return 0;
412 /* check nsCertType if present */
413 if(x
->ex_flags
& EXFLAG_NSCERT
) {
414 if(x
->ex_nscert
& NS_SMIME_CA
) return ca_ret
;
417 if(ca_ret
!= 2) return ca_ret
;
420 if(x
->ex_flags
& EXFLAG_NSCERT
) {
421 if(x
->ex_nscert
& NS_SMIME
) return 1;
422 /* Workaround for some buggy certificates */
423 if(x
->ex_nscert
& NS_SSL_CLIENT
) return 2;
429 static int check_purpose_smime_sign(X509_PURPOSE
*xp
, X509
*x
, int ca
)
432 ret
= purpose_smime(x
, ca
);
433 if(!ret
|| ca
) return ret
;
434 if(ku_reject(x
, KU_DIGITAL_SIGNATURE
)) return 0;
438 static int check_purpose_smime_encrypt(X509_PURPOSE
*xp
, X509
*x
, int ca
)
441 ret
= purpose_smime(x
, ca
);
442 if(!ret
|| ca
) return ret
;
443 if(ku_reject(x
, KU_KEY_ENCIPHERMENT
)) return 0;
447 static int check_purpose_crl_sign(X509_PURPOSE
*xp
, X509
*x
, int ca
)
451 if((ca_ret
= ca_check(x
)) != 2) return ca_ret
;
454 if(ku_reject(x
, KU_CRL_SIGN
)) return 0;