Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 09.12.2008, 17:40   #1 (permalink)
perevods
Новичок
 
Регистрация: 09.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Подскажите прогу для фильтра сайтов по pr и тиц.

Подскажите прогу для фильтра сайтов по pr и тиц. Для установления проходного бала в каталог сайтов, немножко автоматизировать этот процесс PHP.
perevods вне форума   Ответить с цитированием

Старый 09.12.2008, 17:40
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В решении вашей проблемы помогут эти топики

Доработка фильтра 35АС-015
Схема фильтра
Подскажите прогу для синхронизации нокиа 5230 под линух
Подскажите прогу...
Подкиньте схемку фильтра

Старый 09.12.2008, 17:48   #2 (permalink)
Darkcosinus
Member
 
Регистрация: 25.04.2008
Сообщений: 238
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

В яндексе можно найти без особых проблем...
На работоспособность не проверял.

Код:
<?php 
function showform()
{
 echo "<br/><br/><center/><form action=pr.php method=GET>";
 echo "Адрес:<br/>";
 echo "<input type=text name=url size=50><br/>";
 echo "<input type=submit> demo: <b>domenforum.net</b>";
 echo "</form>";
}
if (isset($_REQUEST['url']))
{
 $url=str_replace("www.","",$_REQUEST['url']);
 define('GOOGLE_MAGIC', 0xE6359A60);
 function getCI($url)
 {
   $my_host = parse_url($url);
   $cit_index_url = "http://search.yaca.yandex.ru/yca/cy/ch/www.{$my_host['path']}/";
   $data = file_get_contents($cit_index_url);
   $upurl = str_replace('.', '\.', $url);
   $upurl = str_replace('/', '\/', $upurl);
   $reurl[1] = (strpos($url, 'www') == 0)?'http:\/\/www\.':'http:\/\/';
   $reurl[1] .= $upurl;
   $reurl[2] = (strpos($url, 'www') == 0)?'http:\/\/':'http:\/\/www\.';
   $reurl[2] .= $upurl;
   $reurl[3] = (strpos($url, 'www') == 0)?'www\.'.$upurl:$upurl;
   $reurl[4] = (strpos($url, 'www') == 0)?$upurl:'www\.'.$upurl;
   $reg_www = "/<a href=\"(http:\/\/www\.yandex\.ru\/yandsearch\/\?text=&Link={$reurl[1]}.+?&iserverurl={$reurl[3]}.+?)\".+?>.+?<\/a>/si";
   $reg = "/<a href=\"(http:\/\/www\.yandex\.ru\/yandsearch\/\?text=&Link={$reurl[2]}.+?&iserverurl={$reurl[4]}.+?)\".+?>.+?<\/a>/si";
   if(preg_match_all($reg_www, $data, $pockets))
   {
     $to_parse = $pockets[1][0];
   }
   if(preg_match_all($reg, $data, $pockets))
   {
     $to_parse = $pockets[1][0];
   }
   $my = parse_url($to_parse);
   $my = parse_str($my['query'], $out);
   print_r($out);
   return $out['ci'];
 }
 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 ^= (zeroFill($c,13));
   $b -= $c; $b -= $a; $b ^= ($a<<8);
   $c -= $a; $c -= $b; $c ^= (zeroFill($b,13));
   $a -= $b; $a -= $c; $a ^= (zeroFill($c,12));
   $b -= $c; $b -= $a; $b ^= ($a<<16);
   $c -= $a; $c -= $b; $c ^= (zeroFill($b,5));
   $a -= $b; $a -= $c; $a ^= (zeroFill($c,3));
   $b -= $c; $b -= $a; $b ^= ($a<<10);
   $c -= $a; $c -= $b; $c ^= (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 = mix($a,$b,$c);
     $a = $mix[0]; $b = $mix[1]; $c = $mix[2];
     $k += 12;
     $len -= 12;
   }
   $c += $length;
   switch($len) /* all the case statements fall through */
   {
     case 11: $c+=($url[$k+10]<<24);
     case 10: $c+=($url[$k+9]<<16);
     case 9 : $c+=($url[$k+8]<<8);
     /* the first byte of c is reserved for the length */
     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]);
     /* case 0: nothing left to add */
   }
   $mix = 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 getrank($url) {
   $url = 'info:'.$url;
   $ch = GoogleCH(strord($url));
   $file = "http://www.google.com/search?client=navclient-auto&ch=6$ch&features=Rank&q=$url";
   $data = file($file);
   $rankarray = explode (':', $data[2]);
   $rank = $rankarray[2];
   return $rank;
 }
 $rank=getrank($url);
 $rank1=getrank("www".$url);
 if ($rank1>$rank) $url="www.".$url;
 echo '<center>PageRank: '.getrank($url)."<br>";
 echo 'тИЦ: '.getCI($url);
 echo "<br/>";
 showform();
}
else
{
 showform();
}
?>
Darkcosinus вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.