ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Michael Smirnov                      2:5020/400     22 Mar 2001  13:43:52
 To : All
 Subject : Re: защита от Basic Auth атаки
 -------------------------------------------------------------------------------- 
 

 > >Увидев, с какой скорость перебирает пароли по http
 > >прога WWWHack (http://www.wwwhack.com/),
 > А чего оно делает?
 > Просто тупо подбирает пароли?
 
 Либо пробует комбинация имя:пароль из файла,
 либо делает перебор по заданному набору символов.
 
 > >Лучше блокировать "подозрительные" IP-адреса.
 >
 > Тут следует подумать о прокси-серверах.
 
 Вообще-то нужно.
 Hо в моем случае это предназначено только для своих юзеров,
 которые будут лезть на страничку точно не через прокси.
 
 > >Hо SpeedLimit.pm не хочет работать: "500 Internal Server Error".
 > >error_log:
 > >[error] Undefined subroutine &Apache::SpeedLimit::handler called.
 >
 > Добавь в конфиг apache строку PerlModule Apache::SpeedLimit.
 
 И вот результат.
 $ httpd -t
 Syntax error on line 282 of /usr/local/apache/conf/httpd.conf:
 Undefined subroutine &IPC::SysV::SEM_UNDO called at
 /usr/local/lib/perl5/site_perl/5.005/IPC/Shareable.pm line 45.
 BEGIN failed--compilation aborted at
 /usr/local/apache/lib/perl/Apache/SpeedLimit.pm line 6.
 
 Т.е. mod_perl все-таки находит модуль IPC::SysV.
 Однако, SEM_UNDO в нем встречается,
 но это уж точно не subroutine:
 @EXPORT_OK = qw(
 ..........
         SEM_A SEM_ALLOC SEM_DEST SEM_ERR SEM_ORDER SEM_R SEM_UNDO
 ........
 )
 
 После продолжительной переписки с автором IPC::Shareable
 выяснилось, что дело якобы в эмуляции каких-то SysV-функций
 через модуль  IPC::SysV под моей FreeBSD 2.2.6:
 
 > > Can I use IPC-Shareable on FreeBSD 2.2.6 at all?
 > > Or only on SysV-ish OSes?
 >
 > It should work on FreeBSD; as far as I know it's supported SysV IPC for
 > some time, and I've been in contact with people who have used it on
 > FreeBSD.
 >
 > Perhaps SysV IPC isn't compiled into your kernel?  Unfortunately, I don't
 > use FreeBSD myself so I can't tell you how to find out.
 
 Порывшись в директориях, я нашел
 /usr/local/lib/perl5/5.00503/IPC/SysV.pm
 /usr/local/lib/perl5/5.00503/i386-freebsd/auto/IPC/SysV/SysV.bs
 /usr/local/lib/perl5/5.00503/i386-freebsd/auto/IPC/SysV/SysV.so
 Все это включено в стандартный Perl 5.005_03
 и должно работать!
 
 >>> $ perl -le '$id = shmget(1, 1024, 0)'
 >>> $
 >> That's probably a good sign.  What about this?
 > >    perl -MIPC::SysV -wle 'print IPC::SysV::IPC_PRIVATE'
 > $ perl -MIPC::SysV -wle 'print IPC::SysV::IPC_PRIVATE'
 > $ 0
 > Then you definitely have SysV IPC!
 
 Как все-таки узнать, работает ли у меня IPC::SysV?
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор