Security Teams



:::
  Ответ в темуСоздание новой темы

> Грабер, чекер валидности и анонимности проксей, (c) vxk7m
nameless
Дата 27.01.2007 - 22:39
Цитировать сообщение
Offline



.:Тень:.
******

Профиль
Группа: -experts-
Сообщений: 1745
Пользователь №: 18
Регистрация: 19.02.2005



Рейтинг:
(90%) XXXXX


v0.01

Код
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Response;

sub check4anonim{
my $url="http://texterz.hut2.ru/ip_test/";
my $proxy=shift;
my $iproxy=undef;
my $ua=undef;
my $resp=undef;
##############
$proxy =~ m/(^.*[^:]):/;
#print $1,"\n";
##############
$iproxy = $1;
$ua=LWP::UserAgent->new();
$ua->agent('vxk7m_Z!llA (UNIX !E incompactible)');
$ua->proxy('http'=>"http://".$proxy);
$resp=$ua->get($url);
if ($resp->is_error()){
 return 0;
}
if ($resp->content =~ /$iproxy/){
 return 1;
} else {
 return 0;
}
}

sub check4alive{
my $url="http://ya.ru";
my $proxy=shift;
my $ua=undef;
my $resp=undef;

$ua=LWP::UserAgent->new();
$ua->proxy('http'=>"http://".$proxy);
$resp=$ua->get($url);

if ($resp->is_error()){
 return 0;
}

if ($resp->content =~ /yandsearch/){
 return $proxy;
} else {
 return 0;
}
}

my (@ips,@ports);
my $data;
my ($i,$temp);
my $proxy;

$data = get "http://eliteproxy.us/proxy.php";

@ips = $data =~ m!">([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})</div>!g;
@ports = $data =~ m!<td>(\d{2,4})</td>!g;

foreach $temp(@ports){
$i++;
}
print "[+]$i porxies loaded...\n";

while ($i){
$i--;
$proxy = $ips[$i];
$proxy .= ":";
$proxy .= $ports[$i];
if (check4alive($proxy)){
 print "[!]proxy $proxy is alive ";
 if (check4anonim($proxy)){
  print "and anonymous\n";
 } else {
  print "and not anonymous\n"
 }
}
}
#
# coded by vxk7m aka _taU
#
PM
Top

Опции темы Ответ в темуСоздание новой темы

 





Почему Франшиза полноформатной кофейни типа Шоколадница стоит от 6 миллионов рублей. | Онлайн Обучение лезгинке | заточка ножей мясорубок Видео портале