Data update

Task/MD5/EasyLang/md5.easy

@@ -1,5 +1,5 @@
 len md5k[] 64
-proc md5init . .
+proc md5init .
    for i = 1 to 64
       md5k[i] = floor (0x100000000 * abs sin (i * 180 / pi))
    .
@@ -8,14 +8,10 @@ md5init
 #
 func$ md5 inp$ .
    subr addinp
-      if inp4 = 1
-         inp[] &= 0
-      .
+      if inp4 = 1 : inp[] &= 0
       inp[len inp[]] += b * inp4
       inp4 *= 0x100
-      if inp4 = 0x100000000
-         inp4 = 1
-      .
+      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[] = [ ]
@@ -61,16 +57,16 @@ func$ md5 inp$ .
             g = (3 * i + 2) mod 16
          else
             h1 = bitor b bitnot d
-            f = bitxor c h1
+            f = bitand 0xffffffff bitxor c h1
             g = (7 * i - 7) mod 16
          .
-         f = (f + a + md5k[i] + inp[chunk + g])
+         f = bitand 0xffffffff (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)
+         b = bitand 0xffffffff (b + h1 + h2)
       .
       a0 += a ; b0 += b ; c0 += c ; d0 += d
    .
@@ -80,9 +76,7 @@ func$ md5 inp$ .
          a = a div 256
          for h in [ b div 16 b mod 16 ]
             h += 48
-            if h > 57
-               h += 39
-            .
+            if h > 57 : h += 39
             s$ &= strchar h
          .
       .