Help for this page

Select Code to Download


  1. or download this
    $ cpan
    cpan> force install Digest::MD5::Reverse
    
  2. or download this
    use strict;
    use warnings;
    ...
    my $md5       = shift;
    my $plaintext = reverse_md5($md5);
    print( defined $plaintext ? "$md5\t$plaintext" : "NOTFOUND", "\n" );