tons of checksums (i had fun:3)

12 files changed, 305 insertions, 0 deletions

diff --git a/src/hash/adler.c b/src/hash/adler.c
new file mode 100644
index 0000000..a43318a
--- /dev/null
+++ b/src/hash/adler.c
@@ -0,0 +1,28 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+
+uint32_t i_adler32(uint8_t *aa, size_t len){
+    uint16_t a = 1, b = 0;
+
+    for(int i = 0; i != len; i++){
+        a += aa[i];
+        b += a;
+    }
+
+    return b * 65536 + a;
+}
+
+int l_adler32(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[32];
+
+  uint32_t u = i_adler32(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/adler.h b/src/hash/adler.h
new file mode 100644
index 0000000..245ecec
--- /dev/null
+++ b/src/hash/adler.h
@@ -0,0 +1,3 @@
+#include "../lua.h"
+
+int l_adler32(lua_State*);
diff --git a/src/hash/bsdchecksum.c b/src/hash/bsdchecksum.c
new file mode 100644
index 0000000..1c69497
--- /dev/null
+++ b/src/hash/bsdchecksum.c
@@ -0,0 +1,30 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+
+
+uint16_t i_bsdchecksum(uint8_t *aa, size_t len){
+    uint16_t check = 0x0;
+    
+    for(int i = 0; i != len; i++){
+        uint8_t a = aa[i];
+        check = (check >> 1) + ((check & 1) << 15);
+        check += a;
+        check &= 0xffff;
+    }
+    return check;
+}
+
+int l_bsdchecksum(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[16];
+
+  uint16_t u = i_bsdchecksum(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/bsdchecksum.h b/src/hash/bsdchecksum.h
new file mode 100644
index 0000000..2ad11e4
--- /dev/null
+++ b/src/hash/bsdchecksum.h
@@ -0,0 +1,3 @@
+#include "../lua.h"
+
+int l_bsdchecksum(lua_State*);
diff --git a/src/hash/crc.c b/src/hash/crc.c
new file mode 100644
index 0000000..0588340
--- /dev/null
+++ b/src/hash/crc.c
@@ -0,0 +1,95 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <inttypes.h>
+
+uint32_t i_crc32(uint8_t *data, size_t len){
+    uint32_t crc = 0xFFFFFFFF;
+
+    for(int i = 0; i < len; i++){
+        uint32_t extract = data[i];
+        for(int z = 0; z < 8; z++){
+            uint32_t b = (extract^crc)&1;
+            crc>>=1;
+            if(b) crc^=0xEDB88320;
+            extract>>=1;
+        }
+    }
+    return -(crc+1);
+}
+
+uint16_t i_crc16(uint8_t *aa, size_t len){
+    uint16_t crc = 0x0;
+    
+    for(int i = 0; i != len; i++){
+        uint8_t a = aa[i];
+        crc ^= a;
+        for (int z = 0; z < 8; z++){
+            if (crc & 1) crc = (crc >> 1) ^ 0xA001;
+            else crc = (crc >> 1);
+        }
+    }
+    return crc;
+}
+
+uint8_t i_crc8(uint8_t *aa, size_t len){
+    //crc8 maxim
+    uint8_t crc = 0x00;
+    
+    for(int i = 0; i != len; i++){
+        uint8_t a = aa[i];
+
+        for (int z = 0; z < 8; z++){
+            uint8_t b = (crc ^ a) & 1;
+            crc >>= 1;
+            if(b) crc ^= 0x8c;
+            a >>=1;
+        }
+    }
+    return crc;
+}
+
+int l_crc8(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[8];
+
+  uint8_t u = i_crc8(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
+
+int l_crc16(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[16];
+
+  uint16_t u = i_crc16(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
+
+int l_crc32(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[32];
+
+  uint32_t u = i_crc32(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/crc.h b/src/hash/crc.h
new file mode 100644
index 0000000..d380235
--- /dev/null
+++ b/src/hash/crc.h
@@ -0,0 +1,5 @@
+#include "../lua.h"
+
+int l_crc8(lua_State*);
+int l_crc16(lua_State*);
+int l_crc32(lua_State*);
diff --git a/src/hash/fletcher.c b/src/hash/fletcher.c
new file mode 100644
index 0000000..2ed7e42
--- /dev/null
+++ b/src/hash/fletcher.c
@@ -0,0 +1,75 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+
+uint8_t i_fletcher8(uint8_t *aa, size_t len){
+    uint8_t s1 = 0, s2 = 0;
+
+    for(int i = 0; i != len; i++){
+        s1 = (s1 + aa[i]) % 15;
+        s2 = (s2 + s1) % 15;
+    }
+    return (s2 << 4) | s1;
+}
+
+uint16_t i_fletcher16(uint8_t *aa, size_t len){
+    uint16_t s1 = 0, s2 = 0;
+
+    for(int i = 0; i != len; i++){
+        s1 = (s1 + aa[i]) % 255;
+        s2 = (s2 + s1) % 255;
+    }
+    return (s2 << 8) | s1;
+}
+
+uint32_t i_fletcher32(uint8_t *aa, size_t len){
+    uint32_t s1 = 0, s2 = 0;
+
+    for(int i = 0; i != len; i++){
+        s1 = (s1 + aa[i]) % 65535;
+        s2 = (s2 + s1) % 65535;
+    }
+    return (s2 << 16) | s1;
+}
+
+int l_fletcher32(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[32];
+
+  uint32_t u = i_fletcher32(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
+
+int l_fletcher16(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[16];
+
+  uint16_t u = i_fletcher16(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
+
+int l_fletcher8(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[8];
+
+  uint8_t u = i_fletcher8(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/fletcher.h b/src/hash/fletcher.h
new file mode 100644
index 0000000..ff08ac7
--- /dev/null
+++ b/src/hash/fletcher.h
@@ -0,0 +1,5 @@
+#include "../lua.h"
+
+int l_fletcher32(lua_State*);
+int l_fletcher16(lua_State*);
+int l_fletcher8(lua_State*);
diff --git a/src/hash/sysvchecksum.c b/src/hash/sysvchecksum.c
new file mode 100644
index 0000000..a4ce824
--- /dev/null
+++ b/src/hash/sysvchecksum.c
@@ -0,0 +1,29 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+#include <math.h>
+
+uint32_t i_sysvchecksum(uint8_t *aa, size_t len){
+    uint32_t check = 0x0;
+    
+    for(int i = 0; i != len; i++){
+        check += aa[i];
+    }
+
+    uint32_t r = check % (int)pow(2,16) + (check % (int)pow(2,32)) / (int)pow(2,16);
+    return (r % (int)pow(2,16)) + r / (int)pow(2,16);
+}
+
+int l_sysvchecksum(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[32];
+
+  uint32_t u = i_sysvchecksum(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/sysvchecksum.h b/src/hash/sysvchecksum.h
new file mode 100644
index 0000000..8f27721
--- /dev/null
+++ b/src/hash/sysvchecksum.h
@@ -0,0 +1,3 @@
+#include "../lua.h"
+
+int l_sysvchecksum(lua_State*);
diff --git a/src/hash/xor.c b/src/hash/xor.c
new file mode 100644
index 0000000..a2c1b0b
--- /dev/null
+++ b/src/hash/xor.c
@@ -0,0 +1,26 @@
+#include "../crypto.h"
+#include <stdio.h>
+#include <stdint.h>
+
+uint8_t i_xor8(uint8_t *aa, size_t len){
+    uint8_t a = 0;
+
+    for(int i = 0; i != len; i++)
+        a += aa[i] & 0xff;
+    
+    return ((a ^ 0xff) + 1) & 0xff;
+}
+
+int l_xor8(lua_State* L){
+  
+  size_t len = 0;
+  uint8_t* a = (uint8_t*)luaL_checklstring(L, 1, &len);
+  
+  char digest[8];
+
+  uint8_t u = i_xor8(a, len);
+  sprintf(digest,"%x",u);
+  lua_pushstring(L, digest);
+
+  return 1;
+}
diff --git a/src/hash/xor.h b/src/hash/xor.h
new file mode 100644
index 0000000..f495c36
--- /dev/null
+++ b/src/hash/xor.h
@@ -0,0 +1,3 @@
+#include "../lua.h"
+
+int l_xor8(lua_State*);