是否有perl模块来验证存储在“{crypt}hashedpassword”“{ssa}hashedpassword”“{md5}hashedpassword”中的密码

cyvaqqii  于 2023-06-23  发布在  Perl
关注(0)|答案(1)|浏览(113)

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

  • {crypt}hashedpassword
  • {ssa} hashedpassword salated
  • {md5}哈希密码
  • .....

是否有一个Perl模块能够理解这个方案,并且能够验证给定的纯文本密码的密码?
就像
打印“成功!!\n”if validatePassword(“helloworld”,{CRYPT}r2sKInajXZ6Fk)

f5emj3cl

f5emj3cl1#

Authen::Passphrase可以这样做:

use Authen::Passphrase;

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

相关问题