找回密码
 注册
【阿里云】2核2G云服务器新老同享 99元/年,续费同价,云服务器3年机/5年机限时抢购,低至 2.5折华为云精选云产品特惠糖果主机Jtti,新加坡服务器,美国服务器,香港服务器,海外云服务器
查看: 842|回复: 11

google PR 查询的php代码测试

[复制链接]
发表于 2005 年 1 月 28 日 13:39:52 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

×
  测试,

http://wenew.net.ru/pr/
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
发表于 2005 年 1 月 28 日 14:06:59 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
代码呢??
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2005 年 1 月 28 日 14:14:46 | 显示全部楼层
为什么要加上3721弹出,我狠死3721了
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2005 年 1 月 28 日 15:45:13 | 显示全部楼层
我也不喜欢3721
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2005 年 1 月 28 日 15:47:15 | 显示全部楼层
居然有3721??????
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2005 年 1 月 28 日 15:48:24 | 显示全部楼层
我操,,肯定是太极统计搞的鬼!!!!我自己用的浏览器屏蔽了
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2005 年 1 月 28 日 15:51:23 | 显示全部楼层
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2005 年 1 月 28 日 15:52:55 | 显示全部楼层
直接贴出来把,我会给你加分的
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2005 年 1 月 28 日 16:18:38 | 显示全部楼层
我去找,,
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2005 年 1 月 28 日 16:25:27 | 显示全部楼层
<?php
//error_reporting(E_ALL);

define('GOOGLE_MAGIC', 0xE6359A60);

//unsigned shift right
function zeroFill($a,$b)
{
$z = hexdec(80000000);
if ($z & $a)
{
  $a = ($a>>1);
  $a &= (~$z);
  $a |= 0x40000000;
  $a = ($a>>($b-1));
}
else
{
  $a = ($a>>$b);
}
return $a;
}


function mix($a,$b,$c)
{
$a -= $b; $a -= $c; $a ^= (zeroFill($c,13));
$b -= $c; $b -= $a; $b ^= ($a<<8);
$c -= $a; $c -= $b; $c ^= (zeroFill($b,13));
$a -= $b; $a -= $c; $a ^= (zeroFill($c,12));
$b -= $c; $b -= $a; $b ^= ($a<<16);
$c -= $a; $c -= $b; $c ^= (zeroFill($b,5));
$a -= $b; $a -= $c; $a ^= (zeroFill($c,3));  
$b -= $c; $b -= $a; $b ^= ($a<<10);
$c -= $a; $c -= $b; $c ^= (zeroFill($b,15));
  
return array($a,$b,$c);
}

function GoogleCH($url, $length=null, $init=GOOGLE_MAGIC)
{
  if(is_null($length))
  {
   $length = sizeof($url);
  }
  $a = $b = 0x9E3779B9;
  $c = $init;
  $k = 0;
  $len = $length;
  while($len >= 12)
  {
   $a += ($url[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24));
   $b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24));
   $c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24));
   $mix = mix($a,$b,$c);
   $a = $mix[0]; $b = $mix[1]; $c = $mix[2];
   $k += 12;
   $len -= 12;
  }

  $c += $length;
  switch($len)         /* all the case statements fall through */
  {
   case 11: $c+=($url[$k+10]<<24);
   case 10: $c+=($url[$k+9]<<16);
   case 9 : $c+=($url[$k+8]<<8);
/* the first byte of c is reserved for the length */
   case 8 : $b+=($url[$k+7]<<24);
   case 7 : $b+=($url[$k+6]<<16);
   case 6 : $b+=($url[$k+5]<<8);
   case 5 : $b+=($url[$k+4]);
   case 4 : $a+=($url[$k+3]<<24);
   case 3 : $a+=($url[$k+2]<<16);
   case 2 : $a+=($url[$k+1]<<8);
   case 1 : $a+=($url[$k+0]);
/* case 0: nothing left to add */
  }
  $mix = mix($a,$b,$c);
  /*-------------------------------------------- report the result */
  return $mix[2];
}

//converts a string into an array of integers containing the numeric value of the char
function strord($string) {
  for($i=0;$i<strlen($string);$i++) {
   $result[$i] = ord($string{$i});
  }
  return $result;
}

function ReadPR($link)
{
$fp = fsockopen ("www.google.com",80,$errno,$errstr,30);
//$ip = gethostbyname("www.google.com");
//$fp = fsockopen ($ip,80,$errno,$errstr,30);

if (!$fp)
{
  echo "$errstr($errno)\n";
  exit(1);
}
else
{
  //$out = "GET $link HTTP/1.1\r\n";
  $out = "GET $link HTTP/1.0\r\n";
  $out .= "Host: toolbarqueries.google.com\r\n";
  $out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114.9-big; Windows 5.2)\r\n";
  $out .= "Connection: Close\r\n\r\n";
  fwrite($fp, $out);
  
  //while (!feof($fp))
  //echo fgets ($fp,128);
  
  do{
  $line = fgets($fp, 128);
  }while ($line !== "\r\n");
  $data = fread($fp,8192);  
  fclose ($fp);
  return $data;
}
}



function GetPR($url)
{
$url ='info:'.$url;
$ch = GoogleCH(strord($url));
$data = ReadPR("/search?client=navclient-auto&ch=6$ch&features=Rank&q=$url");
$rankarray = explode (':', $data);
return $rankarray[2];
}


$provider = '<br><br><small><a href="http://wenew.net.ru/" target="_blank">wenew.net.ru</a></small>';
if (isset($_POST['url']) && $_POST['url'] !== '' )
{
echo &#39ageRank: '.GetPR($_POST['url']).$provider;
}
else
{
echo "<html><title>Get PageRank From Google.com</title><body&gtageRank(PR) Querying Script<br>";
echo "<form action='' method='post'>"."<br>URL:<input name='url' value='http://' type='text' size=40>";
echo "<input name='submit' type='submit' value='Get PR'></form>".$provider."</body></html>";
}

?>
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2024 年 9 月 20 日 19:44 , Processed in 0.109797 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表