где можно взять (даже купить готов!) такие скрипты

20

newpraktika

15 июня 2006, 09:10

11511

Господа, кто может сделать скрипты 1/ проверки через whois свободности домена и 2/ определитель тиц и pr

Или может где бесплатные такие валяются...

Автоматическая продажа ссылок с морд (http://authority.adtime.ru/Affiliate/?AId:2452): быстро и нехлопотно. баннерная реклама, любой трудовой договор (http://www.newpraktika.org/), рынок форекс (http://forex-invest.org/), техника продаж (http://www.bigsales.ru/)

D

28

djkostya

15 июня 2006, 09:26

#1

Я могу !

Может сразу определять CY и PR при запросе домена...

Я не SEO я программист PERL (Apache 1.3.37 + mod_perl)!!!!! А ещё я люблю FastCGI

A

111

azzz

15 июня 2006, 09:54

#2

У меня есть такой.

Могу продать.

Дорого.

Скрипт узнает Whois/тИЦ/PR/YACA/Dmoz

N

20

newpraktika

15 июня 2006, 10:36

#3

azzz:
У меня есть такой.
Могу продать.
Дорого.
Скрипт узнает Whois/тИЦ/PR/YACA/Dmoz

Дорого не нужно. я бедный 😒

тем более такой мощный скрипт - это киберсквотерам

A

111

azzz

15 июня 2006, 11:08

#4

newpraktika:
Дорого не нужно. я бедный 😒
тем более такой мощный скрипт - это киберсквотерам

Ну если для некоммерческого использования, то могу и урезанную версию сделать.

В личку пишите, обcудим :)

64

MVH

15 июня 2006, 12:09

#5

Определение google 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 ^= (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){

        case 11: $c+=($url[$k+10]<<24);

        case 10: $c+=($url[$k+9]<<16);

        case 9 : $c+=($url[$k+8]<<8);

        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]);

    }

    $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 get_google_pr($url, $proxy = '')

