Archive for the 'Programming' Category Archiv für die 'Programmierung' Kategorie

Mar 19 19. März

Calculate Google Pagerank with PHP Berechnen Sie Google PageRank mit PHP

Monday, March 19th, 2007 Montag, 19. März, 2007

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. Dies ist veränderten Code gefunden, dass ich aus dem Internet den ursprünglichen Code, der möglicherweise nicht auf einige Server, php hat 32-Bit-Betrieb Problem, und ich bereits getestet auf meinem Server.

PLAIN TEXT PLAIN TEXT
PHP: PHP:
  1. <?php <? php
  2. define ( 'GOOGLE_MAGIC' , 0xE6359A60 ) ; define ( 'GOOGLE_MAGIC ", 0xE6359A60);
  4. //unsigned shift right / / unsigned nach rechts verschieben
  5. function zeroFill ( $a , $b ) Funktion zerofill ($ 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 sonst
  16. { (
  17. $a = ( $a >> $b ) ; $ a = ($ a>> $ b);
  18. } )
  19. return $a ; return $ a;
  20. } )
  22. function toInt32 ( & $x ) { Funktion 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 ) { Funktion 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 ) ; return array ($ a, $ b, $ c);
  43. } )
  45. function GoogleCH ( $url , $length = null , $init =GOOGLE_MAGIC ) { Funktion GoogleCH ($ url, $ length = null, $ init = GOOGLE_MAGIC) (
  46. if ( is_null ( $length ) ) { if (is_null ($ length)) (
  47. $length = sizeof ( $url ) ; $ length = sizeof ($ url);
  48. } )
  49. $a = $b = 0x9E3779B9; $ a = $ b = 0x9E3779B9;
  50. $c = $init ; $ c = $ init;
  51. $k = 0 ; $ k = 0;
  52. $len = $length ; $ len = $ length;
  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 + = $ length;
  64. switch ( $len ) /* all the case statements fall through */ switch ($ len) / * alle der Fall Aussagen fallen durch * /
  65. { (
  66. case 11 : $c += ( $url [ $k + 10 ] << 24 ) ; Fall 11: $ c + = ($ url [$ k + 10] <<24);
  67. case 10 : $c += ( $url [ $k + 9 ] << 16 ) ; Fall 10: $ c + = ($ url [$ k + 9] <<16);
  68. case 9 : $c += ( $url [ $k + 8 ] << 8 ) ; Fall 9: $ c + = ($ url [$ k + 8] <<8);
  69. /* the first byte of c is reserved for the length */ / * Das erste Byte von c ist reserviert für die Länge * /
  70. case 8 : $b += ( $url [ $k + 7 ] << 24 ) ; Fall 8: $ b + = ($ url [$ k + 7] <<24);
  71. case 7 : $b += ( $url [ $k + 6 ] << 16 ) ; Fall 7: $ b + = ($ url [$ k + 6] <<16);
  72. case 6 : $b += ( $url [ $k + 5 ] << 8 ) ; Fall 6: $ b + = ($ url [$ k + 5] <<8);
  73. case 5 : $b += ( $url [ $k + 4 ] ) ; Fall 5: $ b + = ($ url [$ k + 4]);
  74. case 4 : $a += ( $url [ $k + 3 ] << 24 ) ; Fall 4: $ a + = ($ url [$ k + 3] <<24);
  75. case 3 : $a += ( $url [ $k + 2 ] << 16 ) ; Fall 3: $ a + = ($ url [$ k + 2] <<16);
  76. case 2 : $a += ( $url [ $k + 1 ] << 8 ) ; Fall 2: $ a + = ($ url [$ k + 1] <<8);
  77. case 1 : $a += ( $url [ $k + 0 ] ) ; Fall 1: $ a + = ($ url [$ k + 0]);
  78. /* case 0: nothing left to add */ / * Case 0: nichts mehr hinzuzufügen * /
  79. } )
  80. $mix = mix ( $a , $b , $c ) ; = $ Mix-Mix ($ a, $ b, $ c);
  81. /*-------------------------------------------- report the result */ /*-------------------------------------------- Bericht das Ergebnis * /
  82. return $mix [ 2 ] ; return $ Mix [2];
  83. } )
  85. //converts a string into an array of integers containing the numeric value of the char / / wandelt eine Zeichenkette in ein Array mit ganzen Zahlen, die den numerischen Wert der char
  86. function strord ( $string ) { Funktion 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. / / Wandelt ein Array von 32-Bit-Integer in ein Array mit 8-Bit-Werte. Equivalent to (BYTE *)arr32 Entspricht (BYTE *) arr32
  96. function c32to8bit ( $arr32 ) { Funktion 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 ) { Funktion 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 "Kann keine Verbindung zum Server";
  115. return - 1 ; zurück - 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? client = navclient-auto & ch =". $ GCH. "& ie = UTF-8 & oe = UTF-8 & Features = Rang: 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, "Connection: close \ r \ n \ r \ n");
  122. while ( ! feof ( $fsock ) ) { while (! FEOF ($ fsock)) (
  123. $res [ 'content' ] .= fread ( $fsock , 1024 ) ; $ res [ 'content'] .= 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 [' content '], $ m)) (
  127. return $m [ 1 ] ; return $ m [1];
  128. } else { ) Else (
  129. return - 1 ; zurück - 1;
  130. } )