[thirdparty/openssl.git] / crypto / x509v3 / v3_purp.c

/* v3_purp.c */
/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
 * project 1999.
 */
/* ====================================================================
 * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    licensing@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */

#include <stdio.h>
#include "cryptlib.h"
#include <openssl/x509v3.h>


static void x509v3_cache_extensions(X509 *x);

static int ca_check(X509 *x);
static int check_purpose_ssl_client(X509_PURPOSE *xp, X509 *x, int ca);
static int check_purpose_ssl_server(X509_PURPOSE *xp, X509 *x, int ca);
static int check_purpose_ns_ssl_server(X509_PURPOSE *xp, X509 *x, int ca);
static int purpose_smime(X509 *x, int ca);
static int check_purpose_smime_sign(X509_PURPOSE *xp, X509 *x, int ca);
static int check_purpose_smime_encrypt(X509_PURPOSE *xp, X509 *x, int ca);
static int check_purpose_crl_sign(X509_PURPOSE *xp, X509 *x, int ca);

static int xp_cmp(X509_PURPOSE **a, X509_PURPOSE **b);
static void xptable_free(X509_PURPOSE *p);

static X509_PURPOSE xstandard[] = {
	{X509_PURPOSE_SSL_CLIENT, X509_TRUST_SSL_CLIENT, 0, check_purpose_ssl_client, "SSL client", "sslclient", NULL},
	{X509_PURPOSE_SSL_SERVER, X509_TRUST_SSL_SERVER, 0, check_purpose_ssl_server, "SSL server", "sslserver", NULL},
	{X509_PURPOSE_NS_SSL_SERVER, X509_TRUST_SSL_SERVER, 0, check_purpose_ns_ssl_server, "Netscape SSL server", "nssslserver", NULL},
	{X509_PURPOSE_SMIME_SIGN, X509_TRUST_EMAIL, 0, check_purpose_smime_sign, "S/MIME signing", "smimesign", NULL},
	{X509_PURPOSE_SMIME_ENCRYPT, X509_TRUST_EMAIL, 0, check_purpose_smime_encrypt, "S/MIME encryption", "smimeencrypt", NULL},
	{X509_PURPOSE_CRL_SIGN, X509_TRUST_ANY, 0, check_purpose_crl_sign, "CRL signing", "crlsign", NULL},
};

#define X509_PURPOSE_COUNT (sizeof(xstandard)/sizeof(X509_PURPOSE))

IMPLEMENT_STACK_OF(X509_PURPOSE)

static STACK_OF(X509_PURPOSE) *xptable = NULL;

static int xp_cmp(X509_PURPOSE **a, X509_PURPOSE **b)
{
	return (*a)->purpose - (*b)->purpose;
}

int X509_check_purpose(X509 *x, int id, int ca)
{
	int idx;
	X509_PURPOSE *pt;
	if(!(x->ex_flags & EXFLAG_SET)) {
		CRYPTO_w_lock(CRYPTO_LOCK_X509);
		x509v3_cache_extensions(x);
		CRYPTO_w_unlock(CRYPTO_LOCK_X509);
	}
	if(id == -1) return 1;
	idx = X509_PURPOSE_get_by_id(id);
	if(idx == -1) return -1;
	pt = X509_PURPOSE_iget(idx);
	return pt->check_purpose(pt, x, ca);
}

int X509_PURPOSE_get_count(void)
{
	if(!xptable) return X509_PURPOSE_COUNT;
	return sk_X509_PURPOSE_num(xptable) + X509_PURPOSE_COUNT;
}

X509_PURPOSE * X509_PURPOSE_iget(int idx)
{
	if(idx < 0) return NULL;
	if(idx < X509_PURPOSE_COUNT) return xstandard + idx;
	return sk_X509_PURPOSE_value(xptable, idx - X509_PURPOSE_COUNT);
}

int X509_PURPOSE_get_by_sname(char *sname)
{
	int i;
	X509_PURPOSE *xptmp;
	for(i = 0; i < X509_PURPOSE_get_count(); i++) {
		xptmp = X509_PURPOSE_iget(i);
		if(!strcmp(xptmp->sname, sname)) return i;
	}
	return -1;
}


