skripty pro zjištění ranku

18. 12. 2007 22:11:11

Zdravím, nemáte někdo skripty, které by pro určité url zjistily ranky pagerank, srank, alexarank, jyxorank a případně další?

18. 12. 2007 22:11:11

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32299

Dan

(16 hodnocení)

18. 12. 2007 22:15:07

Adresy nebo přímo kódy prosím házejte přímo sem, mohlo by to zajímat více lidí (třeba i mne).

http://s-rank.webkitchen.cz/download

18. 12. 2007 22:15:07

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32298

Vít Jurásek

(56 hodnocení)

18. 12. 2007 22:40:06

Napsal Dan;24220
Adresy nebo přímo kódy prosím házejte přímo sem, mohlo by to zajímat více lidí (třeba i mne).
http://s-rank.webkitchen.cz/download

Super, odzkoušeno - ten funguje. Jen pozor - je tam zákeřnost, je potřeba si přečíst toto:

http://fulltext.sblog.cz/vyvoj/

Ve skriptu:

http://s-rank.webkitchen.cz/srank-regexp.phps

defakto potom jen zaměňte

(d+)

18. 12. 2007 22:40:06

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32297

Jakub Stacho

(20 hodnocení)

18. 12. 2007 22:50:20

GTPR. Nevím už kde jsem to vzal ani kdo je autorem. Omlouvám se tedy. Navíc jsem to neuměle přepsal pro curl.

//PageRank Lookup v1.1 by HM2K (update: 31/01/07)

//based on an alogorithm found here: http://pagerank.gamesaga.net/

//settings:

$timeout = 4;

$ua='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.6) Gecko/20060728 Firefox/1.5';

//convert a string to a 32-bit integer

function StrToNum($Str, $Check, $Magic) {

$Int32Unit = 4294967296; // 2^32

$length = strlen($Str);

for ($i = 0; $i < $length; $i++) {

$Check *= $Magic;

if ($Check >= $Int32Unit) {

$Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));

$Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;

}

$Check += ord($Str{$i});

}

return $Check;

}

//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);

}

//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;

}

//return the pagerank checksum hash

function getch($url) {

return CheckHash(HashURL($url));

}

//return the pagerank figure

function gtpr($url) {

global $ua,$timeout;

$googlehost='toolbarqueries.google.com';

$ch = getch($url);

$fp = curl_init();

if ($fp) {

$get = '/search?client=navclient-auto&ch='.$ch.'&features=Rank&q=info:'.$url;

curl_setopt ($fp, CURLOPT_URL, $googlehost.$get);

curl_setopt ($fp, CURLOPT_USERAGENT, $ua);

curl_setopt ($fp, CURLOPT_RETURNTRANSFER, true);

curl_setopt ($fp, CURLOPT_CONNECTTIMEOUT, $timeout);

$out = curl_exec ($fp);

curl_close ($fp);

$data = substr($out, 0, 128);

$pos = strpos($data, "Rank_");

if($pos !== false){

$pr=substr($data, $pos + 9);

$pr=trim($pr);

$pr=str_replace("n",'',$pr);

return $pr;

}

else return 0;

}

18. 12. 2007 22:50:20

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32296

Martin

(36 hodnocení)

18. 12. 2007 23:39:07

Napsal tracy;24225

//PageRank Lookup v1.1 by HM2K (update: 31/01/07)
//based on an alogorithm found here: http://pagerank.gamesaga.net/

http://www.hm2k.com/projects/pagerank :)

18. 12. 2007 23:39:07

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32295

Vít Jurásek

(56 hodnocení)

19. 12. 2007 00:36:41

Jyxorank bude asi oříškem, zřejmě jediné vodítko je odposlouchat provoz jyxolišty. Něco málo je tady:

http://hidden.fossilgroup.net/?p=20

Příklad:

http:/rank.jyxo.cz/cgi/query?l=0&ci=0xa3e5713c&m=hidden.fossilgroup.net

(opravte si na http:// - aby to webtrh nezkrátil)

vrací toto

http://hidden.fossilgroup.net/

hidden blog aj o SEO

Problém je, jak zjistit parametr CI. Je to nějaký hash z parametru M.

Pokud ten hash nesedí, zmizí z výsledku parametr JYXORANK.

Nenapadá někoho, jak semlet to url tak, abychom dostali 0xa3e5713c ?

Jeden z komentářů v diskuzi:

Tak jsem si s tím hrál taky, chtěl bych udělat jyxo bar pro firefox, respektive jen ten jyxorank buttonek, nějak se mi ale nedaří přijít na to, jak jyxobar generuje ten checksum kód. Zkoušel jsem se koukat do DLL, taj je vidět, že tomu přiřazuje proměnou %x, ovšem jak a z čeho ji spočítá jsem nepochopil, respektive vím že je to 0x následovaná 8 hexadecimálními znaky počítanými z webové adresy (komplet), a stejná adresa vrací stejný kód (ovšem změna třeba jen vymazání www už vrací jiný).

Netušíte někdo kudy na to, jsem nějaký natvrdlý

Je tu nějaký odborník, co by to zvládnul?

19. 12. 2007 00:36:41

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32294

toshi

(4 hodnocení)

19. 12. 2007 01:53:03

Napsal vitjurasek;24237
Je tu nějaký odborník, co by to zvládnul?

Je tu dokonce odborník(ah moje ego) co už to zvládl :)

Bez znalosti assembleru to asi neprokoukneš. Netroufám se odhadnout jestli by se to dalo zpětně dopočítat, ale předpokládam, že by to bylo asi složitější než se naučit assembler sám, na tohle stačí fakt základ...netřeba umět programovat kdejakýho brouka ;)

