Исходное сообщение
"/usr/local/squid/etc/passwd" Отправлено Eugene, 27-Фев-07 19:59
>>Всем привет! Может кто подскажет в каком формате указываються логины и пароли >>в файле >>/usr/local/squid/etc/passwd при использовании ncsa_auth. Или может кто знает как сделать авторизацию пользователей >>по логину и пароли без особых заморочек, есть 5 пользователей для >>которых это необходимо сделать. >>Спасибо >прогой htpasswd генерятся, к примеру. Можно использовать perl'овую функцию - crypt. Вот так например: ################################################################################### #!/usr/bin/perl -w use strict; use warnings; use IO::File; BEGIN { srand() if $] < 5.004 } my $user; my $passwd; my $pwd_file = "c:/squid/etc/passwd"; my $pwd_hash; my $fh = new IO::File $pwd_file, O_RDWR|O_CREAT or die "! Error open $pwd_file - $!\n"; while (<$fh>) {   chomp;   $pwd_hash->{$1} = $2 if /^(.+):(.+)$/; } my @array = ('.', '/', 0..9, 'A'..'Z', 'a'..'z'); my $rnd_str = ''; $rnd_str .= $array[ rand @array ] for (0..7) ; print "Введите имя: "; $user = <STDIN>; chomp($user); die "! User $user alredy exist.\n" if exists $pwd_hash->{$user}; print "Введите пароль: "; $passwd = <STDIN>; chomp($passwd); $passwd = crypt $passwd, "$rnd_str"; print $fh "$user:$passwd\n"; $fh->truncate(tell($fh)); $fh->close;

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>>Всем привет! Может кто подскажет в каком формате указываються логины и пароли >>>в файле >>>/usr/local/squid/etc/passwd при использовании ncsa_auth. Или может кто знает как сделать авторизацию пользователей >>>по логину и пароли без особых заморочек, есть 5 пользователей для >>>которых это необходимо сделать. >>>Спасибо >>прогой htpasswd генерятся, к примеру. > Можно использовать perl'овую функцию - crypt. > Вот так например: > ################################################################################### > #!/usr/bin/perl -w > use strict; > use warnings; > use IO::File; > BEGIN { srand() if $] < 5.004 } > my $user; > my $passwd; > my $pwd_file = "c:/squid/etc/passwd"; > my $pwd_hash; > my $fh = new IO::File $pwd_file, O_RDWR|O_CREAT or die "! Error open > $pwd_file - $!\n"; > while (<$fh>) { > chomp; > $pwd_hash->{$1} = $2 if /^(.+):(.+)$/; > } > my @array = ('.', '/', 0..9, 'A'..'Z', 'a'..'z'); > my $rnd_str = ''; > $rnd_str .= $array[ rand @array ] for (0..7) ; > print "Введите имя: "; > $user = <STDIN>; > chomp($user); > die "! User $user alredy exist.\n" if exists $pwd_hash->{$user}; > print "Введите пароль: "; > $passwd = <STDIN>; > chomp($passwd); > $passwd = crypt $passwd, "$rnd_str"; > print $fh "$user:$passwd\n"; > $fh->truncate(tell($fh)); > $fh->close;
	Введите код, изображенный на картинке: