1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Spreadsheet/ParseXLSX/Decryptor.pm b/lib/Spreadsheet/ParseXLSX/Decryptor.pm
index 7870685..4968a7d 100644
--- a/lib/Spreadsheet/ParseXLSX/Decryptor.pm
+++ b/lib/Spreadsheet/ParseXLSX/Decryptor.pm
@@ -29,7 +29,7 @@ sub open {
 
     my $buffer;
     $infoFH->read($buffer, 8);
-    my ($majorVers, $minorVers) = unpack('SS', $buffer);
+    my ($majorVers, $minorVers) = unpack('s<s<', $buffer);
 
     my $xlsx;
     if ($majorVers == 4 && $minorVers == 4) {
@@ -72,13 +72,13 @@ sub _standardDecryption {
     my $buffer;
     my $n = $infoFH->read($buffer, 24);
 
-    my ($encryptionHeaderSize, undef, undef, $algID, $algIDHash, $keyBits) = unpack('LLLLLL', $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('L', $buffer);
+    my $saltSize = unpack('L<', $buffer);
 
     my ($salt, $encryptedVerifier, $verifierHashSize, $encryptedVerifierHash);
 
@@ -86,7 +86,7 @@ sub _standardDecryption {
     $infoFH->read($encryptedVerifier, 16);
 
     $infoFH->read($buffer, 4);
-    $verifierHashSize = unpack('L', $buffer);
+    $verifierHashSize = unpack('L<', $buffer);
 
     $infoFH->read($encryptedVerifierHash, 32);
     $infoFH->close();
@@ -122,7 +122,7 @@ sub _standardDecryption {
 
     my $inbuf;
     $packageFH->read($inbuf, 8);
-    my $fileSize = unpack('L', $inbuf);
+    my $fileSize = unpack('L<', $inbuf);
 
     $decryptor->decryptFile($packageFH, $fh, 1024, $fileSize);
 
@@ -176,7 +176,7 @@ sub _agileDecryption {
 
     my $inbuf;
     $packageFH->read($inbuf, 8);
-    my $fileSize = unpack('L', $inbuf);
+    my $fileSize = unpack('L<', $inbuf);
 
     $fileDecryptor->decryptFile($packageFH, $fh, 4096, $key, $fileSize);