X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость (

| Вход | Регистрация )

Открыть тему
Тема закрыта
> Проверка PR через Google.com - ищется адрес
Пуховой
Пуховой
Topic Starter сообщение 27.7.2010, 7:06; Ответить: Пуховой
Сообщение #1


Сабж.

Нужен адрес запроса для проверки PR через Google Toolbar | Google.com.

Ответ обычно отдается в виде "Rank_1:1:*", насколько я знаю.
2
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
zakaznik
zakaznik
сообщение 27.7.2010, 8:05; Ответить: zakaznik
Сообщение #2


вот так:

http://google.com/search?client=navclient-auto&ch=8ffffffffc2b5abe9&features=Rank&q=info:site.ru


Сообщение отредактировал zakaznik - 27.7.2010, 8:05
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
webpavilion
webpavilion
сообщение 27.7.2010, 8:30; Ответить: webpavilion
Сообщение #3


zakaznik, ну конечно... если бы все так просто было. в ch передается хитрый хеш от урл.


--------------------
Не ведитесь, cамопис это почти всегда плохо!

Делаю сайты на Drupal 7.x
(очень дорого)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Пуховой
Пуховой
Topic Starter сообщение 27.7.2010, 8:37; Ответить: Пуховой
Сообщение #4


Спасибо.

Вопрос на засыпку - у кого есть функция генерации хэша от url на delphi 2010? Под 7-ку функция есть, под 2010 - не нашел.
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Highlook
Highlook
сообщение 27.7.2010, 9:23; Ответить: Highlook
Сообщение #5


Пуховой, а седьмая версия настолько отличается от 2010 ??
Я как то писал функцию генерации хеша под C++ Builder 2010. Сейчас если найду - скину. Там под дельфи заточить проблем не составит.


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Пуховой
Пуховой
Topic Starter сообщение 27.7.2010, 9:25; Ответить: Пуховой
Сообщение #6


Highlook, Delphi 2010 = полный переход на unicode. Отсюда и проблемы.
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Highlook
Highlook
сообщение 27.7.2010, 9:35; Ответить: Highlook
Сообщение #7


Пуховой, ЛС у вас переполнен или отключен.

Нашел вот что. Только что потестил - работает.

function check_pr(url: string): string;
const
seed='Mining PageRank is AGAINST GOOGLE'#39'S TERMS OF SERVICE. Yes, I'#39'm talking to you, scammer.';
var
i,urllen,seedlen,key: DWORD;
begin
key:=16909125;
seedlen:= Length(seed)+1;
urllen:= Length(url);
for i:=1 to urllen
do
begin
key:= key xor (Ord(seed[i mod seedlen]) xor Ord(url[i]));
key:= key shr 23 or key shl 9;
end;
result:='http://www.google.com/search?client=navclient-auto&ch=8'+IntToHex(key,8)+'&features=Rank&q=info:'+url;
end;


Не могу понять, зачем тут
Mining PageRank is AGAINST GOOGLE'#39'S TERMS OF SERVICE. Yes, I'#39'm talking to you, scammer.

но без него никак ).

Работает на Embarcadero Delphi 2010.

Сообщение отредактировал Highlook - 27.7.2010, 9:36


Поблагодарили: (2)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Пуховой
Пуховой
Topic Starter сообщение 27.7.2010, 9:50; Ответить: Пуховой
Сообщение #8


Highlook, Вы меня просто спасли. Огромное спасибо!
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Highlook
Highlook
сообщение 27.7.2010, 9:51; Ответить: Highlook
Сообщение #9


Пуховой, берите в команду за находчивость rolleyes.gif


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Electric
Electric
сообщение 27.7.2010, 11:11; Ответить: Electric
Сообщение #10


Вот на php если кому нужно:
<?php
// Edit this to your website url:
$myWebSite = "http://www.example.com";

//--> for google pagerank
function StrToNum($Str, $Check, $Magic)
{
    $Int32Unit = 4294967296;  // 2^32

    $length = strlen($Str);
    for ($i = 0; $i < $length; $i++) {
        $Check *= $Magic;    
        //If the float is beyond the boundaries of integer (usually +/- 2.15e+9 = 2^31),
        //  the result of converting to integer is undefined
        //  refer to http://www.php.net/manual/en/language.types.integer.php
        if ($Check >= $Int32Unit) {
            $Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));
            //if the check less than -2^31
            $Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;
        }
        $Check += ord($Str{$i});
    }
    return $Check;
}

