Looking at Utils.pm, this is the offending section of code:
sub cryptPassword($) {
my ($clearPassword) = @_;
#Use an SHA512 salt with 16 digits
my $salt = '$6$';
for (my $i=0; $i<16; $i++) {
$salt .= ('.','/','0'..'9','A'..'Z','a'..'z')[rand 64];
}
my $cryptPassword = crypt($clearPassword, $salt);
return $cryptPassword;
}
I also see that "use Encode qw(encode_utf8 decode_utf8);" is loaded, might the following modification solve the error?
sub cryptPassword($) {
my ($clearPassword) = @_;
$clearPassword = encode_utf8($clearPassword);
#Use an SHA512 salt with 16 digits
my $salt = '$6$';
for (my $i=0; $i<16; $i++) {
$salt .= ('.','/','0'..'9','A'..'Z','a'..'z')[rand 64];
}
my $cryptPassword = crypt($clearPassword, $salt);
return $cryptPassword;
}