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";

Algoritmo de Euclides estendido em Perl

Configurar ADB no linux

Índice (Logaritmo Discreto) em Perl

Randomize MP3

Calculadora com Perl com menos de 10 linhas de código

Nenhum comentário foi encontrado.