#!usr/bin/perl
use Digest::MD5 qw(md5 md5_hex md5_base64);
if(!$ARGV[2])
{
print "nn######################################### #### ##";
print "n# Joomla Hash Cracker v0.1 | Login-Root Pwnz #";
print "n########################################### #### ";
print "nnUso: perl $0 [DICCIONARIO] [HASH DEL PASSWORD] [SALT]n";
print "Example: perl $0 bigdict.txt 564a07cacebf7f73fa6560acf4b5425c oNYXZzaVxilfagDkvVAa74kLAVI8qQ92nn";
exit(0);
}
$dict = $ARGV[0];
$hash = $ARGV[1];
$salt = $ARGV[2];
open(DICT,"<".$dict) || die "n[-] No se encuentra el diccionarionn";
print "n[!] Cracking...";
foreach $password()
{
$password=~s/s|n//;
chomp($password);
$cracked = md5_hex ($password.$salt);
if ($cracked eq $hash)
{
print "n[+] Hash cracked !: $passwordnn";
close(DICT);
exit(0);
}
}
print "n[-] Password not foundnn";
close(DICT);
exit (0);
__END__
