<?
/*    www.proxy4free.com  -  GRABER     (c) nc.STRIEM*/
$transparent=array();
$anonymous=array();
$high_anonymity=array();
echo "<center><a href='http://proxy4free.com' target=n><b>http://proxy4free.com</b></a><br>All: <a href='proxy.txt' target=n>proxy.txt</a></center>";
function parsproxy($res)
{
  global $fr,$transparent,$anonymous,$high_anonymity,$elsep;
  $strtof='<tr bgcolor="#ffffff" class="text" height=10>';
  $razd=':';
  $razm=sizeof($res);
  for($i=0;$i<$razm;$i++)
  {
     if(strstr($res[$i],$strtof))
     {
         $i++;
         $p=split('>',$res[$i]);
         $p=split('<',$p[1]);
         $proxres=$p[0].$razd;
         $i++;
         $p=split('>',$res[$i]);
         $p=split('<',$p[1]);
         $proxres.=$p[0];
         $i++;
         $p=split('>',$res[$i]);
         $p=split('<',$p[1]);
         if(strstr($p[0],"anonymous"))
           $anonymous[sizeof($anonymous)]=$proxres;
         elseif(strstr($p[0],"high"))
           $high_anonymity[sizeof($high_anonymity)]=$proxres;
         else $transparent[sizeof($transparent)]=$proxres;
       }
  }
}

 $fs=fsockopen("www.proxy4free.com",80);
fwrite($fs,"GET http://proxy4free.com/page1.html HTTP/1.0\r\nHost: proxy4free.com\r\n\r\n");
$ans='';
while(!feof($fs))
   $ans.=fgets($fs);
$res=split("\n",$ans);
parsproxy($res);
fclose($fs);

$fs=fsockopen("www.proxy4free.com",80);
fwrite($fs,"GET http://proxy4free.com/page2.html HTTP/1.0\r\nHost: proxy4free.com\r\n\r\n");
$ans='';
while(!feof($fs))
   $ans.=fgets($fs);
$res=split("\n",$ans);
parsproxy($res);
fclose($fs);

$fs=fsockopen("www.proxy4free.com",80);
fwrite($fs,"GET http://proxy4free.com/page3.html HTTP/1.0\r\nHost: proxy4free.com\r\n\r\n");
$ans='';
while(!feof($fs))
   $ans.=fgets($fs);
$res=split("\n",$ans);
parsproxy($res);
fclose($fs);

  $fo=fopen("proxy.txt","w");
echo "<table border=0 colspan=2 rowspan=2 align=center><tr><td align=center valign=top><fieldset><legend><b>Transparent:</b>".sizeof($transparent)."</legend>";
   for($i=0;$i<sizeof($transparent);$i++)
       {fwrite($fo,$transparent[$i]."\n");
       echo $transparent[$i]."<br>";}
echo "</fieldset></td><td align=center valign=top><fieldset><legend><b>Anonymous:</b>".sizeof($anonymous)."</legend>";
    for($i=0;$i<sizeof($anonymous);$i++)
    {fwrite($fo,$anonymous[$i]."\n");
        echo $anonymous[$i]."<br>";}
echo "</fieldset></td><td align=center valign=top><fieldset><legend><b>High anonymity:</b>".sizeof($high_anonymity)."</legend>";
    for($i=0;$i<sizeof($high_anonymity);$i++)
        {fwrite($fo,$high_anonymity[$i]."\n");
        echo $high_anonymity[$i]."<br>";}
echo "</fieldset></td></tr></table>";
  fclose($fo);
 ?>