fix RegEx
This commit is contained in:
parent
8e51dcd731
commit
778b89658f
@ -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) );
|
||||
|
Loading…
x
Reference in New Issue
Block a user