ANTICHAT.RU VIDEO.ANTICHAT.RU НОВЫЕ СООБЩЕНИЯ ФОРУМ
>> Абузоустойчивые Сервера, VDS/VPS, Хостинг и Домены! Лучший сервис! <<
Есть вопросы по взломам/уязвимостям/защите/шифрованию/криптографии?
Вернуться Форум АНТИЧАТ > КОДИНГ > PHP, PERL, MySQL, JavaScript.
Перезагрузить страницу SOCKS4/5 Sorter + checker
Поиск на форуме
Расширенный поиск
Ответ
Опции темы Поиск в этой теме Опции просмотра
[PERL] SOCKS4/5 Sorter + checker
#1
Старый 14.02.2008, 12:36
Аватара для biophreak
biophreak
Reservists Of Antichat - Level 6
Регистрация: 03.08.2007
Адрес: #!/usr/bin/perl
Сообщения: 335
Провел на форуме:
1 неделю 2 дня
Репутация: Специалист (6/320) ±
По умолчанию [PERL] SOCKS4/5 Sorter + checker
Для упрощения себе жизни сделал сортировщик и чекер листов соксов:
1. Определяет тип прокси (SOCKS4/SOCKS5)
2. Пытается проломится на него в гугл, принтит, если прокси валидный( читайте публичный), при остальных "ошибках"(таких как запрос авторизации, идента, GSSAPI авторизация итд) не принтит прокси.
Юзать: ./socks.pl list.txt (можно еще некоторые параметры указать, для списка - просто запустите скрипт без параметров), где list.txt - файл с соксами в формате ип:порт.
UPDATE: Таки выдалось немного времени - прикрутил треды и еще немножко удобностей
Знаю что немного пизд*цкое распределение проксей между потоками, но что сделаешь - мозгов пока что хватило только на это
Сделал нормальные таймауты...
Скрипт не требует никаких дополнительных модулей )
ЗЫЖ Адекватные отзывы и предложения приветствуются
PHP код:
#!perl -s
# SOCKS4/4a/5 Checker v1.1
# (C) by biophreak
# Thnx: KSURi, nekd0 for help.
# Yeah, i know about ugly proxy distribution between threads :)
use warnings 'all';
use strict;
use diagnostics;
use Socket;
use Fcntl;
use Errno;
use threads;
$| = 1;
my %SOCKS4_CONNECT_RESPONSES = (
90 => "request granted",
91 => "request rejected or failed",
92 => "request rejected, ident required",
93 => "request rejected, ident mismatch"
);
my %SOCKS5_METHODS = (
0 => "no authentication required",
1 => "GSSAPI",
2 => "username/password",
255 => "no acceptable methods"
);
my %SOCKS5_CONNECT_RESPONSES = (
0 => "succeeded",
1 => "general SOCKS server failure",
2 => "connection not allowed by ruleset",
3 => "Network unreachable",
4 => "Host unreachable",
5 => "Connection refused",
6 => "TTL expired",
7 => "Command not supported",
8 => "Address type not supported",
90 => "Protocol mismatch",
112 => "Protocol mismatch"
);
my $sockslist = shift || exit print "[ERROR] Specify sockslist!\n$0 <socks list> [threads num](default: 50) [connection timeout](default: 10) [socks4 sorted list](default: socks4.txt) [socks5 sorted list](default: socks5.txt)\n";
my $threads = shift || 50;
my $timeout = shift || 10;
my $s4l = shift || 'socks4.txt';
my $s5l = shift || 'socks5.txt';
open my $S, '<', $sockslist or die "Cannot open file $sockslist ($!)\n";
my @socks = <$S> and close $S;
open my $S4,'>>', $s4l or die "Cant open/create SOCKS4 file ($!)\n";
open my $S5,'>>', $s5l or die "Cant open/create SOCKS4 file ($!)\n";
my($answer,@thr,%spl_socks);
my $proxyperthr = (scalar(@socks) / $threads);
(print "Threads are more then proxys =)\nSetting threads to ".scalar@socks."\n" and $threads = scalar@socks) if($threads > scalar@socks);
for(my $i = 1;$i <= $threads;$i++)
{
last if scalar @socks <= 0;
push(@{$spl_socks{"sock".$i}},shift @socks) for(1..$proxyperthr);
push(@{$spl_socks{"sock".$i}},shift @socks) if(scalar @socks > 0 and scalar @socks > 2*$proxyperthr);
push(@{$spl_socks{"sock".$i}}, @socks) if($i == $threads and scalar @socks > 0);
}
foreach my $sck(%spl_socks)
{
threads->create(&ch,@{$spl_socks{$sck}}) if exists $spl_socks{$sck};
}
$_->join foreach(threads->list);
close $S5;
close $S4;
undef %spl_socks;
sub ch
{
my @soc = @_;
CHECK:
for(0..$#soc)
{
if($soc[$_])
{
my ($server, $port) = split ':', shift @soc;
$server =~ s/r+|n+|s+//go;
$port =~ s/r+|n+|s+//go;
checkSocks($server,$port);
}
}
}
sub checkSocks
{
my($server,$port) = @_;
socket(SOCK, AF_INET, SOCK_STREAM, 6) or ret("[ERROR] Cannot open socket ($!)\n");
fcntl(SOCK, F_SETFL, O_NONBLOCK) or ret("[ERROR]:[FCNTL] ($!)\n");
unless (connect(SOCK, sockaddr_in($port, inet_aton($server))))
{
Errno::EINPROGRESS == $! or Errno::EWOULDBLOCK or ret("[ERROR] Cannot connect to $server:$port ($!)\n");
vec(my $win = '', fileno(SOCK), 1) = 1;
ret("[ERROR] $server:$port : timed out\n") unless (select(undef, $win, undef, $timeout));
if (defined (my $ret = getsockopt(SOCK, SOL_SOCKET, SO_ERROR)))
{
ret("[ERROR] Connection to $server:$port failed ($!)\n") if $! = unpack('i', $ret);
} elsif (!getpeername(SOCK))
{
(goto CHECK and close SOCK);
ret("[ERROR] Connection to $server:$port failed ($!)\n");
}
}
fcntl(SOCK, F_SETFL, 0);
select((select(SOCK), local $| = 1)[0]);
print SOCK pack("CCC",5,1,0);
sysread(SOCK,$answer,32) or (ret("[ERROR] Cannot read from socket ($server:$port) ($!)\n"));
close SOCK;
if(unpack('C',$answer) eq 5 or $answer eq pack('C',5) or $answer eq pack('C',05)) { checkSocks5($server,$port) }
elsif(unpack('C', $answer) eq 0 or $answer eq pack('C',0) or $answer eq pack('C',00)) { checkSocks4($server,$port) }
else {ret("[WARN] $server:$port is not a SOCKS4/SOCKS4a/SOCKS5\n") }
}
sub checkSocks5
{
my($server,$port) = @_;
my($mssg, $repcode);
socket(SOCK, AF_INET, SOCK_STREAM, 6) or ret("[ERROR] Cannot open socket ($!)\n");
connect(SOCK, sockaddr_in($port, inet_aton($server))) or ret("[ERROR] Cannot connect to $server:$port ($!)\n");
select((select(SOCK), local $| = 1)[0]);
print SOCK pack("CCC", 5, 1, 0) or ret("[ERROR] Cannot send to socket ($server:$port) ($!)\n");
sysread(SOCK,$mssg,32) or ret("[ERROR] Cannot read from socket ($server:$port) ($!)\n");
$repcode = (unpack("C*", $mssg))[1];
ret("[WARN] $server:$port is SOCKS5 proxy,but is not usable ($repcode - $SOCKS5_METHODS{$repcode})\n") unless($repcode == 0);
print SOCK pack("CCCCa4n", 5, 1, 0, 1, inet_aton('64.233.167.99'), 80) or ret("[ERROR] Cannot send to socket ($server:$port) ($!)\n");
sysread(SOCK,$mssg,32) or ret("[ERROR] Cannot read from socket ($server:$port) ($!)\n");
$repcode = (unpack("C*", $mssg))[1];
ret("[WARN] $server:$port is SOCKS5 proxy,but is not usable ($repcode - $SOCKS5_CONNECT_RESPONSES{$repcode})\n") unless($repcode == 0);
print "[+] $server:$port is good SOCKS5 proxy\n";
print $S5 $server.':'.$port."\n";
close SOCK;
}
sub checkSocks4
{
my($server,$port) = @_;
my($mssg, $repcode);
socket(SOCK, AF_INET, SOCK_STREAM, 6) or ret("[ERROR] Cannot open socket ($!)\n");
connect(SOCK, sockaddr_in($port, inet_aton($server))) or ret("[ERROR] Cannot connect to $server:$port ($!)\n");
select((select(SOCK), local $| = 1)[0]);
print SOCK pack("CCnA4x", 4, 1, 80, inet_aton('64.233.167.99'));
sysread(SOCK,$mssg,32) or ret("[ERROR] Cannot send to socket ($server:$port) ($!)\n");
$repcode = (unpack("C*", $mssg))[1];
ret("[WARN] $server:$port is SOCKS4/4a proxy,but is not usable ($repcode - $SOCKS4_CONNECT_RESPONSES{$repcode})\n") unless ($repcode == 90);
print "[+] $server:$port is good SOCKS4/SOCKS4a proxy\n";
print $S4 $server.':'.$port."\n";
close SOCK;
}
sub ret
{
print @_;
close SOCK;
goto CHECK;
}
Скачать
Последний раз редактировалось biophreak, 21.07.2008 в 13:14.
Ответить с цитированием
biophreak
Посмотреть профиль
Репутация
Отправить персональное сообщение для biophreak
Посетить домашнюю страницу biophreak
Найти все сообщения от biophreak
Добавить biophreak в список друзей
#2
Старый 14.02.2008, 14:36
Аватара для Digimortal
Digimortal
Banned
Регистрация: 22.08.2006
Сообщения: 528
Провел на форуме:
2 месяца 1 неделю 4 дня
Репутация: Гуру (45/1095) ±
По умолчанию
>> # Todo: print results to text files, use threads
ну так сразу б уже и сделал, там делов на 10 минут.. )
заместо
Код:
... for (my $i=0; $i < scalar @socks; $i++) { my ($server, $port) = split(/:/, $socks[$i]); ...
лучше использовать нечто вроде
Код:
... while (scalar @socks) { my ($server, $port) = split(/:/, shift @socks); ...
особенно если треды заюзаешь..
Ответить с цитированием
Digimortal
Посмотреть профиль
Репутация
Отправить персональное сообщение для Digimortal
Найти все сообщения от Digimortal
Добавить Digimortal в список друзей
#3
Старый 21.07.2008, 13:18
Аватара для biophreak
biophreak
Reservists Of Antichat - Level 6
Регистрация: 03.08.2007
Адрес: #!/usr/bin/perl
Сообщения: 335
Провел на форуме:
1 неделю 2 дня
Репутация: Специалист (6/320) ±
По умолчанию
Обновил чекер, что именно - в первом посте, тред ап!
Ответить с цитированием
biophreak
Посмотреть профиль
Репутация
Отправить персональное сообщение для biophreak
Посетить домашнюю страницу biophreak
Найти все сообщения от biophreak
Добавить biophreak в список друзей
#4
Старый 21.07.2008, 13:46
Аватара для mff
mff
Постоянный
Регистрация: 12.03.2008
Адрес: ۞
Сообщения: 824
Провел на форуме:
1 месяц 2 недели 1 день
Репутация: Гуру (0/1166) ±
Отправить сообщение для mff с помощью ICQ
По умолчанию
Замечательно!
Ответить с цитированием
mff
Посмотреть профиль
Репутация
Отправить персональное сообщение для mff
Отправить E-mail для mff
Найти все сообщения от mff
Добавить mff в список друзей
#5
Старый 05.01.2009, 15:12
Аватара для Dragon_X
Dragon_X
Новичок
Регистрация: 12.11.2007
Сообщения: 8
Провел на форуме:
18 часов 19 минут 49 секунд
Репутация: Новичок (0/5) ±
По умолчанию
молодец)
Ответить с цитированием
Dragon_X
Посмотреть профиль
Репутация
Отправить персональное сообщение для Dragon_X
Отправить E-mail для Dragon_X
Найти все сообщения от Dragon_X
Добавить Dragon_X в список друзей
Ответ
« Предыдущая тема | Следующая тема »
Опции темы
Версия для печати Версия для печати
Отправить на E-mail Отправить на E-mail
Опции просмотра
Линейный вид Линейный вид
Комбинированный вид Комбинированный вид
Древовидный вид Древовидный вид
Поиск в этой теме
Расширенный поиск
Оценка этой теме
Вы уже оценили эту тему
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлики Вкл.
[IMG] код Вкл.
HTML код Выкл.
Показывать контекстные ссылки
Быстрый переход
ВыберитеПанель управленияПерсональные сообщенияПодпискиКто в ОнлайнеПоиск на форумеГлавная страница форума-------------------- ИНФО МИРОВЫЕ НОВОСТИ Избранное Статьи Наши Статьи Чужие Статьи Forum for discussion of ANTICHAT БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ УЯЗВИМОСТИ Движки CMS и блоги Форумы - Расшифровка хешей Чаты ICQ Форумы E-Mail БЕЗОПАСНОСТЬ *NIX Анонимность Soft - *nix Windows Soft - Windows АнтиАдмин Защита ОС: вирусы, антивирусы, файрволы. ЭЛЕКТРОНИКА и ФРИКИНГ Ссылки Новости мира "железа" Сотовый фрикинг Железо Схемы и программы Телефония и связь Безопасность беcпроводных сетей (Wi-Fi, Bluetooth) ДЛЯ АДМИНИСТРАТОРА WINDOWS Сервера *NIX Сервера ПРОВЕРКА НА УЯЗВИМОСТИ. КОДИНГ PHP, PERL, MySQL, JavaScript. ПО для Web разработчика С/С++, C#, Delphi, .NET, Asm Реверсинг SЕО SЕО - тонкости, методы раскрутки. Партнерки Черные методы раскрутки Белые методы раскрутки Обсуждение Ваших сайтов Статьи Социальные сети Покупка, продажа, услуги в Соц. Сетях ОФФТОП Болталка Покупка, Продажа, Обмен, Раздача ICQ - покупка, продажа. Просьбы о взломах О Работе Покупка, продажа, услуги в Соц. Сетях КВЕСТЫ Antichat's Quest О ФОРУМЕ И САЙТЕ НОВОСТИ ФОРУМА ЖАЛОБЫ И ПРЕДЛОЖЕНИЯ Обсуждение действий модераторов Запросы на исправление рейтингов Video.antichat.ru Комментарии к видео ПРАВИЛА ФОРУМА
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Antichat FTP Checker razzzar Soft - Windows 30 20.04.2009 15:01
Ходим в php через socks4/5 h0d PHP, PERL, MySQL, JavaScript. 0 31.12.2007 19:09
Rambler Checker Xszz PHP, PERL, MySQL, JavaScript. 5 21.12.2007 15:09
PayPal Mail Checker 549iK Покупка, Продажа, Обмен, Раздача 4 25.09.2005 10:15
Powered by: vBulletin Version 3.0.x
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
(Ñ) ANTICHAT.RU
службы мониторинга серверов