#/usr/bin/perl -w

#Flipper md5 brute v.0.3 beta 

use LWP::UserAgent; 
use LWP::Simple;
use HTTP::Request;
use HTTP::Response;
use Digest::MD5 qw(md5_hex);
use warnings;

my @func = ('gdataonline','breaker','alimamed','security');  #имена процедур
#$proxy = '127.0.0.1:8080'; 
my $ua = LWP::UserAgent->new;
$ua->agent('User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.11) Gecko/20070312 Firefox/1.5.0.11');
push @{ $ua->requests_redirectable }, 'POST';
if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){
   $ua->proxy('http', "http://$proxy/"); };

open(FILE,$ARGV[0]) || die "Error read file!";
my @hash = <FILE>;
close(FILE);

open(FILE,'>result') || die "Error file!";
$result = '';
for($i=0;$i<@hash;$i++)
   {
    @hash[$i]=~/([a-z0-9]{32})/; #Получаем хэш из строки
    foreach $item(@func) {
     eval ("\$result = $item('$1');"); #Последовательно вызываем процедуры
     print "RESULT = $result \n";     
     if ($1 eq md5_hex($result)) {  #на всякий случай:-)
        print LOG "@hash[$i]:$result";
        last;
     } #if
   } #foreach
} #for
close(LOG);

sub gdataonline {
   $hash = $_[0];
   $gethash= get("http://gdataonline.com/qkhash.php?mode=xml&hash=$hash");
   $gethash=~ m/<status>(.*?)<\/status>/;
   if($1 eq Success){
      $gethash=~ m/<result>(.*?)<\/result>/ && return $1;
      }
} #gdataonline

sub breaker {
   $hash = $_[0];
   $gethash= get("http://ice.breaker.free.fr/md5.php?hash=$hash");
   $gethash=~ m/<b><br><br> - (.+)<br><br><br>/;
   return $1;
} #breaker

sub alimamed {
   $hash = $_[0];
   $gethash= get("http://alimamed.pp.ru/md5/?md5e=&md5d=$hash");
   $gethash=~ m/MD5 расшифрован: <b>(.+)<\/b><br><form action="">/;
   return $1;
} #alimamed

sub security {
    $hash = $_[0];
   my $req = HTTP::Request->new(POST=>"http://www.securitystats.com/tools/hashcrack.php");
   $req->content_type('application/x-www-form-urlencoded');
   $req->content("inputhash=$hash&type=MD5&Submit=Submit");
   my $res = $ua->request($req);
   $content=$res->content;
   return $1; 
}#security