Скрипт массового определения тИЦ и PR

Могу на взаимовыгодных условиях дать Perl скрипт который массово проверяет PR. Если интересует пиши в личку.

в том скрипте маленькая ошибка.

Я у себя её исправлял и все работало

сам скрипт лежит здесь: http://webforus.com.ru/w/s/index.php?raz=how&klass=php&id=48

Похоже что он там подправленый. (сильно не разбирался)

Хотя недели три назад лежал с багом

Не, скрипт до сих пор с багом лежит, в 109 строке ошибка, пытаюсь исправить не получается. У них там есть еще для определения иц скрипт, который тоже с багом. :)

Уважаемые форумчане, я нашел как исправить баги в этом скрипте.

В строке 109 есть ссылка на гугл, вместо этой строки нужно прописать

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

Работает, на локалке, на веб-сервере не пробовал

Предлагаю программу, которая проверяет backlink's с сайтов партнеров. Также данная программа для введеных вами сайтов показывает PR, Тиц, кол-во обратных ссылок с Yandex, Google, Yahoo, MSN. Предоставляется недельное бесплатное тестирование. Все вопросы либо:

e-mail: order_tools@seoobzor.com

icq: 318-698-034

Вебфорус сейчас заблокирован :(

Может ли кто-нибудь выложить тамошний скрипт?

Вот код измененный мной, я его заставил работать:

<?

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);

}

echo @$_GET['url'].' '.getPR_url(@$_GET['url']);

?>

А я вот недавно обнаружил, что скрипт определения PR, приведенный выше, не хочет работать на некоторых серверах. И причина скорее всего в этой операции $a = ($a>>$b);. Причем что интересно там где PR не определяется эта операция битового смещения работает правильно, а где PR определяется, работает не правильно. Никто с такой проблемой не сталкивался?

pr определяется на на всех серверах, но определяется верно.