MD5/Implementation: Difference between revisions
Content added Content deleted
(Add Perl 5 example) |
m (Its Perl not Perl 5.) |
||
Line 2,217: | Line 2,217: | ||
</pre> |
</pre> |
||
=={{header|Perl |
=={{header|Perl}}== |
||
{{works with |
{{works with|Perl|5.10.1 (and later)}} |
||
<lang perl5> |
<lang perl5> |
||
#!/usr/bin/perl |
#!/usr/bin/perl |
||
Line 2,317: | Line 2,317: | ||
for my $k (keys %$strings) { |
for my $k (keys %$strings) { |
||
my $digest = _encode_hex md5($strings->{$k}); |
my $digest = _encode_hex md5($strings->{$k}); |
||
is($digest, $k, "$digest is MD5 digest $k"); |
is($digest, $k, "$digest is MD5 digest $strings->{$k}"); |
||
} |
} |
||
Line 2,390: | Line 2,390: | ||
<pre> |
<pre> |
||
1..7 |
1..7 |
||
ok 1 - c3fcd3d76192e4007dfb496cca67e13b is MD5 digest |
ok 1 - c3fcd3d76192e4007dfb496cca67e13b is MD5 digest abcdefghijklmnopqrstuvwxyz |
||
ok 2 - f96b697d7cb7938d525a2f31aaf161d0 is MD5 digest |
ok 2 - f96b697d7cb7938d525a2f31aaf161d0 is MD5 digest message digest |
||
ok 3 - 900150983cd24fb0d6963f7d28e17f72 is MD5 digest |
ok 3 - 900150983cd24fb0d6963f7d28e17f72 is MD5 digest abc |
||
ok 4 - d41d8cd98f00b204e9800998ecf8427e is MD5 digest |
ok 4 - d41d8cd98f00b204e9800998ecf8427e is MD5 digest |
||
ok 5 - 57edf4a22be3c955ac49da2e2107b67a is MD5 digest |
ok 5 - 57edf4a22be3c955ac49da2e2107b67a is MD5 digest 12345678901234567890123456789012345678901234567890123456789012345678901234567890 |
||
ok 6 - 0cc175b9c0f1b6a831c399e269772661 is MD5 digest |
ok 6 - 0cc175b9c0f1b6a831c399e269772661 is MD5 digest a |
||
ok 7 - d174ab98d277d9f5a5611c2c9f419d9f is MD5 digest |
ok 7 - d174ab98d277d9f5a5611c2c9f419d9f is MD5 digest ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 |
||
</pre> |
</pre> |
||