+ /* FIXME: add a cleanup function to the ctx? */
+ memset(ctx->md_data,0,ctx->digest->ctx_size);
+ return ret;
+ }
+
+int EVP_MD_CTX_copy(EVP_MD_CTX *out, const EVP_MD_CTX *in)
+{
+ if ((in == NULL) || (in->digest == NULL)) {
+ EVPerr(EVP_F_EVP_MD_CTX_COPY,EVP_R_INPUT_NOT_INITIALIZED);
+ return 0;
+ }
+ EVP_MD_CTX_cleanup(out);
+ memcpy(out,in,sizeof *out);
+ out->md_data=OPENSSL_malloc(out->digest->ctx_size);
+ /* FIXME: we really need a per-MD copy function */
+ memcpy(out->md_data,in->md_data,out->digest->ctx_size);
+ return 1;
+}
+
+int EVP_Digest(void *data, unsigned int count,
+ unsigned char *md, unsigned int *size, const EVP_MD *type)
+{
+ EVP_MD_CTX ctx;
+ int ret;
+
+ EVP_MD_CTX_init(&ctx);
+ ret=EVP_DigestInit(&ctx, type)
+ && EVP_DigestUpdate(&ctx, data, count)
+ && EVP_DigestFinal(&ctx, md, size);
+ EVP_MD_CTX_cleanup(&ctx);
+
+ return ret;
+}
+
+void EVP_MD_CTX_destroy(EVP_MD_CTX *ctx)
+ {
+ EVP_MD_CTX_cleanup(ctx);
+ OPENSSL_free(ctx);
+ }
+
+/* This call frees resources associated with the context */
+int EVP_MD_CTX_cleanup(EVP_MD_CTX *ctx)
+ {
+ /* Don't assume ctx->md_data was cleaned in EVP_Digest_Final,
+ * because sometimes only copies of the context are ever finalised.
+ */
+ if(ctx->md_data)
+ memset(ctx->md_data,0,ctx->digest->ctx_size);
+
+ OPENSSL_free(ctx->md_data);
+ memset(ctx,'\0',sizeof *ctx);
+
+ return 1;