我有一个存储用户登录信息的表,其中包含以下方案中的密码:
是否有一个Perl模块能够理解这个方案,并且能够验证给定的纯文本密码的密码?就像打印“成功!!\n”if validatePassword(“helloworld”,{CRYPT}r2sKInajXZ6Fk)
f5emj3cl1#
Authen::Passphrase可以这样做:
use Authen::Passphrase; print "success!!\n" if Authen::Passphrase->from_rfc2307('{CRYPT}r2sKInajXZ6Fk')->match("helloworld");
1条答案
按热度按时间f5emj3cl1#
Authen::Passphrase可以这样做: