![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
15/01/2008, 20:25
|
![Avatar de alexfut](http://static.forosdelweb.com/customavatars/avatar208809_3.gif) | | | Fecha de Ingreso: diciembre-2007 Ubicación: México
Mensajes: 484
Antigüedad: 17 años, 1 mes Puntos: 8 | |
Re: Obtener PageRank y Alexa Ranking Bueno creo que es algo asi
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 xor32($a, $b)
{
return int32($a) ^ 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 = xor32($a,zeroFill($c,13));
$b -= $c; $b -= $a; $b = xor32($b,$a<<8);
$c -= $a; $c -= $b; $c = xor32($c,zeroFill($b,13));
$a -= $b; $a -= $c; $a = xor32($a,zeroFill($c,12));
$b -= $c; $b -= $a; $b = xor32($b,$a<<16);
$c -= $a; $c -= $b; $c = xor32($c,zeroFill($b,5));
$a -= $b; $a -= $c; $a = xor32($a,zeroFill($c,3));
$b -= $c; $b -= $a; $b = xor32($b,$a<<10);
$c -= $a; $c -= $b; $c = xor32($c,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[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24));
$b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24));
$c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24));
$mix = mix($a,$b,$c);
$a = $mix[0]; $b = $mix[1]; $c = $mix[2];
$k += 12;
$len -= 12;
}
$c += $length;
switch ($len)
{
case 11: $c+=($url[$k+10]<<24);
case 10: $c+=($url[$k+9]<<16);
case 9 : $c+=($url[$k+8]<<8);
/* the first byte of c is reserved for the length */
case 8 : $b+=($url[$k+7]<<24);
case 7 : $b+=($url[$k+6]<<16);
case 6 : $b+=($url[$k+5]<<8);
case 5 : $b+=($url[$k+4]);
case 4 : $a+=($url[$k+3]<<24);
case 3 : $a+=($url[$k+2]<<16);
case 2 : $a+=($url[$k+1]<<8);
case 1 : $a+=($url[$k+0]);
}
$mix = mix($a,$b,$c);
/* report the result */
return $mix[2];
}
//converts a string into an array of integers containing the numeric value of the char
function strord($string)
{
for ($i=0; $i < strlen ($string); $i++)
{
$result[$i] = ord ($string{$i});
}
return $result;
}
//returns -1 if no page rank was found
function get_page_rank($url)
{
$ch = "6".GoogleCH(strord("info:" . $url));
$pagerank = -1;
$fp = @ fsockopen ("www.google.com", 80, $errno, $errstr, 10);
if (!$fp)
{
echo "$errstr ($errno)<br />\n";
}
else
{
$out = "GET /search?client=navclient-auto&ch=" . $ch . "&features=Rank&q=info:" . $url . " HTTP/1.1\r\n" ;
$out .= "Host: www.google.com\r\n" ;
$out .= "Connection: Close\r\n\r\n" ;
@ fwrite ($fp, $out);
while (!feof ($fp))
{
$data = @ fgets ($fp, 128);
$pos = strpos ($data, "Rank_");
if ($pos !== false)
{
$pagerank = trim (substr ($data, $pos + 9));
}
}
@ fclose ($fp);
}
return $pagerank;
}
?>
Yo tambien estoy intentando algo parecido pero mas avanzado, y como dice Darkj, la API de pagerank no esta disponible al publico, aunque la hckearon y se usa en varias webs, y yo kiero usarlo en la mia, pero estoy en busca de mas documentacion y cuando lologre yo te paso todo con mucho gusto, solo avisame pidelo en mi foro buscasdeweb.com/foros |