Test a UNIX password : getpwnam « System Functions « Perl

1. Perl
2. System Functions
3. getpwnam

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";
    }

   
    
    
    
    
    
  

Related examples in the same category