Thema: Delphi Caeser Verschlüsselung

Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.116 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Caeser Verschlüsselung

  Alt 26. Mär 2019, 17:13
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.
Heiko
  Mit Zitat antworten Zitat