我有一个存储用户登录信息的表,其中包含以下方案中的密码:
- {crypt}散列密码
- {ssha}散列密码加盐
- {md5}散列密码
- .....
是否有 Perl 模块可以理解此方案并能够验证给定纯文本密码的密码?
就像是
打印“成功!!\n” if validatePassword("helloworld",{CRYPT}r2sKInajXZ6Fk)
验证::密码 http://search.cpan.org/perldoc?Authen::Passphrase可以这样做:
use Authen::Passphrase;
print "success!!\n"
if Authen::Passphrase->from_rfc2307('{CRYPT}r2sKInajXZ6Fk')->match("helloworld");
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)