Text an UPX-Exe anhängen?

[Delle]

Hallo,

ein Programm ist mit UPX gepackt... nun soll daran ein Text angehängt werden, welchen das Programm mit nutzen soll.

Text anhängen an sich kein Problem... aber geht das mit einer UPX-Exe überhaupt?

Oder muss das Programm sich selber dann erst nochmal einlesen um an den Text zu kommen?

[ts-soft]

Nach dem upxen hängste den text + long mit länge ran, dann kannste
es nachher mit den fileoperationen wieder lesen. Gibts hier viele
Beispiele, einfach mal suchen

[Delle]

Okay habe mal an eine .exe-Datei einen String sowie am Schluss den Long-Wert mit der Länge des Strings angehängt.

Wie liest man das jetzt wieder aus? Dateilänge minus 4?

Das liefert immer "0" zurück:

Code: Alles auswählen

programm$=ProgramFilename()
MessageRequester("",programm$,0)
OpenFile(0, programm$):FileSeek(0, Lof(0)-4):Zahl.l=ReadLong(0)
MessageRequester("",Str(Zahl.l),0)
CloseFile(0)

[DarkDragon]

Okay habe mal an eine .exe-Datei einen String sowie am Schluss den Long-Wert mit der Länge des Strings angehängt.

Wie liest man das jetzt wieder aus? Dateilänge minus 4?

Das liefert immer "0" zurück:

Code: Alles auswählen

programm$=ProgramFilename()
MessageRequester("",programm$,0)
OpenFile(0, programm$):FileSeek(0, Lof(0)-4):Zahl.l=ReadLong(0)
MessageRequester("",Str(Zahl.l),0)
CloseFile(0)

ReadFile, weil OpenFile fehlschlägt (Ein If hätte doch nicht geschadet, oder?). Außerdem musst du wirklich darauf achten, dass du es nach dem UPXen anhängst.

[Fluid Byte]

Und was sollen wir machen? Raten? Exisitiert die Datei überhaupt? Wie schreibst in die .EXE rein?

[nco2k]

@Delle
1.) als c:\test.exe speichern

Code: Alles auswählen

If ReadFile(0, ProgramFilename())
  FileSize = Lof(0) - SizeOf(Long)
  FileSeek(0, FileSize)
  FileSize - ReadLong(0) - SizeOf(Byte)
  FileSeek(0, FileSize)
  String$ = ReadString(0, #PB_Ascii)
  CloseFile(0)
  MessageRequester("", String$)
EndIf : End

2.) upx verwenden

3.) test.exe modifizieren

Code: Alles auswählen

If OpenFile(0, "c:\test.exe")
  FileSeek(0, Lof(0))
  WriteString(0, "Test", #PB_Ascii)
  WriteByte(0, 0)
  WriteLong(0, StringByteLength("Test", #PB_Ascii))
  CloseFile(0)
EndIf : End

ich hab noch nach dem string ein nullbyte drangehängt, um auf nummer sicher zu gehen. ReadString() hat ja leider kein len param und ich hatte keine lust jetzt extra deswegen ReadData() zu verwenden.

ps: natürlich kannst du statt long, auch word oder byte verwenden, je nachdem wie lang der string sein soll.

c ya,
nco2k