Проверка ПР и тИЦ

Тема в разделе "Сервисы", создана пользователем Raenor, 10 июл 2007.

Статус темы:
Закрыта.
  1. Raenor

    Raenor Ксенолог №1

    Регистр.:
    28 дек 2006
    Сообщения:
    153
    Симпатии:
    91
    Нашел вот интересный ресурс
    _http://www.bname.ru/
    Если боян - звыняйте...
     
    chubaka, Darknes и -Nou- нравится это.
  2. jkljkljkl1

    jkljkljkl1 Читатель

    Заблокирован
    Регистр.:
    11 июл 2007
    Сообщения:
    12
    Симпатии:
    2
  3. js85

    js85 Писатель

    Регистр.:
    29 июл 2007
    Сообщения:
    7
    Симпатии:
    4
  4. RealUzver

    RealUzver Писатель

    Регистр.:
    20 июл 2007
    Сообщения:
    0
    Симпатии:
    0
    этот тож ничо

    pr-cy.ru ;)
     
  5. handys

    handys Создатель

    Регистр.:
    23 июл 2007
    Сообщения:
    17
    Симпатии:
    1
    ПР чекер довольно быстрый)

    ПР чекер довольно быстрый)
    PHP:
    <?php 
    //ignore_user_abort (1);
    error_reporting(0);
    set_time_limit (12000);
    $urls=file('dom');
    include(
    "pr.php");
    $fp=fopen('dom_pr','a+');
      
    for(
    $i=0;$i<count($urls);$i++)
    {
    $url=trim($urls[$i]);
    //print_r($url);
    $gpr = new pageRank(); 
    $gpr->printrank('http://'.$url); 
    $pr=$gpr->get_pr();
    //display image 
    //echo $pr."<br>";
    if($pr
        {
    preg_match('/<img src="images\/pr([0-9]+).gif" alt="PageRank/i',$pr,$out);
    echo 
    $out[1];
    if(
    $out[1]>OR $out[1]==4){fwrite($fp,trim($urls[$i])."-".trim($out[1])."\n");}

        }
    }
    fclose($fp);
    ?>
    еще

    PHP:
    <?php  
    define
    ('GOOGLE_MAGIC'0xE6359A60);  
    class 
    pageRank
    var 
    $pr;  
    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 
    mix($a,$b,$c) {  
       
    $a -= $b$a -= $c$a ^= ($this->zeroFill($c,13)); 
       
    $b -= $c$b -= $a$b ^= ($a<<8); 
       
    $c -= $a$c -= $b$c ^= ($this->zeroFill($b,13)); 
       
    $a -= $b$a -= $c$a ^= ($this->zeroFill($c,12)); 
       
    $b -= $c$b -= $a$b ^= ($a<<16); 
       
    $c -= $a$c -= $b$c ^= ($this->zeroFill($b,5)); 
       
    $a -= $b$a -= $c$a ^= ($this->zeroFill($c,3)); 
       
    $b -= $c$b -= $a$b ^= ($a<<10); 
       
    $c -= $a$c -= $b$c ^= ($this->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 $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 
    $c+=($url[$k+8]<<8); 
       
    /* the first byte of c is reserved for the length */ 
       
    case $b+=($url[$k+7]<<24); 
       case 
    $b+=($url[$k+6]<<16); 
       case 
    $b+=($url[$k+5]<<8); 
       case 
    $b+=($url[$k+4]); 
       case 
    $a+=($url[$k+3]<<24); 
       case 
    $a+=($url[$k+2]<<16); 
       case 
    $a+=($url[$k+1]<<8); 
       case 
    $a+=($url[$k+0]);  
      }  
      
    $mix $this->mix($a,$b,$c);  
    /* report the result */  
    return $mix[2];  
    }  



    function 
    strord($string) {  
      for(
    $i=0;$i<strlen($string);$i++) {  
       
    $result[$i] = ord($string{$i});  
      }  
    return 
    $result;  
    }  

    function 
    printrank($url){ 
      
    $ch "6".$this->GoogleCH($this->strord("info:" $url));  
       
      
    $fp fsockopen("www.google.com"80$errno$errstr30); 
      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($fp128); 
           
    $pos strpos($data"Rank_"); 
             if(
    $pos === false){ 
             }else{ 
               
    $pagerank substr($data$pos 9); 
               
    $this->pr_image($pagerank); 
             } 
         } 
         
    fclose($fp);  
      } 
    }
    function 
    pr_image($pagerank){ 
      if(
    $pagerank == 0){ 
       
    $this->pr "<img src=\"images/pr0.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 1){ 
       
    $this->pr "<img src=\"images/pr1.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 2){ 
       
    $this->pr "<img src=\"images/pr2.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 3){ 
       
    $this->pr "<img src=\"images/pr3.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 4){ 
       
    $this->pr "<img src=\"images/pr4.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 5){ 
       
    $this->pr "<img src=\"images/pr5.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 6){ 
       
    $this->pr "<img src=\"images/pr6.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 7){ 
       
    $this->pr "<img src=\"images/pr7.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 8){ 
       
    $this->pr "<img src=\"images/pr8.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }elseif(
    $pagerank == 9){ 
       
    $this->pr "<img src=\"images/pr9.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
       }else{ 
       
    $this->pr "<img src=\"images/pr10.gif\" alt=\"PageRank " .$pagerank" out of 10\">"
      } 

    function 
    get_pr(){ 
      return 
    $this->pr


    ?> 
     
  6. Montoya

    Montoya Создатель

    Регистр.:
    3 сен 2007
    Сообщения:
    47
    Симпатии:
    3
    вот еще один, мне нравиться
    http://www.dinews.ru/seo/
     
  7. reg

    reg Создатель

    Регистр.:
    15 мар 2007
    Сообщения:
    20
    Симпатии:
    0
  8. Montoya

    Montoya Создатель

    Регистр.:
    3 сен 2007
    Сообщения:
    47
    Симпатии:
    3
    вот еще хорошая подборка
    http://www.bazooka.dp.ua/pages/tools.html
    кстати, на сайте автор предлогает свои базы. У меня есть все, могу выложить, но не уверен, что их уже не выкладывали. На форумен не давно, если нужно, пишите, выложу
     
    Relikt и mpolsky нравится это.
  9. mpolsky

    mpolsky

    Регистр.:
    26 июн 2007
    Сообщения:
    163
    Симпатии:
    35
    Еще один сервис по теме...
    http://wtools.biz/
     
  10. Germik

    Germik Создатель

    Регистр.:
    5 сен 2007
    Сообщения:
    48
    Симпатии:
    5
Статус темы:
Закрыта.