md5-aaa.t

source of perl for linux application,

BEGIN {
	if ($ENV{PERL_CORE}) {
	        chdir 't' if -d 't';
        	@INC = '../lib';
	}
}

use strict;
print "1..256\n";

use Digest::MD5 qw(md5_hex);

my $Is_EBCDIC = ord('A') == 193;

my $testno = 0;
while (<DATA>) {
    if (!$Is_EBCDIC) {
	next if /^EBCDIC/;
    }
    else {
	next if !/^EBCDIC/;
	s/^EBCDIC,\w+#//;
   }
   my($hexdigest, $message) = split;
   $message =~ s/\"//g;

   my $failed;
   $failed++ unless md5_hex($message) eq $hexdigest;
   $failed++ unless Digest::MD5->new->add(split(//, $message))->digest
                                              eq pack("H*", $hexdigest);

   print "not " if $failed;
   print "ok ", ++$testno, "\n";
}



# This data was generated with:
#
# perl -e 'for (1..256) { system("md5sum --string=" . ("a" x $_)); }'
#
__END__
0cc175b9c0f1b6a831c399e269772661  "a"
4124bc0a9335c27f086f24ba207a4912  "aa"
47bce5c74f589f4867dbd57e9ca9f808  "aaa"
74b87337454200d4d33f80c4663dc5e5  "aaaa"
594f803b380a41396ed63dca39503542  "aaaaa"
0b4e7a0e5fe84ad35fb5f95b9ceeac79  "aaaaaa"
5d793fc5b00a2348c3fb9ab59e5ca98a  "aaaaaaa"
3dbe00a167653a1aaee01d93e77e730e  "aaaaaaaa"
552e6a97297c53e592208cf97fbb3b60  "aaaaaaaaa"
e09c80c42fda55f9d992e59ca6b3307d  "aaaaaaaaaa"
d57f21e6a273781dbf8b7657940f3b03  "aaaaaaaaaaa"
45e4812014d83dde5666ebdf5a8ed1ed  "aaaaaaaaaaaa"
c162de19c4c3731ca3428769d0cd593d  "aaaaaaaaaaaaa"
451599a5f9afa91a0f2097040a796f3d  "aaaaaaaaaaaaaa"
12f9cf6998d52dbe773b06f848bb3608  "aaaaaaaaaaaaaaa"
23ca472302f49b3ea5592b146a312da0  "aaaaaaaaaaaaaaaa"
88e42e96cc71151b6e1938a1699b0a27  "aaaaaaaaaaaaaaaaa"
2c60c24e7087e18e45055a33f9a5be91  "aaaaaaaaaaaaaaaaaa"
639d76897485360b3147e66e0a8a3d6c  "aaaaaaaaaaaaaaaaaaa"
22d42eb002cefa81e9ad604ea57bc01d  "aaaaaaaaaaaaaaaaaaaa"
bd049f221af82804c5a2826809337c9b  "aaaaaaaaaaaaaaaaaaaaa"
ff49cfac3968dbce26ebe7d4823e58bd  "aaaaaaaaaaaaaaaaaaaaaa"
d95dbfee231e34cccb8c04444412ed7d  "aaaaaaaaaaaaaaaaaaaaaaa"
40edae4bad0e5bf6d6c2dc5615a86afb  "aaaaaaaaaaaaaaaaaaaaaaaa"
a5a8bfa3962f49330227955e24a2e67c  "aaaaaaaaaaaaaaaaaaaaaaaaa"
ae791f19bdf77357ff10bb6b0e97e121  "aaaaaaaaaaaaaaaaaaaaaaaaaa"
aaab9c59a88bf0bdfcb170546c5459d6  "aaaaaaaaaaaaaaaaaaaaaaaaaaa"
b0f0545856af1a340acdedce23c54b97  "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
f7ce3d7d44f3342107d884bfa90c966a  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
59e794d45697b360e18ba972bada0123  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
3b0845db57c200be6052466f87b2198a  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
5eca9bd3eb07c006cd43ae48dfde7fd3  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
b4f13cb081e412f44e99742cb128a1a5  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
4c660346451b8cf91ef50f4634458d41  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
11db24dc3f6c2145701db08625dd6d76  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
80dad3aad8584778352c68ab06250327  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
1227fe415e79db47285cb2689c93963f  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
8e084f489f1bdf08c39f98ff6447ce6d  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
08b2f2b0864bac1ba1585043362cbec9  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
4697843037d962f62a5a429e611e0f5f  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
10c4da18575c092b486f8ab96c01c02f  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
af205d729450b663f48b11d839a1c8df  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
0d3f91798fac6ee279ec2485b25f1124  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
4c3c7c067634daec9716a80ea886d123  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
d1e358e6e3b707282cdd06e919f7e08c  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
8c6ded4f0af86e0a7e301f8a716c4363  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
4c2d8bcb02d982d7cb77f649c0a2dea8  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
bdb662f765cd310f2a547cab1cfecef6  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
08ff5f7301d30200ab89169f6afdb7af  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
6eb6a030bcce166534b95bc2ab45d9cf  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
1bb77918e5695c944be02c16ae29b25e  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
b6fe77c19f0f0f4946c761d62585bfea  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"