 |
 |
 |
||
| login | belum daftar? | 
0 item |
|||
|
    |
|||
11 Oktober 2008
BPOM Melarang Peredaran Sejumlah Produk Makanan BPOM Melarang Peredaran Sejumlah Produk Makanan detail 11 Oktober 2008 5 Tips from the Hotmail team to help protect yourself from email scams 5 Tips from the Hotmail team to help protect yourself from email scams detail 11 Oktober 2008 Drinks water WATER ON EMPTY STOMACH detail 11 Oktober 2008 BESARNYA PENGHARGAAN BESARNYA PENGHARGAAN detail 11 Oktober 2008 Tidak semua sekretaris mempunyai pikiran sama dengan bossnya.... Tidak semua sekretaris mempunyai pikiran sama dengan bossnya.... detail 11 Oktober 2008 KADANGKALA HIDUPMU MENANGIS KADANGKALA HIDUPMU MENANGIS detail 11 Oktober 2008 Suatu cerita yang indah Suatu cerita yang indah detail 11 Oktober 2008 PEACE.................................................. PEACE.................................................. detail 11 Oktober 2008 Some people never understand Some people never understand detail 11 Oktober 2008 Just to share Just to share detail 11 Oktober 2008 Sekali Lagi Tentang Pisang, Sang Jagoan Sekali Lagi Tentang Pisang, Sang Jagoan detail 11 Oktober 2008 Finger Sports Finger Sports detail 23 September 2008 10 Langkah Instalasi Windows XP dengan USB 10 Langkah Instalasi Windows XP dengan USB detail 23 September 2008 THREAD INI HANYA UNTUK EDUKASI.. DAN AGAR KITA/PIHAK BANK UNTUK LEBIH BERHATI HATI : THREAD INI HANYA UNTUK EDUKASI.. DAN AGAR KITA/PIHAK BANK UNTUK LEBIH BERHATI HATI : detail 17 Juni 2008 Koleksi Ebook Manga, Dragon Ball & Naruto Download Gratis. detail 16 Juni 2008 Berkreasi Dengan Limbah Kaca Pecahan kaca yang tidak digunakan ternyata dapat dijadikan barang bernilai ekonomis tinggi, dengan sedikit sentuhan kreatifitas maka akan menghasilkan karya seni yang unik dan indah. detail 16 Juni 2008 Es Pocong? Hiiy..Seram! Es Pocong adalah minuman yang terbuat bubur sumsum dicampur buah-buahan dan sirup warna-warni, rasanya, mmh nikmat detail 16 Juni 2008 Khasiat Kelapa Hijau Pohon kelapa termasuk pohon yang serba guna. detail 30 Mei 2008 Berita dari Majalah Bulanan Kabari Berita dari Majalah Bulanan Kabari detail 18 Maret 2008 Jam Kerja Kantor Senin s/d Jumat Jam 09.00-16.00 WIB. » index berita 
|
|
3 user sedang online
Anda pengunjung ke-44,936 Admin 
        
|
||||||||||||||||||||||||||||||||||||||||||||
Tukar Link dan Promosi Website
TOPKlik.com Internet Marketing Media
| ||
$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 /search?client=navclient-auto&ch=$ch&features=Rank&q=info:$url HTTP/1.1\r\n";
//echo "$out\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)
';
}
//The pre-styled method
if ($method == 'style') {
$prpercent=100*$pr/10;
$html='
Check Page Rank of any web site pages instantly:
|
|
In order to check pagerank of a single web site, web page or a domain name, please enter the web site, web page URL or domain name in the form below and click "Check PR" button: '; } if (isset($_REQUEST['url'])) { echo ''; echo pagerank($_REQUEST['url']); } ?>High Rank Forum - Internet Marketing & Search Engine Highrankforum discussion related to search engines, including optimization, marketing, tools and other technical aspects. And much more.. Download: pagerank.zip |
|
