→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
PERL проверка прокси на анонимность 
Автор Сообщение
Начинающий
Аватара пользователя

Регистрация: 30.06.2008
Сообщения: 2
Откуда: Одесса

Репутация: 0 [ ? ]
Сообщение PERL проверка прокси на анонимность
Всем привет. Вот сегодня дописал полезный скрипт для проверки списка прокси серверов на анонимность. Аналогов в сети не так уж и много. Принцип его работы такой: сначало скрипт подключается к [url]myip.net.ru[/url] и парсит свой IP, затем происходит тоже самое, только с использованием прокси серверов из файла.
Запуск скрипта : script.pl proxylist. Формат прокси листа: http://host:port
Пример работы скрипта:

C:\>perl a.pl proxylist.txt

Your IP : 79.124.180.144

-Check http proxy-
You are seen as : 71.81.83.88
You are seen as : 218.104.219.203
You are seen as :
You are seen as : 124.146.168.42
You are seen as :
You are seen as : 61.153.222.130

В результате выполнения скрипта видно является ли прокси анонимным или нет, пустая строка означает, что прокси не работает. В данном случаи все прокси являются анонимными.
Сам код:
[syntax=perl]
#!/usr/bin/perl -w
use LWP::UserAgent;
use CGI qw(header -no_debug);
my $file=$ARGV[0];
my $URL = 'http://myip.net.ru/';
my $u = new LWP::UserAgent;
$u->timeout(3);
$u->agent("check anonymous");
my $r = $u->request(new HTTP::Request GET => $URL);
print "\n Your IP : ";
print $r->content=~/(\d+\.\d+\.\d+\.\d+)/;
print "\n\n";
print " -Check http proxy-\n";
open (FL,$file) or die ("cannot open proxy list file!!!");
while(<FL>)
{
my $ua = new LWP::UserAgent;
$ua->proxy(['http', 'ftp'], split);
$ua->timeout(3);
$ua->agent("check anonymous");
my $res = $ua->request(new HTTP::Request GET => $URL);
print "You are seen as : ";
print $res->content=~/(\d+\.\d+\.\d+\.\d+)/;
print "\n";
}
[/syntax]


07.07.2008 17:12
Профиль
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


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

Перейти:  
© 2013 «Форум программистов Украины»