gost_md.c

   1 /**********************************************************************
   2  *                          md_gost.c                                 *
   3  *             Copyright (c) 2005-2006 Cryptocom LTD                  *
   4  *         This file is distributed under the same license as OpenSSL *
   5  *                                                                    *
   6  *       OpenSSL interface to GOST R 34.11-94 hash functions          *
   7  *          Requires OpenSSL 0.9.9 for compilation                    *
   8  **********************************************************************/
   9 #include <string.h>
  10 #include "gost_lcl.h"
  11 #include "gosthash.h"
  12 #include "e_gost_err.h"
  13
  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,
  17                               size_t count);
  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);
  21
  22 static EVP_MD *_hidden_GostR3411_94_md = NULL;
  23
  24 EVP_MD *digest_gost(void)
  25 {
  26     if (_hidden_GostR3411_94_md == NULL) {
  27         EVP_MD *md;
  28
  29         if ((md = EVP_MD_meth_new(NID_id_GostR3411_94, NID_undef)) == NULL
  30 #if (OPENSSL_VERSION_NUMBER <= 0x10002100L)
  31             || !EVP_MD_meth_set_flags(md, EVP_MD_FLAG_PKEY_METHOD_SIGNATURE)
  32 #endif
  33             || !EVP_MD_meth_set_result_size(md, 32)
  34             || !EVP_MD_meth_set_input_blocksize(md, 32)
  35             || !EVP_MD_meth_set_app_datasize(md,
  36                                              sizeof(struct
  37                                                     ossl_gost_digest_ctx))
  38             || !EVP_MD_meth_set_init(md, gost_digest_init)
  39             || !EVP_MD_meth_set_update(md, gost_digest_update)
  40             || !EVP_MD_meth_set_final(md, gost_digest_final)
  41             || !EVP_MD_meth_set_copy(md, gost_digest_copy)
  42             || !EVP_MD_meth_set_cleanup(md, gost_digest_cleanup)) {
  43             EVP_MD_meth_free(md);
  44             md = NULL;
  45         }
  46         _hidden_GostR3411_94_md = md;
  47     }
  48     return _hidden_GostR3411_94_md;
  49 }
  50
  51 void digest_gost_destroy(void)
  52 {
  53     EVP_MD_meth_free(_hidden_GostR3411_94_md);
  54     _hidden_GostR3411_94_md = NULL;
  55 }
  56
  57 int gost_digest_init(EVP_MD_CTX *ctx)
  58 {
  59     struct ossl_gost_digest_ctx *c = EVP_MD_CTX_md_data(ctx);
  60     memset(&(c->dctx), 0, sizeof(gost_hash_ctx));
  61     gost_init(&(c->cctx), &GostR3411_94_CryptoProParamSet);
  62     c->dctx.cipher_ctx = &(c->cctx);
  63     return 1;
  64 }
  65
  66 int gost_digest_update(EVP_MD_CTX *ctx, const void *data, size_t count)
  67 {
  68     return hash_block((gost_hash_ctx *) EVP_MD_CTX_md_data(ctx), data, count);
  69 }
  70
  71 int gost_digest_final(EVP_MD_CTX *ctx, unsigned char *md)
  72 {
  73     return finish_hash((gost_hash_ctx *) EVP_MD_CTX_md_data(ctx), md);
  74
  75 }
  76
  77 int gost_digest_copy(EVP_MD_CTX *to, const EVP_MD_CTX *from)
  78 {
  79     struct ossl_gost_digest_ctx *md_ctx = EVP_MD_CTX_md_data(to);
  80     if (EVP_MD_CTX_md_data(to) && EVP_MD_CTX_md_data(from)) {
  81         memcpy(EVP_MD_CTX_md_data(to), EVP_MD_CTX_md_data(from),
  82                sizeof(struct ossl_gost_digest_ctx));
  83         md_ctx->dctx.cipher_ctx = &(md_ctx->cctx);
  84     }
  85     return 1;
  86 }
  87
  88 int gost_digest_cleanup(EVP_MD_CTX *ctx)
  89 {
  90     if (EVP_MD_CTX_md_data(ctx))
  91         memset(EVP_MD_CTX_md_data(ctx), 0,
  92                sizeof(struct ossl_gost_digest_ctx));
  93     return 1;
  94 }