Brute force md5 CRACK -r3c0ded-

[n4sss]

Eae galera blz, trouxe aqui esse script em perl, que quebra hashs md5 com força bruta.
Eu dei uma modificada nele,Muito util quando nao quebramos nossa hash em sites.

Ta ae o code

#!/usr/bin/perl
# Md5 Crack - r3c0d3d by n4sss - ORDER OF GRIFOS -
# Upd by n4sss
# Contact : n4sss@hotmail.com
# Date : 01/01/2010 -
# Info[0] : Esta Tool em perl Tem como objetivo quebrar a hash em md5 usando a força bruta usando letras,numeros,simbolos)
# Info[1] : c0dado em linux (Jogue Fora o windows!)
# Greets to Friends = bl4ck_,hackinho,Queda de faraó, e todos outros!
$ver = "01";
$dbgtmr = "1"; #Intervalo em segundos mostrando a velocidade atual + o ultimo password em segundos.

if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);

if ($ARGV[0]=~"a") {
$alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"A") {
$alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"d") {
$alpha = $alpha."1234567890";}
if ($ARGV[0]=~"x") {
$alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}

if ($alpha eq "" or $ARGV[3] eq "") {usage();};
if (length($ARGV[3]) != 32) { die "Desculpe mas essa md5 parece nao ser valida!\n";};

print "Caracter escolhido para o ataque: '$alpha\'\n";
print "Preparando para Crack '$ARGV[3]'...\n";

for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
crack ($t);
}

sub usage{
print "\n\n\md5 Crack -Order of Grifos Team- \n";
print "R3c0d3d by -n4sss- \n";
print "\n\n\Modo de uso\n";
print "./md5crack <caracter> <minimocount> <maximocount> <SuaMD5>\n";
print " Caracter pode ser: [aAdx]\n";
print " a = {'a','b','c',...}\n";
print " A = {'A','B','C',...}\n";
print " d = {'1','2','3',...}\n";
print " x = {'!','\"',' ',...}\n";
print "Exemplo de Crack para md5\n";
print "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas Letras minusculas e todos os dígitos\n";
print " O MD5 crack tenta apenas Combinacoes com comprimento de 1 a 3 caracteres\n-------\n";
print "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar o MD5 dadas com todas as letras minúsculas e todas as letras maiúsculas\n";
print " O Md5 crack tenta somente as senhas MD5 cujo comprimento é exatamente 3 caracteres\n-------\n";
print "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
print " Este exemplo tenta quebrar a MD5 informada com praticamente todos os caracteres\n";
print " O MD5 Crack tenta apenas Combinacoes com comprimento de 1 a 10 caracteres\n";
die "\n\n\Bjonn By: -n4sss-\n";
}

sub crack{
$CharSet = shift;
@RawString = ();
for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}
$Start = gettimeofday();
do{
for (my $i =0;$i<$CharSet;$i++){
if ($RawString[$i] > length($alpha)-1){
if ($i==$CharSet-1){
print "Bruteforcing Terminado com $CharSet Caracters. Sem resultados.\n";
$cnt=0;
return false;
}
$RawString[$i+1]++;
$RawString[$i]=0;
}
}
################################################## #
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\segundos.\tUltimo Password '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}
print "$ARGV[3] != $hash ($ret)\n";
if ($ARGV[3] eq $hash){
die "\n**** Password Cr4ck3d! => $ret\n";
}
################################################## #
#checkhash($CharSet)."\n";

$RawString[0]++;
}while($RawString[$CharSet-1]<length($alpha));
}

sub checkhash{
$CharSet = shift;
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
$cnt = int($cnt/$dbgtmr);
print "$cnt hashes\\segundos.\tUltimo Password '$ret\'\n";
$cnt=0;
$Start = gettimeofday();
}

if ($ARGV[3] eq $hash){
die "\n**** Achamos!!! Password Cr4ck3d! => $ret\n";
}

}

Qualquer coisa post aee!
Abraço!!!

[707h]

Muito bom, vai ser de muita utilidade pra min

Valeo

[s0d]

para utilizar salvo o arquivo com qual extensão?

[n4sss]

nomedepreferencia.pl

pelo windows execute com active perl.

Abraço