fix RegEx

This commit is contained in:
Marko Oldenburg 2021-03-26 14:16:17 +01:00
parent 8e51dcd731
commit 778b89658f

View File

@ -71,7 +71,7 @@ sub setStorePassword {
$key .= Digest::MD5::md5_hex($key);
}
for my $char ( split /q{}/, $password ) {
for my $char ( split //, $password ) {
my $encode = chop($key);
$enc_pwd .= sprintf( "%.2x", ord($char) ^ ord($encode) );