80 порт все норм тестирует и на блок и анблок
прописываю 443 порт, запускаю perl test.pl
все зависает никакой активности не происходит и скрипт не закрывается. Просто курсор моргает.
#!/usr/bin/perl
# test.pl: small script to test mod_dosevasive's effectiveness
use IO::Socket;
use strict;
for(0..250) {
my($response);
my($SOCKET) = new IO::Socket::INET( Proto => «tcp»,
PeerAddr=> «192.168.1.77:443»);
if (! defined $SOCKET) { die $!; }
print $SOCKET «GET /?$_ HTTP/1.0\n\n»;
$response = <$SOCKET>;
print $response;
close($SOCKET);
}
HTTP пробовал менять на HTTPS нет эфекта
Перемещено Dimez из security
Ответ на:
комментарий
от Anoxemian
Ответ на:
комментарий
от Regacar
Ответ на:
комментарий
от Anoxemian
Ответ на:
удаленный комментарий
Ответ на:
удаленный комментарий
Ответ на:
удаленный комментарий
Ответ на:
комментарий
от Anoxemian
Ответ на:
комментарий
от Anoxemian
Ответ на:
комментарий
от Regacar
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум вопрос по сетевым сокетам в perl (2005)
- Форум Отображение числа непрочитанных сообщений в коньках (2015)
- Форум помогите с перл ,(IO::Socket:INET) получает ответ очень долго (2007)
- Форум perl, IPC & socket - чего тут не так? (2006)
- Форум Perl: проблема совместимости «use Socket;» (2004)
- Форум Perl & win32 (2005)
- Форум Задание на Stepik по Perl. Никак не могу понять, где загвоздка. HELP. (2020)
- Форум Perl, TCP/IP (2001)
- Форум Perl + FastCGI + nginx (2009)
- Форум [perl] проброс проги в сокет (2008)