Просмотр файла xostkrut/index.php

Автопокупка рекламы
Размер файла: 2.41Kb 
<?php
Error_Reporting(E_ALL & ~E_NOTICE);
$mode=$_POST['mode'];
$adres=$_POST['adres'];
$refer=$_POST['refer'];
$host=$_POST['host'];
$k=$_POST['k'];
///////////////////////////////////////////////////////////////
  function unicode ($s) { if ( (ord($s)>=192) & (ord($s)<=255) ) $hexvalue=dechex(ord($s)+848); if ($s=="Ё") $hexvalue="401"; if ($s=="ё") $hexvalue="451"; return("&#x0".$hexvalue.";");}
  function utf_encode ($s) { return(preg_replace("/[А-яЁё]/e","unicode('\\0')",$s));}
///////////////////////////////////////////////////////////////
Header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
Header("Last-Modified: ".gmdate("D, d M Y H:i:s")."GMT");
Header("Cache-Control: no-cache, must-revalidate");
Header("Pragma: no-cache");
header("Content-type:text/vnd.wap.wml; charset=utf-8");
print utf_encode("<?xml version=\"1.0\" encoding=\"utf-8\"?>"."<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml1.2.dtd\">"."<wml>"."<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>"."<card id=\"index\" title=\"MAS накрутка\">");
print "<p align=\"left\">";
if($mode=="")
{
print utf_encode("
Хост:<br/>
<input name=\"host\"  value=\"top.bodr.net\"/><br/>
Адрес:<br/>
<input name=\"adres\"  value=\"/count.php?id=\"/><br/>
Реферал:<br/>
<input name=\"refer\"  value=\"http://mas.net.ru\"/><br/>
*N:<br/>
<input name=\"k\"  value=\"200\"/><br/>
<anchor>Крутить<go href=\"index.php\" method=\"post\">
<postfield name=\"mode\" value=\"do\"/>
<postfield name=\"k\" value=\"$(k)\"/>
<postfield name=\"host\" value=\"$(host)\"/>
<postfield name=\"adres\" value=\"$(adres)\"/>
<postfield name=\"refer\" value=\"$(refer)\"/>
</go></anchor><br/>");
}
elseif($mode=="do")
{
$z=0;
for($i=0;$i<$k;$i++)
{
$r = rand(0, 1000000000);
$rr = rand(0, 999);
$fp2 = fsockopen($host, 80, $errno, $errstr, 30);
   $nn="\r\n";
   $zapros=
"GET ".$adres." HTTP/1.0".$nn.
"Referer: ".$refer.$nn.
"Host: ".$host.$nn.
"Accept: */*".$nn.
"Accept-Encoding: gzip, deflate".$nn.
"Connection: Close\r\n".
"User-Agent: SamSunf".$rr."/91 Profile/MIDP-2.0 Configuration/CLDC-2.0 UP.Browser/.".$r.". (GUI) MMP/1.0\r\n\r\n";
if($fp2){if(fputs($fp2,$zapros)){$z=$z+1;}}
fclose($fp2);
}
print utf_encode("Накручено $z из $k");
}
print utf_encode("<br/><anchor><prev/>Назад</anchor><br/>
 <a href=\"http://siala.ru.ru\">wap.siala.ru</a><br/>
</p></card></wml>");
die();
?>