eine passwort abfrage vor dem prog start

[ichbins]

Ich habe gerade einen kleinen Algorithmus zur Passwortverschlüsselung geschrieben. Er verschlüsselt das Passwort mit sich selbst in einem XOR-Verfahren:

Delphi-Quellcode:

function encodepassword(password:string):string;
var
  i:integer;
begin
  result:='';
  for i:=1 to length(password) do
    result:=result+char(byte(password[i]) xor byte(password[length(password)+1-i]));
end;

function passwordisok(password,encodedpassword:string):boolean;
var
  i:integer;
begin
  result:=true;
  for i:=1 to length(password) do
    result:=result and (encodedpassword[i]=char(byte(password[i]) xor byte(password[length(password)+1-i])));
end;

In einem anderen selbstgeschriebenen Programm muss das Passwort mit ENCODEPASSWORD verschlüsselt werden. Das was rauskommt dann im Programm als Konstante speichern:
password='encodepassword('abc')' Dann im Programm folgend verwenden:

Delphi-Quellcode:

if passwordisok(edit1.text,password) then 
  passwortok
else
  passwortfalsch;