Etalon files for GOST R 34.13-2015 (MAC)

[openssl-gost/engine.git] / gost_omac.c

diff --git a/gost_omac.c b/gost_omac.c
index ad96662f04fdc03a540a9a96bc68e90d17d0ab08..23872bc8f72d21e52bd594998618c2f3597a2d17 100644 (file)
--- a/gost_omac.c
+++ b/gost_omac.c
@@ -133,7 +133,23 @@ int omac_imit_ctrl(EVP_MD_CTX *ctx, int type, int arg, void *ptr)
     case EVP_MD_CTRL_SET_KEY:
                                {
                                        OMAC_CTX *c = EVP_MD_CTX_md_data(ctx);
-                                       const EVP_CIPHER *cipher = EVP_get_cipherbynid(c->cipher_nid);
+                                       const EVP_MD *md = EVP_MD_CTX_md(ctx);
+                                       const EVP_CIPHER *cipher = NULL;
+
+                                       if (c->cipher_nid == NID_undef)
+                                       {
+                                               switch (EVP_MD_nid(md))
+                                               {
+                                                       case NID_magma_mac:
+                                                               c->cipher_nid = NID_magma_cbc;
+                                                               break;
+
+                                                       case NID_grasshopper_mac:
+                                                               c->cipher_nid = NID_grasshopper_cbc;
+                                                               break;
+                                               }
+                                       }
+                                       cipher = EVP_get_cipherbynid(c->cipher_nid);
 
                                        if (cipher == NULL)
                                        {