Net::SC - модуль для выстраивания цепочек socks серверов, и передачи через них данных.
# CONNECT TO HOST # ----------------
...
$self = new Net::SC(
Timeout => ( $opt{'to'} || 10 ),
Chain_Len => ( $opt{'l'} || 2 ),
Debug => ( $opt{'d'} || 0x04 ),
Log_File => ( $opt{'lf'} || undef ),
Random_Chain => ( $opt{'rnd'} || 0 ),
Auto_Save => 1
);
die unless ref $self;
unless ( ( $rc = $self->connect( $host, $port ) ) == SOCKS_OKAY ) {
print STDERR "Can't connect to $host:$port [".( socks_error($rc) )."]\n";
exit;
}
$sh = $self->sh;
print $sh, "Hello !!!\n"; ... $self->close; ...
--- or ---
...
$self = new Net::SC(
Timeout => ( $opt{'to'} || 10 ),
Chain_Len => ( $opt{'l'} || 2 ),
Debug => ( $opt{'d'} || 0x04 ),
Random_Chain => ( $opt{'rnd'} || 0 ),
Auto_Save => 0,
Chain_File_Data => [
'200.41.23.164:1080:::4:383 b/s Argentina',
'24.232.88.160:1080:::4:1155 b/s Argentina',
],
);
die unless ref $self;
unless ( ( $rc = $self->connect( $host, $port ) ) == SOCKS_OKAY ) {
print STDERR "Can't connect to $host:$port [".( socks_error($rc) )."]\n";
exit;
}
$sh = $self->sh;
print $sh, "Hello !!!\n";
...
$self->close;
...
# BIND THE PORT
# ---------------
...
$self = new Net::SC(
Timeout => ( $opt{'to'} || 10 ),
Chain_len => ( $opt{'l'} || 2 ),
Debug => ( $opt{'d'} || 0x04 ),
Log_file => ( $opt{'lf'} || undef ),
Random_chain => ( $opt{'rnd'} || 0 ),
Auto_save => 1
);
die unless ref $self;
unless ( ( $rc = $self->bind( $host, $port ) ) == SOCKS_OKAY ) {
print STDERR "Can't bind port [".( socks_error($rc) )."]\n";
exit;
}
print STDOUT "Binding the port : ",
$self->socks_param('listen_port'), "\n";
print STDOUT " in the host : ",
$self->socks_param('listen_addr'), "\n";
print STDOUT " for $host\n";
$self->configure( TIMEOUT => 45 );
unless ( ( $rc = $self->accept() ) == SOCKS_OKAY ) {
return $rc;
} else {
$sh = $self->sh;
}
print STDOUT 'Connect from: ',
$self->socks_param('listen_addr'), ':',
$self->socks_param('listen_port'), "\n";
print $sh 'Hello : ', $self->socks_param('listen_addr'), "\n";
print $sh ' port : ', $self->socks_param('listen_port'), "\n";
print STDOUT <$sh>; ... Более детально все показано в примерах.
Инициализация внутренних переменных. В качестве параметров принимает хеш, со следующими ключами:
TIMEOUT - таймаут при создании цепочки, в секундах.
CHAIN_LEN - длина цепочки.
DEBUG - уровень отладки ( 0x00 | 0x01 | 0x02 | 0x04 )
0x00 - выключить
0x01 - включить
0x02 - выводить все ответы от sokcs серверов
0x04 - выводить все, что пишем socks'ам
0x08 - расширенная информация об ошибках
CHAIN_FILE - имя файла конфигурации.
CHAIN_FILE_DATA - ссылка на массив с данными ( формат такой же
как и в файле конфигурации ). Можно использовать
для передачи данных о цепочках напрямую, без
использования файла конфигурации. При использовании
данного параметра, параметр CHAIN_FILE игнорируется,
то есть файл конфигурации НЕ читается.
SYSLOG - 1 - Использовать для логирования syslogd
( под *nix ), или eventlog ( под win32 ).
По умолчанию 0.
LOG_FILE - имя лог файла, если undef то все пишем в STDERR
или передается syslogd.
RANDOM_CHAIN - правило построения цепочки ( 0 || 1 ).
0 - строить цепочку по порядку указанному в конфиге
1 - строить цепочку в произвольном порядке.
CHECK_DELAY - время в секундах, после которого при не удачной
попытке коннекта к серверу, его имя не будет
использовано при следующем создании цепочки.
AUTO_SAVE - автоматически записывать данные о socks серверах
в .db файл. Для более быстрого последующего коннекта.
LOG_FH - Файловый дескриптор для LOG файла. Используется только
если LOG_FILE == undef
LOOP_CONNECT - Прежде чем строить цепь дальше сервер коннектиться сам
себе.
0x01 - распространяется на socks v4
0x02 - распространяется на socks v5
RESTORY_TYPE - При установке в 1 данные из кэша об отсутствующих
машинах в файле конфигурации удаляются.
Использование:
die unless $self->connect( $host, $port ) == SOCKS_OKAY;
Использование:
die unless $self->bind( $host, $port ) == SOCKS_OKAY;
Использование:
die unless $self->accept() == SOCKS_OKAY; $sh = $self->sh;
Использование:
$sh = $self->sh;
Использование:
$self->close;
new() ).
Использование:
$self->configure( TIMEOUT => 10 );
первый аргумент - секция ( TIMEOUT, DEBUG, CHAIN_LEN, etc ) второй аргумент - новое значение. ( не обязательно )
Использование:
$listen_addr = $self->socks_param( 'listen_Addr' );
$all_param = $self->socks_param();
$listen_addr = $all_param->{'listen_addr'};
socks_error( ERROR_CODE )
Возвращает сообщение об ошибке по его коду.
Коды возврата socks'а :
SOCKS_GENERAL_SOCKS_SERVER_FAILURE
SOCKS_CONNECTION_NOT_ALLOWED_BY_RUL
SOCKS_NETWORK_UNREACHABLE
SOCKS_HOST_UNREACHABLE
SOCKS_CONNECTION_REFUSED
SOCKS_TTL_EXPIRED
SOCKS_COMMAND_NOT_SUPPORTED
SOCKS_ADDRESS_TYPE_NOT_SUPPORTED
SOCKS_OKAY
SOCKS_FAILED
SOCKS_NO_IDENT
SOCKS_USER_MISMATCH
SOCKS_INCOMPLETE_AUTH
SOCKS_BAD_AUTH
SOCKS_SERVER_DENIES_AUTH_METHOD
SOCKS_MISSING_SOCKS_SERVER_NET_DATA
SOCKS_MISSING_PEER_NET_DATA
SOCKS_SOCKS_SERVER_UNAVAILABLE
SOCKS_TIMEOUT
SOCKS_UNSUPPORTED_PROTOCOL_VERSION
SOCKS_UNSUPPORTED_ADDRESS_TYPE
SOCKS_HOSTNAME_LOOKUP_FAILURE
$self->get_socks_count
Возвращает число socks серверов которые могут быть
использованы для построения цепочки. Без учета находящихся
в данный момент в дауне.
$self->mark_proxy ( $proxy_id, $status );
Помечает прокси с порядковым номером в конфиге $id как временно
недоступный - если $status != SOCKS_OKAY, иначе очищает счетчик
неудачных попыток...
$self->dump_cfg_data();
Сбрасывает текущее состояние всех серверов в ${CHAIN_FILE}.db
файл. Имеет смысл пользовать при большом списке соксов, многие
из которых часто дохнут... При Auto_Save данные сбрасываются
автоматически после каждого bind или connect.
$self->restore_cfg_data();
Восстанавливает значения таймаутов... Восстанавливаются
значения только для тех серверов которые прописаны в текущем
конфиге. Т.е. если конфиг пустой то ни чего не восстановится.
При установленной переменной $Net::SC::RESTORE_TYPE в 1 данные
из кеша удаляются, если в файле конфигурации не присутствует
больше данный Socks сервер.
accept изменяет следующие значения возвращаемые socks_param:
listen_addr - IP адрес удаленной машины listen_port - номер порта удаленной машины
Процедуры connect, bind, accept, при успешном завершении должны возвращать SOCKS_OKAY
#host : port : uid : pswd : socks_proto 192.168.1.90 : 1080 : : : 5 ...
Коментари - строки начинающиеся на `#', строки из одних пробелов игнорируются.
При использовании на сервере ( socks v5 ) правил доступа для юзеров, т.е. Васе можно на яндекс, а Вере на гугль, и запросе Васи к гуглю такая ситуация не обрабатывается в create_chain, считается, что прокся жива, но выдается честный SOCKS_CONNECTION_NOT_ALLOWED_BY_RULESET, поэтому если надо ловите такие ситуации сами, и с помощью mark_proxy() помечайте сервер как недоступный...
В инете встречаются 'нехорошие' соксы которые вроде как есть, но не работают, поэтому например при коннекте к такому соксу v4 и длине цепочки равной 1, построение закончится неудачно даже если в конфиге еще остался список резервных серверов, для предотвращения этого можно попробовать пользоваться Loop_Connect - к каждому серверу в цепи коннектимся дважды, причем второй раз `через самого себя', что дает возможность проверить сервер...
Loop_Connect также полезен в том смысле, что если коннекты через сервер запрещены, то помечается как плохой следующий в цепи, ну и чтоб предотвратить это...
perl, RFC 1928, RFC 1929, ...
Okunev Igor V. mailto:igor@prv.mts-nn.ru
http://www.mts-nn.ru/~gosha
icq:106183300