Quote:
Originally posted by Repetitive Monkey
No. Are you referring to Perl?
This script is in PHP, and it loops fsockopen to send a custom header to each URL in the list.
|
Here is the relevant code:
PHP Code:
$ref=@fsockopen("$parsed[host]",80);
if($ref){
fputs($ref,"GET $parsed[path] HTTP/1.0\n");
fputs($ref,"Host: $parsed[host]\n");
fputs($ref,"User-Agent: Reffer 1.0\n");
fputs($ref,"Referer: $referrer\n");
fputs($ref,"Accept-Charset: iso-8859-1,*,utf-8\n");
fputs($ref,"Accept-Language: en\n");
fputs($ref,"\n.");
fclose($ref);
$success=1;
echo"<font color=\"#008000\">$parsed[host] hit</font><br>";
}
$c++;