Mega Code Archive

 

Categories / Perl / System Functions

 

Test a UNIX password

$pass = "password";     ($encstring) = (getpwnam("stephen"))[1];     $salt = substr($encstring,0,2);     $encpass = substr($encstring,2);     $newencpass = crypt($pass,$salt);     if($encstring eq $newencpass)     {         print "Correct\n";     }     else     {         print "Incorrect\n";     }