{

    $url = 'info:http://' . $url;

    $checksum = GoogleCH(strord($url));

    $google_url = sprintf('/search?client=navclient-auto&ch=6%u&features=Rank&q=' . $url, $checksum);

    

    $host = 'www.google.com';

    $result = '';

    if ($proxy == '')

    {

        $fp = @fsockopen($host, 80, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET $google_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    else

    {

        preg_match('/^(?:http\:\/\/)?(.+)\:(\d{0,5})$/is', $proxy, $arr);

        $ip = $arr[1];

        $port = $arr[2];

        

        $fp = @fsockopen($ip, $port, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET http://$host$google_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    

    if ($result != '')

    {

        if (preg_match('/Rank_\d+\:\d+\:(\d+)/is', $result, $arr))

            return intval($arr[1]);

        else

            return '-';

    }

    else

        return '-';

}



function google_pr($url, $proxy = '')

{

    if (!is_array($url))

        $url = array($url);

        

    $pr_arr = array();

    

    foreach ($url as $key => $val)

    {

        if (preg_match('/^http\:\/\//is', $val))

            $val = substr($val, 7);

            

        $url_www = $val;

        if (preg_match('/^www\./is', $val))

            $val = str_replace('www.', '', $val);

        else

            $url_www = 'www.' . $val;

            

        $pr = get_google_pr($val, $proxy);

    

        $pr_www = get_google_pr($url_www, $proxy);

        

        if ($pr_www > $pr)

            $pr_arr[] = $pr_www;

        else

            $pr_arr[] = $pr;

    }

    rsort($pr_arr, SORT_NUMERIC);

    return $pr_arr[0];

}

get_google_pr($url, $proxy = '') - возвращает PR для домена в том виде, в котором он указан (без учёта www). $url здесь без http:// надо передавать

google_pr($url, $proxy = '') - опледеляет PR для домен с www и без www и возвращает наибольший. так же можно передать массив урлов, тогда PR определится для каждоко урла из масива (для каждого с www и без www) и вернётся наибольший. Здесь урлы можно и с http:// и без него передавать

прокси задаётся в формате ip:port. Если прокся задана, то обращения к гуглю будут через прокси идти

все ф-и здесь, кроме последней, работают в связке.

Определение яндекс тИЦ

function get_yandex_tic($url, $proxy = '')

{

    if ($url{strlen($url) - 1} == '/' || $url{strlen($url) - 1} == '\\')

        $url = substr($url, 0, -1);



    if (preg_match('/^www\./is', $url))

        $url2 = $url . ',' . substr($url, 4);

    else

        $url2 = 'www.' . $url . ',' . $url;



    $yandex_url = '/yca/cy/ch/' . $url . '/';

    

    $host = 'search.yaca.yandex.ru';

    $result = '';

    if ($proxy == '')

    {

        $fp = @fsockopen($host, 80, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET $yandex_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    else

    {

        preg_match('/^(?:http\:\/\/)?(.+)\:(\d{0,5})$/is', $proxy, $arr);

        $ip = $arr[1];

        $port = $arr[2];

        

        $fp = @fsockopen($ip, $port, $errno, $errstr, 20);

        if ($fp)

        {

            $out = '';

            $out .= "GET http://$host$yandex_url HTTP/1.1\r\n";

            $out .= "Host: $host\r\n";

            $out .= "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-icq, application/x-shockwave-flash, */*\r\n";

            $out .= "Accept-Language: ru\r\n";

            $out .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n";

            $out .= "Connection: Close\r\n\r\n";

            fwrite($fp, $out);

            while (!feof($fp))

               $result .= fgets($fp, 1024);

        

            fclose($fp);

        }

    }

    

    if (preg_match('/индекс цитирования (?:www\.)?(.+?)\s\<\/TITLE\>/is', $result, $arr))

        $url2 = 'www.' . $arr[1] . ',' . $arr[1];

    

    //фильтруем спец. символы preg_*

    $url2 = preg_replace('/([^\w\d]|_)/is', '\\\\\\1', $url2);



    if (preg_match("/$url2\&.+?\>(\d+)\<\/a\>/is", $result, $arr))

        return intval(@$arr[1]);

    else if (preg_match('/Индекс цитирования \(тИЦ\) ресурса..?меньше 10/is', $result))

        return 0;

    else

        return '-';

}



function yandex_tic($url, $proxy = '')

{

    if (!is_array($url))

        $url = array($url);

        

    $tic_arr = array();

    

    foreach ($url as $key => $val)

    {

        if (preg_match('/^http\:\/\//is', $val))

            $val = substr($val, 7);

        

        $url_www = $val;

        if (preg_match('/^www\./is', $val))

            $val = str_replace('www.', '', $val);

        else

            $url_www = 'www.' . $val;

            

        $tic = get_yandex_tic($val, $proxy);

    

        $tic_www = get_yandex_tic($url_www, $proxy);



        if ($tic_www > $tic)

            $tic_arr[] = $tic_www;

        else

            $tic_arr[] = $tic;

    }

    rsort($tic_arr, SORT_NUMERIC);

    return $tic_arr[0];

}

get_yandex_tic($url, $proxy = '') - возвращает тИЦ для домена в том виде, в котором он указан (без учёта www). $url здесь без http:// надо передавать

yandex_tic($url, $proxy = '') - опледеляет тИЦ для домен с www и без www и возвращает наибольший. так же можно передать массив урлов, тогда тИЦ определится для каждоко урла из масива (для каждого с www и без www) и вернётся наибольший. Здесь урлы можно и с http:// и без него передавать

прокси задаётся в формате ip:port. Если прокся задана, то обращения к яндексу будут через прокси идти

тИЦ определяется правильно даже если сайт есть в каталоге и если в каталоге зарегистрировано его зеркало

Здесь вторая ф-я использует в своей работе первую.

eTarget 2011:Панельная дискуссия «Стратегия eTarget 2011: Круглый стол Могут ли «плохие» входящие

64

MVH

15 июня 2006, 12:10

#6

Для проверки свободен ли домен

    $domain_name = 'test.ru';



    $sock = fsockopen ("whois.ripe.net", 43, $errno, $errstr);

    if (!$sock)

    {

        print "Ошибка.\r\n";

    }

    else

    {

        fputs ($sock, $domain_name."\r\n");

        while (!feof($sock))

        {

            if (strstr(fgets($sock, 128), 'No entries found for the selected source'))

            {

                print "Домен " . $domain_name . " свободен.\r\n";

                flush();

                break;

            }

        }

    }

    fclose ($sock);

Если хотите, оформите в виде функции. Думаю тут проблем не возникнет.

U

4

umek

15 июня 2006, 15:56

#7

http://www.virtech.org/tools/index.html Держите халявный мощный скрипт с сайтом поддержки :)

An open-source toolkit of network information utilities such as multiwhois, DNS, HTTP, ports, ping, TR and looking glass. It is available as a standalone edition or as a module for Postnuke, Xaraya and Xoops.

Каталог сравнения цен и товаров (/ru/forum/55946)

86

Reservist

16 июня 2006, 14:48

#8

Самый простой (в другой ветке только кинул):

<i>URL-адрес <b>http://www.</b></i><input type="text" name="info" value="">

</form>

<br><font color="red">Без www: </font><a href="http://www.yandex.ru/cy?base=0&host=<? echo("$info");?> "><img src="http://www.yandex.ru/cycounter?<? echo("$info");?>" width=88 height=31 alt="Яндекс цитирования без www" border=0></a> <img src="http://www.karman.ru/catalog/primage.php?style=7&url=<? echo("$info");?>" width="42" height="17" border="0" alt="PR сайта <? echo("$info");?>=">

<br><font color="red">С www: </font><a href="http://www.yandex.ru/cy?base=0&host=www.<? echo("$info");?> "><img src="http://www.yandex.ru/cycounter?www.<? echo("$info");?>" width=88 height=31 alt="Яндекс цитирования с www" border=0></a> <img src="http://www.karman.ru/catalog/primage.php?style=7&url=www.<? echo("$info");?>" width="42" height="17" border="0" alt="PR сайта www.<? echo("$info");?>=">

<br><a href="http://www.pageranktool.net/google_pr.php?url=http%3A%2F%2F<? echo("$info");?>%2F&query=Query" target="blank">www.pageranktool.net</a>

<br>

Yandex - найдется всё! Google™ - а ничего и не терялось!

Яндекс Задан пустой поисковый Оптимизация плавающих фреймов для Оптимизируем Core Web Vitals:

86

Reservist

16 июня 2006, 14:50

#9

Он для www и без

64

MVH

19 июня 2006, 19:23

#10

Скрипт для проверки домена не работоспособен.

Походу ripe прикрыл лавочку. Завтра попробую разобраться.

Open AI тестирует память для ChatGPT

Что делать, если ваша email-рассылка попала в спам