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 に答える