Отправить\принять пакет TCPClient

[xkor]

Be3geBJIa3, зачем же в ПМ, чего в этом секретного, вот лови:

Public: 65537
Private: 7582755625242956920642930520527082160626422379908752381910705950070334735560292334593794066616085030704141292953715226107494399153265140625795213136123750461894212934603837599718310894742818357253442801325482875503123628608572472135307672677104600014566330916129493501547673609963817964531594226364302807993
Module: 36003119279254340919233191155819994462144015323631087796369045558919041336261311217291420831979885869539760046099227325465975544251795806795098231058620765559861865193839298972977890750546282107564404129817865227695586942238461328794310735620313338450074803752108593275893255820506054616731494071499279307243

ЗЫ это в десятичной системе счисления, у FGInt есть функции для преобразования строки в такой системе во внутренний формат чисел...
ЗЗЫ на всякий случай уточню что от сервера приходит заскрембленый Module, а Public всегда равен 65537

[ErgoZ]

Доброго времени суток. На яве пытаюсь подрубится к интерлюду. Получаю такой пакет:

02-12 03:08:53.001: I/System.out(1100): BA00EA7497F83ABA831B54950774A27B2D4275EEC85548D6A8 7FEFF436E6177FC581B98398CCB2CC66CBA777691E7139F87E 7763F60B5A29014479921B11944BC9DB0D7D4ED7C9756991AF 8C46C2DC67DDEB6362BD501274F330FB843891CE06FD7B3F32 C758758C061D3844DE5FD233199C2C96709565C01919269E1F BC82DFFE8FF18A9ECDA3673FEF8607F88820922284636C0A3B 51B203DD583AF745954350DB96836EBF7D32606B1346F9CE60 C1F47119FA5D8D87852E77


После этого, я так понимаю, пытаюсь делать декод по блоуфишу от интерлюда (6B60CB5B82CE90B1CC2B6C556C6C6C6C) (кстати норм декодера на яву не нашёл, и не уверен что фц-ия правильно работает, поэтому сюда и пишу). В результате я получаю в декоде примерно такой пакет:

02-12 03:08:53.072: I/System.out(1100): 2EB993A28A2CD0CA39CFA3D31931AC502A424CC5173B6DFCC9 DAF0A76DA01B1794F32287AD99AC7D1D0856E95BE4245C72B9 612A078FEA4D9D6F2C2BAB3251641C379D9863D1D2111F8EA0 8B0F30C6CF983A38ED12D777681E565ADFCFFE805041FEECD2 089222EF1C8392174A250C35FCF17AB4C68A368934F724763D 7FCB9A2D4EA981A6BC1779438687412277FFB49FD893B6E6B2 F665B2040BCE8ED38F51B04996EB5CFA13274D62C62F4CA347 DEB1D1AF407B2428BFF662

Какие мои дальнейшие действия? Ксорить? а то я уже запутался да и на яву от делфей сильно отличается) на делфях проще, но нужда заставляет на яве писать)

И я так понимаю что по блоуфишу я допустил ошибку, что включил в декод сюда ba00?

[Shadrincev]

Приветствую всех, ребят помогите разобраться.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    log: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Client: TClientSocket;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
TByteArray = array of byte;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ByteArrayToHexString(const InArr: array of Byte): string;
var
   tmpStrList: TStringList;
   i: Integer;
begin
   tmpStrList := TStringList.Create;
   try
     for I := Low(InArr) to High(InArr) do
     begin
       tmpStrList.Append(IntToHex(InArr[i], 2));
     end;
     tmpStrList.Delimiter := ' ';
     Result := tmpStrList.DelimitedText;
   finally
     tmpStrList.Free;
   end;
end;

procedure ToLog(log: string);
begin
form1.log.Lines.Add(log);
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
{Если соединение уже установлено - прерываем его.}
  if Client.Active then
  begin
  Client.Active:=False;
  Exit; {...и выходим из обработчика}
  end;
{Присваиваем свойствам Address нужные значения}
  Client.Address:=Edit1.Text;
{Пытаемся открыть сокет и установить соединение}
  Client.Active:=True;
end;

procedure TForm1.Button2Click(Sender : TObject);
 begin
  Client.Active:=False;
 end;

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
Socket.Close;
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
   len : integer;
   Buffer : TByteArray;
begin
   ToLog('~~~ Подключились ~~~~~~~~~~~~~~~~');
   ToLog('размер пакета ' + IntToStr(Socket.ReceiveLength)+' bytes');
   setLength(Buffer, Socket.ReceiveLength);
   len := Socket.ReceiveBuf(Buffer[0], Socket.ReceiveLength);
   ToLog('Прочитано в буфере: ' + IntToStr(len) + ' bytes');
   ToLog('Ответ сервера: ' + ByteArrayToHexString(Buffer));

end;

end.

Собственно, соединение устанавливаю, ответ получаю, но не могу понять, что делать дальше, и как из полученного первого пакета получить ключ (не пинать я самоучка). Прошу разжуйте пожалуйста, книги читаю гугл и яндекс мучаю, но немогу разобраться...

[guplen]

Читай статью с самого начала))

[Shadrincev]

Сообщение от guplen

Читай статью с самого начала))

Читал на раза 4-е.
Собственно, загвоздка в том, что пакеты постоянно преобразовывать через function ByteArrayToHexString? и на основе преобразованного пакета уже if else? или же напрямую через Buffer?

[Yegor]

ByteArrayToHexString - это нужно только для вывода на экран/лог, для работы с пакетом это преобразование делать не нужно, работай на прямую с буфером.

[Silent]

Shadrincev, посмотри готовые примеры la2_client_emu и тут http://coderx.ru/showthread.php?t=9575

[Shadrincev]

Сообщение от Silent

Shadrincev, посмотри готовые примеры la2_client_emu и тут http://coderx.ru/showthread.php?t=9575

смотрел, в la2_client_emu я не увидел прием первого пакета, там ключ уже прописан вроде как. А xBot2010 не смог собрать знаний нехватает...

Сообщение от Yegor

ByteArrayToHexString - это нужно только для вывода на экран/лог, для работы с пакетом это преобразование делать не нужно, работай на прямую с буфером.

не могу понять как на прямую....

[supernewbie]

Shadrincev, Buffer[index] епт

[Demion]

Shadrincev, может быть это не мое дело, но не советую писать эмулятор клиента, если вы не имеете представления о массиве байтов и как с ним работать (основы основ)