Fixed spacing
This commit is contained in:
@@ -20,7 +20,7 @@ sub module_generate_hash
|
||||
|
||||
my $salt_bin = pack ("H*", $salt);
|
||||
|
||||
my $digest = sha1_hex (encode ("UTF-16LE", uc($word)) . $salt_bin);
|
||||
my $digest = sha1_hex (encode ("UTF-16LE", uc ($word)) . $salt_bin);
|
||||
|
||||
my $hash = sprintf ("0x0100%s%s%s", $salt, "0" x 40, $digest);
|
||||
|
||||
|
||||
@@ -33,9 +33,9 @@ sub module_verify_hash
|
||||
|
||||
my ($digest, $word) = split (':', $line);
|
||||
|
||||
my $salt = substr($digest, 6, 8);
|
||||
my $salt = substr ($digest, 6, 8);
|
||||
|
||||
my $hash = substr($digest, 14);
|
||||
my $hash = substr ($digest, 14);
|
||||
|
||||
return unless defined $hash;
|
||||
return unless defined $salt;
|
||||
|
||||
Reference in New Issue
Block a user