19. 12. 2007 01:53:03

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32293

Vít Jurásek

(56 hodnocení)

25. 12. 2007 21:12:31

Napsal toshi;24238
Je tu dokonce odborník(ah moje ego) co už to zvládl :)

Bez znalosti assembleru to asi neprokoukneš. Netroufám se odhadnout jestli by se to dalo zpětně dopočítat, ale předpokládam, že by to bylo asi složitější než se naučit assembler sám, na tohle stačí fakt základ...netřeba umět programovat kdejakýho brouka ;)

A nechtěl by odborník poradit prostým lidem? :-) Nebo je to považováno za přísně střežené know how? Nemám to pro poskytování veřejné služby ikonek, jen pro svoji soukromou potřebu v rámci mého webu.

25. 12. 2007 21:12:31

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32292

Honzaa

20. 1. 2008 22:14:56

Napsal tracy;24225
GTPR. Nevím už kde jsem to vzal ani kdo je autorem. Omlouvám se tedy. Navíc jsem to neuměle přepsal pro curl.
(...)

Já používám pro Google toto:

/******************

* PageRankXor32 class created by MagicBeanDip

* PageRank class was created by others

* Look for updates at http://v1.magicbeandip.com/mbd-file/PageRankReport.php

* This code is released into the Public Domain

* Sample use:

* include('PageRankXor32.php');

* $oPR=new PageRankXor32();

* echo $oPR->getRank('http://www.amazon.com');

******************/

define('GOOGLE_MAGIC', 0xE6359A60);

// Use this class if your server is having problems with bitwise operations

class PageRankXor32 extends PageRank {

function xor32($a, $b) {

return $this->int32($a) ^ $this->int32($b);

}

//return least significant 32 bits

//works by telling unserialize to create an integer even though we provide a double value

function int32($x) {

return unserialize("i:$x;");

//return intval($x); // This line doesn't work on all servers.

}

function mix($a,$b,$c) {

$a -= $b; $a -= $c; $a = $this->xor32($a,$this->zeroFill($c,13));

$b -= $c; $b -= $a; $b = $this->xor32($b,$a<<8);

$c -= $a; $c -= $b; $c = $this->xor32($c,$this->zeroFill($b,13));

$a -= $b; $a -= $c; $a = $this->xor32($a,$this->zeroFill($c,12));

$b -= $c; $b -= $a; $b = $this->xor32($b,$a<<16);

$c -= $a; $c -= $b; $c = $this->xor32($c,$this->zeroFill($b,5));

$a -= $b; $a -= $c; $a = $this->xor32($a,$this->zeroFill($c,3));

$b -= $c; $b -= $a; $b = $this->xor32($b,$a<<10);

$c -= $a; $c -= $b; $c = $this->xor32($c,$this->zeroFill($b,15));

return array($a,$b,$c);

}

//This class should work on most servers

class PageRank {

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 ^= ($this->zeroFill($c,13));

$b -= $c; $b -= $a; $b ^= ($a<<8);

$c -= $a; $c -= $b; $c ^= ($this->zeroFill($b,13));

$a -= $b; $a -= $c; $a ^= ($this->zeroFill($c,12));

$b -= $c; $b -= $a; $b ^= ($a<<16);

$c -= $a; $c -= $b; $c ^= ($this->zeroFill($b,5));

$a -= $b; $a -= $c; $a ^= ($this->zeroFill($c,3));

$b -= $c; $b -= $a; $b ^= ($a<<10);

$c -= $a; $c -= $b; $c ^= ($this->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 +($url<<8) +($url<<16) +($url<<24));

$b += ($url +($url<<8) +($url<<16) +($url<<24));

$c += ($url +($url<<8) +($url<<16)+($url<<24));

$mix = $this->mix($a,$b,$c);

$a = $mix; $b = $mix; $c = $mix;

$k += 12;

$len -= 12;

}

$c += $length;

switch($len){

case 11: $c+=($url<<24);

case 10: $c+=($url<<16);

case 9 : $c+=($url<<8);

/* the first byte of c is reserved for the length */

case 8 : $b+=($url<<24);

case 7 : $b+=($url<<16);

case 6 : $b+=($url<<8);

case 5 : $b+=($url);

case 4 : $a+=($url<<24);

case 3 : $a+=($url<<16);

case 2 : $a+=($url<<8);

case 1 : $a+=($url);

}

$mix = $this->mix($a,$b,$c);

/* report the result */

return $mix;

}

