Mar 19 19 marzo

Calculate Google Pagerank with PHP Calcolare pagerank di Google con PHP

Posted by Thanadon March 19, 2007 at 9:10 pm 1 views Inviato da Thanadon 19 marzo 2007 a 9:10 pm 1 opinioni
Filed under: Internet , PHP , Programming Archiviato in: Internet, PHP, Programmazione

This is modified code that I found from the Internet the orginal code that may not work on some server that php has 32bit operation problem and I already tested on my server. Questo è modificato il codice che ho trovato da Internet il codice originale che potrebbe non funzionare su alcuni server che ha php 32bit operazione problema e ho già provato sul mio server.

PLAIN TEXT Plain Text
PHP: PHP:
  1. <?php <? php
  2. define ( 'GOOGLE_MAGIC' , 0xE6359A60 ) ; define ( 'GOOGLE_MAGIC', 0xE6359A60);
  4. //unsigned shift right / / unsigned sposta a destra
  5. function zeroFill ( $a , $b ) zeroFill funzione ($ a, $ b)
  6. { (
  7. $z = hexdec ( 80000000 ) ; $ z = hexdec (80000000);
  8. if ( $z & $a ) if ($ z & $ a)
  9. { (
  10. $a = ( $a >> 1 ) ; $ a = ($ a>> 1);
  11. $a &= ( ~ $z ) ; $ a & = (~ $ z);
  12. $a |= 0x40000000; $ a | = 0x40000000;
  13. $a = ( $a >> ( $b - 1 ) ) ; $ a = ($ a>> ($ b - 1));
  14. } )
  15. else altro
  16. { (
  17. $a = ( $a >> $b ) ; $ a = ($ a>> $ b);
  18. } )
  19. return $a ; return $ a;
  20. } )
  22. function toInt32 ( & $x ) { funzione toInt32 & ($ x) (
  23. $z = hexdec ( 80000000 ) ; $ z = hexdec (80000000);
  24. $y = ( int ) $x ; $ y = (int) $ x;
  25. if ( $y ==- $z && $x <- $z ) { if ($ y $ z ==- & & $ x <- $ z) (
  26. $y = ( int ) ( ( - 1 ) * $x ) ; $ y = (int) ((- 1) * $ x);
  27. $y = ( - 1 ) * $y ; $ y = (- 1) * $ y;
  28. } )
  29. $x = $y ; $ $ x = y;
  30. } )
  32. function mix ( $a , $b , $c ) { funzione mix ($ a, $ b, $ c) (
  33. $a -= $b ; $a -= $c ; toInt32 ( $a ) ; $a = ( int ) ( $a ^ ( zeroFill ( $c , 13 ) ) ) ; $ a -= $ b, $ a -= $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zeroFill ($ c, 13)));
  34. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 8 ) ) ; -= $ b $ c, $ b $ a -=; toInt32 ($ b); $ b = (int) ($ b ^ ($ a <<8));
  35. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 13 ) ) ) ; -= $ c $ a; -= $ c $ b; toInt32 ($ c); $ c = (int) ($ c ^ (zeroFill ($ b, 13)));
  36. $a -= $b ; $a -= $c ; toInt32 ( $a ) ; $a = ( int ) ( $a ^ ( zeroFill ( $c , 12 ) ) ) ; $ a -= $ b, $ a -= $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zeroFill ($ c, 12)));
  37. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 16 ) ) ; -= $ b $ c, $ b $ a -=; toInt32 ($ b); $ b = (int) ($ b ^ ($ a <<16));
  38. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 5 ) ) ) ; -= $ c $ a; -= $ c $ b; toInt32 ($ c); $ c = (int) ($ c ^ (zeroFill ($ b, 5)));
  39. $a -= $b ; $a -= $c ; toInt32 ( $a ) ; $a = ( int ) ( $a ^ ( zeroFill ( $c , 3 ) ) ) ; $ a -= $ b, $ a -= $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zeroFill ($ c, 3)));
  40. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 10 ) ) ; -= $ b $ c, $ b $ a -=; toInt32 ($ b); $ b = (int) ($ b ^ ($ a <<10));
  41. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 15 ) ) ) ; -= $ c $ a; -= $ c $ b; toInt32 ($ c); $ c = (int) ($ c ^ (zeroFill ($ b, 15)));
  42. return array ( $a , $b , $c ) ; ritorno array ($ a, $ b, $ c);
  43. } )
  45. function GoogleCH ( $url , $length = null , $init =GOOGLE_MAGIC ) { funzione GoogleCH ($ url, $ lunghezza = null, $ init = GOOGLE_MAGIC) (
  46. if ( is_null ( $length ) ) { if (is_null ($ lunghezza)) (
  47. $length = sizeof ( $url ) ; $ lunghezza = sizeof ($ url);
  48. } )
  49. $a = $b = 0x9E3779B9; $ a = $ b = 0x9E3779B9;
  50. $c = $init ; $ c = $ init;
  51. $k = 0 ; $ k = 0;
  52. $len = $length ; $ len = $ lunghezza;
  53. while ( $len >= 12 ) { while ($ len> = 12) (
  54. $a += ( $url [ $k + 0 ] + ( $url [ $k + 1 ] << 8 ) + ( $url [ $k + 2 ] << 16 ) + ( $url [ $k + 3 ] << 24 ) ) ; $ a + = ($ url [$ k + 0] + ($ url [$ k + 1] <<8) + ($ url [$ k + 2] <<16) + ($ url [$ k + 3] <<24));
  55. $b += ( $url [ $k + 4 ] + ( $url [ $k + 5 ] << 8 ) + ( $url [ $k + 6 ] << 16 ) + ( $url [ $k + 7 ] << 24 ) ) ; $ b + = ($ url [$ k + 4] + ($ url [$ k + 5] <<8) + ($ url [$ k + 6] <<16) + ($ url [$ k + 7] <<24));
  56. $c += ( $url [ $k + 8 ] + ( $url [ $k + 9 ] << 8 ) + ( $url [ $k + 10 ] << 16 ) + ( $url [ $k + 11 ] << 24 ) ) ; $ c + = ($ url [$ k + 8] + ($ url [$ k + 9] <<8) + ($ url [$ k + 10] <<16) + ($ url [$ k + 11] <<24));
  57. $mix = mix ( $a , $b , $c ) ; $ mix = mix ($ a, $ b, $ c);
  58. $a = $mix [ 0 ] ; $b = $mix [ 1 ] ; $c = $mix [ 2 ] ; $ a = $ mix [0]; $ b = $ mix [1]; $ c = $ mix [2];
  59. $k += 12 ; $ k + = 12;
  60. $len -= 12 ; $ len -= 12;
  61. } )
  63. $c += $length ; $ c + = $ lunghezza;
  64. switch ( $len ) /* all the case statements fall through */ switch ($ len) / * caso tutte le dichiarazioni caduta attraverso * /
  65. { (
  66. case 11 : $c += ( $url [ $k + 10 ] << 24 ) ; caso 11: $ c + = ($ url [$ k + 10] <<24);
  67. case 10 : $c += ( $url [ $k + 9 ] << 16 ) ; caso 10: $ c + = ($ url [$ k + 9] <<16);
  68. case 9 : $c += ( $url [ $k + 8 ] << 8 ) ; caso 9: $ c + = ($ url [$ k + 8] <<8);
  69. /* the first byte of c is reserved for the length */ / * Il primo byte di c è riservato per la lunghezza * /
  70. case 8 : $b += ( $url [ $k + 7 ] << 24 ) ; caso 8: $ b + = ($ url [$ k + 7] <<24);
  71. case 7 : $b += ( $url [ $k + 6 ] << 16 ) ; caso 7: $ b + = ($ url [$ k + 6] <<16);
  72. case 6 : $b += ( $url [ $k + 5 ] << 8 ) ; caso 6: $ b + = ($ url [$ k + 5] <<8);
  73. case 5 : $b += ( $url [ $k + 4 ] ) ; caso 5: $ b + = ($ url [$ k + 4]);
  74. case 4 : $a += ( $url [ $k + 3 ] << 24 ) ; case 4: $ a + = ($ url [$ k + 3] <<24);
  75. case 3 : $a += ( $url [ $k + 2 ] << 16 ) ; case 3: $ a + = ($ url [$ k + 2] <<16);
  76. case 2 : $a += ( $url [ $k + 1 ] << 8 ) ; case 2: $ a + = ($ url [$ k + 1] <<8);
  77. case 1 : $a += ( $url [ $k + 0 ] ) ; case 1: $ a + = ($ url [$ k + 0]);
  78. /* case 0: nothing left to add */ / * Caso 0: niente da aggiungere * /
  79. } )
  80. $mix = mix ( $a , $b , $c ) ; $ mix = mix ($ a, $ b, $ c);
  81. /*-------------------------------------------- report the result */ /*-------------------------------------------- Relazione il risultato * /
  82. return $mix [ 2 ] ; return $ mix [2];
  83. } )
  85. //converts a string into an array of integers containing the numeric value of the char / / converte una stringa in una matrice di interi contenente il valore numerico del carattere
  86. function strord ( $string ) { funzione strord ($ string) (
  87. for ( $i = 0 ; $i <strlen ( $string ) ; $i ++ ) { for ($ i = 0; $ i <strlen ($ string); $ i + +) (
  88. $result [ $i ] = ord ( $string { $i } ) ; $ result [$ i] = ord ($ string ($ i));
  89. } )
  90. return $result ; return $ result;
  91. } )
  94. // converts an array of 32 bit integers into an array with 8 bit values. / / Converte un array di interi a 32 bit in una serie con valori a 8 bit. Equivalent to (BYTE *)arr32 Equivalenti a (BYTE *) arr32
  96. function c32to8bit ( $arr32 ) { funzione c32to8bit ($ arr32) (
  97. for ( $i = 0 ; $i <count ( $arr32 ) ; $i ++ ) { for ($ i = 0; $ i <count ($ arr32); $ i + +) (
  98. for ( $bitOrder = $i * 4 ; $bitOrder <= $i * 4 + 3 ; $bitOrder ++ ) { for ($ bitOrder = $ i * 4; $ bitOrder <= $ i + 4 * 3; $ bitOrder + +) (
  99. $arr8 [ $bitOrder ] = $arr32 [ $i ] & 255 ; arr8 $ [$ bitOrder] = $ arr32 [$ i] & 255;
  100. $arr32 [ $i ] =zeroFill ( $arr32 [ $i ] , 8 ) ; arr32 $ [$ i] = zeroFill ($ arr32 [$ i], 8);
  101. } )
  102. } )
  103. return $arr8 ; return $ arr8;
  104. } )
  107. function get_page_rank ( $url ) { funzione get_page_rank ($ url) (
  108. $url = preg_replace ( '/ \? .*$/' , '?' , $url ) ; $ url = preg_replace ( '/ \? .*$/','? ', $ url);
  109. $reqgr = "info:" . $url ; reqgr $ = "info:". $ url;
  110. $reqgre = "info:" . urlencode ( $url ) ; reqgre $ = "info:". urlencode ($ url);
  111. $gch = "6" .GoogleCH ( strord ( $reqgr ) ) ; gch $ = "6". GoogleCH (strord ($ reqgr));
  112. $fsock = fsockopen ( 'toolbarqueries.google.com' , 80 , $errno , $errstr ) ; fsock $ = fsockopen ( 'toolbarqueries.google.com', 80, $ errno, $ errstr);
  113. if ( ! $fsock ) { if (! $ fsock) (
  114. echo 'Can not connect to server' ; echo 'Impossibile connettersi al server';
  115. return - 1 ; ritorno - 1;
  116. } )
  117. $base_get = "/search?client=navclient-auto&ch=" . $gch . "&ie=UTF-8&oe=UTF-8&features=Rank:FVN&q=" . $reqgre ; base_get $ = "/ search? cliente = navclient-auto & ch =". gch $. "& ie = UTF-8 & oe = UTF-8 & caratteristiche = Rank: FVN & q =". reqgre $;
  118. fputs ( $fsock , "GET $base_get HTTP/1.1 \r \n " ) ; fputs ($ fsock, "GET $ base_get HTTP/1.1 \ r \ n");
  119. fputs ( $fsock , "HOST: toolbarqueries.google.com \r \n " ) ; fputs ($ fsock, "HOST: toolbarqueries.google.com \ r \ n");
  120. fputs ( $fsock , "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-big; Windows XP 5.1) \r \n " ) ; fputs ($ fsock, "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-grandi, Windows XP 5.1) \ r \ n");
  121. fputs ( $fsock , "Connection: close \r \n \r \n " ) ; fputs ($ fsock, "Connection: close \ r \ n \ r \ n");
  122. while ( ! feof ( $fsock ) ) { while (! feof ($ fsock)) (
  123. $res [ 'content' ] .= fread ( $fsock , 1024 ) ; $ res [ 'contenuto'] .= fread ($ fsock, 1024);
  124. } )
  125. fclose ( $fsock ) ; fclose ($ fsock);
  126. if ( preg_match ( '/Rank_.*?:.*?:( \d +)/i' , $res [ 'content' ] , $m ) ) { if (preg_match ( '/ Rank_ .*?:.*?:( \ d +) / i', $ res [ 'contenuto'], $ m)) (
  127. return $m [ 1 ] ; return $ m [1];
  128. } else {