Fix support for contemporary salts

This commit is contained in:
Ilia
2022-06-15 23:27:04 +03:00
parent 6402eb9e9b
commit 9785382828

View File

@@ -11001,7 +11001,7 @@ string.
sub unix_crypt
{
my ($pass, $salt) = @_;
return "" if ($salt !~ /^[a-zA-Z0-9\.\/]{2}/); # same as real crypt
return "" if ($salt !~ /^[\$a-zA-Z0-9\.\/]{2}/); # same as real crypt
my $rv = eval "crypt(\$pass, \$salt)";
my $err = $@;
return $rv if ($rv && !$@);