Delphi XOR

[shmia]

Ich würde Dir dringend empfehlen, die Passwortverschlüsselung in eine eigene Funktion oder Methode zu packen.

Delphi-Quellcode:

function EncryptPasswordXOR(const passwort:string):string;
var
  ...
begin
  // dein Job hier
end;

Der Aufruf sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= EncryptPasswordXOR(Edit1.text);
end;

So wird alles deutlich einfacher und klarer.