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



 

Здравствуйте, гость ( Вход | Регистрация )

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


Новичок
*******


Группа: Banned
Сообщений: 3674
Регистрация: 8.10.2007
Поблагодарили: 877 раз
Репутация:   251  


Сабж.

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

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


↑↑↑ Цель ↑↑↑
******

Группа: Active User
Сообщений: 1842
Регистрация: 17.3.2010
Поблагодарили: 394 раза
Репутация:   51  


вот так:

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


сеошник на пенсии
*******

Группа: Active User
Сообщений: 2726
Регистрация: 28.4.2009
Из: МО
Поблагодарили: 1659 раз
Репутация:   171  


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


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

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


Новичок
*******


Группа: Banned
Сообщений: 3674
Регистрация: 8.10.2007
Поблагодарили: 877 раз
Репутация:   251  


Спасибо.

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


Софт на заказ, icq ниже
******

Группа: Active User
Сообщений: 1136
Регистрация: 28.4.2009
Поблагодарили: 334 раза
Репутация:   41  


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


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


Новичок
*******


Группа: Banned
Сообщений: 3674
Регистрация: 8.10.2007
Поблагодарили: 877 раз
Репутация:   251  


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


Софт на заказ, icq ниже
******

Группа: Active User
Сообщений: 1136
Регистрация: 28.4.2009
Поблагодарили: 334 раза
Репутация:   41  


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

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

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


Новичок
*******


Группа: Banned
Сообщений: 3674
Регистрация: 8.10.2007
Поблагодарили: 877 раз
Репутация:   251  


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


Софт на заказ, icq ниже
******

Группа: Active User
Сообщений: 1136
Регистрация: 28.4.2009
Поблагодарили: 334 раза
Репутация:   41  


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


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


CMS help/antivirus
******

Группа: Active User
Сообщений: 1532
Регистрация: 27.12.2009
Из: Єдина Україна
Поблагодарили: 389 раз
Репутация:   57  


Вот на 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.


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


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Продажа аккаунтов - Gmail.com I Google+
аккаунты, Gmail Google+, не дорого
26 KYBERGURU73 9364 Вчера, 19:58
автор: KYBERGURU73
Открытая тема (нет новых ответов) Тема имеет прикрепленные файлыСервис Тургенев: проверка текстов на фильтр «Баден-Баден»
kaverina80.ru - блог копирайтера
0 kaverima80 334 Вчера, 9:09
автор: kaverima80
Открытая тема (нет новых ответов) Google назвал главные темы и тренды 2017 года
1 MissContent 336 14.12.2017, 15:59
автор: wertu
Открытая тема (нет новых ответов) 10 бесплатных сервисов Google для бизнеса, о которых мало кто слышал
18 jack 5960 14.12.2017, 12:29
автор: Akeeloq
Открытая тема (нет новых ответов) Google запустил инструмент для переноса кампаний из Директа в AdWords
7 jack 1637 14.12.2017, 0:19
автор: Ley


 



RSS Текстовая версия Сейчас: 16.12.2017, 21:22
Дизайн