17 lines
318 B
Perl
17 lines
318 B
Perl
|
$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";
|
||
|
|
}
|