<?
//Функция определение Гугла ПР
$googlehost='toolbarqueries.google.com';
$googleua='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5';

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) {
    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.1\r\n";
       $out .= "User-Agent: $googleua\r\n";
       $out .= "Host: $googlehost\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);
    }
}
//Функция определения Яндекс ТИца
function getBarCY($_url) {
  $_uri = "http://bar-navig.yandex.ru/u?ver=2&url=".urlencode("http://".$_url)."&show=1";
  $fd = @fopen($_uri, "r");
  if ($fd) {
    while ($buffer = fgets($fd, 4096)) $haystack.=$buffer;
    fclose($fd);
    preg_match("/<tcy rang=\"(.*)\" value=\"(.*)\"\/>/isU",
      $haystack,$cy);
    return (int) $cy[2];
  } else return 0;
}

function outin_links($url) {
	$in_links = array();
	$out_links = array();

	// HOST адреса страницы для проверки полных ссылок на локальность
	$url_host = parse_url($url, PHP_URL_HOST);
	if ( preg_match('/^www\./i', $url_host) ) $url_host = substr($url_host, 4);

	$html = @file_get_contents($url);
	if ( false===$html ) return false;

	$xml = new DOMDocument();
	@$xml->loadHTML($html);

	// Получаем объектно ориентированный массив тегов A из HTML
	$links = $xml->getElementsByTagName('a');
	if ( count($links)<1 ) return false;

	foreach ( $links as $link ) :
		// У тега A нет атрибута href
		if ( !$link->hasAttribute('href') ) continue;

		$href = $link->getAttribute('href');
		if ( empty($href) ) continue;

		// Если адрес ссылки начинается с "http://" или "https://"
		if ( preg_match('/^http(s)?:\/\//i', $href) ) {
			$href_host = parse_url($href, PHP_URL_HOST);
			if ( preg_match('/^www\./i', $href_host) ) $href_host = substr($href_host, 4);

			// Если HOST указанного адреса страницы и хост ссылки совпадают
			if ( preg_match('/^' . preg_quote($url_host) . '$/i', $href_host) ) $in_links[] = $href; else $out_links[] = $href;
		} else $in_links[] = $href;
	endforeach;

	return array($in_links, $out_links);
}

?>