aboutsummaryrefslogtreecommitdiff
path: root/src/hash/blake.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/hash/blake.c')
-rw-r--r--src/hash/blake.c271
1 files changed, 271 insertions, 0 deletions
diff --git a/src/hash/blake.c b/src/hash/blake.c
new file mode 100644
index 0000000..b1df1f7
--- /dev/null
+++ b/src/hash/blake.c
@@ -0,0 +1,271 @@
+#include <string.h>
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <math.h>
+#include <stdlib.h>
+#include "../crypto.h"
+#include "../util.h"
+
+const uint8_t blake_sigma[][16] = {
+ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 },
+ {14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3 },
+ {11, 8, 12, 0, 5, 2, 15, 13, 10, 14, 3, 6, 7, 1, 9, 4 },
+ { 7, 9, 3, 1, 13, 12, 11, 14, 2, 6, 5, 10, 4, 0, 15, 8 },
+ { 9, 0, 5, 7, 2, 4, 10, 15, 14, 1, 11, 12, 6, 8, 3, 13 },
+ { 2, 12, 6, 10, 0, 11, 8, 3, 4, 13, 7, 5, 15, 14, 1, 9 },
+ {12, 5, 1, 15, 14, 13, 4, 10, 0, 7, 6, 3, 9, 2, 8, 11 },
+ {13, 11, 7, 14, 12, 1, 3, 9, 5, 0, 15, 4, 8, 6, 2, 10 },
+ { 6, 15, 14, 9, 11, 3, 0, 8, 12, 2, 13, 7, 1, 4, 10, 5 },
+ {10, 2, 8, 4, 7, 6, 1, 5, 15, 11, 9, 14, 3, 12, 13 , 0 },
+ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 },
+ {14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3 },
+ {11, 8, 12, 0, 5, 2, 15, 13, 10, 14, 3, 6, 7, 1, 9, 4 },
+ { 7, 9, 3, 1, 13, 12, 11, 14, 2, 6, 5, 10, 4, 0, 15, 8 },
+ { 9, 0, 5, 7, 2, 4, 10, 15, 14, 1, 11, 12, 6, 8, 3, 13 },
+ { 2, 12, 6, 10, 0, 11, 8, 3, 4, 13, 7, 5, 15, 14, 1, 9 }
+};
+
+const uint32_t blake_u256[16] = {
+ 0x243f6a88, 0x85a308d3, 0x13198a2e, 0x03707344,
+ 0xa4093822, 0x299f31d0, 0x082efa98, 0xec4e6c89,
+ 0x452821e6, 0x38d01377, 0xbe5466cf, 0x34e90c6c,
+ 0xc0ac29b7, 0xc97c50dd, 0x3f84d5b5, 0xb5470917
+};
+
+const uint64_t blake_u512[16] = {
+ 0x243f6a8885a308d3ULL, 0x13198a2e03707344ULL,
+ 0xa4093822299f31d0ULL, 0x082efa98ec4e6c89ULL,
+ 0x452821e638d01377ULL, 0xbe5466cf34e90c6cULL,
+ 0xc0ac29b7c97c50ddULL, 0x3f84d5b5b5470917ULL,
+ 0x9216d5d98979fb1bULL, 0xd1310ba698dfb5acULL,
+ 0x2ffd72dbd01adfb7ULL, 0xb8e1afed6a267e96ULL,
+ 0xba7c9045f12c7f99ULL, 0x24a19947b3916cf7ULL,
+ 0x0801f2e2858efc16ULL, 0x636920d871574e69ULL
+};
+
+#define blake_round_256(a,b,c,d,e) \
+ v[a] += (m[blake_sigma[i][e]] ^ blake_u256[blake_sigma[i][e+1]]) + v[b]; \
+ v[d] = rotr32( v[d] ^ v[a],16); \
+ v[c] += v[d]; \
+ v[b] = rotr32( v[b] ^ v[c],12); \
+ v[a] += (m[blake_sigma[i][e+1]] ^ blake_u256[blake_sigma[i][e]])+v[b]; \
+ v[d] = rotr32( v[d] ^ v[a], 8); \
+ v[c] += v[d]; \
+ v[b] = rotr32( v[b] ^ v[c], 7);
+
+void compress256(uint32_t* hash, char *block, uint64_t compressed){
+ uint32_t v[16], m[16], i;
+
+ for(int i = 0; i < 16; i++) m[i] = wtf((block + i * 4));
+
+ for(int i = 0; i < 8; i++) v[i] = hash[i];
+
+ for(int i = 0; i != 8; i++)
+ v[i + 8] = blake_u256[i];
+
+ v[12] ^= (uint32_t)compressed;
+ v[13] ^= (uint32_t)compressed;
+ v[14] ^= compressed >> 32;
+ v[15] ^= compressed >> 32;
+
+ for(int i = 0; i < 14; i++){
+ blake_round_256( 0, 4, 8, 12, 0 );
+ blake_round_256( 1, 5, 9, 13, 2 );
+ blake_round_256( 2, 6, 10, 14, 4 );
+ blake_round_256( 3, 7, 11, 15, 6 );
+
+ blake_round_256( 0, 5, 10, 15, 8 );
+ blake_round_256( 1, 6, 11, 12, 10 );
+ blake_round_256( 2, 7, 8, 13, 12 );
+ blake_round_256( 3, 4, 9, 14, 14 );
+ }
+
+ for(int i = 0; i < 16; i++) hash[i % 8] ^= v[i];
+}
+
+void blake256(char *out, char *in, uint64_t inlen, enum blake256_v v){
+ uint32_t hash[8] = {0x6a09e667, 0xbb67ae85, 0x3c6ef372, 0xa54ff53a,
+ 0x510e527f, 0x9b05688c, 0x1f83d9ab, 0x5be0cd19};
+ if(v == b224){
+ hash[0] = 0xc1059ed8;
+ hash[1] = 0x367cd507;
+ hash[2] = 0x3070dd17;
+ hash[3] = 0xf70e5939;
+ hash[4] = 0xffc00b31;
+ hash[5] = 0x68581511;
+ hash[6] = 0x64f98fa7;
+ hash[7] = 0xbefa4fa4;
+ }
+
+ int aw = inter(inlen, 64);
+ uint64_t compressed = 0;
+ char* owo = calloc(aw, sizeof * owo);
+ memcpy(owo, in, inlen);
+
+ owo[inlen] = 0x80;
+
+ if(inlen == 55){
+ owo[inlen] = v==b256?0x81:0x80;
+ } else {
+ owo[aw - 9] = v==b256?0x01:0x00;
+ }
+
+ U32TO8_BIG(owo + aw - 8, 0x0);
+ U32TO8_BIG(owo + aw - 4, inlen << 3);
+
+ for(; aw >= 64;){
+ compressed += 64;
+ if(aw == 64) compressed = inlen;
+
+ compress256(hash, owo, compressed * 8);
+ aw -= 64;
+ owo += 64;
+ }
+
+ for(int i = 0; i != (v==b256?8:7); i++){
+ sprintf(out, "%s%08x",out,(hash)[i]);
+ }
+}
+
+#define blake_round_512(a,b,c,d,e) \
+ v[a] += (m[blake_sigma[i][e]] ^ blake_u512[blake_sigma[i][e+1]]) + v[b];\
+ v[d] = rotr64( v[d] ^ v[a],32); \
+ v[c] += v[d]; \
+ v[b] = rotr64( v[b] ^ v[c],25); \
+ v[a] += (m[blake_sigma[i][e+1]] ^ blake_u512[blake_sigma[i][e]])+v[b]; \
+ v[d] = rotr64( v[d] ^ v[a],16); \
+ v[c] += v[d]; \
+ v[b] = rotr64( v[b] ^ v[c],11);
+
+void compress512(uint64_t* hash, uint8_t *block, uint64_t compressed){
+ uint64_t v[16], m[16], i;
+
+ for( i = 0; i < 16; ++i ) m[i] = U8TO64_BIG( block + i * 8 );
+
+ for(int i = 0; i < 8; i++) v[i] = hash[i];
+
+ for(int i = 0; i != 8; i++)
+ v[i + 8] = blake_u512[i];
+
+ v[12] ^= compressed;
+ v[13] ^= compressed;
+ v[14] ^= 0;
+ v[15] ^= 0;
+
+
+ for(i = 0; i < 16; i++){
+ blake_round_512(0, 4, 8, 12, 0);
+ blake_round_512(1, 5, 9, 13, 2);
+ blake_round_512(2, 6, 10, 14, 4);
+ blake_round_512(3, 7, 11, 15, 6);
+
+ blake_round_512(0, 5, 10, 15, 8);
+ blake_round_512(1, 6, 11, 12, 10);
+ blake_round_512(2, 7, 8, 13, 12);
+ blake_round_512(3, 4, 9, 14, 14);
+
+ }
+
+ for(int i = 0; i < 16; i++) hash[i % 8] ^= v[i];
+}
+
+void blake512(char *out, char *in, uint64_t inlen, enum blake512_v v){
+ uint64_t hash[8] = {0x6a09e667f3bcc908ULL, 0xbb67ae8584caa73bULL, 0x3c6ef372fe94f82bULL, 0xa54ff53a5f1d36f1ULL,
+ 0x510e527fade682d1ULL, 0x9b05688c2b3e6c1fULL, 0x1f83d9abfb41bd6bULL, 0x5be0cd19137e2179ULL};
+
+ if(v == b384){
+ hash[0] = 0xcbbb9d5dc1059ed8ULL;
+ hash[1] = 0x629a292a367cd507ULL;
+ hash[2] = 0x9159015a3070dd17ULL;
+ hash[3] = 0x152fecd8f70e5939ULL;
+ hash[4] = 0x67332667ffc00b31ULL;
+ hash[5] = 0x8eb44a8768581511ULL;
+ hash[6] = 0xdb0c2e0d64f98fa7ULL;
+ hash[7] = 0x47b5481dbefa4fa4ULL;
+ }
+
+ int aw = inter(inlen, 128);
+ uint64_t compressed = 0;
+ uint8_t* owo = calloc(aw, sizeof * owo);
+ memcpy(owo, in, inlen);
+
+ owo[inlen] = 0x80;
+
+ if(inlen == 111){
+ owo[inlen] = v==b512?0x81:0x80;
+ } else {
+ owo[aw - 17] = v==b512?0x01:0x00;
+ }
+
+ U64TO8_BIG(owo + aw - 8, inlen << 3);
+
+ for(; aw >= 128;){
+ compressed += 128;
+ if(aw == 128) compressed = inlen;
+
+ compress512(hash, owo, compressed * 8);
+ aw -= 128;
+ owo += 128;
+ }
+
+ for(int i = 0; i != (v==b512?8:6); i++){
+ sprintf(out, "%s%016llx",out, (hash)[i]);
+ }
+}
+
+int l_blake256(lua_State* L){
+ size_t len = 0;
+ char* a = (char*)luaL_checklstring(L, 1, &len);
+ int argv = lua_gettop(L);
+
+ char digest[257] = {0};
+ memset(digest, 0, 257);
+
+ blake256(digest, a, len, b256);
+ lua_pushstring(L, digest);
+
+ return 1;
+}
+
+int l_blake224(lua_State* L){
+ size_t len = 0;
+ char* a = (char*)luaL_checklstring(L, 1, &len);
+ int argv = lua_gettop(L);
+
+ char digest[257] = {0};
+ memset(digest, 0, 257);
+
+ blake256(digest, a, len, b224);
+ lua_pushstring(L, digest);
+
+ return 1;
+}
+
+int l_blake512(lua_State* L){
+ size_t len = 0;
+ char* a = (char*)luaL_checklstring(L, 1, &len);
+ int argv = lua_gettop(L);
+
+ char digest[513] = {0};
+ memset(digest, 0, 513);
+
+ blake512(digest, a, len, b512);
+ lua_pushstring(L, digest);
+
+ return 1;
+}
+
+int l_blake384(lua_State* L){
+ size_t len = 0;
+ char* a = (char*)luaL_checklstring(L, 1, &len);
+ int argv = lua_gettop(L);
+
+ char digest[513] = {0};
+ memset(digest, 0, 513);
+
+ blake512(digest, a, len, b384);
+ lua_pushstring(L, digest);
+
+ return 1;
+} \ No newline at end of file
generated by cgit v1.2.3 (git 2.25.1) at 2026-01-13 12:27:32 +0000