pure md5 bruteforce

#!/usr/bin/perl
system("clear");
print "================================================n";
print "              MD5 BRUTEFORCER V1.0n";
print "                Author : rahzerovn";
print "                 WELCOME, MASTERn";
print "================================================n";
use Digest::MD5 qw(md5_hex);
print "Hashes: ";
$md5=<STDIN>;
chop($md5);
print "Character Type (a/b/c/d): ";
$type=<STDIN>;
chop($type);
#print "String Value From: ";
#$k=<STDIN>;
#chop($k);
#print "To: ";
#$p=<STDIN>;
#chop($p);

if ($type=~"a") {$char = "abcdefghijklmnopqrstuvwxyz";}
if ($type=~"b") {$char = $char. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($type=~"c") {$char = $char."1234567890";}
if ($type=~"d") {$char = $char. "!"$%&/()=?-.:\*'-_:.;,";}

sub cari{
@tampung = ();
$shift = shift;
for ($i =0;$i<$shift;$i++){ $tampung[i] = 0;}
do{
for ($i =0;$i<$shift;$i++){
if ($tampung[$i] > length($char)-1){
if ($i==$shift-1){
print "Could not find password :(.n";
$a=0;
return false;
}
$tampung[$i+1]++;
$tampung[$i]=0;
}
}
$pass = "";
for ($i =0;$i<$shift;$i++){ $pass = $pass . substr($char,$tampung[$i],1);}
$enkripsi = md5_hex($pass);
$a++;
print "================================================n";
print "               BRUTEFORCING HASHn";
print "================================================n";
print "Hash To Crack = $md5n";
print "Guessed Hash  = $enkripsin";
print "================================================n";
print "Text          = $passn";
print "================================================n";
system("clear");
if ($md5 eq $enkripsi){
print "================================================n";
print "                     RESULTn";
print "================================================n";
print "Hash To Crack = $md5n";
print "Guessed Hash  = $md5n";
print "Status        = DECRYPTEDn";
print "================================================n";
print "Text          = $passn";
print "================================================n";
system("sleep 3");
print "EOP - KILLING PROGRAM... BYE, MASTERn";
system("echo $md5 = $pass >> result.txt");
exit();
}
$tampung[0]++;
}while($tampung[$shift-1]<length($char));
}

for ($x=1;$x<=999;$x++){
cari($x);
}
pure md5 bruteforce

Artikel terkait :

0 komentar "pure md5 bruteforce", Baca atau Masukkan Komentar

Post a Comment
