Определение Google PR

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 /tbr?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);
     }

   $pagerank = (strlen($pagerank) > 0) ? $pagerank : -1;
   $pagerank = intval($pagerank);
    if ($pagerank == -1)
        {
            $pagerank = 'n/a';
        }
   return $pagerank;
   }

// Пример:
// echo getPageRank("htmlweb.ru");

Пример использования определения PageRank сайта