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

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

Listar arquivos

Login AUDIT

Índice (Logaritmo Discreto) em Perl

Nenhum coment�rio foi encontrado.