如何打包128位或256位数字

时间:2011-04-13 00:39:23

标签: perl pack

是否可以使用perl内置包打包128位或256位数字(使用Crypt :: Random :: makerandom生成的AES键/ ivs)?如果是,我的模板X应该在

pack('X', ($256_bit_number)); 

谢谢。

1 个答案:

答案 0 :(得分:11)

Perl不能保存那么大的数字,所以它不可能打包它们。

那么让我们看一下makerandom实际返回的内容。

$ perl -MData::Dumper -MCrypt::Random=makerandom \
   -e'print(Dumper(makerandom(Size => 256, Strength => 1)));'
$VAR1 = bless( do{\(my $o = 148076988)}, 'Math::Pari' );

啊,一个Math::Pari对象。看一下这些文档,似乎没有一种简单的方法来打包它们。但看起来我们没有必要。 Crypt::Random提供makerandom_octet,返回“已打包”号码。

$ perl -MCrypt::Random=makerandom_octet \
   -e'print(unpack("H*", makerandom_octet(Size => 256, Strength => 1)));'
1432698ef28c63d9cb0bba474c1644b4a6f9736616bd070102a612785332e94bb4