我有一个存储用户登录信息的表,其中包含以下方案中的密码
- {crypt}哈希密码
- {ssha}hashedpasswordsalted
- {md5}哈希密码
- ......
是否有一个perl 模块可以理解这个方案并且能够验证给定纯文本密码的密码?
就像是
如果 validatePassword("helloworld",{CRYPT}r2sKInajXZ6Fk) 打印“成功!!\n”
谢谢。
我有一个存储用户登录信息的表,其中包含以下方案中的密码
是否有一个perl 模块可以理解这个方案并且能够验证给定纯文本密码的密码?
就像是
如果 validatePassword("helloworld",{CRYPT}r2sKInajXZ6Fk) 打印“成功!!\n”
谢谢。
Authen::Passphrase可以这样做:
use Authen::Passphrase;
print "success!!\n"
if Authen::Passphrase->from_rfc2307('{CRYPT}r2sKInajXZ6Fk')->match("helloworld");