Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Системное программирование > Blowfish и Perl


Автор: boor 5.10.2005, 03:57
Суть скрипта проста. Нужно сравнить строку (пароль) со строкой, лежащей в master.passwd.
Выдернуть хеш из master.passwd проблем не составляет, а вот каким образом зашифровать передаваемую скрипту строку с помощью blowfish'а, что бы потом в последствии сравнить ее с хешем из файла паролей?

Автор: sharq 5.10.2005, 15:39
Нужен тебе модуль Crypt::Blowfish.

Код

  use Crypt::Blowfish;
  my $cipher = new Crypt::Blowfish $key; 
  my $ciphertext = $cipher->encrypt($plaintext);
  my $plaintext  = $cipher->decrypt($ciphertext);


smile

Автор: arto 10.10.2005, 12:37
perldoc -f crypt

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)