perl - 将 GOST 与 Crypt::CBC 一起使用

Question

我想在 Perl 中使用 GOST 加密算法。我尝试使用 RC4 和 Blowfish，没关系，但我宁愿使用 Crypt::CBC 不支持的 GOST 和 Elijah。如何使用 Crypt::CBC 接口与 GOST 进行加密和解密？

Answer 1

您可以在创建Crypt::CBC-object 时传递一个 cipher-Object。所以Crypt::GOST从 CPAN 安装并在那里使用它。

这在这里有效：

#!/usr/bin/perl

use strict;
use warnings;

use Crypt::CBC;

my $cipher = Crypt::CBC->new(-key => 'test', -cipher => 'GOST');