Помощник
|
Как считать Google CheckSum? |
Adm
|
Сообщение
#1
|
||
|
|
||
|
|||
SeoMAN2008 |
9.6.2008, 20:48;
Ответить: SeoMAN2008
Сообщение
#2
|
|
В админке гугла.
|
|
|
Mikanoshi |
9.6.2008, 21:37;
Ответить: Mikanoshi
Сообщение
#3
|
|
Народ, подскажите, плз! Что такое контрольная сумма Google и как ее считают? Есть у меня пхп скрипт, где она вычисляется, но за незнанием пхп, понять что в нем происходит я не могу А зачем понимать?) Портировать хочешь на другой язык? -------------------- |
|
|
Adm
|
Сообщение
#4
|
|
Да не, просто хотел написать десктопную прогу для вычисления PR и ТИЦ для списка сайтов (на Дельфи). Уже написал, без чексуммы обошелся
-------------------- |
|
|
Mikanoshi |
10.6.2008, 11:03;
Ответить: Mikanoshi
Сообщение
#5
|
|
Да не, просто хотел написать десктопную прогу для вычисления PR и ТИЦ для списка сайтов (на Дельфи). Уже написал, без чексуммы обошелся Это как ты ПР без чексуммы получил На Делфи есть готовые функции ПР, тИЦ, Алекса ранк) -------------------- |
|
|
Adm
|
Сообщение
#6
|
|
Это как ты ПР без чексуммы получил Нашел готовый компонент для ПР, его и юзнул. Можно глянуть ТУТ - прога называется TICPR. -------------------- |
|
|
Mikanoshi |
10.6.2008, 20:16;
Ответить: Mikanoshi
Сообщение
#7
|
|
Нашел готовый компонент для ПР, его и юзнул. Можно глянуть ТУТ - прога называется TICPR. Это твоя прога?.. Дак компонент юзает контрольную сумму значит! Вот и спрашиваю как без неё-то )) -------------------- |
|
|
Adm
|
Сообщение
#8
|
|
Это твоя прога?.. Дак компонент юзает контрольную сумму значит! Вот и спрашиваю как без неё-то )) Прога - моя. Но зачем мне знать как работает компонент? Я же просто пользую его свойства и методы, а чего уж там у него в мозгах происходит - его дело ))) -------------------- |
|
|
Guerrilla |
11.6.2008, 9:22;
Ответить: Guerrilla
Сообщение
#9
|
|
|
Перловый скрипт для вычисления checksum, сохраняем как checksum.cgi и кидаем в папку cgi-bin.
#!/usr/bin/perl use URI::Escape; ($url, $value) = split(/=/, $ENV{QUERY_STRING}); $value = uri_unescape($value); print "Content-Type: text/plain\r\n\r\n"; print '6'._compute_ch_new('info:'.$value); sub _compute_ch_new { my $url = shift; my $ch = _compute_ch($url); $ch = (($ch % 0x0d) & 7) | (($ch / 7) << 2); return _compute_ch(pack("V20", map {my $t = $ch; _wsub($t, $_*9); $t} 0..19)); } sub _compute_ch { my $url = shift; my @url = map {ord $_} split '', $url; my ($a, $b, $c, $k) = (0x9e3779b9, 0x9e3779b9, 0xe6359a60, 0); my $len = scalar @url; while ($len >= 12) { _wadd($a, $url[$k+0] | ($url[$k+1] << 8) | ($url[$k+2] << 16) | ($url[$k+3] << 24)); _wadd($b, $url[$k+4] | ($url[$k+5] << 8) | ($url[$k+6] << 16) | ($url[$k+7] << 24)); _wadd($c, $url[$k+8] | ($url[$k+9] << 8) | ($url[$k+10] << 16) | ($url[$k+11] << 24)); _mix($a, $b, $c); $k += 12; $len -= 12; } _wadd($c, scalar @url); _wadd($c, $url[$k+10] << 24) if $len > 10; _wadd($c, $url[$k+9] << 16) if $len > 9; _wadd($c, $url[$k+8] << 8) if $len > 8; _wadd($b, $url[$k+7] << 24) if $len > 7; _wadd($b, $url[$k+6] << 16) if $len > 6; _wadd($b, $url[$k+5] << 8) if $len > 5; _wadd($b, $url[$k+4]) if $len > 4; _wadd($a, $url[$k+3] << 24) if $len > 3; _wadd($a, $url[$k+2] << 16) if $len > 2; _wadd($a, $url[$k+1] << 8) if $len > 1; _wadd($a, $url[$k]) if $len > 0; _mix($a, $b, $c); return $c; # integer is positive always } sub _mix { my ($a, $b, $c) = @_; _wsub($a, $b); _wsub($a, $c); $a ^= $c >> 13; _wsub($b, $c); _wsub($b, $a); $b ^= ($a << 8) % 4294967296; _wsub($c, $a); _wsub($c, $b); $c ^= $b >>13; _wsub($a, $b); _wsub($a, $c); $a ^= $c >> 12; _wsub($b, $c); _wsub($b, $a); $b ^= ($a << 16) % 4294967296; _wsub($c, $a); _wsub($c, $b); $c ^= $b >> 5; _wsub($a, $b); _wsub($a, $c); $a ^= $c >> 3; _wsub($b, $c); _wsub($b, $a); $b ^= ($a << 10) % 4294967296; _wsub($c, $a); _wsub($c, $b); $c ^= $b >> 15; @_[0 .. $#_] = ($a, $b, $c); } sub _wadd { $_[0] = int(($_[0] + $_[1]) % 4294967296);} sub _wsub { $_[0] = int(($_[0] - $_[1]) % 4294967296);}
|
|
|
||
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Продажа аккаунтов - Gmail.com I Google+ аккаунты, Gmail Google+, не дорого |
64 | KYBERGURU73 | 51574 | Вчера, 22:52 автор: KYBERGURU73 |
|
Арбитражники, как ведете учет расходов и доходов? | 12 | Boymaster | 1923 | Вчера, 21:03 автор: MisterBit |
|
⭐⭐⭐ Google Voice | Gmail - OLD аккаунты "SMS и звонки" ⭐⭐⭐ | 15 | Chekon | 4449 | 18.4.2024, 12:00 автор: Chekon |
|
Как вывести деньги в Украине с заблокированного Юмани ? | 29 | freeax | 4817 | 17.4.2024, 1:19 автор: sergio11 |
|
Как вы отдыхаете от работы за компом | 148 | adw-kupon.ru | 19713 | 8.4.2024, 10:37 автор: Skyworker |
Текстовая версия | Сейчас: 20.4.2024, 7:05 |