-
-
//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 "
$out n"; //僅調試
- $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']); }
- ?>
複製程式碼
|