Функция для определения PR


Работающий на сегодняшний день вариант функции php для отпределения 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 getch($url) { return CheckHash(HashURL($url)); }
 
function getpr($url) {
 
    $ch = getch($url);
    $fp = fsockopen("toolbarqueries.google.com", 80, $errno, $errstr, 30);
    if ($fp) {
       $out = "GET /search?client=navclient-auto&ch=$ch&features=Rank&q=info:$url HTTP/1.1\r\n";
       $out .= "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5\r\n";
       $out .= "Host: toolbarqueries.google.com\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{
                $pr=substr($data, $pos + 9);
                $pr=trim($pr);
                $pr=str_replace("\n",'',$pr);
                return $pr;
            }
       }
       fclose($fp);
    }
}

Пользоваться так:

echo getpr("http://www.j369.ru/");

Метки: , ,

11 комментариев на “Функция для определения PR”

  1. Bond пишет:

    А там всё такое..

  2. Иван пишет:

    Видимо долго собирали.

  3. Dexif пишет:

    Опечатка закралась в заголовок :)
    оТределения -> оПределения

  4. Administrator Bitman пишет:

    Спасибо.

  5. Алёна пишет:

    Для коллекции прогодится.

  6. Артемий пишет:

    можно сказать, это исключение :) из правил

  7. Томара пишет:

    Что-то так не получается

  8. m$earcher пишет:

    Автор, замените, пожалуйста, в листинге “<” на “”, “&” на “&” и тогда у всех все заработает как надо… :)

  9. m$earcher пишет:

    Ох уж этот html… Должно было быть – &lt; на символ “меньше”, &gt; на символ “больше”, &amp; на символ “&”.

  10. Kairi пишет:

    Boy that rlealy helps me the heck out.

  11. Agatha пишет:

    Was toaltly stuck until I read this, now back up and running.

Оставить комментарий

CAPTCHA image