Куплю скрипт определения тИЦ и PR

есть скрипт для PR. выводит результат в текстовом формате.

давно уже в инете есть такой скрипт.

и на форуме был не один раз.

для PageRank:

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 get_pr($url) {

    $result=array("",-1);



    if (($url.""!="")&&($url.""!="http://")):

    // check for protocol

    if (substr(strtolower($url),0,7)!="http://"):

    $url="http://".$url;

    endif;



    $url="info:".$url;

    $checksum=GoogleCH(strord($url));

    $google_url=sprintf("http://www.google.com/search?client=navclient-auto&ch=6%u&features=Rank&q=".$url,$checksum); // url to get from google



    $contents="";



    $handle = fopen($google_url, "rb");

    $contents = '';

    while (!feof($handle)) {

        $contents.= fread($handle, 8192);

    }

    fclose($handle);

    $p=explode(":",$contents);

    if (isset($p[2])):

    $result[1]=$p[2];

    endif;

    endif;



    return $result;

}



function getPR_url($url)

{

    global $db;



    if (eregi('^http://www.',$url)) {

        $url_www = str_replace('http://www.','http://',$url);

    } else {

        $url_www = str_replace('http://','http://www.',$url);

    }



    $pr=get_pr($url);

    $output=$pr[0];

    $pagerank=$pr[1];

    sleep(1);

    $pr=get_pr($url_www);

    $output_www=$pr[0];

    $pagerank_www=$pr[1];



    if ($pagerank<$pagerank_www) {

        $pagerank=$pagerank_www;

    }

    if ($pagerank==-1) {

        $pagerank=0;

    }

    return intval($pagerank);

}



// &#226;&#251;&#226;&#238;&#228; &#240;&#229;&#231;&#243;&#235;&#252;&#242;&#224;&#242;&#224;

    $pr = getPR_url($_POST['url']); 

определение тиц:

а вообще: стоит пользоваться поиском

function get_yandex_tic($url, $proxy = '')

{

    if ($url{strlen($url) - 1} == '/' || $url{strlen($url) - 1} == '\\')

        $url = substr($url, 0, -1);



    if (preg_match('/^www\./is', $url))

        $url2 = $url . ',' . substr($url, 4);

    else

        $url2 = 'www.' . $url . ',' . $url;



    $yandex_url = '/yca/cy/ch/' . $url . '/';

    

    $host = 'search.yaca.yandex.ru';

    $result = '';

    if ($proxy == '')

    {

        $fp = @fsockopen($host, 80, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET $yandex_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    else

    {

        preg_match('/^(?:http\:\/\/)?(.+)\:(\d{0,5})$/is', $proxy, $arr);

        $ip = $arr[1];

        $port = $arr[2];

        

        $fp = @fsockopen($ip, $port, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET http://$host$yandex_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    

    if (preg_match('/индекс цитирования (?:www\.)?(.+?)\s\<\/TITLE\>/is', $result, $arr))

        $url2 = 'www.' . $arr[1] . ',' . $arr[1];

    

    //фильтруем спец. символы preg_*

    $url2 = preg_replace('/([^\w\d]|_)/is', '\\\\\\1', $url2);



    if (preg_match("/$url2\&.+?\>(\d+)\<\/a\>/is", $result, $arr))

        return intval(@$arr[1]);

    else if (preg_match('/Индекс цитирования \(тИЦ\) ресурса..?меньше 10/is', $result))

        return 0;

    else

        return '-';

}



function yandex_tic($url, $proxy = '')

{

    if (!is_array($url))

        $url = array($url);

        

    $tic_arr = array();

    

    foreach ($url as $key => $val)

    {

        if (preg_match('/^http\:\/\//is', $val))

            $val = substr($val, 7);

        

        $url_www = $val;

        if (preg_match('/^www\./is', $val))

            $val = str_replace('www.', '', $val);

        else

            $url_www = 'www.' . $val;

            

        $tic = get_yandex_tic($val, $proxy);

    

        $tic_www = get_yandex_tic($url_www, $proxy);



        if ($tic_www > $tic)

            $tic_arr[] = $tic_www;

        else

            $tic_arr[] = $tic;

    }

    rsort($tic_arr, SORT_NUMERIC);

    return $tic_arr[0];

}

именно этот скрипт я и имел в виду. а насчёт тИЦ, то он у меня не работает:-(

вот ставь себе http://prcy.net ;)

вот типа такого и надо, только мне нужен скрипт

Есть такой все печатает на картинки ТИЦ+PR работает хорошо только на хосте Space Web.

Если заинтересовало прошу в личку.

почему эти скрипт только на этом хосте работают?

Потомучто SWeb один из лучших хостингов РуНета и главное он не забанен Яндексом, в отличие от некоторых других хостинг-провайдеров. Сам пользуюсь.

На счёт определения тиц'а и пиара ресурса не полностью понял.

Нужен скрипт, который будет выводить тиц и пр данной странице ввиде кнопки или скрипт сервиса определения показателей?

Если первое, то могу посоветовать http://serank.ru (ссылку можно расценивать как рекламу)

Если второе, то поможет Вам только хороший програмист, имхо.

да, нужен скрипт определения тиц и пр страницы. впрочем такой как на prcy.net или на вашем serank.ru. может кто подогнать такой скрипт по дешевке?