ANTICHAT RU VIDEO ANTICHAT RU НОВЫЕ СООБЩЕНИЯ ФОРУМ Абузоустойчивые Се

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
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
службы мониторинга серверов