diff options
Diffstat (limited to 'perl/testmd.pl')
-rw-r--r-- | perl/testmd.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/perl/testmd.pl b/perl/testmd.pl new file mode 100644 index 0000000000..a17ac6b90c --- /dev/null +++ b/perl/testmd.pl @@ -0,0 +1,26 @@ +#!/usr/local/bin/perl + +use ExtUtils::testlib; + +use SSLeay; + +@md=(); +foreach ("md2", "md5", "sha", "sha1", "mdc2", "ripemd160") + { + ($f=MD->new($_)) || + die "$_ is an unknown message digest algorithm\n"; + push(@md,$f); + } + +while (<>) + { + foreach $md (@md) + { $md->update($_); } + } + +foreach (@md) + { + $digest=$_->final(); + printf "%-4s=%s\n",$_->name(),unpack("H*",$digest); + } + |