Verschlüssel/Entschlüsseln:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i: Integer;
begin
s:=memo1.Text;
for i:=1 to length(s) do
s[i]:=char(23 Xor Ord(s[i]));
memo1.Text:=s;
end;
Damit habe ich den Text der in die Ini kommt verschlüsselt (stand in nem Memofeld).
Dh in der Ini steht anstatt
steht nun:
LYvzrJR~ycevp&*Crdc
zu Zacherl:
Mit Schritt 4: mit der verschlüsselten normalen Ini weiterarbeiten oder wie soll dies funktionieren?