Справочник по функциям Perl

Функция выполняет однонаправленное шифрование строки с использованием системной функции crypt библиотеки С. Функция обычно используется для проверки записей парольного файла.

ПРИМЕЧАНИЕ
Функции, реализующей обратное преобразование (расшифровывающей запись), на сегодняшний день не существует.

Ниже приведен пример, в котором проверяется знание собственного системного пароля лицом, запускающим программу:

$pwd = (getpwuid($<))[1];
$salt =  substr($pwd, 0, 2);
system "stty -echo";
print "Пароль: ";
chop($word = <STDIN>);
print "\n";
system "stty echo";
if (crypt ($word, $salt) ne $pwd) {
  die  "У,  шпионская рожа...\n";
}
else  {
         print  "Все в  порядке!\n";
      }

ПРИМЕЧАНИЕ
Пожалуйста, не используйте подобный подход в своих программах. Ввод в систему открытым текстом пароля в ответ на запрос непонятно кому принадлежащей программы может привести к весьма неприятным последствиям!

crypt

Синтаксис

Описание