Caeser Verschlüsselung

[SirMaurice]

Also nach ein paar motivierenden Sprüchen und ein paar Rendez-vous mit der ASCII-Tabelle, bin ich auf folgende Lösung gekommen.
Ich bedanke mich bei allen die mir beigestanden haben.

Delphi-Quellcode:

function TCaeser.GetGeheimtext : string;
var
i : integer;
begin
  Result := '';
  for i := 1 to length(text) do begin
    if ord(text[i]) + key > ord('Z') then
    Result:= Result + chr(ord(text[i]) + key - 26)
    else
    Result := Result + chr(ord(text[i]) + key);
  end;
end;

[DieDolly]

Zitat:

Radezvous

Der Richtigkeit halber. Es heißt Rendez-vous