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

[Rapthor]

Wie kann ich aus einem String ein String machen, dessen Zeichen jeweils um 13 laut Ascii-Werttabelle Zeichen höher sind ?

[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;

...:cat:...