//--> for google pagerank
/*
* Genearate a hash for a url
*/
function HashURL($String)
{
    $Check1 = StrToNum($String, 0x1505, 0x21);
    $Check2 = StrToNum($String, 0, 0x1003F);

    $Check1 >>= 2;    
    $Check1 = (($Check1 >> 4) & 0x3FFFFC0 ) | ($Check1 & 0x3F);
    $Check1 = (($Check1 >> 4) & 0x3FFC00 ) | ($Check1 & 0x3FF);
    $Check1 = (($Check1 >> 4) & 0x3C000 ) | ($Check1 & 0x3FFF);  
  
    $T1 = (((($Check1 & 0x3C0) << 4) | ($Check1 & 0x3C)) <<2 ) | ($Check2 & 0xF0F );
    $T2 = (((($Check1 & 0xFFFFC000) << 4) | ($Check1 & 0x3C00)) << 0xA) | ($Check2 & 0xF0F0000 );
  
    return ($T1 | $T2);
}

//--> for google pagerank
/*
* genearate a checksum for the hash string
*/
function CheckHash($Hashnum)
{
    $CheckByte = 0;
    $Flag = 0;

    $HashStr = sprintf('%u', $Hashnum);
    $length = strlen($HashStr);
  
    for ($i = $length - 1;  $i >= 0;  $i --) {
        $Re = $HashStr{$i};
        if (1 === ($Flag % 2)) {            
            $Re += $Re;    
            $Re = (int)($Re / 10) + ($Re % 10);
        }
        $CheckByte += $Re;
        $Flag ++;  
    }

    $CheckByte %= 10;
    if (0 !== $CheckByte) {
        $CheckByte = 10 - $CheckByte;
        if (1 === ($Flag % 2) ) {
            if (1 === ($CheckByte % 2)) {
                $CheckByte += 9;
            }
            $CheckByte >>= 1;
        }
    }

    return '7'.$CheckByte.$HashStr;
}

//get google pagerank
function getpagerank($url) {
    $query="http://toolbarqueries.google.com/search?client=navclient-auto&ch=".CheckHash(HashURL($url)). "&features=Rank&q=info:".$url."&num=100&filter=0";
    $data=file_get_contents_curl($query);
    //print_r($data);
    $pos = strpos($data, "Rank_");
    if($pos === false){} else{
        $pagerank = substr($data, $pos + 9);
        return $pagerank;
    }
}

function file_get_contents_curl($url) {
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_HEADER, 0);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); //Set curl to return the data instead of printing it to the browser.
    curl_setopt($ch, CURLOPT_URL, $url);
    $data = curl_exec($ch);
    curl_close($ch);

    return $data;
}

echo "The PR of <b>".$myWebSite."</b> is: ".getpagerank($myWebSite);
?>
Проверено - работает. Главное чтобы была подключена библиотека CURL.

Замечание модератора:
Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней.
Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой
или обратитесь к любому из модераторов.


--------------------


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
4 чел. читают эту тему (гостей: 4, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) ⭐⭐⭐ Google Voice | Gmail - OLD аккаунты "SMS и звонки" ⭐⭐⭐
15 Chekon 4393 Сегодня, 12:00
автор: Chekon
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыBropush - Твой бро в монетизации через Push-уведомления
30 bropush 11794 16.4.2024, 18:19
автор: bropush
Горячая тема (нет новых ответов) Проверка позиций сайтов в поисковых системах с помощью Positon.ru
Мониторинг продвижения сайтов
183 Positon 179464 12.4.2024, 8:32
автор: Positon
Открытая тема (нет новых ответов) Если статья не в индексе Google - она уникальна или нет?
5 uahomka 1432 3.4.2024, 23:56
автор: Liudmila
Открытая тема (нет новых ответов) Через какой браузер и как можно найти в кэшэ браузера видео
10 Room 2286 23.3.2024, 7:41
автор: Room


 



RSS Текстовая версия Сейчас: 18.4.2024, 18:54
Дизайн