Olhando algums scripts que geravam md5, surgiu-me uma idéia!

Então criei o MoOnCrack1.0... o propósito desse script é totalmente educacional, apenas para você saber com funciona a descoberta de senhas
pelas wordlists.

• Download MoOnCrack1.0.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);
system("clear");
print "BC - MoOnCrack 1.0 - Be.Cool Lab's\n";
print "Crack de Md5 =) Testado satisfatoriamente em ambiente linux \n";
print "Good Luck ;) \n\n\n";
print "Digite o arquivo de palavras\n";
$palavras=<STDIN>;
chomp $palavras;
print "Digite o hash\n";
$hash=<STDIN>;
chomp $hash;
open (wordlist,$palavras) or die "Erro ao abrir lista de palavras";
@vai = <wordlist>;
close(wordlist) ;

foreach $wl(@vai)
{
chomp($wl);
$temp=md5_hex("$wl");
if ($hash eq $temp)
{
print "Hash quebrado com sucesso\n";
print "A senha é: $wl\n";
print "O hash original é : $hash\n";
print "O hash final é : $temp\n";
exit(0);
}
}
print "Não foi possivel quebrar o hash =/\n";

Weather Channel for Torsmo

Verificação se utilizador existe ou não

Índice (Logaritmo Discreto) em Perl

Remover lista de pacotes do Portage

Algoritmo de Euclides estendido em Perl

Nenhum comentário foi encontrado.