Скрипт определения ПР

123
A
На сайте с 23.10.2003
Offline
196
#11

Это для Mozilla/Netscape/Mozilla Firefox

андроид ТВ (http://qway.com.ua/android_tv) и экшн камеры (qway.com.ua/action-cameras) в Украине.
L
На сайте с 12.01.2005
Offline
5
#12

define('GMAG', 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 GCH($url, $length=null, $init=GMAG) {
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 getPR($_url) {
$url = 'info:'.$_url;
$ch = GCH(strord($url));
$url='info:'.urlencode($_url);
$pr = file("http://www.google.com/search?client=navclient-auto&ch=6$ch&ie=UTF-8&oe=UTF-8&features=Rank&q=$url");
$pr_str = implode("", $pr);
return substr($pr_str,strrpos($pr_str, ":")+1);
}


echo "<br>The PR of your website: ".getPR("http://www.jumplink.ru");
С уважением, админ JumpLink.ru (http://www.jumplink.ru/)
F
На сайте с 13.08.2004
Offline
255
#13

а какой это язык программирования? хочу знать с каким расширением сохранять файл, cgi?

Продажа мотоциклов (http://www.moto-sale.ru/), скутеров и мопедов
A
На сайте с 23.10.2003
Offline
196
#14

php :)

S
На сайте с 11.12.2004
Offline
24
#15

Скрипт то хороший, но требует грамотной доводки до ума, как сделано в WWW-Google-PageRank-0.09.tar.gz

M
На сайте с 03.03.2004
Offline
43
#16

lunux, этот РНРшный скрипт уже устарел.

гугл сменил алгоритм еще осенью прошлого года.

в WWW-Google-PageRank-0.09 новый алгоритм можешь глянуть, отличия минимальные, но весьма существенные ;)

Дневник БоГа (http://www.seriousrevenue.com/). Лента SEO форумов (http://www.seriousrevenue.com/scripts/rubot/). Статистика денег (http://www.seriousrevenue.com/scripts/rate/).
Bazili0
На сайте с 17.12.2004
Offline
7
#17
Как писал CompDocs
хм... народ, разница между сервисом и скриптом есть???

Вообще в данном случае - нет. :=)) Накатать парсер на перле или пхп за минут 20 и будет тебе скрипт :)

J2
На сайте с 06.04.2005
Offline
15
#18

monstring, уже есть 10я версия, но всеравно всё в Perl'е, я лично его нефурычу, так что лучше уж что то чем совсем ничего :)

с уваженством ... пишу: Рецепт кролика Тоби (http://kurilka.co.ua/archives/savetoby/)
maximusr
На сайте с 24.10.2003
Offline
44
#19

у нас программер написал какую-то программку и встроил ее в браузер, теперь можно смотреть PR по любому из дата-центров, очень удобно

TriLan - комплексный интернет-маркетинг (http://www.trilan.ru)
N8
На сайте с 25.06.2004
Offline
27
#20
Как писал jl2005
monstring, уже есть 10я версия, но всеравно всё в Perl'е, я лично его нефурычу, так что лучше уж что то чем совсем ничего :)

Можешь выложить, если у тебя есть?

123

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий