String im Exe-Text verschlüsseln

[SirThornberry]

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)