#!/usr/bin/perl

use MD5;
print "\r\n------------------------------\r\n md5 Atacker\r\n\r\n use perl $0 MD5_HASH\r\n------------------------------\r\n";

$dat = @ARGV[0];
if (!$dat == 0) {
$count = '-1';
print " Attacking... Press Ctrl+Break to Stop\r\n";
while(1)
{
$count = $count+1;
$string = MD5->hexhash($count);
if ($string eq $dat) {
print "\a\r\n";
print ' Result = '.$count; print "\r\n"; exit;
}
}
}
#Script by bul666