xref: /onnv-gate/usr/src/common/openssl/crypto/evp/digest.c (revision 2139:6243c3338933)
10Sstevel@tonic-gate /* crypto/evp/digest.c */
20Sstevel@tonic-gate /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
30Sstevel@tonic-gate  * All rights reserved.
40Sstevel@tonic-gate  *
50Sstevel@tonic-gate  * This package is an SSL implementation written
60Sstevel@tonic-gate  * by Eric Young (eay@cryptsoft.com).
70Sstevel@tonic-gate  * The implementation was written so as to conform with Netscapes SSL.
80Sstevel@tonic-gate  *
90Sstevel@tonic-gate  * This library is free for commercial and non-commercial use as long as
100Sstevel@tonic-gate  * the following conditions are aheared to.  The following conditions
110Sstevel@tonic-gate  * apply to all code found in this distribution, be it the RC4, RSA,
120Sstevel@tonic-gate  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
130Sstevel@tonic-gate  * included with this distribution is covered by the same copyright terms
140Sstevel@tonic-gate  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
150Sstevel@tonic-gate  *
160Sstevel@tonic-gate  * Copyright remains Eric Young's, and as such any Copyright notices in
170Sstevel@tonic-gate  * the code are not to be removed.
180Sstevel@tonic-gate  * If this package is used in a product, Eric Young should be given attribution
190Sstevel@tonic-gate  * as the author of the parts of the library used.
200Sstevel@tonic-gate  * This can be in the form of a textual message at program startup or
210Sstevel@tonic-gate  * in documentation (online or textual) provided with the package.
220Sstevel@tonic-gate  *
230Sstevel@tonic-gate  * Redistribution and use in source and binary forms, with or without
240Sstevel@tonic-gate  * modification, are permitted provided that the following conditions
250Sstevel@tonic-gate  * are met:
260Sstevel@tonic-gate  * 1. Redistributions of source code must retain the copyright
270Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer.
280Sstevel@tonic-gate  * 2. Redistributions in binary form must reproduce the above copyright
290Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer in the
300Sstevel@tonic-gate  *    documentation and/or other materials provided with the distribution.
310Sstevel@tonic-gate  * 3. All advertising materials mentioning features or use of this software
320Sstevel@tonic-gate  *    must display the following acknowledgement:
330Sstevel@tonic-gate  *    "This product includes cryptographic software written by
340Sstevel@tonic-gate  *     Eric Young (eay@cryptsoft.com)"
350Sstevel@tonic-gate  *    The word 'cryptographic' can be left out if the rouines from the library
360Sstevel@tonic-gate  *    being used are not cryptographic related :-).
370Sstevel@tonic-gate  * 4. If you include any Windows specific code (or a derivative thereof) from
380Sstevel@tonic-gate  *    the apps directory (application code) you must include an acknowledgement:
390Sstevel@tonic-gate  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
400Sstevel@tonic-gate  *
410Sstevel@tonic-gate  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
420Sstevel@tonic-gate  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
430Sstevel@tonic-gate  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
440Sstevel@tonic-gate  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
450Sstevel@tonic-gate  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
460Sstevel@tonic-gate  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
470Sstevel@tonic-gate  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
480Sstevel@tonic-gate  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
490Sstevel@tonic-gate  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
500Sstevel@tonic-gate  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
510Sstevel@tonic-gate  * SUCH DAMAGE.
520Sstevel@tonic-gate  *
530Sstevel@tonic-gate  * The licence and distribution terms for any publically available version or
540Sstevel@tonic-gate  * derivative of this code cannot be changed.  i.e. this code cannot simply be
550Sstevel@tonic-gate  * copied and put under another distribution licence
560Sstevel@tonic-gate  * [including the GNU Public Licence.]
570Sstevel@tonic-gate  */
580Sstevel@tonic-gate /* ====================================================================
590Sstevel@tonic-gate  * Copyright (c) 1998-2001 The OpenSSL Project.  All rights reserved.
600Sstevel@tonic-gate  *
610Sstevel@tonic-gate  * Redistribution and use in source and binary forms, with or without
620Sstevel@tonic-gate  * modification, are permitted provided that the following conditions
630Sstevel@tonic-gate  * are met:
640Sstevel@tonic-gate  *
650Sstevel@tonic-gate  * 1. Redistributions of source code must retain the above copyright
660Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer.
670Sstevel@tonic-gate  *
680Sstevel@tonic-gate  * 2. Redistributions in binary form must reproduce the above copyright
690Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer in
700Sstevel@tonic-gate  *    the documentation and/or other materials provided with the
710Sstevel@tonic-gate  *    distribution.
720Sstevel@tonic-gate  *
730Sstevel@tonic-gate  * 3. All advertising materials mentioning features or use of this
740Sstevel@tonic-gate  *    software must display the following acknowledgment:
750Sstevel@tonic-gate  *    "This product includes software developed by the OpenSSL Project
760Sstevel@tonic-gate  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
770Sstevel@tonic-gate  *
780Sstevel@tonic-gate  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
790Sstevel@tonic-gate  *    endorse or promote products derived from this software without
800Sstevel@tonic-gate  *    prior written permission. For written permission, please contact
810Sstevel@tonic-gate  *    openssl-core@openssl.org.
820Sstevel@tonic-gate  *
830Sstevel@tonic-gate  * 5. Products derived from this software may not be called "OpenSSL"
840Sstevel@tonic-gate  *    nor may "OpenSSL" appear in their names without prior written
850Sstevel@tonic-gate  *    permission of the OpenSSL Project.
860Sstevel@tonic-gate  *
870Sstevel@tonic-gate  * 6. Redistributions of any form whatsoever must retain the following
880Sstevel@tonic-gate  *    acknowledgment:
890Sstevel@tonic-gate  *    "This product includes software developed by the OpenSSL Project
900Sstevel@tonic-gate  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
910Sstevel@tonic-gate  *
920Sstevel@tonic-gate  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
930Sstevel@tonic-gate  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
940Sstevel@tonic-gate  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
950Sstevel@tonic-gate  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
960Sstevel@tonic-gate  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
970Sstevel@tonic-gate  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
980Sstevel@tonic-gate  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
990Sstevel@tonic-gate  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
1000Sstevel@tonic-gate  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
1010Sstevel@tonic-gate  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
1020Sstevel@tonic-gate  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
1030Sstevel@tonic-gate  * OF THE POSSIBILITY OF SUCH DAMAGE.
1040Sstevel@tonic-gate  * ====================================================================
1050Sstevel@tonic-gate  *
1060Sstevel@tonic-gate  * This product includes cryptographic software written by Eric Young
1070Sstevel@tonic-gate  * (eay@cryptsoft.com).  This product includes software written by Tim
1080Sstevel@tonic-gate  * Hudson (tjh@cryptsoft.com).
1090Sstevel@tonic-gate  *
1100Sstevel@tonic-gate  */
1110Sstevel@tonic-gate 
1120Sstevel@tonic-gate #include <stdio.h>
1130Sstevel@tonic-gate #include "cryptlib.h"
1140Sstevel@tonic-gate #include <openssl/objects.h>
1150Sstevel@tonic-gate #include <openssl/evp.h>
1160Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE
1170Sstevel@tonic-gate #include <openssl/engine.h>
1180Sstevel@tonic-gate #endif
1190Sstevel@tonic-gate 
EVP_MD_CTX_init(EVP_MD_CTX * ctx)1200Sstevel@tonic-gate void EVP_MD_CTX_init(EVP_MD_CTX *ctx)
1210Sstevel@tonic-gate 	{
1220Sstevel@tonic-gate 	memset(ctx,'\0',sizeof *ctx);
1230Sstevel@tonic-gate 	}
1240Sstevel@tonic-gate 
EVP_MD_CTX_create(void)1250Sstevel@tonic-gate EVP_MD_CTX *EVP_MD_CTX_create(void)
1260Sstevel@tonic-gate 	{
1270Sstevel@tonic-gate 	EVP_MD_CTX *ctx=OPENSSL_malloc(sizeof *ctx);
1280Sstevel@tonic-gate 
1290Sstevel@tonic-gate 	EVP_MD_CTX_init(ctx);
1300Sstevel@tonic-gate 
1310Sstevel@tonic-gate 	return ctx;
1320Sstevel@tonic-gate 	}
1330Sstevel@tonic-gate 
EVP_DigestInit(EVP_MD_CTX * ctx,const EVP_MD * type)1340Sstevel@tonic-gate int EVP_DigestInit(EVP_MD_CTX *ctx, const EVP_MD *type)
1350Sstevel@tonic-gate 	{
1360Sstevel@tonic-gate 	EVP_MD_CTX_init(ctx);
1370Sstevel@tonic-gate 	return EVP_DigestInit_ex(ctx, type, NULL);
1380Sstevel@tonic-gate 	}
1390Sstevel@tonic-gate 
EVP_DigestInit_ex(EVP_MD_CTX * ctx,const EVP_MD * type,ENGINE * impl)1400Sstevel@tonic-gate int EVP_DigestInit_ex(EVP_MD_CTX *ctx, const EVP_MD *type, ENGINE *impl)
1410Sstevel@tonic-gate 	{
1420Sstevel@tonic-gate 	EVP_MD_CTX_clear_flags(ctx,EVP_MD_CTX_FLAG_CLEANED);
1430Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE
1440Sstevel@tonic-gate 	/* Whether it's nice or not, "Inits" can be used on "Final"'d contexts
1450Sstevel@tonic-gate 	 * so this context may already have an ENGINE! Try to avoid releasing
1460Sstevel@tonic-gate 	 * the previous handle, re-querying for an ENGINE, and having a
1470Sstevel@tonic-gate 	 * reinitialisation, when it may all be unecessary. */
1480Sstevel@tonic-gate 	if (ctx->engine && ctx->digest && (!type ||
1490Sstevel@tonic-gate 			(type && (type->type == ctx->digest->type))))
1500Sstevel@tonic-gate 		goto skip_to_init;
1510Sstevel@tonic-gate 	if (type)
1520Sstevel@tonic-gate 		{
1530Sstevel@tonic-gate 		/* Ensure an ENGINE left lying around from last time is cleared
1540Sstevel@tonic-gate 		 * (the previous check attempted to avoid this if the same
1550Sstevel@tonic-gate 		 * ENGINE and EVP_MD could be used). */
1560Sstevel@tonic-gate 		if(ctx->engine)
1570Sstevel@tonic-gate 			ENGINE_finish(ctx->engine);
1580Sstevel@tonic-gate 		if(impl)
1590Sstevel@tonic-gate 			{
1600Sstevel@tonic-gate 			if (!ENGINE_init(impl))
1610Sstevel@tonic-gate 				{
162*2139Sjp161948 				EVPerr(EVP_F_EVP_DIGESTINIT_EX,EVP_R_INITIALIZATION_ERROR);
1630Sstevel@tonic-gate 				return 0;
1640Sstevel@tonic-gate 				}
1650Sstevel@tonic-gate 			}
1660Sstevel@tonic-gate 		else
1670Sstevel@tonic-gate 			/* Ask if an ENGINE is reserved for this job */
1680Sstevel@tonic-gate 			impl = ENGINE_get_digest_engine(type->type);
1690Sstevel@tonic-gate 		if(impl)
1700Sstevel@tonic-gate 			{
1710Sstevel@tonic-gate 			/* There's an ENGINE for this job ... (apparently) */
1720Sstevel@tonic-gate 			const EVP_MD *d = ENGINE_get_digest(impl, type->type);
1730Sstevel@tonic-gate 			if(!d)
1740Sstevel@tonic-gate 				{
1750Sstevel@tonic-gate 				/* Same comment from evp_enc.c */
176*2139Sjp161948 				EVPerr(EVP_F_EVP_DIGESTINIT_EX,EVP_R_INITIALIZATION_ERROR);
1770Sstevel@tonic-gate 				return 0;
1780Sstevel@tonic-gate 				}
1790Sstevel@tonic-gate 			/* We'll use the ENGINE's private digest definition */
1800Sstevel@tonic-gate 			type = d;
1810Sstevel@tonic-gate 			/* Store the ENGINE functional reference so we know
1820Sstevel@tonic-gate 			 * 'type' came from an ENGINE and we need to release
1830Sstevel@tonic-gate 			 * it when done. */
1840Sstevel@tonic-gate 			ctx->engine = impl;
1850Sstevel@tonic-gate 			}
1860Sstevel@tonic-gate 		else
1870Sstevel@tonic-gate 			ctx->engine = NULL;
1880Sstevel@tonic-gate 		}
1890Sstevel@tonic-gate 	else
1900Sstevel@tonic-gate 	if(!ctx->digest)
1910Sstevel@tonic-gate 		{
192*2139Sjp161948 		EVPerr(EVP_F_EVP_DIGESTINIT_EX,EVP_R_NO_DIGEST_SET);
1930Sstevel@tonic-gate 		return 0;
1940Sstevel@tonic-gate 		}
1950Sstevel@tonic-gate #endif
1960Sstevel@tonic-gate 	if (ctx->digest != type)
1970Sstevel@tonic-gate 		{
1980Sstevel@tonic-gate 		if (ctx->digest && ctx->digest->ctx_size)
1990Sstevel@tonic-gate 			OPENSSL_free(ctx->md_data);
2000Sstevel@tonic-gate 		ctx->digest=type;
2010Sstevel@tonic-gate 		if (type->ctx_size)
2020Sstevel@tonic-gate 			ctx->md_data=OPENSSL_malloc(type->ctx_size);
2030Sstevel@tonic-gate 		}
2040Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE
2050Sstevel@tonic-gate skip_to_init:
2060Sstevel@tonic-gate #endif
2070Sstevel@tonic-gate 	return ctx->digest->init(ctx);
2080Sstevel@tonic-gate 	}
2090Sstevel@tonic-gate 
EVP_DigestUpdate(EVP_MD_CTX * ctx,const void * data,size_t count)2100Sstevel@tonic-gate int EVP_DigestUpdate(EVP_MD_CTX *ctx, const void *data,
211*2139Sjp161948 	     size_t count)
2120Sstevel@tonic-gate 	{
213*2139Sjp161948 	return ctx->digest->update(ctx,data,count);
2140Sstevel@tonic-gate 	}
2150Sstevel@tonic-gate 
2160Sstevel@tonic-gate /* The caller can assume that this removes any secret data from the context */
EVP_DigestFinal(EVP_MD_CTX * ctx,unsigned char * md,unsigned int * size)2170Sstevel@tonic-gate int EVP_DigestFinal(EVP_MD_CTX *ctx, unsigned char *md, unsigned int *size)
2180Sstevel@tonic-gate 	{
2190Sstevel@tonic-gate 	int ret;
2200Sstevel@tonic-gate 	ret = EVP_DigestFinal_ex(ctx, md, size);
2210Sstevel@tonic-gate 	EVP_MD_CTX_cleanup(ctx);
2220Sstevel@tonic-gate 	return ret;
2230Sstevel@tonic-gate 	}
2240Sstevel@tonic-gate 
2250Sstevel@tonic-gate /* The caller can assume that this removes any secret data from the context */
EVP_DigestFinal_ex(EVP_MD_CTX * ctx,unsigned char * md,unsigned int * size)2260Sstevel@tonic-gate int EVP_DigestFinal_ex(EVP_MD_CTX *ctx, unsigned char *md, unsigned int *size)
2270Sstevel@tonic-gate 	{
2280Sstevel@tonic-gate 	int ret;
2290Sstevel@tonic-gate 
2300Sstevel@tonic-gate 	OPENSSL_assert(ctx->digest->md_size <= EVP_MAX_MD_SIZE);
2310Sstevel@tonic-gate 	ret=ctx->digest->final(ctx,md);
2320Sstevel@tonic-gate 	if (size != NULL)
2330Sstevel@tonic-gate 		*size=ctx->digest->md_size;
2340Sstevel@tonic-gate 	if (ctx->digest->cleanup)
2350Sstevel@tonic-gate 		{
2360Sstevel@tonic-gate 		ctx->digest->cleanup(ctx);
2370Sstevel@tonic-gate 		EVP_MD_CTX_set_flags(ctx,EVP_MD_CTX_FLAG_CLEANED);
2380Sstevel@tonic-gate 		}
2390Sstevel@tonic-gate 	memset(ctx->md_data,0,ctx->digest->ctx_size);
2400Sstevel@tonic-gate 	return ret;
2410Sstevel@tonic-gate 	}
2420Sstevel@tonic-gate 
EVP_MD_CTX_copy(EVP_MD_CTX * out,const EVP_MD_CTX * in)2430Sstevel@tonic-gate int EVP_MD_CTX_copy(EVP_MD_CTX *out, const EVP_MD_CTX *in)
2440Sstevel@tonic-gate 	{
2450Sstevel@tonic-gate 	EVP_MD_CTX_init(out);
2460Sstevel@tonic-gate 	return EVP_MD_CTX_copy_ex(out, in);
2470Sstevel@tonic-gate 	}
2480Sstevel@tonic-gate 
EVP_MD_CTX_copy_ex(EVP_MD_CTX * out,const EVP_MD_CTX * in)2490Sstevel@tonic-gate int EVP_MD_CTX_copy_ex(EVP_MD_CTX *out, const EVP_MD_CTX *in)
2500Sstevel@tonic-gate 	{
2510Sstevel@tonic-gate 	unsigned char *tmp_buf;
2520Sstevel@tonic-gate 	if ((in == NULL) || (in->digest == NULL))
2530Sstevel@tonic-gate 		{
254*2139Sjp161948 		EVPerr(EVP_F_EVP_MD_CTX_COPY_EX,EVP_R_INPUT_NOT_INITIALIZED);
2550Sstevel@tonic-gate 		return 0;
2560Sstevel@tonic-gate 		}
2570Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE
2580Sstevel@tonic-gate 	/* Make sure it's safe to copy a digest context using an ENGINE */
2590Sstevel@tonic-gate 	if (in->engine && !ENGINE_init(in->engine))
2600Sstevel@tonic-gate 		{
261*2139Sjp161948 		EVPerr(EVP_F_EVP_MD_CTX_COPY_EX,ERR_R_ENGINE_LIB);
2620Sstevel@tonic-gate 		return 0;
2630Sstevel@tonic-gate 		}
2640Sstevel@tonic-gate #endif
2650Sstevel@tonic-gate 
2660Sstevel@tonic-gate 	if (out->digest == in->digest)
2670Sstevel@tonic-gate 		{
2680Sstevel@tonic-gate 		tmp_buf = out->md_data;
2690Sstevel@tonic-gate 	    	EVP_MD_CTX_set_flags(out,EVP_MD_CTX_FLAG_REUSE);
2700Sstevel@tonic-gate 		}
2710Sstevel@tonic-gate 	else tmp_buf = NULL;
2720Sstevel@tonic-gate 	EVP_MD_CTX_cleanup(out);
2730Sstevel@tonic-gate 	memcpy(out,in,sizeof *out);
2740Sstevel@tonic-gate 
2750Sstevel@tonic-gate 	if (out->digest->ctx_size)
2760Sstevel@tonic-gate 		{
2770Sstevel@tonic-gate 		if (tmp_buf) out->md_data = tmp_buf;
2780Sstevel@tonic-gate 		else out->md_data=OPENSSL_malloc(out->digest->ctx_size);
2790Sstevel@tonic-gate 		memcpy(out->md_data,in->md_data,out->digest->ctx_size);
2800Sstevel@tonic-gate 		}
2810Sstevel@tonic-gate 
2820Sstevel@tonic-gate 	if (out->digest->copy)
2830Sstevel@tonic-gate 		return out->digest->copy(out,in);
2840Sstevel@tonic-gate 
2850Sstevel@tonic-gate 	return 1;
2860Sstevel@tonic-gate 	}
2870Sstevel@tonic-gate 
EVP_Digest(const void * data,size_t count,unsigned char * md,unsigned int * size,const EVP_MD * type,ENGINE * impl)288*2139Sjp161948 int EVP_Digest(const void *data, size_t count,
2890Sstevel@tonic-gate 		unsigned char *md, unsigned int *size, const EVP_MD *type, ENGINE *impl)
2900Sstevel@tonic-gate 	{
2910Sstevel@tonic-gate 	EVP_MD_CTX ctx;
2920Sstevel@tonic-gate 	int ret;
2930Sstevel@tonic-gate 
2940Sstevel@tonic-gate 	EVP_MD_CTX_init(&ctx);
2950Sstevel@tonic-gate 	EVP_MD_CTX_set_flags(&ctx,EVP_MD_CTX_FLAG_ONESHOT);
2960Sstevel@tonic-gate 	ret=EVP_DigestInit_ex(&ctx, type, impl)
2970Sstevel@tonic-gate 	  && EVP_DigestUpdate(&ctx, data, count)
2980Sstevel@tonic-gate 	  && EVP_DigestFinal_ex(&ctx, md, size);
2990Sstevel@tonic-gate 	EVP_MD_CTX_cleanup(&ctx);
3000Sstevel@tonic-gate 
3010Sstevel@tonic-gate 	return ret;
3020Sstevel@tonic-gate 	}
3030Sstevel@tonic-gate 
EVP_MD_CTX_destroy(EVP_MD_CTX * ctx)3040Sstevel@tonic-gate void EVP_MD_CTX_destroy(EVP_MD_CTX *ctx)
3050Sstevel@tonic-gate 	{
3060Sstevel@tonic-gate 	EVP_MD_CTX_cleanup(ctx);
3070Sstevel@tonic-gate 	OPENSSL_free(ctx);
3080Sstevel@tonic-gate 	}
3090Sstevel@tonic-gate 
3100Sstevel@tonic-gate /* This call frees resources associated with the context */
EVP_MD_CTX_cleanup(EVP_MD_CTX * ctx)3110Sstevel@tonic-gate int EVP_MD_CTX_cleanup(EVP_MD_CTX *ctx)
3120Sstevel@tonic-gate 	{
3130Sstevel@tonic-gate 	/* Don't assume ctx->md_data was cleaned in EVP_Digest_Final,
3140Sstevel@tonic-gate 	 * because sometimes only copies of the context are ever finalised.
3150Sstevel@tonic-gate 	 */
3160Sstevel@tonic-gate 	if (ctx->digest && ctx->digest->cleanup
3170Sstevel@tonic-gate 	    && !EVP_MD_CTX_test_flags(ctx,EVP_MD_CTX_FLAG_CLEANED))
3180Sstevel@tonic-gate 		ctx->digest->cleanup(ctx);
3190Sstevel@tonic-gate 	if (ctx->digest && ctx->digest->ctx_size && ctx->md_data
3200Sstevel@tonic-gate 	    && !EVP_MD_CTX_test_flags(ctx, EVP_MD_CTX_FLAG_REUSE))
3210Sstevel@tonic-gate 		{
3220Sstevel@tonic-gate 		OPENSSL_cleanse(ctx->md_data,ctx->digest->ctx_size);
3230Sstevel@tonic-gate 		OPENSSL_free(ctx->md_data);
3240Sstevel@tonic-gate 		}
3250Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE
3260Sstevel@tonic-gate 	if(ctx->engine)
3270Sstevel@tonic-gate 		/* The EVP_MD we used belongs to an ENGINE, release the
3280Sstevel@tonic-gate 		 * functional reference we held for this reason. */
3290Sstevel@tonic-gate 		ENGINE_finish(ctx->engine);
3300Sstevel@tonic-gate #endif
3310Sstevel@tonic-gate 	memset(ctx,'\0',sizeof *ctx);
3320Sstevel@tonic-gate 
3330Sstevel@tonic-gate 	return 1;
3340Sstevel@tonic-gate 	}
335