int X509_PURPOSE_get_by_id(int purpose)
{
	X509_PURPOSE tmp;
	int idx;
	if((purpose >= X509_PURPOSE_MIN) && (purpose <= X509_PURPOSE_MAX))
		return purpose - X509_PURPOSE_MIN;
	tmp.purpose = purpose;
	if(!xptable) return -1;
	idx = sk_X509_PURPOSE_find(xptable, &tmp);
	if(idx == -1) return -1;
	return idx + X509_PURPOSE_COUNT;
}

int X509_PURPOSE_add(int id, int trust, int flags,
			int (*ck)(X509_PURPOSE *, X509 *, int),
					char *name, char *sname, void *arg)
{
	int idx;
	X509_PURPOSE *ptmp;
	/* This is set according to what we change: application can't set it */
	flags &= ~X509_PURPOSE_DYNAMIC;
	/* This will always be set for application modified trust entries */
	flags |= X509_PURPOSE_DYNAMIC_NAME;
	/* Get existing entry if any */
	idx = X509_PURPOSE_get_by_id(id);
	/* Need a new entry */
	if(idx == -1) {
		if(!(ptmp = Malloc(sizeof(X509_PURPOSE)))) {
			X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
			return 0;
		}
		ptmp->flags = X509_PURPOSE_DYNAMIC;
	} else ptmp = X509_PURPOSE_iget(idx);

	/* Free existing name if dynamic */
	if(ptmp->flags & X509_PURPOSE_DYNAMIC_NAME) {
		Free(ptmp->name);
		Free(ptmp->sname);
	}
	/* dup supplied name */
	ptmp->name = BUF_strdup(name);
	ptmp->sname = BUF_strdup(sname);
	if(!ptmp->name || !ptmp->sname) {
		X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
		return 0;
	}
	/* Keep the dynamic flag of existing entry */
	ptmp->flags &= X509_PURPOSE_DYNAMIC;
	/* Set all other flags */
	ptmp->flags |= flags;

	ptmp->purpose = id;
	ptmp->trust = trust;
	ptmp->check_purpose = ck;
	ptmp->usr_data = arg;

	/* If its a new entry manage the dynamic table */
	if(idx == -1) {
		if(!xptable && !(xptable = sk_X509_PURPOSE_new(xp_cmp))) {
			X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
			return 0;
		}
		if (!sk_X509_PURPOSE_push(xptable, ptmp)) {
			X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
			return 0;
		}
	}
	return 1;
}

static void xptable_free(X509_PURPOSE *p)
	{
	if(!p) return;
	if (p->flags & X509_PURPOSE_DYNAMIC) 
		{
		if (p->flags & X509_PURPOSE_DYNAMIC_NAME) {
			Free(p->name);
			Free(p->sname);
		}
		Free(p);
		}
	}

void X509_PURPOSE_cleanup(void)
{
	int i;
	sk_X509_PURPOSE_pop_free(xptable, xptable_free);
	for(i = 0; i < X509_PURPOSE_COUNT; i++) xptable_free(xstandard + i);
	xptable = NULL;
}

int X509_PURPOSE_get_id(X509_PURPOSE *xp)
{
	return xp->purpose;
}

char *X509_PURPOSE_iget_name(X509_PURPOSE *xp)
{
	return xp->name;
}

char *X509_PURPOSE_iget_sname(X509_PURPOSE *xp)
{
	return xp->sname;
}

int X509_PURPOSE_get_trust(X509_PURPOSE *xp)
{
	return xp->trust;
}

