Forum Webscript.Ru

Программирование => Perl => Тема начата: NeoNox от 23 Мая 2001, 14:17:39

Название: Perl and htpasswd...
Отправлено: NeoNox от 23 Мая 2001, 14:17:39
Привет ALL!!!
Есть вопросец. Как зашифровать пароль в этот самом htpasswd. Кто еще сможет кусок кода кинуть-тому отдельный сенькс.
Название: Perl and htpasswd...
Отправлено: AliMamed от 23 Мая 2001, 14:32:58
crypt()
а вообще httpasswd это системная команда в никсе. ее можно вызвать через system
Название: Perl and htpasswd...
Отправлено: Chs от 23 Мая 2001, 14:38:57
Цитировать
NeoNox (23-05-2001 14:17):
Привет ALL!!!
Есть вопросец. Как зашифровать пароль в этот самом htpasswd. Кто еще сможет кусок кода кинуть-тому отдельный сенькс.
perldoc -f crypt
Название: Perl and htpasswd...
Отправлено: NeoNox от 23 Мая 2001, 14:42:57
а пример плз.
у меня вылазит любимая 500... :(
Название: Perl and htpasswd...
Отправлено: Chs от 23 Мая 2001, 15:22:49
Цитировать
NeoNox (23-05-2001 14:42):
а пример плз.
у меня вылазит любимая 500... :(
500 - это не ошибка.:)
Ошибки в логе сервера.
А пример тривиален как грабли:
#!/usr/bin/perl
$pass = "password";
$salt = join \'\', (\'.\', \'/\', 0..9, \'A\'..\'Z\', \'a\'..\'z\')[rand 64, rand 64];

$crpass = crypt($pass,$salt);

print "Content-type: text/plain

";
print $crpass;

С тебя пиво.:)
Название: Perl and htpasswd...
Отправлено: NeoNox от 23 Мая 2001, 16:30:50
Цитировать
500 - это не ошибка.:)
Да никто и не говорил, что это ошибка. Все правильно работает, только броузер выдает " ERROR 500"... :)
Цитировать
А пример тривиален как грабли:
#!/usr/bin/perl
$pass = "password";
$salt = join \'\', (\'.\', \'/\', 0..9, \'A\'..\'Z\', \'a\'..\'z\')[rand 64, rand 64];

$crpass = crypt($pass,$salt);

print "Content-type: text/plain

";
print $crpass;
Толи лыжи не едут... пароль получается неправильный. В чем может быть трабл?

Цитировать
С тебя пиво.:)
Если долетит... :)
Название: Perl and htpasswd...
Отправлено: NeoNox от 23 Мая 2001, 16:39:12
Сори... Все нормально. Это я при записи сделал ошибку :( . Спасибо Chs и AliMamed за оперативность.
2Chs Будешь в Киеве-свисти, пиво за мной... :D
Название: Perl and htpasswd...
Отправлено: Ilya от 28 Мая 2001, 14:48:35
А как ззапаролить папку, которая находится в директрии cgi-bin. Обычную папку получается запаролить, а папки в cgi-bin нет.
Название: Perl and htpasswd...
Отправлено: от 28 Мая 2001, 14:52:07
Цитировать
ILYA (28-05-2001 14:48):
А как ззапаролить папку, которая находится в директрии cgi-bin. Обычную папку получается запаролить, а папки в cgi-bin нет.

А это тебе так хостер настроил, так что все вопросы к нему.
Название: Perl and htpasswd...
Отправлено: Ilya от 28 Мая 2001, 15:06:22
Где-то слышал, что надо что-то написать в .htconfig или в .htaccess.
Название: Perl and htpasswd...
Отправлено: AliMamed от 28 Мая 2001, 15:11:52
Цитировать
ILYA (28-05-2001 15:06):
Где-то слышал, что надо что-то написать в .htconfig или в .htaccess.

если для этой папки не стоит AllowOverride All тогда бесполезно ч.л. писать
Название: Perl and htpasswd...
Отправлено: Ilya от 28 Мая 2001, 15:21:25
Понятно!
NAS, ты у GeoMAx\'a хостишся? У него можно запаролить паку в cgi-bin?
Название: Perl and htpasswd...
Отправлено: от 28 Мая 2001, 15:40:28
Цитировать
ILYA (28-05-2001 15:21):
Понятно!
NAS, ты у GeoMAx\'a хостишся? У него можно запаролить паку в cgi-bin?
Можно. У Геомакс скрипты можно держать в любой папке.
Название: Perl and htpasswd...
Отправлено: Ilya от 28 Мая 2001, 15:49:03
Всем спасибо. Пойду в GeoMax :).