Hilfe:Caesar-Verfahren

[MaBuSE]

Zitat von HelmHut:

Also ich hatte mal ein bisschen rumprobiert, aber bekomme es net hin, aus dem vorhandenen Quelltext, eine verschlüsselung zu vollführen OHNE Sonderzeichen. Ich möchte also, dass die Verschlüsselung im Alphabet bleibt. Aber ich muss nicht um 3 Buchstaben den Text verschlüsseln sondern um eine Variable, sonst wäre es ja ent so schwer. Aber das überfordert mich.
Bitte nochmals um Hilfe!
Quelltext: siehe erste Eintragung.

Danke euch!!!

Ich habe die Lösung ja oben schon gepostet. (Fix mit 3)

Statt 3 einfach Anzahl verwenden.
Statt 23 einfach 26 - Anzahl verwenden.
Um den richtigen Buchstaben auszuwählen verwende ich hier ein Array.
(Es geht auch effizienter, aber das Array ist sehr anschaulich).

Ließ Dir meine oberen Postings noch mal durch, dann solltest Du den Quelltext verstehen.

Hier die Lösung:

Delphi-Quellcode:

... 
const
  Buchstabe : Array[1..26] of Char =
    ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
     'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');

function decode(s: string; Anzahl: Integer): string;
var
  i: Integer;
begin
  // Anzahl darf nur zw. 1 und 25 sein !!!

  for i := 1 to Length(s) do
  begin // Für alle Buchstaben
    if UpCase(s[i]) in ['A'..Buchstabe[26 - Anzahl]] then
    begin // wenn es ein Buchstabe ist, der gefahrenlos verschoben werden kann
      Inc(s[i], Anzahl);  // Um Anzahl Zeichen nach rechts verschieben
    end
    else
    begin
      if UpCase(s[i]) in [Buchstabe[27 - Anzahl]..'Z'] then
      begin // wenn es ein Buchstabe ist, der ncht so einfach verschoben werden kann
        Dec(s[i],26 - Anzahl); // Um 26 - anzahl Zeichen nach links verschieben
                               // bei Anzahl = 3 zB: X = A, Y = B, Z = C
      end;
    end;
  end;
  Result := s; // Verschlüsselten Text zurückgeben
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := decode(Memo1.Lines.Text, 3);
end;
...