#ifndef NO_SHA
static void x509v3_cache_extensions(X509 *x)
{
	BASIC_CONSTRAINTS *bs;
	ASN1_BIT_STRING *usage;
	ASN1_BIT_STRING *ns;
	STACK_OF(ASN1_OBJECT) *extusage;
	int i;
	if(x->ex_flags & EXFLAG_SET) return;
	X509_digest(x, EVP_sha1(), x->sha1_hash, NULL);
	/* Does subject name match issuer ? */
	if(!X509_NAME_cmp(X509_get_subject_name(x), X509_get_issuer_name(x)))
			 x->ex_flags |= EXFLAG_SS;
	/* V1 should mean no extensions ... */
	if(!X509_get_version(x)) x->ex_flags |= EXFLAG_V1;
	/* Handle basic constraints */
	if((bs=X509_get_ext_d2i(x, NID_basic_constraints, NULL, NULL))) {
		if(bs->ca) x->ex_flags |= EXFLAG_CA;
		if(bs->pathlen) {
			if((bs->pathlen->type == V_ASN1_NEG_INTEGER)
						|| !bs->ca) {
				x->ex_flags |= EXFLAG_INVALID;
				x->ex_pathlen = 0;
			} else x->ex_pathlen = ASN1_INTEGER_get(bs->pathlen);
		} else x->ex_pathlen = -1;
		BASIC_CONSTRAINTS_free(bs);
		x->ex_flags |= EXFLAG_BCONS;
	}
	/* Handle key usage */
	if((usage=X509_get_ext_d2i(x, NID_key_usage, NULL, NULL))) {
		if(usage->length > 0) {
			x->ex_kusage = usage->data[0];
			if(usage->length > 1) 
				x->ex_kusage |= usage->data[1] << 8;
		} else x->ex_kusage = 0;
		x->ex_flags |= EXFLAG_KUSAGE;
		ASN1_BIT_STRING_free(usage);
	}
	x->ex_xkusage = 0;
	if((extusage=X509_get_ext_d2i(x, NID_ext_key_usage, NULL, NULL))) {
		x->ex_flags |= EXFLAG_XKUSAGE;
		for(i = 0; i < sk_ASN1_OBJECT_num(extusage); i++) {
			switch(OBJ_obj2nid(sk_ASN1_OBJECT_value(extusage,i))) {
				case NID_server_auth:
				x->ex_xkusage |= XKU_SSL_SERVER;
				break;

				case NID_client_auth:
				x->ex_xkusage |= XKU_SSL_CLIENT;
				break;

				case NID_email_protect:
				x->ex_xkusage |= XKU_SMIME;
				break;

				case NID_code_sign:
				x->ex_xkusage |= XKU_CODE_SIGN;
				break;

				case NID_ms_sgc:
				case NID_ns_sgc:
				x->ex_xkusage |= XKU_SGC;
			}
		}
		sk_ASN1_OBJECT_pop_free(extusage, ASN1_OBJECT_free);
	}

	if((ns=X509_get_ext_d2i(x, NID_netscape_cert_type, NULL, NULL))) {
		if(ns->length > 0) x->ex_nscert = ns->data[0];
		else x->ex_nscert = 0;
		x->ex_flags |= EXFLAG_NSCERT;
		ASN1_BIT_STRING_free(ns);
	}
	x->ex_flags |= EXFLAG_SET;
}
#endif

/* CA checks common to all purposes
 * return codes:
 * 0 not a CA
 * 1 is a CA
 * 2 basicConstraints absent so "maybe" a CA
 * 3 basicConstraints absent but self signed V1.
 */

#define V1_ROOT (EXFLAG_V1|EXFLAG_SS)
#define ku_reject(x, usage) \
	(((x)->ex_flags & EXFLAG_KUSAGE) && !((x)->ex_kusage & (usage)))
#define xku_reject(x, usage) \
	(((x)->ex_flags & EXFLAG_XKUSAGE) && !((x)->ex_xkusage & (usage)))
#define ns_reject(x, usage) \
	(((x)->ex_flags & EXFLAG_NSCERT) && !((x)->ex_nscert & (usage)))

static int ca_check(X509 *x)
{
	/* keyUsage if present should allow cert signing */
	if(ku_reject(x, KU_KEY_CERT_SIGN)) return 0;
	if(x->ex_flags & EXFLAG_BCONS) {
		if(x->ex_flags & EXFLAG_CA) return 1;
		/* If basicConstraints says not a CA then say so */
		else return 0;
	} else {
		if((x->ex_flags & V1_ROOT) == V1_ROOT) return 3;
		else return 2;
	}
}


