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