ИМХО просили генератор, а не шифрователь паролей.
(смущенно) точно... наверное не проснулся еще
Правда при необходимости за него может сойти и строка:
$salt = join \'\', (\'.\', \'/\', 0..9, \'A\'..\'Z\', \'a\'..\'z\')[rand 64, rand 64];
при увеличении размерности массива.
Да, сойдет. Тогда сокращаем до:
====================================
#!/usr/bin/perl
$salt = join \'\', (\'.\', \'/\', 0..9, \'A\'..\'Z\', \'a\'..\'z\')[rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64]; #Пароль на 7 симолов
print "Content-type: text/html\\n\\n";
print $salt;
====================================
HTML-ем то и не пахнет.
А следом пойдет сообщение, типа что ваш скрипт нифига не работает
Лучше уж пусть так. И результат на лицо...