Помощник
|
Проверка PR через Google.com - ищется адрес |
Пуховой
|
Сообщение
#1
|
||
|
|
||
|
|||
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 |
27.7.2010, 8:30;
Ответить: webpavilion
Сообщение
#3
|
|
zakaznik, ну конечно... если бы все так просто было. в ch передается хитрый хеш от урл.
-------------------- Не ведитесь, cамопис это почти всегда плохо! Делаю сайты на Drupal 7.x (очень дорого) |
|
|
Пуховой
|
Сообщение
#4
|
|
Спасибо.
Вопрос на засыпку - у кого есть функция генерации хэша от url на delphi 2010? Под 7-ку функция есть, под 2010 - не нашел. |
|
|
Highlook |
27.7.2010, 9:23;
Ответить: Highlook
Сообщение
#5
|
|
Пуховой, а седьмая версия настолько отличается от 2010 ??
Я как то писал функцию генерации хеша под C++ Builder 2010. Сейчас если найду - скину. Там под дельфи заточить проблем не составит. |
|
|
Пуховой
|
Сообщение
#6
|
|
Highlook, Delphi 2010 = полный переход на unicode. Отсюда и проблемы.
|
|
|
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 |
|
|
Пуховой
|
Сообщение
#8
|
|
Highlook, Вы меня просто спасли. Огромное спасибо!
|
|
|
Highlook |
27.7.2010, 9:51;
Ответить: Highlook
Сообщение
#9
|
|
Пуховой, берите в команду за находчивость
|
|
|
Electric |
27.7.2010, 11:11;
Ответить: Electric
Сообщение
#10
|
|
|
Вот на php если кому нужно:
<?php Проверено - работает. Главное чтобы была подключена библиотека CURL. // 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); ?>
-------------------- |
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Продажа аккаунтов - Gmail.com I Google+ аккаунты, Gmail Google+, не дорого |
64 | KYBERGURU73 | 51754 | 19.4.2024, 22:52 автор: KYBERGURU73 |
|
⭐⭐⭐ Google Voice | Gmail - OLD аккаунты "SMS и звонки" ⭐⭐⭐ | 15 | Chekon | 4467 | 18.4.2024, 12:00 автор: Chekon |
|
Bropush - Твой бро в монетизации через Push-уведомления | 30 | bropush | 11848 | 16.4.2024, 18:19 автор: bropush |
|
Проверка позиций сайтов в поисковых системах с помощью Positon.ru Мониторинг продвижения сайтов |
183 | Positon | 179530 | 12.4.2024, 8:32 автор: Positon |
|
Если статья не в индексе Google - она уникальна или нет? | 5 | uahomka | 1443 | 3.4.2024, 23:56 автор: Liudmila |
Текстовая версия | Сейчас: 24.4.2024, 7:07 |