1 /**********************************************************************
3 * Copyright (c) 2005-2006 Cryptocom LTD *
4 * This file is distributed under the same license as OpenSSL *
6 * OpenSSL interface to GOST R 34.11-94 hash functions *
7 * Requires OpenSSL 0.9.9 for compilation *
8 **********************************************************************/
12 #include "e_gost_err.h"
14 /* implementation of GOST 34.11 hash function See gost_md.c*/
15 static int gost_digest_init(EVP_MD_CTX *ctx);
16 static int gost_digest_update(EVP_MD_CTX *ctx, const void *data,
18 static int gost_digest_final(EVP_MD_CTX *ctx, unsigned char *md);
19 static int gost_digest_copy(EVP_MD_CTX *to, const EVP_MD_CTX *from);
20 static int gost_digest_cleanup(EVP_MD_CTX *ctx);
22 GOST_digest GostR3411_94_digest = {
23 .nid = NID_id_GostR3411_94,
25 .input_blocksize = 32,
26 .app_datasize = sizeof(struct ossl_gost_digest_ctx),
27 .init = gost_digest_init,
28 .update = gost_digest_update,
29 .final = gost_digest_final,
30 .copy = gost_digest_copy,
31 .cleanup = gost_digest_cleanup,
35 * Single level template accessor.
36 * Note: that you cannot template 0 value.
38 #define TPL(st,field) ( \
39 ((st)->field) ?: TPL_VAL(st,field) \
42 #define TPL_VAL(st,field) ( \
43 ((st)->template ? (st)->template->field : 0) \
46 EVP_MD *GOST_init_digest(GOST_digest *d)
52 if (!(md = EVP_MD_meth_new(d->nid, NID_undef))
53 || !EVP_MD_meth_set_result_size(md, TPL(d, result_size))
54 || !EVP_MD_meth_set_input_blocksize(md, TPL(d, input_blocksize))
55 || !EVP_MD_meth_set_app_datasize(md, TPL(d, app_datasize))
56 || !EVP_MD_meth_set_flags(md, d->flags | TPL_VAL(d, flags))
57 || !EVP_MD_meth_set_init(md, TPL(d, init))
58 || !EVP_MD_meth_set_update(md, TPL(d, update))
59 || !EVP_MD_meth_set_final(md, TPL(d, final))
60 || !EVP_MD_meth_set_copy(md, TPL(d, copy))
61 || !EVP_MD_meth_set_cleanup(md, TPL(d, cleanup))
62 || !EVP_MD_meth_set_ctrl(md, TPL(d, ctrl))) {
67 EVP_add_digest_alias(EVP_MD_name(md), d->alias);
72 void GOST_deinit_digest(GOST_digest *d)
75 EVP_delete_digest_alias(d->alias);
76 EVP_MD_meth_free(d->digest);
80 EVP_MD *digest_gost(void)
82 return GOST_init_digest(&GostR3411_94_digest);
85 void digest_gost_destroy(void)
87 GOST_deinit_digest(&GostR3411_94_digest);
90 int gost_digest_init(EVP_MD_CTX *ctx)
92 struct ossl_gost_digest_ctx *c = EVP_MD_CTX_md_data(ctx);
93 memset(&(c->dctx), 0, sizeof(gost_hash_ctx));
94 gost_init(&(c->cctx), &GostR3411_94_CryptoProParamSet);
95 c->dctx.cipher_ctx = &(c->cctx);
99 int gost_digest_update(EVP_MD_CTX *ctx, const void *data, size_t count)
101 return hash_block((gost_hash_ctx *) EVP_MD_CTX_md_data(ctx), data, count);
104 int gost_digest_final(EVP_MD_CTX *ctx, unsigned char *md)
106 return finish_hash((gost_hash_ctx *) EVP_MD_CTX_md_data(ctx), md);
110 int gost_digest_copy(EVP_MD_CTX *to, const EVP_MD_CTX *from)
112 struct ossl_gost_digest_ctx *md_ctx = EVP_MD_CTX_md_data(to);
113 if (EVP_MD_CTX_md_data(to) && EVP_MD_CTX_md_data(from)) {
114 memcpy(EVP_MD_CTX_md_data(to), EVP_MD_CTX_md_data(from),
115 sizeof(struct ossl_gost_digest_ctx));
116 md_ctx->dctx.cipher_ctx = &(md_ctx->cctx);
121 int gost_digest_cleanup(EVP_MD_CTX *ctx)
123 if (EVP_MD_CTX_md_data(ctx))
124 memset(EVP_MD_CTX_md_data(ctx), 0,
125 sizeof(struct ossl_gost_digest_ctx));
128 /* vim: set expandtab cinoptions=\:0,l1,t0,g0,(0 sw=4 : */