Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SOCKS4/5 сервер средствами Indy 10, SOCKS4/5 средствами Indy 10 
:(
    Опции темы
Pararam
Дата 5.1.2008, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Помогите разобратся с Indy10 работа с компонентом IdSocksServer

Уменя удалённый комп не соединеняется с ICQ через этот сервер!
Хотя когда смотрю через Tcpview соединение есть на несколько секунд и сразу дисконект!
Что неправельно?
Исходники прикрепил!
Пожалуйсто помогите!

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdSocksServer, IdServerIOHandler, IdServerIOHandlerSocket,
  IdServerIOHandlerStack, IdScheduler, IdSchedulerOfThread,
  IdSchedulerOfThreadDefault, IdIntercept, IdServerInterceptLogBase,
  IdServerInterceptLogEvent, IdMappedPortTCP;

type
  TfrmSocks = class(TForm)
    IdSocksServer: TIdSocksServer;
    cmdSTOP: TButton;
    cmdSTART: TButton;
    IdServerIOHandlerStack: TIdServerIOHandlerStack;
    MemoStatus: TMemo;
    IdSchedulerOfThreadDefault: TIdSchedulerOfThreadDefault;
    IdServerInterceptLogEvent: TIdServerInterceptLogEvent;
    procedure cmdSTARTClick(Sender: TObject);
    procedure IdServerIOHandlerStackStatus(ASender: TObject;
      const AStatus: TIdStatus; const AStatusText: String);
    procedure cmdSTOPClick(Sender: TObject);
    procedure IdSocksServerBeforeConnect(AThread: TIdSocksServerContext;
      const AUserId: String; var AHost: String; var APort: Integer;
      var AAllowed: Boolean);
    procedure IdSocksServerStatus(ASender: TObject;
      const AStatus: TIdStatus; const AStatusText: String);
    procedure IdServerInterceptLogEventLogString(
      ASender: TIdServerInterceptLogEvent; AText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSocks: TfrmSocks;

implementation

{$R *.dfm}

procedure TfrmSocks.cmdSTARTClick(Sender: TObject);
begin
IdSocksServer.Active:=True;
cmdSTART.Enabled:=False;
cmdSTOP.Enabled:=True;
end;

procedure TfrmSocks.IdServerIOHandlerStackStatus(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
MemoStatus.Lines.Add('IOHandler:'+AStatusText);
end;

procedure TfrmSocks.cmdSTOPClick(Sender: TObject);
begin
IdSocksServer.Active:=False;
cmdSTART.Enabled:=True;
cmdSTOP.Enabled:=False;
end;

procedure TfrmSocks.IdSocksServerBeforeConnect(
  AThread: TIdSocksServerContext; const AUserId: String; var AHost: String;
  var APort: Integer; var AAllowed: Boolean);
begin
MemoStatus.Lines.Add('UserId:'+AUserId+' Host:'+AHost+' Port:'+IntToStr(APort));
end;


procedure TfrmSocks.IdSocksServerStatus(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
MemoStatus.Lines.Add('ServerStatus:'+AStatusText);
end;

procedure TfrmSocks.IdServerInterceptLogEventLogString(
  ASender: TIdServerInterceptLogEvent; AText: String);
begin
MemoStatus.Lines.Add('InterceptLog:'+AText);
end;

end.


Присоединённый файл ( Кол-во скачиваний: 31 )
Присоединённый файл  Socks4Server.zip 7,29 Kb
PM MAIL   Вверх
Pararam
Дата 5.1.2008, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Некто не может помочь?!

Добавлено через 14 минут и 13 секунд
Присоединённый файл ( Кол-во скачиваний: 1 ) 
  Socks4Server.zip 7,29 Kb


Исходник тут......
PM MAIL   Вверх
Sanchezzz
  Дата 5.1.2008, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
а где ты делаешь отправку пакета к нему я не вижу.. по этому он тебя и выкидывает потому что ты ему не посылаешь пакеты..идентификации и других пакетов..
посмотри как в компоненте TICQClient (найдешь в инте где скачать) сделано... как он формирует пакеты и на какие каналы отправляет итд.. 


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
Pararam
Дата 5.1.2008, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Sanchezzz, 

TICQClient Смотрел.......
Но как реализовать это с компонентом IdSocksServer? Непонятно....
PM MAIL   Вверх
Sanchezzz
  Дата 6.1.2008, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
чтоб это сделать половина компонента переписать надано ведь ICS компоненты смогли присобачить к TICQClient .. 



--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
Pararam
Дата 7.1.2008, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Sanchezzz, 
Спасибо за ответ........

Тогда выход из этой ситуации может быть только использование компонента IdMappedPortTCP
PM MAIL   Вверх
Sanchezzz
  Дата 10.1.2008, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
зачем если Ticqclient у него есть соединение через прокси по socket 5 ,4 http
даже с участием компонентов ICS там тоже есть socket 4 5 4A + ssl прикрутить можно ну и другую ерунду..
ну если тебе хочется перенаправлять MappedPort то пожалуйста яб конечно этого не делал..

почему ты решил это добро написать с участием IdSocksServer?

посмотри файл прикрепленный. как модифицированный компас получился в архиве все есть и ICS часть его и ticqclient по днего.

Добавлено через 42 секунды
зачем если Ticqclient у него есть соединение через прокси по socket 5 ,4 http
даже с участием компонентов ICS там тоже есть socket 4 5 4A + ssl прикрутить можно ну и другую ерунду..
ну если тебе хочется перенаправлять MappedPort то пожалуйста яб конечно этого не делал..

почему ты решил это добро написать с участием IdSocksServer?

посмотри файл прикрепленный. как модифицированный компас получился в архиве все есть и ICS часть его и ticqclient по днего.

Присоединённый файл ( Кол-во скачиваний: 38 )
Присоединённый файл  TICQClient___Demo__ICS_.rar 107,25 Kb


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
Pararam
Дата 17.1.2008, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Sanchezzz,  Спасибо......
В этом примере всё очень понятно!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0773 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.