aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/crypto.h16
-rw-r--r--src/hash/adler.c28
-rw-r--r--src/hash/adler.h3
-rw-r--r--src/hash/bsdchecksum.c30
-rw-r--r--src/hash/bsdchecksum.h3
-rw-r--r--src/hash/crc.c95
-rw-r--r--src/hash/crc.h5
-rw-r--r--src/hash/fletcher.c75
-rw-r--r--src/hash/fletcher.h5
-rw-r--r--src/hash/sysvchecksum.c29
-rw-r--r--src/hash/sysvchecksum.h3
-rw-r--r--src/hash/xor.c26
-rw-r--r--src/hash/xor.h3
13 files changed, 321 insertions, 0 deletions
diff --git a/src/crypto.h b/src/crypto.h
index 0bee9a3..f54047b 100644
--- a/src/crypto.h
+++ b/src/crypto.h
@@ -5,6 +5,12 @@
#include "hash/sha2xx.h"
#include "hash/pearson.h"
#include "hash/xxh.h"
+#include "hash/adler.h"
+#include "hash/bsdchecksum.h"
+#include "hash/crc.h"
+#include "hash/fletcher.h"
+#include "hash/sysvchecksum.h"
+#include "hash/xor.h"
#include "encode/uuencode.h"
#include "encode/base64.h"
@@ -22,6 +28,16 @@ static const luaL_Reg crypto_function_list [] = {
{"pearson",l_pearson},
{"xxh64",l_xxh64},
{"xxh32",l_xxh32},
+ {"adler32",l_adler32},
+ {"bsdchecksum",l_bsdchecksum},
+ {"crc8",l_crc8},
+ {"crc16",l_crc16},
+ {"crc32",l_crc32},
+ {"fletcher8",l_fletcher8},
+ {"fletcher16",l_fletcher16},
+ {"fletcher32",l_fletcher32},
+ {"sysvchecksum",l_sysvchecksum},
+ {"xor8",l_xor8},
{"uuencode",l_uuencode},
{"uudecode",l_uudecode},
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*);
generated by cgit v1.2.3 (git 2.25.1) at 2026-01-13 18:41:06 +0000