Есть ли модуль perl для проверки паролей, хранящихся в "{crypt} hashedpassword" "{ssha} hashedpassword" "{md5} hashedpassword" - PullRequest
Новая
       38

Есть ли модуль perl для проверки паролей, хранящихся в "{crypt} hashedpassword" "{ssha} hashedpassword" "{md5} hashedpassword"

2 голосов
/ 28 апреля 2011

У меня есть таблица, в которой хранится информация о входе пользователя в систему, которая содержит пароли в схеме ниже

  • {крипта} hashedpassword
  • {SSHA} hashedpasswordsalted
  • {md5} hashedpassword
  • .....

Существует ли модуль perl , который понимает эту схему и может подтвердить пароль, используя простой текстовый пароль?

Что-то вроде

напечатать "success !! \ n", если validatePassword ("helloworld", {CRYPT} r2sKInajXZ6Fk)

Спасибо.

1 Ответ

6 голосов
/ 28 апреля 2011

Authen :: Passphrase может сделать это: 

use Authen::Passphrase;

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