Einen String Zeichen für Zeichen 13 Ascii Codes höher setzen

[sakura]

Das geht eigentlich ganz einfach

Delphi-Quellcode:

function CeasarShift(const ClearText: String; ShiftBy: ShortInt): String;
var
  I: Integer;
begin
  SetLength(Result, Length(ClearText));
  for I := 1 to Length(ClearText) do
    Result[I] := Chr(Byte(Ord(ClearText[I]) + ShiftBy));
end;

......