воспользоваться клиентом, ведущим себя менее добросовестно, к примеру, вот таким скриптом: (U/usr/bin/peri -
w use Socket:
$proto^getprotobyname( 'top' ),
sockct(Socket_Handle, PFJNET, SOCK_STREAM, $proto), Sport = 80:
$host= "www. victim, corn": $sin = sockaddrJ.n($port, inet_aton($host)):
connect(Socket_Handle, $sin);
send Socket_Handle, "GET /cgi-bin/env.cg].?param1=vaU¶m2=val2 HTTP/I, 0n", 0; sendSocket_Handle,
"Reterer: any referer you wishn" ,0; send Socket_Handle, "User-Agent: myagentn",0: send Socket_Handle,"n",0:
while (<Socket_Handle> {
print $_: }