String -> Byte - wie geht das?

[neolithos]

Vielleicht hilft dir das:

Delphi-Quellcode:

sText := 'Dies ist ein sinnloser Text';
sKey := 'Hallo Welt';
sCode := '';
iKeyIndex := 1;

for i := 0 to Length(sText) do
    begin
      sCode := sCode + Chr(Ord(sText[i]) xor Ord(sKey[iKeyIndex]));
      Inc(iKeyIndex);
      if iKeyIndex > Length(sKey) then
         iKeyIndex := 1;
    end;

Achtung: Die Zeichenkette kann mit unter nicht dargestellt werden, da Sie #0-Zeichen enthalten könnte.