Perl DES CBC加密会产生更多字节

Question

我正在使用Perl使用Crypt:：CBC库执行CBC DES加密：

#!/usr/bin/perl
use Crypt::CBC;
$key  = "\x4A\x6F\xC2\x2A\x44\xE2\xA4\x48"; 
$iv   = "\x00\x00\x00\x00\x00\x00\x00\x00";
$data = "\x51\x55\x45\x53\x54\x49\x4F\x4E";

print "TXT->", $data, "\n";
print "HEX->", unpack("H*", $data), "\n";
$cipher = Crypt::CBC->new(-literal_key => 1,
                    -key         => $key,
                    -iv          => $iv,
                    -header      => 'none');

$ciphertext = $cipher->encrypt($data);
print "ENC->", unpack("H*", $ciphertext), "\n";

代码的输出为：

TXT->QUESTION
HEX->5155455354494f4e
ENC->8220553e09f1b31ba7691f3f7fb52416

我的数据大小为64位（16位十六进制数字），符合DES标准。根据维基百科

DES是一种典型的分组密码算法，它获取一个固定长度的明文位串，并通过一系列复杂的操作将其转换成另一个相同长度的密文位串

为什么编码输出的字节长度比原始输入长？

谢谢

Answer 1

加密的消息较长，因为它包括IV。顺便说一句，固定的IV没有意义，它应该是随机的，并且为每条消息新生成。

Answer 2

从第二个块（a7691f3f7fb52416）向后工作得到8a285d3601f9bb13，与第一个块（8220553e09f1b31b）异或得到08080808（十六进制）。有东西正在生成块值08080808作为第二个输入块值。

因此，您所要做的就是找出退格字符作为第二个块输入的来源。

看见https://metacpan.org/pod/Crypt::CBC

这：

#!/usr/bin/perl

use Crypt::CBC;
$key  = "\x4A\x6F\xC2\x2A\x44\xE2\xA4\x48"; 
$iv   = "\x00\x00\x00\x00\x00\x00\x00\x00";
$data = "\x51\x55\x45\x53\x54\x49\x4F\x4E";

print "TXT->", $data, "\n";
print "HEX->", unpack("H*", $data), "\n";
$cipher = Crypt::CBC->new(-literal_key => 1,
                    -key         => $key,
                    -iv          => $iv,
                    -header      => 'none',
                    -padding     => 'null');

$ciphertext = $cipher->encrypt($data);

print "ENC->", unpack("H*", $ciphertext), "\n";

给予：

david_koontz@Macbook：cbc_des
TXT-

我犯了一个错误，因为我对DES了解很多，而对perl了解不多。

在我学习了如何将Crypt:：CBC和Crypt:：DES添加到perl库中之后，添加padding null似乎就达到了目的。

我曾经http://code.google.com/p/dpades/source/browse/trunk/simu_js/JS-DES.html进行必要的加密和解密以了解发生了什么。使用查看原始文件按钮并保存JS-DES。本地html，用浏览器打开它。