Mar 19 19 de Março

Calculate Google Pagerank with PHP Calcular o PageRank do Google com PHP

Posted by Thanadon March 19, 2007 at 9:10 pm 1 views Postado por Thanadon 19 de março de 2007 às 9:10 pm 1 visualizações
Filed under: Internet , PHP , Programming Arquivado em: Internet, PHP, Programação

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. Este código modificado é que eu encontrei na Internet a partir do código original que pode não funcionar em algum servidor que tenha php 32bit operação problema e eu já testados no meu servidor.

PLAIN TEXT Texto Simples
PHP: PHP:
  1. <?php <? php
  2. define ( 'GOOGLE_MAGIC' , 0xE6359A60 ) ; define ( 'GOOGLE_MAGIC', 0xE6359A60);
  4. //unsigned shift right / / unsigned deslocamento direita
  5. function zeroFill ( $a , $b ) função zerofill ($ a, $ b)
  6. { (
  7. $z = hexdec ( 80000000 ) ; $ z = hexdec (80000000);
  8. if ( $z & $a ) if ($ a $ & z)
  9. { (
  10. $a = ( $a >> 1 ) ; $ a = ($ a>> 1);
  11. $a &= ( ~ $z ) ; um & $ = (~ $ z);
  12. $a |= 0x40000000; $ a | = 0x40000000;
  13. $a = ( $a >> ( $b - 1 ) ) ; $ a = ($ a>> ($ b - 1));
  14. } )
  15. else diferente
  16. { (
  17. $a = ( $a >> $b ) ; $ a = ($ a>> $ b);
  18. } )
  19. return $a ; $ a retorno;
  20. } )
  22. function toInt32 ( & $x ) { função 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 ) { função mix ($ a, b $, $ c) (
  33. $a -= $b ; $a -= $c ; toInt32 ( $a ) ; $a = ( int ) ( $a ^ ( zeroFill ( $c , 13 ) ) ) ; $ $ a -= b; um -= $ $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zerofill ($ c, 13)));
  34. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 8 ) ) ; $ $ -= b c; -= $ a $ b; toInt32 ($ b); $ b = (int) ($ b ^ ($ a <<8));
  35. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 13 ) ) ) ; -= $ a $ c; 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; um -= $ $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zerofill ($ c, 12)));
  37. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 16 ) ) ; $ $ -= b c; -= $ a $ b; toInt32 ($ b); $ b = (int) ($ b ^ ($ um <<16));
  38. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 5 ) ) ) ; -= $ a $ c; 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; um -= $ $ c; toInt32 ($ a); $ a = (int) ($ a ^ (zerofill ($ c, 3)));
  40. $b -= $c ; $b -= $a ; toInt32 ( $b ) ; $b = ( int ) ( $b ^ ( $a << 10 ) ) ; $ $ -= b c; -= $ a $ b; toInt32 ($ b); $ b = (int) ($ b ^ ($ um <<10));
  41. $c -= $a ; $c -= $b ; toInt32 ( $c ) ; $c = ( int ) ( $c ^ ( zeroFill ( $b , 15 ) ) ) ; -= $ a $ c; c -= $ $ b; toInt32 ($ c); $ c = (int) (c $ ^ (zerofill ($ b, 15)));
  42. return array ( $a , $b , $c ) ; return array ($ a, b $, $ c);
  43. } )
  45. function GoogleCH ( $url , $length = null , $init =GOOGLE_MAGIC ) { função GoogleCH ($ url, $ comprimento = null, $ init = GOOGLE_MAGIC) (
  46. if ( is_null ( $length ) ) { if (is_null ($ comprimento)) (
  47. $length = sizeof ( $url ) ; $ comprimento = sizeof ($ url);
  48. } )
  49. $a = $b = 0x9E3779B9; $ $ a = b = 0x9E3779B9;
  50. $c = $init ; $ $ init = c;
  51. $k = 0 ; $ k = 0;
  52. $len = $length ; $ $ len = comprimento;
  53. while ( $len >= 12 ) { while ($ len> = 12) (
  54. $a += ( $url [ $k + 0 ] + ( $url [ $k + 1 ] << 8 ) + ( $url [ $k + 2 ] << 16 ) + ( $url [ $k + 3 ] << 24 ) ) ; $ um + = ($ 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 ] ; $ $ = um mix [0]; $ b = $ mix [1]; $ c = $ mix [2];
  59. $k += 12 ; $ k + = 12;
  60. $len -= 12 ; $ len -= 12;
  61. } )
  63. $c += $length ; $ $ c + = comprimento;
  64. switch ( $len ) /* all the case statements fall through */ switch ($ len) / * todo o caso, através de declarações caem * /
  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 */ / * O primeiro byte do c é reservada para o comprimento * /
  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: $ um + = ($ url [$ k + 3] <<24);
  75. case 3 : $a += ( $url [ $k + 2 ] << 16 ) ; case 3: $ um + = ($ url [$ k + 2] <<16);
  76. case 2 : $a += ( $url [ $k + 1 ] << 8 ) ; case 2: $ um + = ($ url [$ k + 1] <<8);
  77. case 1 : $a += ( $url [ $k + 0 ] ) ; case 1: $ um + = ($ url [$ k + 0]);
  78. /* case 0: nothing left to add */ / * Caso 0: nada a acrescentar * /
  79. } )
  80. $mix = mix ( $a , $b , $c ) ; $ mix = mix ($ a, b $, $ c);
  81. /*-------------------------------------------- report the result */ /*-------------------------------------------- Relatório, o resultado * /
  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 uma string em um array de inteiros contendo o valor numérico do char
  86. function strord ( $string ) { função strord ($ string) (
  87. for ( $i = 0 ; $i <strlen ( $string ) ; $i ++ ) { for (i = 0 $; $ i <strlen ($ string); $ i + +) (
  88. $result [ $i ] = ord ( $string { $i } ) ; $ resultado [$ i] = ord (string $ ($ i));
  89. } )
  90. return $result ; return $ resultado;
  91. } )
  94. // converts an array of 32 bit integers into an array with 8 bit values. / / Converte um array de 32 bits inteiros em um vetor com valores 8 bits. Equivalent to (BYTE *)arr32 Equivalente a (BYTE *) arr32
  96. function c32to8bit ( $arr32 ) { função 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 (i = $ $ bitOrder * 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 ; arr8 $ retorno;
  104. } )
  107. function get_page_rank ( $url ) { função 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 "Não é possível conectar ao servidor ';
  115. return - 1 ; retorno - 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 & características = Classificação: 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-big; Windows XP 5,1) \ r \ n");
  121. fputs ( $fsock , "Connection: close \r \n \r \n " ) ; fputs ($ fsock, "Conexão: fechar \ r \ n \ r \ n");
  122. while ( ! feof ( $fsock ) ) { while (! feof ($ fsock)) (
  123. $res [ 'content' ] .= fread ( $fsock , 1024 ) ; $ res [ 'conteúdo'] .= 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 [ 'conteúdo'], $ m)) (