linux - perl加密脚本IDEA

Question

大家好，我正在制作一个 perl 脚本来加密和解密文本，我刚刚开始我有这个:

#!/usr/bin/perl

use Crypt::IDEA;

my $key = pack("H32", "0123456789ABCDEF0123456789ABCDEF");
my $cipher = new IDEA $key;
my $palabra= "plaintex";
my $ciphertext = $cipher->encrypt($palabra);  # NB - 8 bytes

print unpack("H16", $ciphertext), "\n";

my $plaintext = $cipher->decrypt($ciphertext);

print $plaintext , "\n";

问题是要加密的文本必须是 8 个字节的长度。为什么？如果我用“plaintext”代替“plaintex”，就会出现错误。

input must be 8 bytes long at /usr/lib/perl5/site_perl/Crypt/IDEA.pm line 62.

Answer 1

用 Crypt::CBC 包装 Crypt::IDEA - 它将允许使用非对齐的数据长度。参见 doc for Crypt::CBC .

这是因为 IDEA 和许多其他 crypt 算法都是 block 加密算法。这意味着它们使用指定大小的数据 block 进行操作，因此必须准备好您加密的数据(用零或其他内容填充)