TCP pakete bauen + senden

[Innos]

also
diese Stream oder String keine ahnung sieht so aus:

Delphi-Quellcode:

‘L�¸êÄ«ˆ—�_˜¯¼BĤ
âBÎë]²‰ûq?-J¬0ÿƒŽÕl]VîU¯01‰ñÖ&ÇÃ*èƒFÅ:
E�lâÀŠ'Ç‹}E˜Ö¥   *uØ3}»OÙµÝðyq@²„µf’*¡D;%MÛeÜJßåˆuÔ

so da gabs jetzt einmal das problem, dass mittendrin ein ' kam (also das ding, was strings eingrenzt zB bei x:='bla';)
d.h. der hörte da auf... ich hab bisl probiert und einfach direkt ein ' daneben gemacht und es ging 0o

naja dann war noch das problem mit diesen  , manchmal hat delphi anstat diese dinger darzustellen einen absatz gemacht...
aber das geht jetzt auch (fragt mich nicht warum)

so deinen code werde ich gleich mal bei einem anderen paket ausprobieren THX erstmal dafür :D

btw: kann man diese stream eigentlich iwie entschlüsseln? also gibt es vllt ein programm, dass häufig verwendete decodierungen hat?
wäre ganz nützlich

[wicht]

Zitat:

so da gabs jetzt einmal das problem, dass mittendrin ein ' kam (also das ding, was strings eingrenzt zB bei x:='bla'
d.h. der hörte da auf... ich hab bisl probiert und einfach direkt ein ' daneben gemacht und es ging 0o

Das kann ich mir nur sehr schwer vorstellen. Der "string" in Delphi kann das 100%ig. Dass er NULL-Bytes aufnehmen kann war mir aber auch nicht klar. Ich benutze auf der Arbeit den C++ Builder 5 und da hatte ich mit NULL-Bytes als String Probleme.

Zitat:

naja dann war noch das problem mit diesen  , manchmal hat delphi anstat diese dinger darzustellen einen absatz gemacht...
aber das geht jetzt auch (fragt mich nicht warum)

Meinst du im Debugger, wenn du den Inhalt des Strings anschaust oder wie? Das liegt wohl daran, dass das ein Zeilenumbruch war (Code 10/13 in Dezimal). Da würde ich mir aber keine Gedanken machen. Eine Byte-Folge ist eben nicht unbedingt lesbar für einen Menschen. Denke mal, der ist verschlüsselt wie du selbst sagst. Ich würde hier sowieso nicht mit Strings arbeiten. Ich würde den TIdTCPServer nehmen und da einfach ein Byte-Array verschicken, was du dir vorher zusammenbaust. Das müsstest du bei dem TIdTCPServer in das OnExecute schreiben, die Daten einmal senden, vielleicht noch eine Antwort abwarten und dann die Verbindung schließen. Das mit dem Byte-Array sollte aber auch bei anderen Socket-Klassen funktionieren.
Zu deiner Frage mit dem entschlüsseln.... Ich denke, wenn du das willst, musst du die Daten selbst analysieren.

[Innos]

wie sieht denn so ein byte array aus? also baut man da den header ein oder auch nur die nutzdaten... und wie nent sich das dann unter wireshark? da kann man nämlich diese nutzdaten kopieren als: Byte(Hex STream), Byte (Binary Stream) usw

[Innos]

folgene 8 Pakete (mehr hab ich nich probiert weil es zu deprimierend war^^)
tun absolut das gleiche

Delphi-Quellcode:

//ÏP_�w�üXþX¦{q<øømd[@ ɺrýœpf°7�ºrÍuy•ÆL4*óö×êIÖ»ìô�0Á¹@êK‚Ø�ÿc¨%¼“Å�¦F0V*€kXHJUJ€BeôÕ:4f�<kÂF€°1ý’ò9› D“a‹Í 5KçÚwù?–   ³/Ø

//Y7´¸}öß–Ö]Ùv?`Ü£ô k탪·‰ï9�Â�û¡=óáûjXáEÕ‰š<ÉXT*Ru�[£tùhÓ�åÛÇÜ�’lùí   •øµnM””T›ó»óL$éh}±¼>/VõL4¶çóÀ£K+¯zˆÃ·¡ÝÊE£«n

//1fìÆ'?-8ûQ½aDÑ%¦úXˆ,Á-5Ö[ߎ ¸äæ’Š1l6DÜ¢\êS˜BÌ$o,ížgj/hm©¢™vÎ/u*¿Zf¡/Û(ƒ"rÞŠû7·Q_)'(ÒÆŠr
"öÙd¼<Ì”‰\bað��‡&^ãÜ�qª

//ê˜kD€FæÓÑw̱Ýs;Å„>Eѥ㲖Ó‡i[ÏoQ"ßhnV—}3œê‹¿-¨[›WÃUÖÐHn5ÍTõG*àÛ¼…q¸-ÖÁ¶H+‚žYúºà~?NÔA¡@³º”�.‹3h¥ -†–„Mrrp<D¿CšÊî©Ñ¥Y¸¤

//¿†”æBœƒ†Ä7¢@.<ë´{Z8Rå(2^�n…Ê‘i4§ÐAF·'›3_ÄÔß0)³üY#)'+=±há˜ñd*œâ™®2Ô¢Õr"Ö–Q)+æ»æË*ÈŸ5]*ðQF6ê€4çæŠ5$GŸ˜•wÜ›º,

//4«.EŦ“ùqm´e¹ûÕÂýÐÂÞàƒ½ Û<þÈš†½ff‘RM¦ëäf„:xŒ¶kiÔTÁ–¯   fyº˜!¼aíÌÁ©�Ž]åÔ´pþf\nºfQÍ¢–žòŠƒÔ=sþ(
Â.¯v-½wrj3|‹%p¢®=Sȶ@˜äÏ

//ÇçbˆöÔ§–h¶þdHŸ:3Q{ì‚ÔLGÖ±GF*‰tAÁ«LYE]XuÔ:Yc¤U¼ÉÅo"Ê;§n ¬€Þã–5Ý$0¢ÏëÉÃCÏ2ë4°"o+ndТfx¸ûr˜í¼Œ¨.Ùª‘6¤÷·Ö–3`åk²‚A}wíêu�ÈÑ

//‘L�¸êÄ«ˆ—�_˜¯¼BĤ
âBÎë]²‰ûq?-J¬0ÿƒŽÕl]VîU¯01‰ñÖ&ÇÃ*èƒFÅ:
E�lâÀŠ''Ç‹}E˜Ö¥   *uØ3}»OÙµÝðyq@²„µf’*¡D;%MÛeÜJßåˆuÔ

da eine regelmäßigkeit entdecken und das paket so ändern, iwie seine ID anstat die der beispiel ID einfügt^^, ist krank :D

[wicht]

Ich denke die Nutzdaten reichen.

Delphi-Quellcode:

var
  Bytes: TIdBytes;
begin
  SetLength(Bytes, 20);
  Bytes[0] := 34;
  Bytes[1] := 54;
  Bytes[n] := i;
end;

Das ist nur ein Beispiel. Geht auch anders, z.B. mit Move() etc..... Tja, aber dieses Gewirr da zu entschlüsseln, äääh..... Ich muss weg! :-D

[Innos]

hehe thx an euch^^ also einige pakete konnt ich erfolgreich senden bis halt zu diesem verschlüsselten teil :wall: :wall: :wall:
ich sitz da scho ewig vor und zähl iwelche zeichen :shock: :shock: :shock: