MD5 Salt Joomla by p0fk

md5(frase.salto)

#######################
#    Coded by p0fk    #
#    underc0de.org    #
#######################
use Digest::MD5;
system'clear';
#md5($passoriginal.$salto)
#md5(amigablementeiOgkBxi8OmQKzzth3MbYtQDJjESkJCOR)
#4687e2c2e5d6e80c91761dc006d4a90f
$dic  = $ARGV[0];
print"****************************************\n";
print"** joomla cracked with salt           **\n";
print"** Coded by p0fk | diccionario attack **\n";
print"****************************************\n\n";
print"hash : ";
$hash = <STDIN>;
chop($hash);
print"salto: ";
$salt = <STDIN>;
chop($salt);
open(DIC,'<',$dic);
print"Diccionario Attack!!!\n";
while($line=<DIC>) {
$i++;
chop($line);
$ctx = Digest::MD5->new;
$ctx->add($line.$salt);
$digest = $ctx->hexdigest;
if($digest =~ $hash){
print"Encontrado line: $i\nPassword: $line";
exit(0);
}}
print"PASSWORD NO ENCONTRADA!!!\n\n";