[PerlChina] Re: 请教perl字符串加密算法..于小弟是初学者,学习加密时遇到问题,现求教之:

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 <jedywu@gmail.com>

可以使用rc4，速度快，但安全性较弱。
cpan上有模块。

2009/2/21 imxae <imx365ster@gmail.com>

如可原字符串长度一定,像base64编码,也是一种算法,只是不能自己添加key来变换加密后的字串.

如果对定长没有要求,只要求能用key来加密解密的算法,不知道perl有不?

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---