Глубина, глубина, я не твой...
С нами с 12.07.05
Сообщения: 709
Рейтинг: 656
|
 Добавлено: 29/01/06 в 21:09 |
Хочу написать для собственных нужд чекалку ПРа, Алексаранка и кол-ва баквордов в СЕ.
Поможите инфой, люди добрые ... 
|
|
|
|
Все хорошо, не смотря ни на шо :)
|
0
|
|
| |
С нами с 17.07.04
Сообщения: 1285
Рейтинг: 651
|
| Добавлено: 29/01/06 в 21:13 |
| Цитата: |
<?php
// PHP Google PageRank Calculator Script
// -------------------------- April 2005
// Contact author: pagerankscript@googlecommunity.com
// for updates, visit:
// http://www.googlecommunity.com/scripts/google-pagerank.php
// provided by GoogleCommunity.com
// an unofficial community of Google fans
// ---------------------------------------
// Instructions
// Upload pagerank.php to your server
// Call it like this:
http://www.example.com/pagerank.php?url=http://www.yahoo.com/
// example.com is your website. yahoo.com is the website to get the
PR of
// The code below displays the PR for $url
/*
This code is released unto the public domain
*/
//header("Content-Type: text/plain; charset=utf-8");
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 getrank($url) {
$url = 'info:'.$url;
$ch = GoogleCH(strord($url));
$file =
"http://www.google.com/search?client=navclient-auto&ch=6$ch&features=Rank&q=$url";
$data = file($file);
$rankarray = explode (':', $data[2]);
$rank = $rankarray[2];
return $rank;
}
echo 'Google Page Rank for http://';
echo $url;
echo ' = '.getrank($_REQUEST["url"]).'';
echo ' / 10';
?> |
Остальное думаю сам напишешь...
|
|
|
|
| |
Глубина, глубина, я не твой...
С нами с 12.07.05
Сообщения: 709
Рейтинг: 656
|
| Добавлено: 29/01/06 в 23:01 |
СПС. Заценил по максимуму 
|
|
|
|
Все хорошо, не смотря ни на шо :)
|
0
|
|
| |
С нами с 07.05.03
Сообщения: 4644
Рейтинг: 223
|
| Добавлено: 30/01/06 в 01:41 |
|
|
|
|
| |
Глубина, глубина, я не твой...
С нами с 12.07.05
Сообщения: 709
Рейтинг: 656
|
| Добавлено: 30/01/06 в 02:45 |
Жаль что исходником нет. Мне именно исходникик нужы.
|
|
|
|
Все хорошо, не смотря ни на шо :)
|
0
|
|
| |
С нами с 05.12.99
Сообщения: 342
Рейтинг: 323
|
| Добавлено: 30/01/06 в 03:43 |
perl
WWW::Google::PageRank
|
|
|
|
| |
www.awm-tools.com
С нами с 28.01.04
Сообщения: 2941
Рейтинг: 3056
|
| Добавлено: 30/01/06 в 10:00 |
| SashiKK писал: | | Жаль что исходником нет. Мне именно исходникик нужы. |
Если есть желание - стучись, помогу.
|
|
|
|
| |
С нами с 24.10.04
Сообщения: 18881
Рейтинг: 9010
|
| Добавлено: 30/01/06 в 11:27 |
| SashiKK писал: | | Жаль что исходником нет. Мне именно исходникик нужы. |
Помойму просто с разных датацентров запросы ПРа брать надо, вот и все решение...
|
|
|
|
| |
www.awm-tools.com
С нами с 28.01.04
Сообщения: 2941
Рейтинг: 3056
|
| Добавлено: 30/01/06 в 12:02 |
| ibiz писал: | | Помойму просто с разных датацентров запросы ПРа брать надо, вот и все решение... |
Ну так вообщем и делается
|
|
|
|
| |
С нами с 24.10.04
Сообщения: 18881
Рейтинг: 9010
|
| Добавлено: 30/01/06 в 12:14 |
| A d u l t писал: | | Ну так вообщем и делается |
Кстати, не в курсе, после бана ипишника по кол-ву запросов на серчи, ПР-чекалку тоже банит автоматом или это глюк?
Просто заметил такую фигню у себя, через прокси работает, с чистого ипишника банит...
|
|
|
|
| |
С нами с 17.07.04
Сообщения: 1285
Рейтинг: 651
|
| Добавлено: 30/01/06 в 12:20 |
| ibiz писал: | | Помойму просто с разных датацентров запросы ПРа брать надо, вот и все решение... |
Ну и зачем сказал?дал бы парню подумать немного ))
|
|
|
|
| |
www.awm-tools.com
С нами с 28.01.04
Сообщения: 2941
Рейтинг: 3056
|
| Добавлено: 30/01/06 в 12:23 |
| ibiz писал: | Кстати, не в курсе, после бана ипишника по кол-ву запросов на серчи, ПР-чекалку тоже банит автоматом или это глюк?
Просто заметил такую фигню у себя, через прокси работает, с чистого ипишника банит... |
Там с куками работать надо. Вроде не особо банит, если аккуратно подходить к делу (тобишь с куками). А вообще лучше чередовать штук 5ть проксей и для каждой держать свои куки. Так очень даже аккуратно будет.
|
|
|
|
| |
