دوست عزیز اگر ممکنه واسه منم دیکد کن
<?php
$o="QAAAOzh3b3cKDQ5uYS8nI3BiZQGFdG5zYicufAEgATImdHN1AD AvAbUAASslb3Nzdz0oKCUuJyEhJwH/tFQB8XQCAwRjDgO1JzonA9YpAVU8BpF6CmAADQAwApkjWFVCVl JCVFNcIHJ1E0BrIFoCcSN0BCABmHQBc25hJy8mbgoAdHRicwpW Lgeib2JmY2J1LyVLAGBoZGZzbmhpPScJwQmwcHBwKTQBDz80KW 51JS4FkGNuYi8AgQgxBNEGgACPOSczNidodScAsDsnNgTvBO8E 7w2Q+5IVTxVPFvAVTxc/dxVPGqIVT3NiDUAODgzgekFAJwhAI3NiancUQDoXKSN3bmJkYo ABFQFif3draGNiLyVbaSUrJwLVAAAuPCcoKCdhbmljbmlgJ2Zr AAxrJ3RyZWpuc3NiYycEwAVxdG4RCH1iOgBRaGEvBPQuPA4OA3 BmdXUQAGZ+JwGxJ3NoJ3J0YiduaSdzCAhvYidhFSBraGh3J2Zz AQJiaWMAASdoYSd3dWhgdWZqCg0oKBxQQAxzByB0Jyonb2h0cy dmAiAEEHUnAAJmYGJpcwoNI2BoaGBrYgHBOgAAIHNoaGtlZnV2 cmJ1bmJ0KYMAAbMpZGhqIBAQAqRyZjogSmh9bgAga2tmKDIpNy cvUA1AaHB0PCcIAFI8J1AAwydJUycyKTY8J2JpAAAqUlQ8J3Vx PTYpPyk3KTEuAAAnQGJkbGgoNTc3MTcwNT8nABhBbnViYWh/KDYpMgZRCzFkaGkQwHFidQqwJ3RzdQvAD0FmJzQ1KmUgAm5zD5 BzYmBidQoNYXJpZChBJwAzVHN1U2hJcmovIwCgFxBEbwYgAIAB QEpmYG5kLic3gCcAECNOaXM0NSAAUmkEMDonMzU+Mz4xMDU+MT xAICcZcTVZNDUKDQoNAoAnI2tiaR/EYHNvMZAH4ADABXIs0QHRFwEvI24B0Dc8WaAnAIA7AvUA4SwsB uYCwSMIkictOicjjCIIsjwnDgYjAdEoKE5hGyJha2gbwG4DA3Q nZWJ+aBnAHWFlaHJpY2YYMRzRIIBuaQ8iJy9ydHIjgH4nLCgqJ zUDHyk2MmIsPgiQC8A2LispgAVxAEEjAAWiA/B1YnRya3MEIRUUFLQFBQdABnBiYW5pJOBiYwmZJycZIGJ1F2E9 6E0wKWlicygQBGpmaQhgKGJpKGtmaWByJGApcze+fnci0AV0KQ KQBOc/0hCDORCAGEYSmgtREtQ6JFUnLwCkKicbKC0nLwXwLgHWKAHYLh nFTQQnABQoKAdgFHFkIJEna2J0dBEAZmk9QCcqErEJxwLxBtQ6 BaY7AmA2MzAzPzQCijEzPy4nOAGWLAc5Jz0nA6M8BPd6xQ4Atw HDJyw6TxBjJAJ8I256QCACMwKkdQcBYnNydWkElwFwL+FgYmli ZnVmYzACqGYnb2Z0bz5CZkJDYS9FTwGQUlVL94AFwh1wFPYHoz YhcDDAMWcCMCsnN382MjdNYDIAgTU2E0UDAzUDD2ACgAAwfzY3 NzRxfEEC4QuzAwM2Jzkc4DUtFgFlFHAb9AIhJzPIEW0AB2A0QQ AQRDcnLid7FOU2JyEBkrlpBZEnABAEHwQcRDcED38FkAQfLwgv fzQD8PxcBA8EAQ2wOVAAMAhQJyNTE5EvABAJBQpiRDcMqC4nOz sM4QwNRC4BoTUNqTUNokE3QV9+Jwm2UxXxBVAJlgVhETBBCWEE EQW/CyIF0hJwRt6tE5gF9jcAEAYyC8Qk1C8MQXsMoDUH8SUvJzFCH+ R0cmolYjJRJjJOoCIwVUg7MiZRLyMAYWlySINqJjxFfioQOic3 MBQjQWtmYCRgAQHyAyKkA4EoUAFQdHdcYHNhLyAiciBZgAGR/88FEgPFVlBXGwIhA7AMMQ30V4dZ9SonZfBYMSigWMCM/gChKiouXuUc8lViB9AMAgTQOCEHFAHRQjAvmJ0e4Do6KTALwiI nNRcQfCcAGgyzATUjBRD6hT1AAHBjYAFQAe86SoMvAjAnKCc2I 5AsBgC78QNwIgDRB/gZoCcAFCbDFQIF1AWHFXMsLDwQdOcfA3AB0wNYIjoFwAW0DWE3 JyYNYAIXEUsdkgbS//8DcYFQApcERAlxBIER7i5wdMQCMQBBAnkFlxSkCpMCce/vAEUGt1GxPgcIAiENwABxAEUC2EbRNgLoAqQAcAZDhcwvxCAwI CkDZykflQOQAqIoKAKEL2F3Zo4DhEBmaWwxBzCBMBhgYnNkby8 jmaAUAPfgcRBasg5CKdEvAFFYAgIRXZAGLwYmYW5gcnVMBmIFu 3d1BbWfgGBraGVmayeV9JiRK5HIAMRyZgvQDiNkiNEJGAFSYXc t0GF0aIYAlNB3YmkvAyQD4ic/NysnI2J1dTDHaWgAgz3wKyc0NzUCG0EjYXcNYAewFtAIACNocn MEoCVAQlMnKHNldThkIQBrbqGQOmlmcQCjKmZyc2ghZG9CEDoI gCFhYmYQoGJ0OlUT0CF2Om4II2lhaD0SYSdPU1NXnFA2W3WvcA ohgAIFwCgoYmRvaCclO3d1YjkGkTtwAigAoQIRl2BjYmVyYCdo aWt+CKgpgOa34FJ0YnUqRmAIYHZwqENyZgWJBLEnh4ECoU9odH MCRg/BAm8FAERoaWliZKLBAbE9J0RraHRiAmEAQSUKgQfTYXB1w3B+I C8RoBMwETASwgwwAeMoKCMdBjondHJlBRR0c3UvYRkwdAMjNjU/mDAzIJAoKPgnDX0QVAQWwIECTXBvbmti10BhYr+xGeAZ8wH8Dg 4jY2ZzZhnwBswLgcGRFfICQgEjI3d0U2jIIQngAJAvAZIrJyUa wVjZgg4O0uECY4AcQlBhZmt0Yi58eidiAIA9wAHwDiMOOHd1On QOEwQEAvIsJz4RMgIwAiFzdW6QArcAd3UBSXRzdVh1YndrZmTP xCA/eCArAsACNTfkASAKwzMwDhYQAHQSYAhAJ3wnvAUNMiUr4QUAU9 Asci47ZXUnKDkjknojvx/wJ2FkHXEYwQbiBUAAMJTVlMI/UdEwd29uZPgANsAc1TloATU5kisjcG5jc286MzcrAAEjamJzb2 hjOiB0c35rYiAZk6EENFEmLLBgWGpmQoEgKFkvb/xRWygAAlsoLjgvXFlbKFosLihubwFyMmd1a2WiMnE6IAJyKChK sAGAPCcKgBcyJMD7dUFVEfEncBMKAnAK3NB7YmvfAXERu6Bje3 AnC7WuhL6xar8wdyTABdAEQA4CcS8jbTpyICNtNjM7I+QhyqBt yqAB4XwODgBw4EB3dSZABHUhqC8j7LNcI21aFPEO0ScbcCcjIC U3JXADJxAyAQCNcSVuamZgYnQoI3Q9oAFAD2QpYG5hNWELACVB A7o2A78DvwoNA78nJWRkNQO/A78KDQO/JyU0A78DvwoNA78nJWRkMwO/A78KDQO/JyUyA78DvwoNA78nJWRkMQO/A78KDQO/JyUwA78DvwoNA78nJWRkPwO/A78KDQO/JyU+A78DvwoNA78nJXeQNiT/JP8xAHok0Z3BJjAneXd1Jxgjc2RY9tIsgQCBqMEAgWUtgKlBIy qCANBOKwFEdWxwYgFAQXVoakBOQS7wdbLiI3Nif3NYDg9kaGto BGECkwDRRmtraGTZAP+AA9FiAPgFBpEAc9JwBnIygU9iZmNidS 8lZvBza8Al+Cpz8XA9JweSKAaAWBIFYqjgO3EFBjIrJ6H8ADA1 BSBkaGNiAHAIlwWBA0IEEAMGVYAnMEnAMgG2Q2JSoGh+AfQBcR awODk=";eval(base64_decode("JGxsbD0wO2V2YWwoYmFzZTY0X2RlY29kZSgiSkd4c2JHeHNiR3 hzYkd4c1BTZGlZWE5sTmpSZlpHVmpiMlJsSnpzPSIpKTskbGw9 MDtldmFsKCRsbGxsbGxsbGxsbCgiSkd4c2JHeHNiR3hzYkd3OU oyOXlaQ2M3IikpOyRsbGxsPTA7JGxsbGxsPTM7ZXZhbCgkbGxs bGxsbGxsbGwoIkpHdzlKR3hzYkd4c2JHeHNiR3hzS0NSdktUcz 0iKSk7JGxsbGxsbGw9MDskbGxsbGxsPSgkbGxsbGxsbGxsbCgk bFsxXSk8PDgpKyRsbGxsbGxsbGxsKCRsWzJdKTtldmFsKCRsbG xsbGxsbGxsbCgiSkd4c2JHeHNiR3hzYkd4c2JHdzlKM04wY214 bGJpYzciKSk7JGxsbGxsbGxsbD0xNjskbGxsbGxsbGw9IiI7Zm 9yKDskbGxsbGw8JGxsbGxsbGxsbGxsbGwoJGwpOyl7aWYoJGxs bGxsbGxsbD09MCl7JGxsbGxsbD0oJGxsbGxsbGxsbGwoJGxbJG xsbGxsKytdKTw8OCk7JGxsbGxsbCs9JGxsbGxsbGxsbGwoJGxb JGxsbGxsKytdKTskbGxsbGxsbGxsPTE2O31pZigkbGxsbGxsJj B4ODAwMCl7JGxsbD0oJGxsbGxsbGxsbGwoJGxbJGxsbGxsKytd KTw8NCk7JGxsbCs9KCRsbGxsbGxsbGxsKCRsWyRsbGxsbF0pPj 40KTtpZigkbGxsKXskbGw9KCRsbGxsbGxsbGxsKCRsWyRsbGxs bCsrXSkmMHgwZikrMztmb3IoJGxsbGw9MDskbGxsbDwkbGw7JG xsbGwrKykkbGxsbGxsbGxbJGxsbGxsbGwrJGxsbGxdPSRsbGxs bGxsbFskbGxsbGxsbC0kbGxsKyRsbGxsXTskbGxsbGxsbCs9JG xsO31lbHNleyRsbD0oJGxsbGxsbGxsbGwoJGxbJGxsbGxsKytd KTw8OCk7JGxsKz0kbGxsbGxsbGxsbCgkbFskbGxsbGwrK10pKz E2O2ZvcigkbGxsbD0wOyRsbGxsPCRsbDskbGxsbGxsbGxbJGxs bGxsbGwrJGxsbGwrK109JGxsbGxsbGxsbGwoJGxbJGxsbGxsXS kpOyRsbGxsbCsrOyRsbGxsbGxsKz0kbGw7fX1lbHNlJGxsbGxs bGxsWyRsbGxsbGxsKytdPSRsbGxsbGxsbGxsKCRsWyRsbGxsbC srXSk7JGxsbGxsbDw8PTE7JGxsbGxsbGxsbC0tO31ldmFsKCRs bGxsbGxsbGxsbCgiSkd4c2JHeHNiR3hzYkd4c2JEMG5ZMmh5Sn pzPSIpKTskbGxsbGw9MDtldmFsKCRsbGxsbGxsbGxsbCgiSkd4 c2JHeHNiR3hzYkQwaVB5SXVKR3hzYkd4c2JHeHNiR3hzYkNnMk 1pazciKSk7JGxsbGxsbGxsbGw9IiI7Zm9yKDskbGxsbGw8JGxs bGxsbGw7KXskbGxsbGxsbGxsbC49JGxsbGxsbGxsbGxsbCgkbG xsbGxsbGxbJGxsbGxsKytdXjB4MDcpO31ldmFsKCRsbGxsbGxs bGxsbCgiSkd4c2JHeHNiR3hzYkM0OUpHeHNiR3hzYkd4c2JHd3 VKR3hzYkd4c2JHeHNiR3hzYkNnMk1Da3VJajhpT3c9PSIpKTtl dmFsKCRsbGxsbGxsbGwpOw=="));return;?>
<?php
if( $website ){
if( !strstr($website,"http://") && !strstr($website,"https://") ){
$website = "http://".$website;
}
}
$website = $_REQUEST['url'];
$s = $_REQUEST['s'];
if (!isset($website)){
header("Location: http://www.383.ir");
die();
}
if ($s > 41 or $s < 1){
header("Location: http://www.383.ir");
die();
}
if( $website ){
if( !strstr($website,"http://") && !strstr($website,"https://") ){
$website = "http://".$website;
}
}
$tempurl=$website;
$pieces = explode("\n", $tempurl); // finding all submitted url
$size=sizeof($pieces); // array size to use in the for loop at the end of program
//settings - host and user agent
$googlehost='toolbarqueries.google.com';
$googleua='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5';
//convert a string to a 32-bit integer
function StrToNum($Str, $Check, $Magic) {
$Int32Unit = 4294967296; // 2^32
$length = strlen($Str);
for ($i = 0; $i < $length; $i++) {
$Check *= $Magic;
//If the float is beyond the boundaries of integer (usually +/- 2.15e+9 = 2^31),
// the result of converting to integer is undefined
// refer to http://www.php.net/manual/en/language.types.integer.php
if ($Check >= $Int32Unit) {
$Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));
//if the check less than -2^31
$Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;
}
$Check += ord($Str{$i});
}
return $Check;
}
//genearate a hash for a url
function HashURL($String) {
$Check1 = StrToNum($String, 0x1505, 0x21);
$Check2 = StrToNum($String, 0, 0x1003F);
$Check1 >>= 2;
$Check1 = (($Check1 >> 4) & 0x3FFFFC0 ) | ($Check1 & 0x3F);
$Check1 = (($Check1 >> 4) & 0x3FFC00 ) | ($Check1 & 0x3FF);
$Check1 = (($Check1 >> 4) & 0x3C000 ) | ($Check1 & 0x3FFF);
$T1 = (((($Check1 & 0x3C0) << 4) | ($Check1 & 0x3C)) <<2 ) | ($Check2 & 0xF0F );
$T2 = (((($Check1 & 0xFFFFC000) << 4) | ($Check1 & 0x3C00)) << 0xA) | ($Check2 & 0xF0F0000 );
return ($T1 | $T2);
}
//genearate a checksum for the hash string
function CheckHash($Hashnum) {
$CheckByte = 0;
$Flag = 0;
$HashStr = sprintf('%u', $Hashnum) ;
$length = strlen($HashStr);
for ($i = $length - 1; $i >= 0; $i --) {
$Re = $HashStr{$i};
if (1 === ($Flag % 2)) {
$Re += $Re;
$Re = (int)($Re / 10) + ($Re % 10);
}
$CheckByte += $Re;
$Flag ++;
}
$CheckByte %= 10;
if (0 !== $CheckByte) {
$CheckByte = 10 - $CheckByte;
if (1 === ($Flag % 2) ) {
if (1 === ($CheckByte % 2)) {
$CheckByte += 9;
}
$CheckByte >>= 1;
}
}
return '7'.$CheckByte.$HashStr;
}
//return the pagerank checksum hash
function getch($url) { return CheckHash(HashURL($url)); }
//return the pagerank figure
function getpr($url) {
global $googlehost,$googleua;
$ch = getch($url);
$fp = fsockopen($googlehost, 80, $errno, $errstr, 30);
if ($fp) {
$out = "GET /tbr?client=navclient-auto&ch=$ch&features=Rank&q=info:$url HTTP/1.1\r\n";
//echo "<pre>$out</pre>\n"; //debug only
$out .= "User-Agent: $googleua\r\n";
$out .= "Host: $googlehost\r\n";
$out .= "Connection: Close\r\n\r\n";
fwrite($fp, $out);
//$pagerank = substr(fgets($fp, 128), 4); //debug only
//echo $pagerank; //debug only
while (!feof($fp)) {
$data = fgets($fp, 128);
//echo $data;
$pos = strpos($data, "Rank_");
if($pos === false){} else{
$pr=substr($data, $pos + 9);
$pr=trim($pr);
$pr=str_replace("\n",'',$pr);
return $pr;
}
}
//else { echo "$errstr ($errno)<br />\n"; } //debug only
fclose($fp);
}
}
//generate the graphical pagerank
function pagerank($url,$width=40,$method='style') {
if (!preg_match('/^(http:\/\/)?([^\/]+)/i', $url)) { $url='http://'.$url; }
$pr=getpr($url);
return $pr;
}
// for loop for finding pagerank of multple url
for ($j=0; $j<$size; $j++)
{
$pr = pagerank($pieces[$j]);
if ( $pr == "0" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "1" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "2" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "3" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "4" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "5" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "6" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "7" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "8" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "9" ) {
$pr2 = "images/$s/pr$pr.gif";
}
elseif ( $pr == "10" ) {
$pr2 = "images/$s/pr$pr.gif";
}else {
$pr2 = "images/pr.gif";
}
$tc_r = $tc_g = $tc_b = 0;
$image = ImageCreateFromGIF($pr2);
$text_color = ImageColorAllocate($image, $tc_r, $tc_g, $tc_b);
Header("Content-type: image/GIF");
ImageString ($image, 5, 5, 2, $code, $text_color);
ImageGIF($image, '', 75);
ImageDestroy($image);
}
?>