/* crypto/evp/p_lib.c *//* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) * All rights reserved. * * This package is an SSL implementation written * by Eric Young (eay@cryptsoft.com). * The implementation was written so as to conform with Netscapes SSL. *  * This library is free for commercial and non-commercial use as long as * the following conditions are aheared to.  The following conditions * apply to all code found in this distribution, be it the RC4, RSA, * lhash, DES, etc., code; not just the SSL code.  The SSL documentation * included with this distribution is covered by the same copyright terms * except that the holder is Tim Hudson (tjh@cryptsoft.com). *  * Copyright remains Eric Young's, and as such any Copyright notices in * the code are not to be removed. * If this package is used in a product, Eric Young should be given attribution * as the author of the parts of the library used. * This can be in the form of a textual message at program startup or * in documentation (online or textual) provided with the package. *  * 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 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 acknowledgement: *    "This product includes cryptographic software written by *     Eric Young (eay@cryptsoft.com)" *    The word 'cryptographic' can be left out if the rouines from the library *    being used are not cryptographic related :-). * 4. If you include any Windows specific code (or a derivative thereof) from  *    the apps directory (application code) you must include an acknowledgement: *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" *  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND * ANY EXPRESS 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 AUTHOR OR 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. *  * The licence and distribution terms for any publically available version or * derivative of this code cannot be changed.  i.e. this code cannot simply be * copied and put under another distribution licence * [including the GNU Public Licence.] */#include <stdio.h>#include "cryptlib.h"#include <openssl/objects.h>#include <openssl/evp.h>#include <openssl/asn1_mac.h>#include <openssl/x509.h>static void EVP_PKEY_free_it(EVP_PKEY *x);int EVP_PKEY_bits(EVP_PKEY *pkey)	{#ifndef OPENSSL_NO_RSA	if (pkey->type == EVP_PKEY_RSA)		return(BN_num_bits(pkey->pkey.rsa->n));	else#endif#ifndef OPENSSL_NO_DSA		if (pkey->type == EVP_PKEY_DSA)		return(BN_num_bits(pkey->pkey.dsa->p));#endif	return(0);	}int EVP_PKEY_size(EVP_PKEY *pkey)	{	if (pkey == NULL)		return(0);#ifndef OPENSSL_NO_RSA	if (pkey->type == EVP_PKEY_RSA)		return(RSA_size(pkey->pkey.rsa));	else#endif#ifndef OPENSSL_NO_DSA		if (pkey->type == EVP_PKEY_DSA)		return(DSA_size(pkey->pkey.dsa));#endif	return(0);	}int EVP_PKEY_save_parameters(EVP_PKEY *pkey, int mode)	{#ifndef OPENSSL_NO_DSA	if (pkey->type == EVP_PKEY_DSA)		{		int ret=pkey->save_parameters;		if (mode >= 0)			pkey->save_parameters=mode;		return(ret);		}#endif	return(0);	}int EVP_PKEY_copy_parameters(EVP_PKEY *to, EVP_PKEY *from)	{	if (to->type != from->type)		{		EVPerr(EVP_F_EVP_PKEY_COPY_PARAMETERS,EVP_R_DIFFERENT_KEY_TYPES);		goto err;		}	if (EVP_PKEY_missing_parameters(from))		{		EVPerr(EVP_F_EVP_PKEY_COPY_PARAMETERS,EVP_R_MISSING_PARAMETERS);		goto err;		}#ifndef OPENSSL_NO_DSA	if (to->type == EVP_PKEY_DSA)		{		BIGNUM *a;		if ((a=BN_dup(from->pkey.dsa->p)) == NULL) goto err;		if (to->pkey.dsa->p != NULL) BN_free(to->pkey.dsa->p);		to->pkey.dsa->p=a;		if ((a=BN_dup(from->pkey.dsa->q)) == NULL) goto err;		if (to->pkey.dsa->q != NULL) BN_free(to->pkey.dsa->q);		to->pkey.dsa->q=a;		if ((a=BN_dup(from->pkey.dsa->g)) == NULL) goto err;		if (to->pkey.dsa->g != NULL) BN_free(to->pkey.dsa->g);		to->pkey.dsa->g=a;		}#endif	return(1);err:	return(0);	}int EVP_PKEY_missing_parameters(EVP_PKEY *pkey)	{#ifndef OPENSSL_NO_DSA	if (pkey->type == EVP_PKEY_DSA)		{		DSA *dsa;		dsa=pkey->pkey.dsa;		if ((dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL))			return(1);		}#endif	return(0);	}int EVP_PKEY_cmp_parameters(EVP_PKEY *a, EVP_PKEY *b)	{#ifndef OPENSSL_NO_DSA	if ((a->type == EVP_PKEY_DSA) && (b->type == EVP_PKEY_DSA))		{		if (	BN_cmp(a->pkey.dsa->p,b->pkey.dsa->p) ||			BN_cmp(a->pkey.dsa->q,b->pkey.dsa->q) ||			BN_cmp(a->pkey.dsa->g,b->pkey.dsa->g))			return(0);		else			return(1);		}#endif	return(-1);	}EVP_PKEY *EVP_PKEY_new(void)	{	EVP_PKEY *ret;	ret=(EVP_PKEY *)OPENSSL_malloc(sizeof(EVP_PKEY));	if (ret == NULL)		{		EVPerr(EVP_F_EVP_PKEY_NEW,ERR_R_MALLOC_FAILURE);		return(NULL);		}	ret->type=EVP_PKEY_NONE;	ret->references=1;	ret->pkey.ptr=NULL;	ret->attributes=NULL;	ret->save_parameters=1;	return(ret);	}int EVP_PKEY_assign(EVP_PKEY *pkey, int type, char *key)	{	if (pkey == NULL) return(0);	if (pkey->pkey.ptr != NULL)		EVP_PKEY_free_it(pkey);	pkey->type=EVP_PKEY_type(type);	pkey->save_type=type;	pkey->pkey.ptr=key;	return(key != NULL);	}#ifndef OPENSSL_NO_RSAint EVP_PKEY_set1_RSA(EVP_PKEY *pkey, RSA *key){	int ret = EVP_PKEY_assign_RSA(pkey, key);	if(ret)		RSA_up_ref(key);	return ret;}RSA *EVP_PKEY_get1_RSA(EVP_PKEY *pkey)	{	if(pkey->type != EVP_PKEY_RSA) {		EVPerr(EVP_F_EVP_PKEY_GET1_RSA, EVP_R_EXPECTING_AN_RSA_KEY);		return NULL;	}	RSA_up_ref(pkey->pkey.rsa);	return pkey->pkey.rsa;}#endif#ifndef OPENSSL_NO_DSAint EVP_PKEY_set1_DSA(EVP_PKEY *pkey, DSA *key){	int ret = EVP_PKEY_assign_DSA(pkey, key);	if(ret)		DSA_up_ref(key);	return ret;}DSA *EVP_PKEY_get1_DSA(EVP_PKEY *pkey)	{	if(pkey->type != EVP_PKEY_DSA) {		EVPerr(EVP_F_EVP_PKEY_GET1_DSA, EVP_R_EXPECTING_A_DSA_KEY);		return NULL;	}	DSA_up_ref(pkey->pkey.dsa);	return pkey->pkey.dsa;}#endif#ifndef OPENSSL_NO_DHint EVP_PKEY_set1_DH(EVP_PKEY *pkey, DH *key){	int ret = EVP_PKEY_assign_DH(pkey, key);	if(ret)		DH_up_ref(key);	return ret;}DH *EVP_PKEY_get1_DH(EVP_PKEY *pkey)	{	if(pkey->type != EVP_PKEY_DH) {		EVPerr(EVP_F_EVP_PKEY_GET1_DH, EVP_R_EXPECTING_A_DH_KEY);		return NULL;	}	DH_up_ref(pkey->pkey.dh);	return pkey->pkey.dh;}#endifint EVP_PKEY_type(int type)	{	switch (type)		{	case EVP_PKEY_RSA:	case EVP_PKEY_RSA2:		return(EVP_PKEY_RSA);	case EVP_PKEY_DSA:	case EVP_PKEY_DSA1:	case EVP_PKEY_DSA2:	case EVP_PKEY_DSA3:	case EVP_PKEY_DSA4:		return(EVP_PKEY_DSA);	case EVP_PKEY_DH:		return(EVP_PKEY_DH);	default:		return(NID_undef);		}	}void EVP_PKEY_free(EVP_PKEY *x)	{	int i;	if (x == NULL) return;	i=CRYPTO_add(&x->references,-1,CRYPTO_LOCK_EVP_PKEY);#ifdef REF_PRINT	REF_PRINT("EVP_PKEY",x);#endif	if (i > 0) return;#ifdef REF_CHECK	if (i < 0)		{		fprintf(stderr,"EVP_PKEY_free, bad reference count\n");		abort();		}#endif	EVP_PKEY_free_it(x);	OPENSSL_free(x);	}static void EVP_PKEY_free_it(EVP_PKEY *x)	{	switch (x->type)		{#ifndef OPENSSL_NO_RSA	case EVP_PKEY_RSA:	case EVP_PKEY_RSA2:		RSA_free(x->pkey.rsa);		break;#endif#ifndef OPENSSL_NO_DSA	case EVP_PKEY_DSA:	case EVP_PKEY_DSA2:	case EVP_PKEY_DSA3:	case EVP_PKEY_DSA4:		DSA_free(x->pkey.dsa);		break;#endif#ifndef OPENSSL_NO_DH	case EVP_PKEY_DH:		DH_free(x->pkey.dh);		break;#endif		}	}