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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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