##################################################
# #
# Simple /etc/shadow unix password crack in perl #
# #
# Fes. Morocco 1998 #
# #
# By _6mO_HaCk #
# #
##################################################
print ("\n--- perl /etc/shadow cracker");
print ("\n---");
print ("\n--- Coded By _6mO_HaCk");
if ($#ARGV < 0) {
usage();
exit;
}
$passlist = $ARGV[0];
$wordlist = $ARGV[1];
getpasslist($passlist, $wordlist);
sub getpasslist{
open (PWD, $passlist) or die print " Password File not found ", $passlist, "\n";
while (<PWD>)
{
($fname, $encrypted, $uid, $gid, $cos, $home, $shell) = split ( /:/);
getwordlist($encrypted, $fname);
}
close (PWD);
}
sub getwordlist{
open (WRD, $wordlist) or die print " Wordfile not found ", $wordlist, "\n" ;
while (<WRD>)
{
($password) = split (/,/);
chop($password);
$encword = crypt ($password, $encrypted);
if ($encword eq $encrypted)
{
print "Username :",$fname, " \t ------ \aPass : ", $password, "\n";
}
}
close (WRD);
}
sub usage {
print "\n";
print "--- Usage : perl cr4ckp455 PASSWORDFILE WORDFILE\n";
print "--- Exp : perl cr4ckp455 /etc/shadow word.lst\n";
print "\n";
}
salu2
Hola, ese Shadow Decrypter era bueno en su tiempo pero si te fijas es del 1998 ya Linux o por lo menos el Kernel han hecho un mejor trabajo en esconder el password, por lo tanto queda un poco obsoleto, pero Gracias!
uff ya hace 10 años xD
que kernel se usaba en ese tiempo cual era el estable en ese tiempo ?
pero por ahi pueden haber usuarios que aun usen distribuciones del 98
xD...es buena su preocupacion pero bro el team se llama asi xD Creanme que no es un decrypter viejo ;)
salu2