Программирование > Perl

Perl and htpasswd...

(1/3) > >>

NeoNox:
Привет ALL!!!
Есть вопросец. Как зашифровать пароль в этот самом htpasswd. Кто еще сможет кусок кода кинуть-тому отдельный сенькс.

AliMamed:
crypt()
а вообще httpasswd это системная команда в никсе. ее можно вызвать через system

Chs:

--- Цитировать ---NeoNox (23-05-2001 14:17):
Привет ALL!!!
Есть вопросец. Как зашифровать пароль в этот самом htpasswd. Кто еще сможет кусок кода кинуть-тому отдельный сенькс.
--- Конец цитаты ---
perldoc -f crypt

NeoNox:
а пример плз.
у меня вылазит любимая 500... :(

Chs:

--- Цитировать ---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;

С тебя пиво.:)

Навигация

[0] Главная страница сообщений

[#] Следующая страница