static int check_purpose_ssl_client(X509_PURPOSE *xp, X509 *x, int ca)
{
	if(xku_reject(x,XKU_SSL_CLIENT)) return 0;
	if(ca) {
		int ca_ret;
		ca_ret = ca_check(x);
		if(!ca_ret) return 0;
		/* check nsCertType if present */
		if(x->ex_flags & EXFLAG_NSCERT) {
			if(x->ex_nscert & NS_SSL_CA) return ca_ret;
			return 0;
		}
		if(ca_ret != 2) return ca_ret;
		else return 0;
	}
	/* We need to do digital signatures with it */
	if(ku_reject(x,KU_DIGITAL_SIGNATURE)) return 0;
	/* nsCertType if present should allow SSL client use */	
	if(ns_reject(x, NS_SSL_CLIENT)) return 0;
	return 1;
}

static int check_purpose_ssl_server(X509_PURPOSE *xp, X509 *x, int ca)
{
	if(xku_reject(x,XKU_SSL_SERVER|XKU_SGC)) return 0;
	/* Otherwise same as SSL client for a CA */
	if(ca) return check_purpose_ssl_client(xp, x, 1);

	if(ns_reject(x, NS_SSL_SERVER)) return 0;
	/* Now as for keyUsage: we'll at least need to sign OR encipher */
	if(ku_reject(x, KU_DIGITAL_SIGNATURE|KU_KEY_ENCIPHERMENT)) return 0;
	
	return 1;

}

static int check_purpose_ns_ssl_server(X509_PURPOSE *xp, X509 *x, int ca)
{
	int ret;
	ret = check_purpose_ssl_server(xp, x, ca);
	if(!ret || ca) return ret;
	/* We need to encipher or Netscape complains */
	if(ku_reject(x, KU_KEY_ENCIPHERMENT)) return 0;
	return ret;
}

/* common S/MIME checks */
static int purpose_smime(X509 *x, int ca)
{
	if(xku_reject(x,XKU_SMIME)) return 0;
	if(ca) {
		int ca_ret;
		ca_ret = ca_check(x);
		if(!ca_ret) return 0;
		/* check nsCertType if present */
		if(x->ex_flags & EXFLAG_NSCERT) {
			if(x->ex_nscert & NS_SMIME_CA) return ca_ret;
			return 0;
		}
		if(ca_ret != 2) return ca_ret;
		else return 0;
	}
	if(x->ex_flags & EXFLAG_NSCERT) {
		if(x->ex_nscert & NS_SMIME) return 1;
		/* Workaround for some buggy certificates */
		if(x->ex_nscert & NS_SSL_CLIENT) return 2;
		return 0;
	}
	return 1;
}

static int check_purpose_smime_sign(X509_PURPOSE *xp, X509 *x, int ca)
{
	int ret;
	ret = purpose_smime(x, ca);
	if(!ret || ca) return ret;
	if(ku_reject(x, KU_DIGITAL_SIGNATURE)) return 0;
	return ret;
}

static int check_purpose_smime_encrypt(X509_PURPOSE *xp, X509 *x, int ca)
{
	int ret;
	ret = purpose_smime(x, ca);
	if(!ret || ca) return ret;
	if(ku_reject(x, KU_KEY_ENCIPHERMENT)) return 0;
	return ret;
}

static int check_purpose_crl_sign(X509_PURPOSE *xp, X509 *x, int ca)
{
	if(ca) {
		int ca_ret;
		if((ca_ret = ca_check(x)) != 2) return ca_ret;
		else return 0;
	}
	if(ku_reject(x, KU_CRL_SIGN)) return 0;
	return 1;
}
Commit	Line	Data
673b102c DSH	1	/* v3_purp.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	*/
	58
	59	#include <stdio.h>
	60	#include "cryptlib.h"
	61	#include <openssl/x509v3.h>
	62
	63
ce1b4fe1	64	static void x509v3_cache_extensions(X509 *x);
673b102c DSH	65
	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);
	74
	75	static int xp_cmp(X509_PURPOSE a, X509_PURPOSE b);
