MD5/Implementation: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 3,334:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>md5[string_String] :=
Module[{r = {7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17,
Line 3,363:
FromDigits[
Flatten[Reverse@IntegerDigits[#, 256, 4] & /@ {h0, h1, h2, h3}],
256], 16, 32]]</lang>
Example:
<lang Mathematica>md5["12345678901234567890123456789012345678901234567890123456789012345678901234567890"]</lang>
|