Caeser Verschlüsselung

[SirMaurice]

Ich möchte ja nicht Z - 25 rechnen sondern der Key ist Z, also 25 Stellen Verschiebung. Zudem wird der Key ja hinzuaddiert und nicht subtrahiert.
Das Problem ist jetzt aber wenn der Key 25 beträgt und man z.B. ein B verschlüsseln möchte, rechnet man den ASCII-Wert von B, also 66, plus den Key, also 25,
dies ergibt dann 91 und somit ein "[".

[hoika]

Hallo,
du musst da schon noch ein if reinpacken,
sowas wie

Delphi-Quellcode:

var
  j: Integer,  // oh Gott, i und j ;)


  j:= Ord(text[i]);
  if j<=was_weis_ich then
  begin
    j:= was_weiss_ich_2;
  end;
  j:= j-25;

Damit bekommst Du dein "Ring-Alphabet".

Geh doch das einmal auf einem Blatt Papier durch.
'A'->'Z', Ord('A)=, Ord('Z')

Schreib alles auf und dann weiter mit dem if.

[Luckie]

Kurz, dein Problem ist der Übertrag. Überlege dir wie du feststellst, wann es zu einem und was du dann machen musst.

[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