d4cec6a1	76	static void xptable_free(X509_PURPOSE *p);
673b102c DSH	77
673b102c DSH	78	static X509_PURPOSE xstandard[] = {
d4cec6a1 DSH	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},
673b102c DSH	85	};
673b102c DSH	86
dd413410 DSH	87	#define X509_PURPOSE_COUNT (sizeof(xstandard)/sizeof(X509_PURPOSE))
dd413410 DSH	88
673b102c DSH	89	IMPLEMENT_STACK_OF(X509_PURPOSE)
673b102c DSH	90
79875776	91	static STACK_OF(X509_PURPOSE) *xptable = NULL;
673b102c DSH	92
	93	static int xp_cmp(X509_PURPOSE a, X509_PURPOSE b)
	94	{
13938ace	95	return (a)->purpose - (b)->purpose;
673b102c DSH	96	}
	97
	98	int X509_check_purpose(X509 *x, int id, int ca)
	99	{
	100	int idx;
	101	X509_PURPOSE *pt;
	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);
	106	}
e947f396	107	if(id == -1) return 1;
d4cec6a1	108	idx = X509_PURPOSE_get_by_id(id);
673b102c	109	if(idx == -1) return -1;
6ea53140	110	pt = X509_PURPOSE_iget(idx);
dd413410	111	return pt->check_purpose(pt, x, ca);
673b102c	112	}
e947f396	113
d4cec6a1 DSH	114	int X509_PURPOSE_get_count(void)
d4cec6a1 DSH	115	{
dd413410 DSH	116	if(!xptable) return X509_PURPOSE_COUNT;
dd413410 DSH	117	return sk_X509_PURPOSE_num(xptable) + X509_PURPOSE_COUNT;
d4cec6a1	118	}
ce1b4fe1	119
d4cec6a1 DSH	120	X509_PURPOSE * X509_PURPOSE_iget(int idx)
d4cec6a1 DSH	121	{
dd413410 DSH	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);
d4cec6a1 DSH	125	}
	126
	127	int X509_PURPOSE_get_by_sname(char *sname)
	128	{
	129	int i;
	130	X509_PURPOSE *xptmp;
dd413410 DSH	131	for(i = 0; i < X509_PURPOSE_get_count(); i++) {
dd413410 DSH	132	xptmp = X509_PURPOSE_iget(i);
13938ace	133	if(!strcmp(xptmp->sname, sname)) return i;
d4cec6a1 DSH	134	}
	135	return -1;
	136	}
673b102c DSH	137
673b102c DSH	138
13938ace	139	int X509_PURPOSE_get_by_id(int purpose)
673b102c DSH	140	{
673b102c DSH	141	X509_PURPOSE tmp;
dd413410 DSH	142	int idx;
	143	if((purpose >= X509_PURPOSE_MIN) && (purpose <= X509_PURPOSE_MAX))
	144	return purpose - X509_PURPOSE_MIN;
13938ace	145	tmp.purpose = purpose;
673b102c	146	if(!xptable) return -1;
dd413410 DSH	147	idx = sk_X509_PURPOSE_find(xptable, &tmp);
	148	if(idx == -1) return -1;
	149	return idx + X509_PURPOSE_COUNT;
673b102c DSH	150	}
673b102c DSH	151
dd413410 DSH	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)
673b102c DSH	155	{
673b102c DSH	156	int idx;
dd413410 DSH	157	X509_PURPOSE *ptmp;
	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 */
	165	if(idx == -1) {
	166	if(!(ptmp = Malloc(sizeof(X509_PURPOSE)))) {
79875776 BM	167	X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
79875776 BM	168	return 0;
79875776	169	}
dd413410 DSH	170	ptmp->flags = X509_PURPOSE_DYNAMIC;
	171	} else ptmp = X509_PURPOSE_iget(idx);
	172
	173	/* Free existing name if dynamic */
	174	if(ptmp->flags & X509_PURPOSE_DYNAMIC_NAME) {
	175	Free(ptmp->name);
	176	Free(ptmp->sname);
	177	}
	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);
	183	return 0;
	184	}
	185	/* Keep the dynamic flag of existing entry */
	186	ptmp->flags &= X509_PURPOSE_DYNAMIC;
	187	/* Set all other flags */
	188	ptmp->flags \|= flags;
	189
	190	ptmp->purpose = id;
	191	ptmp->trust = trust;
	192	ptmp->check_purpose = ck;
	193	ptmp->usr_data = arg;
	194
	195	/* If its a new entry manage the dynamic table */
	196	if(idx == -1) {
	197	if(!xptable && !(xptable = sk_X509_PURPOSE_new(xp_cmp))) {
	198	X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
	199	return 0;
	200	}
	201	if (!sk_X509_PURPOSE_push(xptable, ptmp)) {
79875776 BM	202	X509V3err(X509V3_F_X509_PURPOSE_ADD,ERR_R_MALLOC_FAILURE);
79875776 BM	203	return 0;
d4cec6a1 DSH	204	}
d4cec6a1 DSH	205	}
673b102c DSH	206	return 1;
	207	}
	208
