MD5/Implementation: Difference between revisions
Content deleted Content added
→{{header|Python}}: only use the first 8 byte of the bitsize (otherwise theoretically it could fail for messages bigger than 2 exa-bytes) |
→{{header|Perl 6}}: replace Buffers by Blobs |
||
Line 2,047:
sub little-endian($w, $n, *@v) { (@v X+> ($w X* ^$n)) X% (2 ** $w) }
sub md5-pad(
{
my \bits = 8 * $msg.elems;
Line 2,065:
}
sub md5(
{
my @M = md5-pad($msg);
my @H = 0x67452301, 0xefcdab89, 0x98badcfe, 0x10325476;
md5-block(@H, @M[$_ .. $_+15]) for 0, 16 ...^ +@M;
}
| |||