Modtage data via tcp ip på port 50000

Du kan jo starte med at lade et program fange alt der sendes og udskrive det i hex og saa gaa igang med at se om du kan reverse engineere det.

Det kan godt blive en heftig stor opgave.

Jeg er klar over at der bliver en del arbejde med afkode det modtagne, men har ingen ide om hvorledes jeg kommer igang, kan du give et hint?

Du lytter paa porten, accepterer connections, laeser data og udskriver dem i hex.

Det lyder helt rigtigt :-) men hvorledes får man lige sat det op?

Har man nogen mulighed for at sætte det op som en slags sniffer? så kunne jeg bedre analysere data.

ok har fundet udaf så meget, at jeg få noget brugbart ved :

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
    LStreng : string;
begin
    LStreng := AContext.Connection.IOHandler.InputBufferAsString;
    if LokalStreng <> '' then begin
        Memo1.Lines.Add( LokalStreng );
    end;
end;

og jeg bliver hermed ved med at modtage den samme tekst, hvordan fortæller jeg at jeg har modtaget svaret?

OK løsningen fandt jeg selv på følgende måde:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  RxBufStr: UTF8String;
  RxBufSize: Integer;
begin
  if AContext.Connection.Socket.Readable then begin
    try
      RxBufSize := AContext.Connection.Socket.InputBuffer.Size;
      if RxBufSize > 0 then begin
        SetLength(RxBufStr, RxBufSize);
        AContext.Connection.Socket.ReadBytes(TBytes(RxBufStr), RxBufSize, False);
        Memo1.Lines.Add('Kode:'+AContext.Connection.Socket.Binding.IP+':'+RxBufStr);
      end;
    except
    end;
    try
      AContext.Connection.Socket.write(#6);
    except
    end;
    try
      while AContext.Connection.Socket.InputBufferIsEmpty do begin
        Memo1.Lines.Add('Start '+AContext.Connection.Socket.Binding.PeerIP +':'+IntToStr(AContext.Connection.Socket.ReadByte) );
      end;
    except
    end;
  end;
end;