ok, eliminieren wir mal den Code der keinerlei Wirkung besitzt dann wird aus:
Delphi-Quellcode:
s := EdPasswort.Text;
FOR i := 1 TO ord(s[0]) DO
c[i] := superkey[i] XOR c[i];
ini.Writestring(CbHostname.Text, 'Passwort', s);
eben
Delphi-Quellcode:
s := EdPasswort.Text;
ini.Writestring(CbHostname.Text, 'Passwort', s);
und daraus
ini.Writestring(CbHostname.Text, 'Passwort', EdPasswort.Text);
Gruß Hagen