将Java字节转换为Perl

Question

有一个用Java编写的程序压缩然后使用密码openssl aes进行加密。

我在Perl中编写一个程序，它将解密然后解压缩。

我在解密部分时遇到问题，并且认为它与IV的Java字节转换有关。

注意：我对Java语言一无所知。

Java的：

static byte[] IV = new byte[] {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};

Perl的：

my $iv = pack('b128', 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);

我已尝试过上面和其他一些组合，但似乎没有正确的IV。

请告诉我如何正确进行转换。

Answer 1

您可以在文档中阅读有关pack的内容。

b对应于pack上下文中的位字符串 ，这可能不是您想要的。 perlpacktut中有一个示例如下所示：

$byte = pack( 'B8', '10001100' ); # start with MSB
$byte = pack( 'b8', '00110001' ); # start with LSB

您可能能够使用对应于signed char（8位）值的 c 。

my $iv = pack('c16', 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
print unpack 'c16', $iv;

我认为这与此Java代码类似：

import java.lang.Byte;
import java.util.Arrays;
public class ByteStuff{

     public static void main(String []args){

        byte[] IV = new byte[] {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};
         System.out.println(Arrays.toString(IV));
     }
}