Есть компонент/модуль или просто код реализации socks5 прокси сервера на Delphi 6/7?

Question

[Евгений Николаев]

Может быть есть у кого нибудь компонент/модуль или просто код реализации socks5 прокси сервера на Delphi 6/7?
Нашёл в сети вот такой вариант реализации - https://proxy-base.com/f29/delphi_socks5_ishodnik-... в нём есть небольшие ошибки, поправил их, тем не менее расшаривание порта не происходит (проверял через netstat в винде и пробовал подсоединяться через telnet). Тем не менее старт прокси вешал на кнопку. Приложение Delphi запустилось. Если из него сразу выйти то ошибок нет. Если запустить прокси и потом выйти то вылетает исключение, из чего можно сделать вывод что всё-таки там что то выполняется. При это опять же как написал порт не расшарен, коннектиться некуда.
Можете ли подсказать другую рабочую реализацию socks5 прокси для Delphi 6/7 или подсказать что именно в коде по ссылке неверно написано и как поправить?

Нашел ещё вот такой вариант - https://forum.sources.ru/next/index.php?showtopic=... его даже откомпилировать без ошибок для запуска не удалось.

Answer 1

[Hemul GM]

Спроси у народа здесь

Comments

[Евгений Николаев]

Благодарю за ссылку на канал. Зашёл туда а там как раз мой вопрос уже задали.

[Евгений Николаев]

Канал не рекомендую. Там неадекваты обсуждают что угодно только не по теме. Им важнее выяснить лицензионная винда или нет.

[Hemul GM]

Евгений Николаев, люди там обсуждают что угодно. Любят оффтопы, особенно, если не знают ответ на нужный вопрос. Многие там достаточно компетентны и помогут всегда. А на оффтопы в обычном чате грех жаловаться.

[Евгений Николаев]

Hemul GM, я зашёл посмотрел, ответил по вопросам которые у них возникли(они были мало связаны с темой моего визита). Как человек доброжелательный, я всего лишь считаю необходимым уберечь пользователей от пустой траты времени. Канал не рекомендую, как флудерский и бесполезно отнимающий время. Компетентных не увидел, зато увидел неадекватов-флудеров(почему то считающих себя тролями, не будем разбираться в причинах у значительного числа жителей страны такая проблема). Извините но одним лишь Вашим словам о том что там есть компетентные у меня оснований доверять нет, в том числе потому, что я с Вами не знаком. Поэтому моё дело лишь предупредить о возможных последствиях посещения ссылки в виде траты времени.

Answer 2

[Alex Khayev]

curl не подходит? наверняка уже есть прослойка под делфу. Ну или накрайняк самому написать либу и ею пользоваться

Comments

[Евгений Николаев]

Нужен сам прокси сервер, а не подключение из Delphi как от клиента через прокси. Вопрос подразумевает что сама программа на Delphi будет являться прокси сервером к которому уже будут конектиться клиенты для выхода через proxy.

Answer 3

[ruyurik]

Очень много инфы перелопатил на форумах, много делал экспериментов, в итоге добавил несколько строк работающего кода, чем и поделюсь.
Делал для Socks Proxy сервера, для RDP-соединений. Работает под Indy компонентами, использую Delphi XE5.
По TidTCPServer (по какому-нить свободному порту) на обработчике OnExecute создаю динамически компонент проброса портов TidMappedPortTCP

var mRemap: TIdMappedPortTCP;
begin
    mRemap := TIdMappedPortTCP.Create(Application);
    mRemap.DefaultPort := 40000; //Выбираем входящий порт прокси-сервера (необходимо пробросить порт до этого компа на роутере), у меня для каждого соединения выбран свой порт
    mRemap.OnConnect := MappedPortConnect;   //MappedPortConnect - новый назначаемый обработчик для всех соединений при перенаправления
    mRemap.Active := True;
end;

потом добавляем сам обработчик:

procedure TForm1.MappedPortConnect(AContext: TIdContext);
begin
  // Обработчик один на все соединения, здесь проверка IP соединения, которое вы должны ранее сохранить куда нибудь в массив при первом соединении через порт компонента TidTCPServer
  if (AContext.Binding.PeerIP = '192.168.0.1') then
      with TIdTCPClient(TIdMappedPortContext(AContext).OutboundClient) do
      begin
          Host := 'Computername';
          Port := 3389;
      end;
end;