Darkcosinus |
09.12.2008 17:48 |
В яндексе можно найти без особых проблем...
На работоспособность не проверял.
Код:
<?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();
}
?>
|