[thirdparty/openssl.git] / crypto / evp / pmeth_lib.c

/* pmeth_lib.c */
/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
 * project 2006.
 */
/* ====================================================================
 * Copyright (c) 2006 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 <stdlib.h>
#include <openssl/objects.h>
#include "cryptlib.h"
#include <openssl/evp.h>
#include "asn1_locl.h"
#include "evp_locl.h"

STACK *app_pkey_methods = NULL;

extern EVP_PKEY_METHOD rsa_pkey_meth, dh_pkey_meth, dsa_pkey_meth;

static const EVP_PKEY_METHOD *standard_methods[] =
	{
	&rsa_pkey_meth,
	&dh_pkey_meth,
	&dsa_pkey_meth
	};

static int pmeth_cmp(const EVP_PKEY_METHOD * const *a,
                const EVP_PKEY_METHOD * const *b)
	{
        return ((*a)->pkey_id - (*b)->pkey_id);
	}

const EVP_PKEY_METHOD *EVP_PKEY_meth_find(int type, ENGINE *e)
	{
	EVP_PKEY_METHOD tmp, *t = &tmp, **ret;
	tmp.pkey_id = type;
	if (app_pkey_methods)
		{
		int idx;
		idx = sk_find(app_pkey_methods, (char *)&tmp);
		if (idx >= 0)
			return (EVP_PKEY_METHOD *)
				sk_value(app_pkey_methods, idx);
		}
	ret = (EVP_PKEY_METHOD **) OBJ_bsearch((char *)&t,
        		(char *)standard_methods,
			sizeof(standard_methods)/sizeof(EVP_PKEY_METHOD *),
        		sizeof(EVP_PKEY_METHOD *),
			(int (*)(const void *, const void *))pmeth_cmp);
	if (!ret || !*ret)
		return NULL;
	return *ret;
	}

static EVP_PKEY_CTX *int_ctx_new(EVP_PKEY *pkey, ENGINE *e, int id)
	{
	EVP_PKEY_CTX *ret;
	const EVP_PKEY_METHOD *pmeth;
	if (id == -1)
		{
		if (!pkey || !pkey->ameth)
			return NULL;
		id = pkey->ameth->pkey_id;
		}
	pmeth = EVP_PKEY_meth_find(id, e);
	if (pmeth == NULL)
		return NULL;
	ret = OPENSSL_malloc(sizeof(EVP_PKEY_CTX));
	ret->pmeth = pmeth;
	ret->operation = EVP_PKEY_OP_UNDEFINED;
	ret->pkey = pkey;
	if (pkey)
		CRYPTO_add(&pkey->references,1,CRYPTO_LOCK_EVP_PKEY);
	ret->data = NULL;

	if (pmeth->init)
		{
		if (pmeth->init(ret) <= 0)
			{
			EVP_PKEY_CTX_free(ret);
			return NULL;
			}
		}

	return ret;
	}

EVP_PKEY_CTX *EVP_PKEY_CTX_new(EVP_PKEY *pkey, ENGINE *e)
	{
	return int_ctx_new(pkey, e, -1);
	}

EVP_PKEY_CTX *EVP_PKEY_CTX_new_id(int id, ENGINE *e)
	{
	return int_ctx_new(NULL, e, id);
	}

void EVP_PKEY_CTX_free(EVP_PKEY_CTX *ctx)
	{
	if (ctx->pmeth && ctx->pmeth->cleanup)
		ctx->pmeth->cleanup(ctx);
	if (ctx->pkey)
		EVP_PKEY_free(ctx->pkey);
	OPENSSL_free(ctx);
	}

int EVP_PKEY_CTX_ctrl(EVP_PKEY_CTX *ctx, int keytype, int optype,
				int cmd, int p1, void *p2)
	{
	int ret;
	if (!ctx || !ctx->pmeth || !ctx->pmeth->ctrl)
		{
		EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_COMMAND_NOT_SUPPORTED);
		return -2;
		}
	if ((keytype != -1) && (ctx->pmeth->pkey_id != keytype))
		return -1;

	if (ctx->operation == EVP_PKEY_OP_UNDEFINED)
		{
		EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_NO_OPERATION_SET);
		return -1;
		}

	if ((optype != -1) && !(ctx->operation & optype))
		{
		EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_INVALID_OPERATION);
		return -1;
		}

	ret = ctx->pmeth->ctrl(ctx, cmd, p1, p2);

	if (ret == -2)
		EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_COMMAND_NOT_SUPPORTED);

	return ret;

	}

int EVP_PKEY_CTX_ctrl_str(EVP_PKEY_CTX *ctx,
					const char *name, const char *value)
	{
	if (!ctx || !ctx->pmeth || !ctx->pmeth->ctrl_str)
		{
		EVPerr(EVP_F_EVP_PKEY_CTX_CTRL_STR,
						EVP_R_COMMAND_NOT_SUPPORTED);
		return -2;
		}
	if (!strcmp(name, "digest"))
		{
		const EVP_MD *md;
		if (!value || !(md = EVP_get_digestbyname(value)))
			{
			EVPerr(EVP_F_EVP_PKEY_CTX_CTRL_STR,
						EVP_R_INVALID_DIGEST);
			return 0;
			}
		return EVP_PKEY_CTX_set_signature_md(ctx, md);
		}
	return ctx->pmeth->ctrl_str(ctx, name, value);
	}

void EVP_PKEY_CTX_set_data(EVP_PKEY_CTX *ctx, void *data)
	{
	ctx->data = data;
	}

void *EVP_PKEY_CTX_get_data(EVP_PKEY_CTX *ctx)
	{
	return ctx->data;
	}

void EVP_PKEY_CTX_set_app_data(EVP_PKEY_CTX *ctx, void *data)
	{
	ctx->app_data = data;
	}

void *EVP_PKEY_CTX_get_app_data(EVP_PKEY_CTX *ctx)
	{
	return ctx->app_data;
	}
Commit	Line	Data
	1	/* pmeth_lib.c */
	2	/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
	3	* project 2006.
	4	*/
	5	/* ====================================================================
	6	* Copyright (c) 2006 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 <stdlib.h>
	61	#include <openssl/objects.h>
	62	#include "cryptlib.h"
	63	#include <openssl/evp.h>
	64	#include "asn1_locl.h"
	65	#include "evp_locl.h"
	66
	67	STACK *app_pkey_methods = NULL;
	68
	69	extern EVP_PKEY_METHOD rsa_pkey_meth, dh_pkey_meth, dsa_pkey_meth;
	70
	71	static const EVP_PKEY_METHOD *standard_methods[] =
	72	{
	73	&rsa_pkey_meth,
	74	&dh_pkey_meth,
	75	&dsa_pkey_meth
	76	};
	77
	78	static int pmeth_cmp(const EVP_PKEY_METHOD * const *a,
	79	const EVP_PKEY_METHOD * const *b)
	80	{
	81	return ((a)->pkey_id - (b)->pkey_id);
	82	}
	83
	84	const EVP_PKEY_METHOD EVP_PKEY_meth_find(int type, ENGINE e)
	85	{
	86	EVP_PKEY_METHOD tmp, t = &tmp, *ret;
	87	tmp.pkey_id = type;
	88	if (app_pkey_methods)
	89	{
	90	int idx;
	91	idx = sk_find(app_pkey_methods, (char *)&tmp);
	92	if (idx >= 0)
	93	return (EVP_PKEY_METHOD *)
	94	sk_value(app_pkey_methods, idx);
	95	}
	96	ret = (EVP_PKEY_METHOD *) OBJ_bsearch((char )&t,
	97	(char *)standard_methods,
	98	sizeof(standard_methods)/sizeof(EVP_PKEY_METHOD *),
	99	sizeof(EVP_PKEY_METHOD *),
	100	(int ()(const void , const void *))pmeth_cmp);
	101	if (!ret \|\| !*ret)
	102	return NULL;
	103	return *ret;
	104	}
	105
	106	static EVP_PKEY_CTX int_ctx_new(EVP_PKEY pkey, ENGINE *e, int id)
	107	{
	108	EVP_PKEY_CTX *ret;
	109	const EVP_PKEY_METHOD *pmeth;
	110	if (id == -1)
	111	{
	112	if (!pkey \|\| !pkey->ameth)
	113	return NULL;
	114	id = pkey->ameth->pkey_id;
	115	}
	116	pmeth = EVP_PKEY_meth_find(id, e);
	117	if (pmeth == NULL)
	118	return NULL;
	119	ret = OPENSSL_malloc(sizeof(EVP_PKEY_CTX));
	120	ret->pmeth = pmeth;
	121	ret->operation = EVP_PKEY_OP_UNDEFINED;
	122	ret->pkey = pkey;
	123	if (pkey)
	124	CRYPTO_add(&pkey->references,1,CRYPTO_LOCK_EVP_PKEY);
	125	ret->data = NULL;
	126
	127	if (pmeth->init)
	128	{
	129	if (pmeth->init(ret) <= 0)
	130	{
	131	EVP_PKEY_CTX_free(ret);
	132	return NULL;
	133	}
	134	}
	135
	136	return ret;
	137	}
	138
	139	EVP_PKEY_CTX EVP_PKEY_CTX_new(EVP_PKEY pkey, ENGINE *e)
	140	{
	141	return int_ctx_new(pkey, e, -1);
	142	}
	143
	144	EVP_PKEY_CTX EVP_PKEY_CTX_new_id(int id, ENGINE e)
	145	{
	146	return int_ctx_new(NULL, e, id);
	147	}
	148
	149	void EVP_PKEY_CTX_free(EVP_PKEY_CTX *ctx)
	150	{
	151	if (ctx->pmeth && ctx->pmeth->cleanup)
	152	ctx->pmeth->cleanup(ctx);
	153	if (ctx->pkey)
	154	EVP_PKEY_free(ctx->pkey);
	155	OPENSSL_free(ctx);
	156	}
	157
	158	int EVP_PKEY_CTX_ctrl(EVP_PKEY_CTX *ctx, int keytype, int optype,
	159	int cmd, int p1, void *p2)
	160	{
	161	int ret;
	162	if (!ctx \|\| !ctx->pmeth \|\| !ctx->pmeth->ctrl)
	163	{
	164	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_COMMAND_NOT_SUPPORTED);
	165	return -2;
	166	}
	167	if ((keytype != -1) && (ctx->pmeth->pkey_id != keytype))
	168	return -1;
	169
	170	if (ctx->operation == EVP_PKEY_OP_UNDEFINED)
	171	{
	172	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_NO_OPERATION_SET);
	173	return -1;
	174	}
	175
	176	if ((optype != -1) && !(ctx->operation & optype))
	177	{
	178	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_INVALID_OPERATION);
	179	return -1;
	180	}
	181
	182	ret = ctx->pmeth->ctrl(ctx, cmd, p1, p2);
	183
	184	if (ret == -2)
	185	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL, EVP_R_COMMAND_NOT_SUPPORTED);
	186
	187	return ret;
	188
	189	}
	190
	191	int EVP_PKEY_CTX_ctrl_str(EVP_PKEY_CTX *ctx,
	192	const char name, const char value)
	193	{
	194	if (!ctx \|\| !ctx->pmeth \|\| !ctx->pmeth->ctrl_str)
	195	{
	196	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL_STR,
	197	EVP_R_COMMAND_NOT_SUPPORTED);
	198	return -2;
	199	}
	200	if (!strcmp(name, "digest"))
	201	{
	202	const EVP_MD *md;
	203	if (!value \|\| !(md = EVP_get_digestbyname(value)))
	204	{
	205	EVPerr(EVP_F_EVP_PKEY_CTX_CTRL_STR,
	206	EVP_R_INVALID_DIGEST);
	207	return 0;
	208	}
	209	return EVP_PKEY_CTX_set_signature_md(ctx, md);
	210	}
	211	return ctx->pmeth->ctrl_str(ctx, name, value);
	212	}
	213
	214	void EVP_PKEY_CTX_set_data(EVP_PKEY_CTX ctx, void data)
	215	{
	216	ctx->data = data;
	217	}
	218
	219	void EVP_PKEY_CTX_get_data(EVP_PKEY_CTX ctx)
	220	{
	221	return ctx->data;
	222	}
	223
	224	void EVP_PKEY_CTX_set_app_data(EVP_PKEY_CTX ctx, void data)
	225	{
	226	ctx->app_data = data;
	227	}
	228
	229	void EVP_PKEY_CTX_get_app_data(EVP_PKEY_CTX ctx)
	230	{
	231	return ctx->app_data;
	232	}