Finalized magma-cbc

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

diff --git a/gost89.c b/gost89.c
index 9011e1d8bc60b6cb8a85e3aeb124ec8001865a47..ccf338e29d8a3acf5e363dde47206f8a2da87ff5 100644 (file)
--- a/gost89.c
+++ b/gost89.c
@@ -453,9 +453,9 @@ void gost_key(gost_ctx * c, const byte * k)
 void magma_key(gost_ctx * c, const byte * k)
 {
     int i, j;
-    for (i = 7, j = 0; i >= 0; i--, j += 4) {
+    for (i = 0, j = 0; i < 8; i++, j += 4) {
         c->k[i] =
-            k[j] | (k[j + 1] << 8) | (k[j + 2] << 16) | ((word32) k[j + 3] <<
+            k[j+3] | (k[j + 2] << 8) | (k[j + 1] << 16) | ((word32) k[j] <<
                                                          24);
     }
 }