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...