是否有一个 perl 模块来验证存储在“{crypt}hashedpassword”中的密码？ “{ssha}散列密码” “{md5}散列密码”

Question

我有一个存储用户登录信息的表，其中包含以下方案中的密码：

• {crypt}hashedpassword
• {ssha}hashedpasswordsalted
• {md5}hashedpassword
• .....

是否有一个 Perl 模块可以理解此方案并能够验证给出明文密码的密码？

像这样的东西

如果 validatePassword("helloworld",{CRYPT}r2sKInajXZ6Fk) 则打印“成功！！\n”

Answer 1

Authen::Passphrase 可以做到这一点：

use Authen::Passphrase;

print "success!!\n" 
  if Authen::Passphrase->from_rfc2307('{CRYPT}r2sKInajXZ6Fk')->match("helloworld");