PHP:PEAR:使用Crypt_CBC加密,使用Perl的CBC解密

require_once 'Crypt/CBC.php';

$key = 'my secret key';
$iv = '1234567890123456';
$plaintext = 'This is a secret message';

$cipher = new Crypt_CBC(CRYPT_MODE_ECB);
$cipher->setKey($key);
$cipher->setIV($iv);
$cipher->setCipher(CRYPT_CIPHER_BLOWFISH);

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

use Crypt::CBC;

my $key = 'my secret key';
my $iv = '1234567890123456';
my $ciphertext = 'encrypted message';

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

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