//converts a string into an array of integers containing the numeric value of the char

function strord($string) {

for($i=0;$i

$result = ord($string{$i});

}

return $result;

}

//returns -1 if no page rank was found

function getRank($url){

$ch = "6".$this->GoogleCH($this->strord("info:" . $url));

$pagerank=-1;

$fp = fsockopen("www.google.com", 80, $errno, $errstr, 30);

if (!$fp) {

echo "$errstr ($errno)
n";

} else {

$out = "GET /search?client=navclient-auto&ch=" . $ch . "&features=Rank&q=info:" . $url . " HTTP/1.1rn" ;

$out .= "Host: www.google.comrn" ;

$out .= "Connection: Closernrn" ;

fwrite($fp, $out);

while (!feof($fp)) {

$data = fgets($fp, 128);

$pos = strpos($data, "Rank_");

if($pos === false){

}else{

$pagerank = trim(substr($data, $pos + 9));

}

fclose($fp);

}

return $pagerank;

}

20. 1. 2008 22:14:56

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32291

Vít Jurásek

(56 hodnocení)

27. 1. 2008 01:11:31

tak už nám zbývá rozlousknout jen ten jyxo rank :-)

pomůže někdo?

27. 1. 2008 01:11:31

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32290

Webtrh obecný účet

(1 hodnocení)

2. 2. 2008 15:18:54

Vážně nikdo? Copak to nejde dneska už jinak než za peníze?

2. 2. 2008 15:18:54

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32289

Webtrh obecný účet

(1 hodnocení)

25. 4. 2008 08:59:40

Zdravim,

skripty na rank.webkitchen.cz na zjistovani sranku jeste funguji?

V XML zasilanem na srank.seznam.cz je mj.

(d+)

Odpoved serveru je stabilne

faultCode

-503

Tedy chybny kod... V XML zasilanem na srank.seznam.cz je nutno nejaky kod vygenerovat, ale to parne PHP skripty zminovane vyse neresi...

Nemate s tim nekdo cerstvou zkusenost?

diky

Roman Luňáček

25. 4. 2008 08:59:40

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32288

Dr.Diesel

26. 4. 2008 19:30:00

Napsal vitjurasek;24761
A nechtěl by odborník poradit prostým lidem? :-) Nebo je to považováno za přísně střežené know how? Nemám to pro poskytování veřejné služby ikonek, jen pro svoji soukromou potřebu v rámci mého webu.

Odbornik si potreboval popohnat ego a imho ma prd :D

26. 4. 2008 19:30:00

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32287

Jakub

(3 hodnocení)

26. 4. 2008 19:30:17

Chci se zeptat, jestli nema nekdo skript pro S-RANK ktery ukaze obrazek.. (bud vyuziti GD knihovny, nebo natazeni obrazku..) dik

Luňáček: ano, to mi funguje

26. 4. 2008 19:30:17

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32286

toshi

(4 hodnocení)

26. 4. 2008 20:57:20

Napsal Dr.Diesel;54983
Odbornik si potreboval popohnat ego a imho ma prd :D

a. No samozřejmě, kam se na mě hrabe Zadek Lulán !

b. http://rank.isecure.cz pubescente :P

c. Prostý lid je povětšinou povalečská lůza co chce všechno na stříbrným podnose. Světlé výjimky už mají puštěný disassembler a pixlu kafe v akční poloze, následně si honí ega v diskuzích :)

26. 4. 2008 20:57:20

https://webtrh.cz/diskuse/skripty-pro-zjisteni-ranku#reply32285