Delphi-Quellcode:
SL := TStringList.Create;
try
SL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Password.dat');
if SL.Count>0 then
Edit6.Text:=SL[0];
s := Edit6.Text;
for y := 1 to Length(s) do s[y] := Char(23 xor Ord(c[y])); // Hier ist das Problem
Ich weiß leider nicht wies in Berlin um irgendwelche Zauberei steht aber meiner Meinung nach, sollte es in
s := Edit6.Text;
krachen, da
s
ein Shortstring ist und
Edit1.Text
eine Widechar.
Ich würde gleich einen Zeiger übergeben, der als PBytearray agiert,
(ich Liebe dieses verschämte herumhampeln um Char/WideChar) denn wie an anderer Stelle schon einmal jemand schrieb, es werden Bytes und keine Chars verschlüsselt.
Gruß
K-H