|
ru.unix.bsd- RU.UNIX.BSD ------------------------------------------------------------------ From : Alex Masterov 2:5002/63 20 Jun 2003 09:46:52 To : Alexei Vi. Subject : Crypt как в master.passwd -------------------------------------------------------------------------------- Replying to a message of Alexei Vi. to All: AV> Хочу организовать сверку введенного узером пароля с master.passwd - AV> шным, на локальном серванте. [skip] AV> Hу и если есть AV> готовое перловое решение, AV> ткните носом. === Here's an example that makes sure that whoever runs this program knows their own password: $pwd = (getpwuid($<))[1]; system "stty -echo"; print "Password: "; chomp($word = <STDIN>); print "\n"; system "stty echo"; if (crypt($word, $pwd) ne $pwd) { die "Sorry...\n"; } else { print "ok\n"; } === См. perldoc -f crypt С уважением, Alex. --- FleetStreet 1.27.1 * Origin: Карфаген должен быть разрушен! (2:5002/63) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.unix.bsd/18183ef2e804.html, оценка из 5, голосов 10
|