79875776 BM	209	static void xptable_free(X509_PURPOSE *p)
79875776 BM	210	{
d4cec6a1	211	if(!p) return;
13938ace	212	if (p->flags & X509_PURPOSE_DYNAMIC)
79875776	213	{
13938ace DSH	214	if (p->flags & X509_PURPOSE_DYNAMIC_NAME) {
	215	Free(p->name);
	216	Free(p->sname);
d4cec6a1	217	}
79875776 BM	218	Free(p);
	219	}
	220	}
	221
	222	void X509_PURPOSE_cleanup(void)
	223	{
dd413410	224	int i;
79875776	225	sk_X509_PURPOSE_pop_free(xptable, xptable_free);
dd413410	226	for(i = 0; i < X509_PURPOSE_COUNT; i++) xptable_free(xstandard + i);
79875776 BM	227	xptable = NULL;
	228	}
	229
d4cec6a1	230	int X509_PURPOSE_get_id(X509_PURPOSE *xp)
673b102c	231	{
13938ace	232	return xp->purpose;
673b102c DSH	233	}
673b102c DSH	234
d4cec6a1 DSH	235	char X509_PURPOSE_iget_name(X509_PURPOSE xp)
d4cec6a1 DSH	236	{
13938ace	237	return xp->name;
d4cec6a1	238	}
673b102c	239
d4cec6a1	240	char X509_PURPOSE_iget_sname(X509_PURPOSE xp)
673b102c	241	{
13938ace	242	return xp->sname;
673b102c DSH	243	}
673b102c DSH	244
d4cec6a1	245	int X509_PURPOSE_get_trust(X509_PURPOSE *xp)
673b102c	246	{
13938ace	247	return xp->trust;
673b102c DSH	248	}
673b102c DSH	249
731d9c5f	250	#ifndef NO_SHA
ce1b4fe1	251	static void x509v3_cache_extensions(X509 *x)
673b102c DSH	252	{
	253	BASIC_CONSTRAINTS *bs;
	254	ASN1_BIT_STRING *usage;
	255	ASN1_BIT_STRING *ns;
	256	STACK_OF(ASN1_OBJECT) *extusage;
	257	int i;
	258	if(x->ex_flags & EXFLAG_SET) return;
e947f396	259	X509_digest(x, EVP_sha1(), x->sha1_hash, NULL);
673b102c	260	/* Does subject name match issuer ? */
51630a37	261	if(!X509_NAME_cmp(X509_get_subject_name(x), X509_get_issuer_name(x)))
673b102c DSH	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 */
ff8a4c47	266	if((bs=X509_get_ext_d2i(x, NID_basic_constraints, NULL, NULL))) {
673b102c DSH	267	if(bs->ca) x->ex_flags \|= EXFLAG_CA;
	268	if(bs->pathlen) {
	269	if((bs->pathlen->type == V_ASN1_NEG_INTEGER)
	270	\|\| !bs->ca) {
	271	x->ex_flags \|= EXFLAG_INVALID;
	272	x->ex_pathlen = 0;
	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;
	277	}
	278	/* Handle key usage */
ff8a4c47	279	if((usage=X509_get_ext_d2i(x, NID_key_usage, NULL, NULL))) {
673b102c DSH	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);
	287	}
	288	x->ex_xkusage = 0;
ff8a4c47	289	if((extusage=X509_get_ext_d2i(x, NID_ext_key_usage, NULL, NULL))) {
673b102c DSH	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;
	295	break;
	296
	297	case NID_client_auth:
	298	x->ex_xkusage \|= XKU_SSL_CLIENT;
	299	break;
	300
	301	case NID_email_protect:
	302	x->ex_xkusage \|= XKU_SMIME;
	303	break;
	304
	305	case NID_code_sign:
	306	x->ex_xkusage \|= XKU_CODE_SIGN;
	307	break;
	308
	309	case NID_ms_sgc:
	310	case NID_ns_sgc:
	311	x->ex_xkusage \|= XKU_SGC;
	312	}
	313	}
	314	sk_ASN1_OBJECT_pop_free(extusage, ASN1_OBJECT_free);
	315	}
	316
