Полезные скрипты

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

12.02.2009, 23:58

eLWAux

Members of Antichat - Level 5

Регистрация: 15.06.2008

Сообщений: 941

Провел на форуме:
5111568

Репутация: 2399

Отправить сообщение для eLWAux с помощью ICQ

PR, тиЦ чекер на perl'e через сайт www.pr-cy.ru

pr-tic.pl сервер
сервер по умолчанию - google.com

PHP код:


		
			
#! /usr/bin/perl -eLwaux



use IO::Socket;

use warnings;



my $site = $ARGV[0] || 'google.com';





$header  = "POST http://www.pr-cy.ru/analysis/?url=".$site." HTTP/1.1\r\n".

       "Host: pr-cy.ru\r\n".

       "User-Agent: eL!\r\n".

       "Content-Type: application/x-www-form-urlencoded\r\n".

       "Connection: Close\r\n".

       "Content-Length: 0\r\n\r\n".

       "\r\n\r\n";



my $sock = sock();

print $sock $header;



#my $answ = '';

#my $answer = '';

#while($answer = <$sock>){$answ .= $answer;}

read($sock,my $answ,100000);    





print cyr("\n ".$site."\n\n");



# заголовок

if (($answ)=~/<b class="grey">Заголовок:<\/b>(.*)<br \/>/) {

    print cyr(' Заголовок: '.$1."\n") 

    }

    

# ip

if (($answ)=~/<b class="grey">IP:<\/b> (\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\s+/) {

    print cyr(' IP: '."$1.$2.$3.$4"."\n")

    }

    



# тиЦ

if (($answ)=~/Яндекс тИЦ<\/td>[\s|\t]+<td width="25%" align="right" bgcolor="#eef2f5">(.*)<\/td>/) {

    print cyr(' тИЦ : '.$1."\n");

    }

    

# PR

if (($answ)=~/PageRank<\/td>[\s|\t|\n]+<td width="25%" align="right" bgcolor="#eef2f5">(.*)<\/td>/) {

    print cyr(' PageRank : '.$1."\n");

    }



<stdin>;

exit;





close($sock);

<stdin>;

            

            

#create new socket connection

sub sock {

    my $sock;

    do {

        $sock = new IO::Socket::INET 

            (

                PeerAddr => 'pr-cy.ru',

                   PeerPort => 80, 

                   PeerProto => 'tcp', 

                   TimeOut => 10

            ) or print "[-] connection error!";

        } while (!$sock);

    return $sock;

}





sub cyr {

    $phrase = shift;

    $phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;

    return $phrase;

    }





#=============================================================================

#=============================================================================