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;
С тебя пиво.