ff8a4c47	317	if((ns=X509_get_ext_d2i(x, NID_netscape_cert_type, NULL, NULL))) {
673b102c DSH	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);
	322	}
	323	x->ex_flags \|= EXFLAG_SET;
	324	}
731d9c5f	325	#endif
673b102c DSH	326
	327	/* CA checks common to all purposes
	328	* return codes:
	329	* 0 not a CA
	330	* 1 is a CA
	331	* 2 basicConstraints absent so "maybe" a CA
	332	* 3 basicConstraints absent but self signed V1.
	333	*/
	334
	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)))
	342
	343	static int ca_check(X509 *x)
	344	{
	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 */
	350	else return 0;
	351	} else {
	352	if((x->ex_flags & V1_ROOT) == V1_ROOT) return 3;
	353	else return 2;
	354	}
	355	}
	356
	357
	358	static int check_purpose_ssl_client(X509_PURPOSE xp, X509 x, int ca)
	359	{
	360	if(xku_reject(x,XKU_SSL_CLIENT)) return 0;
	361	if(ca) {
	362	int ca_ret;
	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;
	368	return 0;
	369	}
	370	if(ca_ret != 2) return ca_ret;
	371	else return 0;
	372	}
	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;
	377	return 1;
	378	}
	379
	380	static int check_purpose_ssl_server(X509_PURPOSE xp, X509 x, int ca)
	381	{
	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);
	385
	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;
	389
390	return 1;
391
392	}
393
394	static int check_purpose_ns_ssl_server(X509_PURPOSE xp, X509 x, int ca)
395	{
396	int ret;
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;
401	return ret;
402	}
403
404	/* common S/MIME checks */
405	static int purpose_smime(X509 *x, int ca)
406	{
407	if(xku_reject(x,XKU_SMIME)) return 0;
408	if(ca) {
409	int ca_ret;
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;
415	return 0;
416	}
417	if(ca_ret != 2) return ca_ret;
418	else return 0;
419	}
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;
424	return 0;
425	}
426	return 1;
427	}
428
429	static int check_purpose_smime_sign(X509_PURPOSE xp, X509 x, int ca)
430	{
431	int ret;
432	ret = purpose_smime(x, ca);
433	if(!ret \|\| ca) return ret;
434	if(ku_reject(x, KU_DIGITAL_SIGNATURE)) return 0;
435	return ret;
436	}
437
438	static int check_purpose_smime_encrypt(X509_PURPOSE xp, X509 x, int ca)
439	{
440	int ret;
441	ret = purpose_smime(x, ca);
442	if(!ret \|\| ca) return ret;
443	if(ku_reject(x, KU_KEY_ENCIPHERMENT)) return 0;
444	return ret;
445	}
446
447	static int check_purpose_crl_sign(X509_PURPOSE xp, X509 x, int ca)
448	{
449	if(ca) {
450	int ca_ret;
451	if((ca_ret = ca_check(x)) != 2) return ca_ret;
452	else return 0;
453	}
454	if(ku_reject(x, KU_CRL_SIGN)) return 0;
455	return 1;
456	}