2

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

  • {crypt}哈希密码
  • {ssha}hashedpasswordsalted
  • {md5}哈希密码
  • ......

是否有一个perl 模块可以理解这个方案并且能够验证给定纯文本密码的密码?

就像是

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

谢谢。

4

1 回答 1

6

Authen::Passphrase可以这样做:

use Authen::Passphrase;

print "success!!\n" 
  if Authen::Passphrase->from_rfc2307('{CRYPT}r2sKInajXZ6Fk')->match("helloworld");
于 2011-04-28T07:59:28.803 回答