xor шифрование

Ответ от Аскет[гуру]
примере программы на Delphi.
var key, text, longkey, result : string;
i : integer;
toto, c : char;
begin
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do begin
toto := chr((ord(text) XOR ord(longkey)); // XOR алгоритм
result := result + toto;
Источник: