From 0e4aeb5ee6878c74f8116b0719a90e167d17c6b4 Mon Sep 17 00:00:00 2001 From: ame Date: Fri, 3 Nov 2023 19:45:15 -0500 Subject: tons of checksums (i had fun:3) --- src/crypto.h | 16 +++++++++ src/hash/adler.c | 28 +++++++++++++++ src/hash/adler.h | 3 ++ src/hash/bsdchecksum.c | 30 ++++++++++++++++ src/hash/bsdchecksum.h | 3 ++ src/hash/crc.c | 95 +++++++++++++++++++++++++++++++++++++++++++++++++ src/hash/crc.h | 5 +++ src/hash/fletcher.c | 75 ++++++++++++++++++++++++++++++++++++++ src/hash/fletcher.h | 5 +++ src/hash/sysvchecksum.c | 29 +++++++++++++++ src/hash/sysvchecksum.h | 3 ++ src/hash/xor.c | 26 ++++++++++++++ src/hash/xor.h | 3 ++ 13 files changed, 321 insertions(+) create mode 100644 src/hash/adler.c create mode 100644 src/hash/adler.h create mode 100644 src/hash/bsdchecksum.c create mode 100644 src/hash/bsdchecksum.h create mode 100644 src/hash/crc.c create mode 100644 src/hash/crc.h create mode 100644 src/hash/fletcher.c create mode 100644 src/hash/fletcher.h create mode 100644 src/hash/sysvchecksum.c create mode 100644 src/hash/sysvchecksum.h create mode 100644 src/hash/xor.c create mode 100644 src/hash/xor.h (limited to 'src') 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 +#include + +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 +#include + + +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 +#include +#include +#include +#include +#include + +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 +#include + +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 +#include +#include + +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 +#include + +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*); -- cgit v1.2.3