Wie sicher ist das Verschlüsselt?

[glkgereon]

OK, OK, überzeugt.

Die Daten sollen Zugangsdaten für einen MySQL-Server werden.

also, der Verschlüsselungs-Algo sieht wie folgt aus:

Delphi-Quellcode:

function TCryptedIniFile.Crypt(Value, Key: String): String;
var a,b: integer;
begin
  b:=1;
  for a := 1 to Length(Value) do
  begin
    Value[a]:=Chr(Ord(Value[a]) xor Ord(Key[b]));
    inc(b);
    if b > length(Key) then b:=1;
  end;
  Result:=Value;
end;

und danach wird das ganze noch durch den Base64-Algo aus der CodeLib gejagt.

Reicht das?

PS:
Wobei ein normaler "Hacker" diesen QT ja nicht zur Verfügung hat...