Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
427 Beiträge
 
Delphi XE4 Professional
 
#1

EXE soll seinen eigenen Binary-Code ändern

  Alt 19. Sep 2021, 12:58
Hallo..

Kann mir jemand helfen, wie ich folgendes realisieren könnte?


Im Mainform habe ich ein TLabel1 mit der Caption "zturzthtgtrgtguie88z" -> 20 Zeichen !!

On Create würde ich gerne folgendes machen:

var fs:TFileStream;
Binary: Array of byte;
i:integer;
begin

if TLabel1.caption = 'zturzthtgtrgtguie88z' then
begin
try
fs:=TFileStream.Create( ExtractFilePath(ParamStr(0))+Application.ExeName , fmOpenWrite);
setLength(Binary,fs.Size);
fs.Read(Binary[0], fs.Size);
setLength(s,fs.Size*8+1);
for i:=0 to high(Binary) do
begin

-> suche das Vorkommen der 20 Zeichen und ersetze sie durch "00000000000000000001" (wieder 20 Zeichen??)
--> starte danach die Software neu
end;

finally
fs.Free;
end;
end;




Sinn und Zweck:

Wer mein frisch compiliertes Programm einmal startet "personalifiziert" es.
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \
  Mit Zitat antworten Zitat