Código:
#!/usr/bin/perl -w #Coded by andreol263 use Digest::MD5 qw(md5 md5_hex md5_base64); print "\tMD5 Bruteforce\n\n"; print "[+]Insert the hash to be brute-forced below:\n"; chomp($hash = <STDIN>); if(length($hash) != 32){ die "[!]This is not a MD5 Hash!\n"; } print "[+]Insert the location of the wordlist:\n"; chomp($dir = <STDIN>); unless (-e $dir){ die "[!]This file doesn't exists!\n"; } open $OPEN, "<", $dir; my @bru = <$OPEN>; foreach $i (@bru) { print "[+]Testing:$i\n"; $brut = md5_hex($i); if($brut =~ $hash){ print "\n[+]Founded the key:$i\n"; } }
E um simples MD5 Brute-forcer que pega de uma wordlist as senhas e as encrypta em MD5 e compara uma por uma com a hash original, tem 25 linhas, extremamente compacta, otima para estudos!!
Comment