Delphi-Quellcode:
function getmypassword:String;
var v1: Array [1..17] of Char;
LCount: Integer;
begin
v1[1] := 'g';
v1[2] := 'e';
v1[3] := 'h';
v1[4] := 'e';
v1[5] := 'i';
v1[6] := 'm';
[...]
result := '';
for LCount := 1 to 17 do
result := result + v1[LCount];
end;
[...]
if Edit1.Text = getmypassword then TuIrgendwas();
Sollte schon etwas schwerer dann in der exe zusammen zu suchen sein
Wenn du sicher gehen willst das es nicht so einfach zu hacken ist mach noch paar routinen rein die während des auführens prüfen ob die exe noch orginal ist (checksummenwert)