diff options
author | Alexey Mazurin <mazurin.alexey@gmail.com> | 2015-12-29 17:48:22 +0400 |
---|---|---|
committer | Alexey Mazurin <mazurin.alexey@gmail.com> | 2015-12-29 17:48:22 +0400 |
commit | 6db6275045f4e71752bc890a4ccea643779e5010 (patch) | |
tree | cd89d2b008eb3fcda46059599029576db943244b /lib/Spreadsheet/ParseXLSX/Decryptor.pm | |
parent | 81054c945a6ebf7a7d9d55a9393c76e3951b6766 (diff) | |
download | spreadsheet-parsexlsx-6db6275045f4e71752bc890a4ccea643779e5010.tar.gz spreadsheet-parsexlsx-6db6275045f4e71752bc890a4ccea643779e5010.zip |
replace in pack() "V" to "L<"
Diffstat (limited to 'lib/Spreadsheet/ParseXLSX/Decryptor.pm')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX/Decryptor.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Spreadsheet/ParseXLSX/Decryptor.pm b/lib/Spreadsheet/ParseXLSX/Decryptor.pm index fd97fac..6d09800 100644 --- a/lib/Spreadsheet/ParseXLSX/Decryptor.pm +++ b/lib/Spreadsheet/ParseXLSX/Decryptor.pm @@ -27,7 +27,7 @@ sub open { my $buffer; $infoFH->read($buffer, 8); - my ($majorVers, $minorVers) = unpack('vv', $buffer); + my ($majorVers, $minorVers) = unpack('s<s<', $buffer); my $xlsx; if ($majorVers == 4 && $minorVers == 4) { @@ -70,13 +70,13 @@ sub _standardDecryption { my $buffer; my $n = $infoFH->read($buffer, 24); - my ($encryptionHeaderSize, undef, undef, $algID, $algIDHash, $keyBits) = unpack('VVVVVV', $buffer); + my ($encryptionHeaderSize, undef, undef, $algID, $algIDHash, $keyBits) = unpack('L<*', $buffer); $infoFH->seek($encryptionHeaderSize - 0x14, IO::File::SEEK_CUR); $infoFH->read($buffer, 4); - my $saltSize = unpack('V', $buffer); + my $saltSize = unpack('L<', $buffer); my ($salt, $encryptedVerifier, $verifierHashSize, $encryptedVerifierHash); @@ -84,7 +84,7 @@ sub _standardDecryption { $infoFH->read($encryptedVerifier, 16); $infoFH->read($buffer, 4); - $verifierHashSize = unpack('V', $buffer); + $verifierHashSize = unpack('L<', $buffer); $infoFH->read($encryptedVerifierHash, 32); $infoFH->close(); @@ -120,7 +120,7 @@ sub _standardDecryption { my $inbuf; $packageFH->read($inbuf, 8); - my $fileSize = unpack('V', $inbuf); + my $fileSize = unpack('L<', $inbuf); $decryptor->decryptFile($packageFH, $fh, 1024, $fileSize); @@ -174,7 +174,7 @@ sub _agileDecryption { my $inbuf; $packageFH->read($inbuf, 8); - my $fileSize = unpack('V', $inbuf); + my $fileSize = unpack('L<', $inbuf); $fileDecryptor->decryptFile($packageFH, $fh, 4096, $key, $fileSize); |