Google PR值的PHP實作程式碼

//HM2K 的PageRank Lookup v1.1（更新：31/01/07）
//基於發現的演算法此處：http://pagerank.gamesaga.net/

//設定- 主機與使用者代理程式
$googlehost='toolbarqueries.google.com';
$ua='Mozilla/5.0 (google Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5';

//字串轉換為32位元整數
function StrToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str ,ToNum($Str),ToNum($Str ,ToNum($Str ,ToNum($Str) $Check, $Magic) {
 $Int32Unit = 4294967296; // 2^32

 $length = strlen($Str);
 for ($i = 0; $i  $Check *= $Magic ;
 //如果浮點數超出整數範圍（通常為+/- 2.15e+9 = 2^31），
 // 轉換為整數的結果是未定義的
 // 參考http ://www.php.net/manual/en/language.types.integer.php
 if ($Check >= $Int32Unit) {
 $檢查 = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));
 //如果支票小於-2^31
 $Check = ($Check  }
 $Check += ord($Str{$i});
 }
 return $Check;
}

 //將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)  $T2 = (((($Check1 & 0xFFFFC000)
 return ($T1 | $T2);
}

//為雜湊字串產生校驗碼
function CheckHash($雜湊值) {
 $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;
}

//返回pagerank哈希校驗碼
function getch($ url) { return CheckHash(HashURL($url)); }

//返回PR值
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.1rn";
 // echo "$outn"; //僅調試
 $out .= "用戶代理: $googleuarn";
 $out .= "主機: $googlehostrn";
 $out .= "連接: Closernrn";

 fwrite($fp, $out);

 //$pagerank = substr(fgets($fp, 128), 4); / /僅調試
 //echo $pagerank; //僅調試
 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) n"; } //僅調試
 fclose($fp);
 }
}

//生成pagerank圖形
function pagerank($url,$width=40,$method= '風格') {
 if (!preg_match('/^(http://)?([^/]+)/ i', $url)) { $url='http://'.$網址； }
 $pr=getpr($url);
 $pagerank="PageRank: $pr/10";

 //（舊）圖像方法
 if ($method = = '圖片') {
 $prpos=$width*$pr/10;
 $prneg=$width-$ prpos;
 $html='';
 }
 //預樣式方法
 if ($method == 'style') {
 $prpercent=100*$pr/10;
 $html='';
 }

 $out=' '.$html.' ';
 return $out;
}

if ((!isset($_POST['url'])) && (!isset($ _GET['url']))) { echo ''; }
if (isset($_REQUEST['url'])) { echo pagerank($_REQUEST['url']); }
?>