php - 在 Perl 和 PHP 之间解码/编码 openssl aes cbc 字符串

Question

我正在用 PHP 编写一些服务器代码，我有一个用 Perl 编写的离线进程，它们需要通过加密字符串进行通信。在 PHP 中我一直在使用:

$encrypted_string = openssl_encrypt($my_string, "aes-128-cbc", "my_password", true, "1234567812345678");

我基本上想使用 Perl 实现完全相同的字符串输出。对我如何做到这一点的任何帮助表示赞赏。谢谢!

Answer 1

我想通了，现在可以在 Perl 和 PHP 中重现相同的加密字符串输出:

Perl:

use Crypt::CBC;use MIME::Base64;my $cipher = Crypt::CBC->new(    {        'key'         => 'length16length16',        'cipher'      => 'Crypt::OpenSSL::AES',        'iv'          => '1234567812345678',        'literal_key' => 1,        'header'      => 'none',        keysize       => 128 / 8    });print encode_base64($cipher->encrypt($my_string), "");

PHP:

echo openssl_encrypt($my_string, "aes-128-cbc", "length16length16", true, "1234567812345678");