hanez/fun
1
0
Fork 0
forked from fun/fun
Code Pull requests Activity

The foundation for the internal standard library. (0.16.2)

Browse source
This commit is contained in:
Johannes Findeisen 2025-10-01 03:30:26 +02:00
commit f0ed1d6761
13 changed files with 88 additions and 197 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lib/crypt/sha1.fun
View file

@ -17,6 +17,8 @@
// sha.sha1_hex(hexStr) -> digest hex string (lowercase)
// sha.sha1_str("abc") -> digest hex string of ASCII bytes
#include <strings.fun>
class SHA1()
// 32-bit helpers
fun u32(this, x)
@ -207,59 +209,7 @@ class SHA1()
digest = this.sha1_bytes(bytes)
return this.bytes_to_hex(digest)
// ASCII string to bytes (printable ASCII 0x20..0x7E)
fun string_to_bytes_ascii(this, s)
str = to_string(s)
out = []
number i = 0
// ASCII printable ranges
P1 = " !\"#$%&'()*+,-./" // 32..47
P2 = "0123456789" // 48..57
P3 = ":;<=>?@" // 58..64
P4 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" // 65..90
P5 = "[\\]^_`" // 91..96
P6 = "abcdefghijklmnopqrstuvwxyz" // 97..122
P7 = "{|}~" // 123..126
while true
ch = substr(str, i, 1)
if (typeof(ch) != "String" || ch == "")
break
number code = -1
idx = find(P1, ch)
if (idx >= 0)
code = 32 + idx
else
idx = find(P2, ch)
if (idx >= 0)
code = 48 + idx
else
idx = find(P3, ch)
if (idx >= 0)
code = 58 + idx
else
idx = find(P4, ch)
if (idx >= 0)
code = 65 + idx
else
idx = find(P5, ch)
if (idx >= 0)
code = 91 + idx
else
idx = find(P6, ch)
if (idx >= 0)
code = 97 + idx
else
idx = find(P7, ch)
if (idx >= 0)
code = 123 + idx
else
// non-printable -> 0
code = 0
push(out, code)
i = i + 1
return out
fun sha1_str(this, str)
bytes = this.string_to_bytes_ascii(str)
bytes = string_to_bytes_ascii(str)
digest = this.sha1_bytes(bytes)
return this.bytes_to_hex(digest)