2

以下のスキームのパスワードを含むユーザーログイン情報を格納するテーブルがあります

  • {crypt}ハッシュ化されたパスワード
  • {ssha}ハッシュ化されたパスワード塩漬け
  • {md5}ハッシュ化されたパスワード
  • .....

このスキームを理解し、プレーンテキストのパスワードを指定してパスワードを検証できるperl モジュールはありますか?

何かのようなもの

print "success!!\n" if validatePassword("helloworld",{CRYPT}r2sKInajXZ6Fk)

ありがとう。

4

1 に答える 1

6

Authen::パスフレーズはこれを行うことができます:

use Authen::Passphrase;

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