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 访问该论坛
-~----------~----~----~----~------~----~------~--~---

回复