Finalized magma-cbc

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

diff --git a/gost89.c b/gost89.c
index 47b7ba0227c5aec79e04fac4ffc54d318c00f588..ccf338e29d8a3acf5e363dde47206f8a2da87ff5 100644 (file)
--- a/gost89.c
+++ b/gost89.c
@@ -449,6 +449,17 @@ void gost_key(gost_ctx * c, const byte * k)
     }
 }
 
+/* Set 256 bit  key into context */
+void magma_key(gost_ctx * c, const byte * k)
+{
+    int i, j;
+    for (i = 0, j = 0; i < 8; i++, j += 4) {
+        c->k[i] =
+            k[j+3] | (k[j + 2] << 8) | (k[j + 1] << 16) | ((word32) k[j] <<
+                                                         24);
+    }
+}
+
 /* Retrieve 256-bit key from context */
 void gost_get_key(gost_ctx * c, byte * k)
 {