crypt_passwd.pl (mrbs-1.9.4) | : | crypt_passwd.pl (mrbs-1.10.0) | ||
---|---|---|---|---|
skipping to change at line 52 | skipping to change at line 52 | |||
if (m/^([^:]+):(.*)$/) | if (m/^([^:]+):(.*)$/) | |||
{ | { | |||
my $user = $1; | my $user = $1; | |||
my $crypt = $2; | my $crypt = $2; | |||
if ($user eq $username) | if ($user eq $username) | |||
{ | { | |||
if (crypt($password, $crypt) eq $crypt) | if (crypt($password, $crypt) eq $crypt) | |||
{ | { | |||
$retcode = 0; | $retcode = 0; | |||
last; | last; | |||
} | } | |||
else | else | |||
{ | { | |||
last; | last; | |||
} | } | |||
} | } | |||
} | } | |||
} | } | |||
close PASSWD; | close PASSWD; | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |