1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function XORString(Text, Schluessel: String): String;
var
  i, q: Integer;
begin
  q := 1;
  if Trim(Schluessel) = '' then
    Schluessel := 'adsfdaiuebranwruhwiernakb';
  for i := 1 to Length(Text) do begin
    Text[i] := Chr(Ord(Text[i]) xor Ord(Schluessel[q]));
    Inc(q);
    if q > Length(Schluessel) then
      q := 1;
  end;
  Result := Text;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

function EncodeXOR(Str, Key: String): String;
var
  i, q, StrLen, KeyLen: Integer;
  EncStr: String;
begin
  StrLen := Length(Str);
  KeyLen := Length(Key);
  SetLength(EncStr, StrLen);
  q := 1;
  for i := 1 to StrLen do begin
    if Str[i] <> Key[q] then
      EncStr[i] := Chr(Ord(Str[i]) xor Ord(Key[q]))
    else
      EncStr[i] := Chr(Ord(Str[i]) xor Ord('°'));
    Inc(q);
    if q > KeyLen then
      q := 1;
  end;
  Result := EncStr;
end;

function DecodeXOR(EncStr, Key: String): String;
var
  i, q, StrLen, KeyLen: Integer;
  DecStr: String;
begin
  StrLen := Length(EncStr);
  KeyLen := Length(Key);
  SetLength(DecStr, StrLen);
  q := 1;
  for i := 1 to StrLen do begin
    if Ord(EncStr[i]) xor Ord(Key[q]) = Ord('°') then
      DecStr[i] := Chr(Ord(EncStr[i]) xor Ord('°'))
    else
      DecStr[i] := Chr(Ord(EncStr[i]) xor Ord(Key[q]));
    Inc(q);
    if q > KeyLen then
      q := 1;
  end;
  Result := DecStr;
end;