ちょっとブルートフォース

#!/usr/bin/perl

use Digest::MD5 qw(md5 md5_hex md5_base64);;
use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);;

$H1="5A95ACEBD94B20575779986212690D69";
$H2="6136F090C1EF42DBC7B34B12A83A04F19692BB29";

$H1=pack("H*",$H1);
$H2=pack("H*",$H2);

for(0..2147483640){
my $dat=pack("H*",$_);
my $md5=md5($dat);
my $sha1=sha1($dat);
if ($H1 eq $md5){print "hit md5: $_ \n";}
if ($H2 eq $sha1){print "hit sha1: $_ \n";}
if ($_%1000000 eq 0){print $_."..";}
}