На WebTramway.com Вы можете разместить свой рекламный баннер
   
Рекламодателям | Партнерская программа | Обратная связь
Авто-мото
Блоги, форумы
Веб-студии
Интернет-магазины
Информационные ресурсы
Каталоги
Развлекательные ресурсы
Региональные порталы
Хостинг
Эротика
Прочее




www.webmoney.ru

Sample: your_page.php
 
include('prcy.php'); 
echo "<a href='opensource_informer.php' TARGET='_blank' 
TITLE='Исходный код информера'><img border='0' 
src='informer_small.php?pr=$pr&cy=$tcy'></a>";
 
prcy.php
 
/*
WebTramway.com's programmers with google's search :)   
WebTramway Informer;
show:
-Google PageRank (PR)
-Yandex Citation Index (CY)
may, 2008
support@webtramway.com
*/
 
 
$website = 'http://webtramway.com/';
//YANDEX  CY START
function getTCY($urly)
{
$xml = file_get_contents('http://bar-navig.yandex.ru/u?ver=2&show=32&url='
.$urly);
return $xml ? (int) substr(strstr($xml, 'value='), 7) : false;
}
$tcy = getTCY($website);
//YANDEX CY END 
 
//GOOGLE PR START
function StrToNum($Str, $Check, $Magic)
{
    $Int32Unit = 4294967296;  
 
    $length = strlen($Str);
    for ($i = 0; $i < $length; $i++) {
        $Check *= $Magic; 	
 
        if ($Check >= $Int32Unit) {
            $Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));
 
            $Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;
        }
        $Check += ord($Str{$i}); 
    }
    return $Check;
}
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);
}
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;
}
function getpagerank($url) {
 
$fp = fsockopen("toolbarqueries.google.com", 80, $errno, $errstr, 30);
if (!$fp) {
 
} else {
 $out = "GET /search?client=navclient-auto&ch=".CheckHash(HashURL($url))
 ."&features=Rank&q=info:".$url."&num=100&filter=0 HTTP/1.1\r\n";
$out .= "Host: toolbarqueries.google.com\r\n";
$out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-big;
 Windows XP 5.1)\r\n";
$out .= "Connection: Close\r\n\r\n";
 
   fwrite($fp, $out);
 
 
   while (!feof($fp)) {
	$data = fgets($fp, 128);
	$pos = strpos($data, "Rank_");
	if($pos === false){} else{
		$pagerank = substr($data, $pos + 9);
 
	}
   }
   fclose($fp);
 
   }
return $pagerank;
}
$pr=getpagerank($website);
////GOOGLE PR END
 
informer_small.php
 
/*
WebTramway.com's programmers with google's search :)   
WebTramway Informer;
show:
-Google PageRank (PR)
-Yandex Citation Index (CY)
may, 2008
support@webtramway.com
*/
 
$pr=$_GET['pr'];
$cy=$_GET['cy'];
 
$to=imageCreateFromGif("small.gif");
$color=imageColorAllocate($to,0,0,0);
 
$px2=(imageSX($to)-60*strlen($pr));
imageString($to,1,$px2,3,$pr, $color);
 
$px3=(imageSX($to)-30*strlen($pr));
imageString($to,1,$px3,3,$cy, $color);
 
Header("Content-type:image/gif");
imageGif($to);
imageDestroy($to);
 
image here



Russian America Top. Рейтинг ресурсов Русской Америки. Rambler's Top100 be number one Рейтинг коммерческих и информационных сайтов России

хостинг TheJetHost.com 2008
php кодинг Мягков Иван