[PERL]Multi-thread Proxy Scanner by Sharky [Human & Server]] |
26.02.2009, 22:41
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
С нами:
10541186
Репутация:
921
|
|
[PERL]Multi-thread Proxy Scanner by Sharky [Human & Server]]
Многопоточный прокси сканнер by Sharky
Скриншот:
Описание:
[!] Сканит диапазон IP на наличие проксиков
[!] Многопоточнсть
[!] Сканит быстро 
[!] Прост в обращении
[!] Чекает найденные проксики на валидность ( посредством парсинга гугла )
Запуск
Человерку понятная версия:
[*] Сохранить сорец в файл prox.pl или скачать по ссылкам внизу поста и разархивировать
[*] Тыкнуть по получившемуся ярлычку
[*] через консоль: [*] Далее просто вводить всё что просит
Серверная версия ( ссылки в конце поста ):
[*] Через консоль:
Код:
perl prox2.pl [start ip] [end ip] [port] [timeout (Default = 10)] [threads (Default = 50 )] [file for good proxies (Default = 'proxy.txt')]
[*] Пример:
Код:
perl prox2.pl 192.168.1.1 192.168.255.255 3128 10 50 proxies.txt
Source (человеку понятной версии):
PHP код:
#!/usr/bin/perl
use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;
use threads;
use threads::shared;
my @range : shared;
my $i : shared;
my $proxylist : shared;
$| = 1;
$nn = "\r\n";
$g = 0;
print "
######################################################
### ###
### Proxy Scanner ###
### with love by Sharky ###
### Special for Antichat ###
### *** ###
### ###
######################################################
" . $nn . $nn;
print "[?] Start IP: ";
$start = <STDIN>;
print "[?] End IP: ";
$end = <STDIN>;
print "[?] Port: ";
$port = <STDIN>;
print "[?] Timeout: ";
$timeout = <STDIN>;
print "[?] Threads: ";
$threads = <STDIN>;
print "[?] File for good proxies: ";
$proxylist = <STDIN>;
@range = ip_range();
$size = scalar @range;
threads();
sub threads {
print $nn. "[+] $size IP`s for Scaning." . $nn;
print "[+] Start Scaning." . $nn . $nn;
for ( 0 .. $threads ) { $trl[$_] = threads->create( \&scan, $_ ); }
for (@trl) { $_->join; }
}
sub scan {
while (@range) {
{ lock(@range); $cur = shift @range; }
my $sock = new IO::Socket::INET(
PeerAddr => $cur,
PeerPort => $port,
PeerProto => 'tcp',
Timeout => $timeout
);
if ( !$sock ) {
{ lock($i); $i++; }
}
else {
check();
close $sock;
{ lock($i); $i++; }
}
$percent = ( $i / $size ) * 100;
$percent = sprintf( "%.1f", $percent );
print "[%] $percent% [Good Proxies] $g\r";
}
}
sub ip_range {
my @ips;
$s = inet_aton($start);
$e = inet_aton($end);
$s_ip = unpack( 'N', $s );
$e_ip = unpack( 'N', $e );
for ( $o = $s_ip ; $o < $e_ip ; $o++ ) {
$o = pack( 'N', $o );
$ip = inet_ntoa($o);
push @ips, $ip;
$o = unpack( 'N', $o );
}
chomp @ips;
return @ips;
}
sub check {
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)");
$ua->proxy( ['http'] => 'http://'.$cur.":".$port );
$surl = "http://google.com/index.php";
$req = new HTTP::Request GET => $surl;
$document = $ua->request($req);
$content = $document->content;
if ( $content =~ /google/ ) {
$g++;
print "[OK] $cur:$port" . $nn;
open( FILE, ">>$proxylist" );
print FILE "$cur:$port\n";
close(FILE);
}
}
#with love by Sharky
Либо скачать архивом:
Человеку понятная версия :
Rapidshare.com
Webfile.ru
Dump.ru
Серверная версия:
Rapidshare.com
Webfile.ru
Dump.ru
Да прибудет с вами анонимность (с)
Последний раз редактировалось Sharky; 27.02.2009 в 12:15..
|
|
|
26.02.2009, 23:09
|
|
Участник форума
Регистрация: 20.05.2008
Сообщений: 144
С нами:
9461186
Репутация:
171
|
|
Ух ! Огромное спасибо !
А можно реализовать так, чтобы просто запустить .pl и потом результаты в текстовике смотреть ?
Чтоб например через шелл запустить ...
|
|
|
|
26.02.2009, 23:45
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
С нами:
10541186
Репутация:
921
|
|
Сообщение от BuG_4F
Ух ! Огромное спасибо !
А можно реализовать так, чтобы просто запустить .pl и потом результаты в текстовике смотреть ?
Чтоб например через шелл запустить ...
добавил...смотри первый пост
|
|
|
|
26.02.2009, 23:10
|
|
Участник форума
Регистрация: 19.10.2005
Сообщений: 128
С нами:
10819920
Репутация:
83
|
|
Спасибо РЕСПЕКТ ЧЕЛ, то что нужно!!!!!! Молодца, работает на ура!!!! ++++
Последний раз редактировалось Romaxa55; 26.02.2009 в 23:25..
|
|
|
|
26.02.2009, 23:15
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами:
9851426
Репутация:
1676
|
|
$ua->proxy( ['http'] => 'http://localhost:808' );
ээ?
|
|
|
|
26.02.2009, 23:18
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
С нами:
10541186
Репутация:
921
|
|
простите извините не усмотрел
UPD: поправил
Последний раз редактировалось Sharky; 26.02.2009 в 23:21..
|
|
|
|
26.02.2009, 23:21
|
|
Участник форума
Регистрация: 08.02.2009
Сообщений: 196
С нами:
9080952
Репутация:
127
|
|
Спс большое,хотел написать что то подобное!
|
|
|
|
26.02.2009, 23:39
|
|
Новичок
Регистрация: 09.11.2008
Сообщений: 13
С нами:
9211727
Репутация:
40
|
|
Всё ввожу и тупо стоит на месте
|
|
|
|
27.02.2009, 22:51
|
|
Участник форума
Регистрация: 11.07.2007
Сообщений: 292
С нами:
9913346
Репутация:
512
|
|
Классные работы +
|
|
|
|
27.02.2009, 23:01
|
|
Участник форума
Регистрация: 17.05.2008
Сообщений: 175
С нами:
9465276
Репутация:
521
|
|
Молодец! Так держать!  |
|
|
|
|
 |
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Proxy Scanner 4.2
|
Unregistered |
Болталка |
3 |
23.02.2009 02:24 |
|
Живые прокси
|
xdx |
Skype, IRC, ICQ, Jabber и другие IM |
111 |
15.04.2007 13:10 |
|
Proxy
|
Kozak-Scv |
Анонимность |
2 |
11.02.2007 17:28 |
|
Удобный Http брут на Php
|
KEZ |
PHP |
18 |
13.08.2005 13:34 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид
