Шифруем данные с помощью оператора XOR

function XORText(text:string):string;
var key, longkey : string;
i : integer;
toto: char;
k:integer;
begin
key := 'muse';
k := length(text) div length(key);
for i := 0 to k do
longkey := longkey + key;
for i := 1 to length(text) do
 begin
 toto := chr((ord(text[i]) XOR ord(longkey[i])));
   result := result + toto;
end;
end;