[NIch]

Код:

//XOR алгоритм шифрования
  function C(Text : String):String;
  var
  key, longkey : string;
  i: integer;
  toto : char;
  begin
  longkey := '';
  result := '';
  toto := #0;
  key := 'qaz123wsx456edc789';
  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[i]) xor ord(longkey[i]))); // XOR алгоритм
  result := result + toto;
  end;
  end