ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
14.07.2009, 00:51
|
|
Пачка маргарина
Регистрация: 14.07.2005
Сообщений: 964
Провел на форуме:
4646474
Репутация:
1424
|
|
зацените плиз фигню одну -
подправил http://sourceforge.net/projects/ssspl/
и
http://search.cpan.org/~acg/tcpforward-0.01/tcpforward
sss.pl сам сокс5 собственно запускается ./sss.pl 127.0.0.1 32665
и соответственно конектится туда
а tcpforward -
./tcpforward -l 127.0.0.1:32665 -l 127.0.0.1:32667
биндит два порта на одном общается с соксом на другой с браузером или чем то еще.
добавил собственно threads чтоб в несколько потоков было ну и так немного еще по мелочи подправил.
все на перле.
|
|
|
21.08.2009, 13:17
|
|
Познающий
Регистрация: 27.12.2006
Сообщений: 37
Провел на форуме:
1253202
Репутация:
133
|
|
Хороша фигня и полезна.
..
Данный скрипт отлично работает в Nix, в windows при использованиия cygwin.
При использовании Activeperl работать не будет, ето связано с неблокирующими сокетами, почитать можно здесь тыц |
|
|
|
21.08.2009, 18:06
|
|
Banned
Регистрация: 21.03.2009
Сообщений: 302
Провел на форуме:
842165
Репутация:
272
|
|
Заюзал, отлично работает
|
|
|
|
22.08.2009, 01:35
|
|
Пачка маргарина
Регистрация: 14.07.2005
Сообщений: 964
Провел на форуме:
4646474
Репутация:
1424
|
|
Сообщение от f1rebl00d
Хороша фигня и полезна.
..
Данный скрипт отлично работает в Nix, в windows при использованиия cygwin.
При использовании Activeperl работать не будет, ето связано с неблокирующими сокетами, почитать можно здесь тыцкароче беседовал с автором tcpforward- вроде договорились под винду подправить , мой предложенный вариант:
sub transfer {
my ($rfh, $wfh) = @_;
my $total = 0;
my $bytes;
while ($bytes = sysread $rfh, my $data, $bufsize) {
$total += $bytes;
while ($bytes > 0) {
my $written = syswrite $wfh, $data, $bytes, length($data) - $bytes;
die "write error: $!" if !defined $written && !$!{EAGAIN};
$bytes -= $written if defined $written;
}
}
verbose(1, sprintf 'xfer %d %d %d', fileno $rfh, fileno $wfh, $total);
return defined $bytes?0:1;
}
и
sub nonblock {
my $fh = shift;
if ($^O eq 'MSWin32') {
my $nonblocking = pack("L",1);
ioctl($fh, 0x8004667e, unpack("I",pack('P',$nonblocking))) == 0 or die "ioctlsocket(\$sock, FIONBIO,...):$!" ;
}
else{
my $flags = fcntl $fh, F_GETFL, 0 or
die "fcntl error: $!";
fcntl $fh, F_SETFL, $flags | O_NONBLOCK or
die "fcntl error: $!";
}
return $fh;
}
трабла из за неблокируюших сокетов, и из за возникновении ошибок в сокетах. разраб чегото молчит пока, я тестил на виртуалке под виндой вроде пашет на активперл.
Последний раз редактировалось ShAnKaR; 22.08.2009 в 01:38..
|
|
|
|
13.12.2009, 16:22
|
|
Новичок
Регистрация: 20.11.2009
Сообщений: 2
Провел на форуме:
2254
Репутация:
0
|
|
У меня почему то вылетает периодически то sss.pl, то tcpforward.pl. Не могу понять почему. tcpforward.pl иногда тупо весит, приходиться срубать и запускать заново, тоже самое и с sss.pl. правда между ними ещё цепочка из 2-х bouncer'ов построена. Может быть проблема в них?
|
|
|
|
29.12.2009, 18:18
|
|
Новичок
Регистрация: 20.11.2009
Сообщений: 2
Провел на форуме:
2254
Репутация:
0
|
|
А нет ли этих же прог, только на СИ, желательно что бы и под фряхой и под линью компилились :-[
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
