Rosetta Code

MD5/Implementation: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Add Seed7 example
Update Seed7 example
Line 2,482:
# Break chunk into sixteen 32-bit little-endian words.
for index range 1 to 16 do
m[index] := bin32(bytesLe2Intbytes2Int(message[chunkIndex + 4 * pred(index) len 4], UNSIGNED, LE));
end for;
 
Line 2,501:
g := (3 * index + 2) mod 16 + 1;
else
f := c >< (b | (bin32(16#FFFFFFFFffffffff) >< d));
g := (7 * pred(index)) mod 16 + 1;
end if;
Line 2,520:
d0 +:= ord(d);
end for;
 
# Produce the final hash value:
digest := int32AsFourBytesLe(a0) &
int32AsFourBytesLe(b0) &
int32AsFourBytesLe(c0) &
int32AsFourBytesLe(d0);
end func;
 
# Produce the final hash value:
Retrieved from "https://rosettacode.org/wiki/MD5/Implementation"