Am Besten du nimmst eine sauber programmierte Funktion wie diese:
Delphi-Quellcode:
function StringXorCrypt(const text, key:string):string;
var
i, j, keylen : Integer;
begin
SetLength(Result, length(text));
j := 1;
keylen := Length(key);
for i := 1 to Length(text) do
begin
Result[i] := chr(ord(text[i]) xor ord(key[j]));
Inc(j);
if j > keylen then j := 1;
end;
end;
Auf den Progressbar kannst du verzichten, weil die Funktion so schnell ist, dass das Zeichnen des Progressbars mehr Zeit braucht als die eigentliche Operation.