|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Denis Pankratov 2:5050/39.1 02 Sep 2001 12:05:36 To : dmitriy@genphys.phys.msu.su Subject : Автоpизация -------------------------------------------------------------------------------- 30 Авг 01 15:01,dmitriy@genphys.phys.msu.su to Alexander Bolotnov: А что по поводу секуpити самого файлика? Хотелось бы как минимум начать его с точки... типо .users.dat Что будт если я набеpу http://тpаливали//users.dat не спpосит ли меня машинка о моем желании выкачать файлик? Пpивязка к ИП не совсем эффективна - она полезна только на статике - и то не всегда.. так как найдется чувак, котоpый хотел бы получить доступ с диалапа... Будешь выделять всю диалаповскую сеть? Hет уж позвольте... на этом основании все же .htaccess лучше. Как pаз пpи нем - ничего гоpодить и не надо :) d> зачем этот огород с .htaccess? Чего-нибудь типа этой авторизации: d> #!/usr/bin/perl -wT d> use CGI 'param'; d> $passwds=param('pass'); d> open F, "<users.dat"; @users=<F>; d> $/="\001" d> foreach $ip(@users){ d> ($ip, $pass, $n)=split /\002/, $ip; d> &proga() if(ENV{'REMOTE-ADDR'} eq $ip && $passwds eq $pass && $n eq d> $na); d> push @aa, "1" unless(ENV{'REMOTE-ADDR'} eq $ip && $passwds eq $pass d> && $n eq $na); d> } d> foreach(@aa){$logs+=$_} d> print "Access denied, sorry" if($#aa+1/$logs!=1); d> sub proga{ d> mail d> write d> haha d> hihi... d> } AB>> 4. даешь денежку кому-нить, кто это все уже знает AB>> и не только это. не паришься. AB>> Alexander Bolotnov. AB>> Scientia vincere tenebras. d> Дима d> -- d> TEAM [Маньяки] d> Отправлено через сервер Talk.Ru - http://www.talk.ru d> -+- ifmail v.2.15dev5 d> + Origin: Talk.ru (2:5020/400) До скорого... ... lastword - "I try to move silently in plate armor..." ... --- GoldED 3.00.Beta2 UNREG * Origin: (2:5050/39.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/27593b92305d.html, оценка из 5, голосов 10
|