<?
$file=fopen("test1.htm","w");

$url = "/index.php?pid=4";
$server = "csport";
$useragent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2)";

$fp = fsockopen("csport", 80, $errno, $errstr, 30);
if (!$fp) {
echo "Error! $errstr ($errno)<br />\n";
} else {
$out = "GET http://".$server.$url." HTTP/1.1\r\n";
$out .= "Host: ".$server."\r\n";
$out .= "User-Agent: ".$useragent."\r\n";;
$out .= "Connection: Close\r\n\r\n";
fwrite($fp, $out);
while (!$flag) {
$line = fread($fp,32000);
if (strstr($line, "Set-Cookie: _data")){$cukdata = substr($line, 12, sizeof($line));}
if (strstr($line, "Set-Cookie: _sid")){$cuksid = substr($line, 12, sizeof($line));}
$form=strstr($line,"<form");
if ($form){$flag=1;}
fputs ($file,$line);
}
}
fclose($file);
$file=fopen("test2.htm","w");
if ($form<>'') {
if (!$fp) {
echo "Error! $errstr ($errno)<br />\n";
} else {
echo "form finded - login\r\n\r\n";
$content = "username=test&password=test&autologin=checked&red irect=portalhome&submit=Login";
$out = "POST http://".$server."/f/login.php?login=true&amp;sid=".$cuksid." HTTP/1.1\r\n";
$out .= "Host: ".$server."\r\n";
$out .= "User-Agent: ".$useragent."\r\n";;
$out .= "Cookie: ".$cukdata."\r\n";
$out .= "Cookie: ".$cuksid."\r\n";
$out .= "Content-Type: text/html\n";
$out .= "Content-Length: ".strlen($content)."\n";
$out .= "\n".$content."\n";
$out .= "Connection: Close\r\n\r\n";
fputs($fp, $out);
while (!feof($fp)) {
$line = fread($fp,32000);
if (strstr($line, "Set-Cookie: _data")){$cukdata = substr($line, 12, sizeof($line));}
if (strstr($line, "Set-Cookie: _sid")){$cuksid = substr($line, 12, sizeof($line));}
fputs ($file,$line);
}
}
}
fclose($file);
$file=fopen("test3.htm","w");
if ($form<>'') {
if (!$fp) {
echo "Error! $errstr ($errno)<br />\n";
} else {
echo "get page\r\n\r\n";
$out = "GET http://".$server.$url." HTTP/1.1\r\n";
$out .= "Host: ".$server."\r\n";
$out .= "User-Agent: ".$useragent."\r\n";;
$out .= "Cookie: ".$cukdata."\r\n";
$out .= "Cookie: ".$cuksid."\r\n";
$out .= "Connection: Close\r\n\r\n";
fputs($fp, $out);
while (!feof($fp)) {
$line = fgets($fp);
fputs ($file,$line);
}
}
}
fclose($file);
fclose($fp);