12.02.2009, 23:58
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
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;
}
#=============================================================================
#=============================================================================
|
|
|