Форум Сайтостроение Веб-строительство

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

S
На сайте с 09.10.2007
Offline
186
simka
1727

Поделитесь, пожалуйста, скриптом определения ПР гугл. По форуму искал, рабочего не нашел.

1 возвращает Content-Length: 0, второй - неправильно генерит chk

Спасибо

Удобная панель для доменных имен (http://panel.started.ru/) с массовыми операциями. Индивидуальные цены по запросу.
MA
На сайте с 05.11.2007
Offline
3
masta_a
#1 


<?php

define('GOOGLE_MAGIC', 0xE6359A60);

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)

 {

 case 11: $c+=($url[$k+10]<<24);

 case 10: $c+=($url[$k+9]<<16);

 case 9 : $c+=($url[$k+8]<<8);

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

 }

 $mix = mix($a,$b,$c);

 return $mix[2];

}



function strord($string) {

 for($i=0;$i<strlen($string);$i++) {

 $result[$i] = ord($string{$i});

 }

 return $result;

}



function ReadPR($link)

{

 $fp = fsockopen ("www.google.com", 80, $errno, $errstr, 30);



 if (!$fp)

 {

 echo "$errstr ($errno)\n";

 exit(1);

 }

 else

 {

 $out = "GET $link HTTP/1.0\r\n";

 $out .= "Host: toolbarqueries.google.com\r\n";

 $out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114.9-big; Windows 5.2)\r\n";

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

 fwrite($fp, $out);

 

 do{

 $line = fgets($fp, 128);

 }while ($line !== "\r\n");

 $data = fread($fp,8192);

 fclose ($fp);

 return $data;

 }

}



function GetPR($url)

{

 $url ='info:'.$url;

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

 $data = ReadPR("/search?client=navclient-auto&ch=6$ch&features=Rank&q=$url");

 $rankarray = explode (':', $data);

 return $rankarray[2];

}



if ( isset($_POST['url']) && $_POST['url'] !== '' )

{

 echo 'PageRank: '.GetPR($_POST['url']); 

}

?>

<html><title>Google PR???</title>

<body>

<form action='' method='post'><br />

URL:<input name='url' value='http://' type='text' size=40>

<input name='submit' type='submit' value='Get PR'>

</form></body></html>
Eddie
На сайте с 12.07.2006
Offline
36
Eddie
#2 


#!/usr/bin/perl

use WWW::Google::PageRank;

my $pr = WWW::Google::PageRank->new;

print scalar($pr->get("http://www.google.com"))."\n";

Модуль WWW::Google::PageRank можно скачать отсюда.

Блог веселого программиста (http://www.bloged.org)
Глумий
На сайте с 17.01.2007
Offline
71
Глумий
#3

Лучший из того, что видел:

http://www.phpclasses.org/browse/package/2682.html (нужна регистрация, если у вас ее еще нет)

Как одиночное так и множественное определение PR (для 1 или группы страниц/сайтов)

Подскажите, как помочь (/ru/forum/421370)? Читать не перечитать. Тысячи отсканированных журналов и книг с удобным просмотром и без рекламы. ReadOz (http://fff.to/1fY)
[Удален]
#4

http://joeabiraad.com/ajax/google-pagerank-using-ajax/104

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