Data update

Task/MD5/EasyLang/md5.easy

@@ -0,0 +1,93 @@
+len md5k[] 64
+proc md5init . .
+   for i = 1 to 64
+      md5k[i] = floor (0x100000000 * abs sin (i * 180 / pi))
+   .
+.
+md5init
+#
+func$ md5 inp$ .
+   subr addinp
+      if inp4 = 1
+         inp[] &= 0
+      .
+      inp[len inp[]] += b * inp4
+      inp4 *= 0x100
+      if inp4 = 0x100000000
+         inp4 = 1
+      .
+   .
+   s[] = [ 7 12 17 22 7 12 17 22 7 12 17 22 7 12 17 22 5 9 14 20 5 9 14 20 5 9 14 20 5 9 14 20 4 11 16 23 4 11 16 23 4 11 16 23 4 11 16 23 6 10 15 21 6 10 15 21 6 10 15 21 6 10 15 21 ]
+   inp[] = [ ]
+   inp4 = 1
+   for i = 1 to len inp$
+      b = strcode substr inp$ i 1
+      addinp
+   .
+   b = 0x80
+   addinp
+   while len inp[] mod 16 <> 14 or inp4 <> 1
+      b = 0
+      addinp
+   .
+   h = len inp$ * 8
+   for i = 1 to 4
+      b = h mod 0x100
+      addinp
+      h = h div 0x100
+   .
+   inp[] &= 0
+   #
+   a0 = 0x67452301
+   b0 = 0xefcdab89
+   c0 = 0x98badcfe
+   d0 = 0x10325476
+   for chunk = 1 step 16 to len inp[] - 15
+      a = a0 ; b = b0 ; c = c0 ; d = d0
+      for i = 1 to 64
+         if i <= 16
+            h1 = bitand b c
+            h2 = bitand bitnot b d
+            f = bitor h1 h2
+            g = i - 1
+         elif i <= 32
+            h1 = bitand d b
+            h2 = bitand bitnot d c
+            f = bitor h1 h2
+            g = (5 * i - 4) mod 16
+         elif i <= 48
+            h1 = bitxor b c
+            f = bitxor h1 d
+            g = (3 * i + 2) mod 16
+         else
+            h1 = bitor b bitnot d
+            f = bitxor c h1
+            g = (7 * i - 7) mod 16
+         .
+         f = (f + a + md5k[i] + inp[chunk + g])
+         a = d
+         d = c
+         c = b
+         h1 = bitshift f s[i]
+         h2 = bitshift f (s[i] - 32)
+         b = (b + h1 + h2)
+      .
+      a0 += a ; b0 += b ; c0 += c ; d0 += d
+   .
+   for a in [ a0 b0 c0 d0 ]
+      for i = 1 to 4
+         b = a mod 256
+         a = a div 256
+         for h in [ b div 16 b mod 16 ]
+            h += 48
+            if h > 57
+               h += 39
+            .
+            s$ &= strchar h
+         .
+      .
+   .
+   return s$
+.
+#
+print md5 "The quick brown fox jumped over the lazy dog's back"

Task/MD5/Wren/md5.wren

@@ -1,5 +1,5 @@
-import "/crypto" for Md5
-import "/fmt" for Fmt
+import "./crypto" for Md5
+import "./fmt" for Fmt
 
 var strings = [
     "The quick brown fox jumps over the lazy dog",