Socks 5 Class. Налетай и отгребай кому надо 8-)

[xenomorph]

Привет всем!

Вот выкладываю - Socks5 Relay.
Огромная просьба потестить!
(И сказать где неработает , если вдру=Х=) ))

Частичная поддержка (только Connect) Socks5 протокола.
(ИМХО этого более чем достаточно )

1. Коннект на прокси.
2. Запуск рилея.

Собираеться туннель:

Target Сервер <=> Сокс5 Прокси <=> Relay на 20000

... или без запуска рилея.
Отсылка неправильного НТТП запроса и ответ в месаджбоксе.

Собиралось и Тестилось на WinGate 5.0.0 и Apache.
--
Заренее спасибо!

з.ы. Если кто ещё поросит Сокс5 - линкуйте сюда.
РФСи в комплекте. .

[tyomitch]

Код: Выделить всё

'Counting the Port
Private Sub CountPort(RPort As Long, _
                      ByRef Integer1 As Byte, _
                      ByRef Integer2 As Byte)
   
Dim Spcount As Long
Dim ts As Variant
Dim bin2 As String
Dim bin As String

    Do Until Spcount = 16
       
        Spcount = Spcount + 1
        If RPort > 0 Then
            ts = RPort Mod 2
            RPort = Int(RPort / 2)
        Else
            ts = 0
        End If
       
        If Spcount > 8 Then
            bin2 = ts & bin2
        Else
            bin = ts & bin
        End If
   
    Loop
   
    Integer1 = Bin2Dec(bin2)
    Integer2 = Bin2Dec(bin)

End Sub


Что это чудо делает??

Разбивает WORD на два байта переводом в строковую запись?

[xenomorph]

2 tyomitch:

Анекдот для размышлений:

"Табличка в салуне на диком западе:
Просьба в музыкантов не стрелять -
играют как умеют!" ."

Ответ на вопрос:

Да! .

Если внимаельно смотреть - то в сорсах
есть закоментированый блок -
Вариант просчёта порта №1.

Но он разбивает только мальенький порт .
Где его один байт вынести может.

А этот кусок приплюсован в самый
последний момент .

Я с байтами - плохо дружу 8ъ!
--
з.ы оно ведь работает?

Буду признателен за более простой вариант! )).

2 FleX_2004:
На момент написания письма - этой проги ещё не было .
И РФСи я ещё не читал ! Просто спросил 8ъ - до того
как начать вчитываться.

Мысль вслух:

2 All:

Как думаете:
Стоит ли писать прогу клона SocksChains?
Просто я МГОУ . И ИМХО моя прога
будет покруче и получше? ...

[tyomitch]

xenomorph,

вместо этого:

Код: Выделить всё

    'Destination port (new)
    Dim x As Byte
    Dim y As Byte
    Call CountPort(CLng(s_valTargetHostPort), x, y)

    'Setting the Array
    ConHead2(l_Index) = x
    ConHead2(l_Index + 1) = y


пишешь это:

Код: Выделить всё

    'Destination port (new)
    Dim x As Long
    x = CLng(s_valTargetHostPort)

    'Setting the Array
    ConHead2(l_Index) = x \ 256
    ConHead2(l_Index + 1) = x Mod 256


и стираешь CountPort вместе с Bin2Dec подальше.

[TRAF]

Не могу понять в чем проблема.. помогите пожалуйста!
Скачал Socks5 Relay... изменил как написал tyomitch
Если коннектиться на локальный сокс (который установлен у меня) то все проходит без сучка и задоринки! а вот если на удаленный сокс, то выводит следущие:
11:02:35 Connecting to Proxy ...
11:02:35 Auth Request Sent!
11:02:36 Sending Target Host PI:Port Data ...
11:02:36 Server Replies Error: General SOCKS server failure!
11:02:36 Socket Closed!
Сокс проверенный поддерживает как 4 так и 5 версию!
таджет ввожу 66.98.242.221 порт 80
Relay не запускаю... может глупый вопрос но зачем он нужен?