|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Zychenkov 2:5020/400 11 Jul 2000 22:54:22
To : All
Subject : как вытащить пароль из .htpasswd ?
--------------------------------------------------------------------------------
Стоит Апач под Win32; есть файл .htpasswd; папка со скриптом закрыта паролем
из этого файла (AuthType Basic); имя пользователя беру из $ENV {REMOTE_USER}
Проблема в том что я для паролей пока юзаю plaintext, хотелось бы закриптить
их MD5, как потом с ними работать ? В доке к Эктив перлу нашел:
if (crypt($word, $salt) ne $pwd) {
die "Sorry...\n";
} else {
print "ok\n";
}
т.е насколько я понял нужно знать упакованный пароль, вычислить $salt и
далее проверить $word на соответствие $pwd, под *nix'ом наверно все ок ;)
далее пошли грабли с форточками: $pwd = (getpwuid($<))[1]; не катит это
понятно, можно ли вытащить пароль из .htpasswd ?
- start .htpasswd -
Vasya:$apr1$7y1.....$hISIR87Rwwlf3t.yEkS/71
- end .htpasswd -
далее $salt = substr($pwd, 0, 2); вроде так в доке написано и должно
работать, если первую проблему решить, тогда наверное все ок.
Буду очень признателен за помощь...
--- ifmail v.2.15dev5
* Origin: Artelecom-Internet News Server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
