aha.
ich hab da auch mal was gefunden.
Delphi-Quellcode:
function TForm1.XORString(Text, Schluessel: string): string;
var i, q: integer;
begin
q := 1;
for i := 1 to Length(Text) do
begin
Text[i] := Chr(Ord(Text[i]) xor Ord(Schluessel[q]));
inc(q);
if q > length(Schluessel) then q := 1;
Application.ProcessMessages;
end;
Result := Text;
end;
Delphi-Quellcode:
repeat
Memo3.Text := RandomString(Length(Memo1.Text));
Memo2.Text := XORString(Memo1.Text, Memo3.Text);
Application.ProcessMessages;
Memo2.Lines.SaveToFile(datei);
Memo3.Lines.SaveToFile(passwort);
until (XORString(Memo2.Text, Memo3.Text)) = Memo1.Text;
wie sicher ist dieser code, falls ihn jemand kennt?
ich habs jetzt mal damit gemacht, aber nicht mehr mit einer ini, sondern eine textdatei die ähnlich wie eine ini aufgebaut ist.
funktioniert auch schon fast, aber noch nicht ganz. wenn ich das programm mehrmals schnell nacheinander öffne, beende, öffne, beende..., wird die datei plötzlich falsch entschlüsselt(oder verschlüsselt?)... woran könnte das liegen?
P.S. der code habe ich hier im forum gefunden, das programm heisst "Cryptor"