2 
$key = "12345678876543211234567887654321";
$iv = "1234567887654321";
$plaindata = "String to be encrypted.";

$enc = base64_encode(mcrypt_encrypt(MCRYPT_RIJNDAEL_128, $key, $plaindata, MCRYPT_MODE_CBC, $iv));

echo($enc);

输出：

EIZDQJWOIepUeNjFL2wl3RYA5bDmFd05Xu6z4e0aiWQ=

这怎么可以在 Perl 中解密？？？

4

2 回答 2

2

看起来您需要MIME::Base64和MCrypt的组合。

于 2012-05-15T15:20:18.837 回答
1

cpan 中有一个包 .. MCrypt

http://search.cpan.org/perldoc?MCrypt

看一下这个

于 2012-05-15T13:57:50.403 回答