Free Pagerank script

<?



	class functions {

		function to_int_32 (&$x) {

			$z = hexdec(80000000);

			$y = (int) $x;

			if($y ==- $z && $x <- $z){

			 $y = (int) ((-1) * $x);

			 $y = (-1) * $y;

			}

			$x = $y;

		}  

		function zero_fill ($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; $this->to_int_32($a); $a = (int)($a ^ ($this->zero_fill($c,13)));

			$b -= $c; $b -= $a; $this->to_int_32($b); $b = (int)($b ^ ($a<<8));

			$c -= $a; $c -= $b; $this->to_int_32($c); $c = (int)($c ^ ($this->zero_fill($b,13)));

			$a -= $b; $a -= $c; $this->to_int_32($a); $a = (int)($a ^ ($this->zero_fill($c,12)));

			$b -= $c; $b -= $a; $this->to_int_32($b); $b = (int)($b ^ ($a<<16));

			$c -= $a; $c -= $b; $this->to_int_32($c); $c = (int)($c ^ ($this->zero_fill($b,5)));

			$a -= $b; $a -= $c; $this->to_int_32($a); $a = (int)($a ^ ($this->zero_fill($c,3)));

			$b -= $c; $b -= $a; $this->to_int_32($b); $b = (int)($b ^ ($a<<10));

			$c -= $a; $c -= $b; $this->to_int_32($c); $c = (int)($c ^ ($this->zero_fill($b,15)));

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

		}

		function checksum ($url, $length = null, $init = 0xE6359A60) {

			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 = $this->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);

				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 = $this->mix($a, $b, $c);

			return $mix[2];

		}

		function strord($string) {

			for($i = 0; $i < strlen($string); $i++) {

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

			}

			return $result;

		}

		//

		//

		//

		function format_number ($number='', $divchar = ',', $divat = 3) {

			$decimals = '';

			$formatted = '';

			if (strstr($number, '.')) {

				$pieces = explode('.', $number);

				$number = $pieces[0];

				$decimals = '.' . $pieces[1];

			} else {

				$number = (string) $number;

			}

			if (strlen($number) <= $divat)

				return $number;

				$j = 0;

			for ($i = strlen($number) - 1; $i >= 0; $i--) {

				if ($j == $divat) {

					$formatted = $divchar . $formatted;

					$j = 0;

				}

				$formatted = $number[$i] . $formatted;

				$j++;

			}

			return $formatted . $decimals;

		}



	}



class GooglePR

{

/*

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

}



/*

* Genearate a hash for a url

*/

function HashURL($String)

{

$Check1 = $this->StrToNum($String, 0x1505, 0x21);

$Check2 = $this->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;

}



function PageRank($url, $dcgg = 'www.google.com')

{

$file = file('ht*p://'.$dcgg.'/search?client=navclient-auto&ch='.$this->CheckHash($this->HashURL($url)).'&ie=UTF-8&oe=UTF-8&features=Rank&q=info:'.urlencode($url));



$file = implode("", $file);

return substr($file,strrpos($file, ":")+1);

}

}



?>