使用GOST与Crypt :: CBC

Question

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

Answer 1

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

这可以在这里工作：

#!/usr/bin/perl

use strict;
use warnings;

use Crypt::CBC;

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