MoOnCrack

Publicado por joe roots 06/09/2007

[ Hits: 4.406 ]

Homepage: www.google.com.br

Download MoOnCrack1.0.pl




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.

  



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

Scripts recomendados

Eterm sem bordas

Testando a agilidade do sistema de arquivos

MyBF - Interpretador de BrainFuck

Índice (Logaritmo Discreto) em Perl

randmusic.pl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts