use Crypt::OpenSSL::*AES
*
my $cipher = new Crypt::OpenSSL::AES($key);
$encrypted = $cipher->encrypt($plaintext)
$decrypted = $cipher->decrypt($encrypted)
AES 的速度不是特别快,但是 openssl 应该值得信任。
2009/2/22 Jedy <[email protected]>
> 可以使用rc4,速度快,但安全性较弱。
> cpan上有模块。
>
> 2009/2/21 imxae <[email protected]>
>
>> 如可原字符串长度一定,像base64编码,也是一种算法,只是不能自己添加key来变换加密后的字串.
>>
>> 如果对定长没有要求,只要求能用key来加密解密的算法,不知道perl有不?
>>
>>
>>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖,请发电子邮件到 [email protected]
要退订此论坛,请发邮件至 [email protected]
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---