diff options
author | Jesse Luehrs <doy@tozt.net> | 2016-05-22 20:01:43 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2016-05-22 20:01:43 -0400 |
commit | 6d49e45380bbcd75f7621ab1690bd9652e3d414d (patch) | |
tree | f245800e15a3202f262b2a70bbfd4b635bd8d0d9 /lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm | |
parent | 6a602695f085912438c6636394d24e44660585d7 (diff) | |
parent | 6db6275045f4e71752bc890a4ccea643779e5010 (diff) | |
download | spreadsheet-parsexlsx-6d49e45380bbcd75f7621ab1690bd9652e3d414d.tar.gz spreadsheet-parsexlsx-6d49e45380bbcd75f7621ab1690bd9652e3d414d.zip |
Merge pull request #51 from mazurin/master
Attempt to correct the issue #50 (Encryption fails with perl-5.22.1 on HP-UX-ia64)
Diffstat (limited to 'lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm b/lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm index 9c1c381..b637a0b 100644 --- a/lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm +++ b/lib/Spreadsheet/ParseXLSX/Decryptor/Standard.pm @@ -47,7 +47,7 @@ sub _generateDecryptionKey { unless ($self->{pregeneratedKey}) { $hash = $self->{hashProc}->($self->{salt} . Encode::encode('UTF-16LE', $self->{password})); for (my $i = 0; $i < $self->{spinCount}; $i++) { - $hash = $self->{hashProc}->(pack('L', $i) . $hash); + $hash = $self->{hashProc}->(pack('L<', $i) . $hash); } $self->{pregeneratedKey} = $hash; } |