Caeser Verschlüsselung

[SirMaurice]

Hallo, ich bin's mal wieder.

Ich muss ein Programm schreiben welches die Zeichen eines Strings um 'key' Stellen verschiebt. Also wenn der 'key' ein B ist wird aus einem A ein B. Soweit klappt das auch, also für einzelne Zeichen. Da kommt auch mein Problem. Ich verstehe nicht ganz, wie das Ganze für einen kompletten String gehen soll bzw. wie ich die nun umgewandelten Zeichen zu einem String zusammen schließe.

Mein Code sieht im MOment so aus:

Code:

//-------- GetText (public) --------------------------------------------
function TCaeser.GetText : string;
var
i : integer;
begin
  for i:=1 to length(text) do begin
  //##############################
  text:= chr(ord(text[i]) + key);
  end;
  result:=text;
end;

LG Maurice

[hoika]

Hallo,
und wo ist da jetzt Dein Problem?
Außer dem fehlenden [i].

text[i]:= chr(ord(text[i]) + key);

Und natürlich der Tatsache, dass nach der "Verschlüsselung" der Originaltext text auch weg ist.
Besser wäre eine lokale String-Variable.

[Delphi.Narium]

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  for i := 1 to length(text) do begin
    // Diese Zuweisung ist falsch. Text wir damit durch das erste veränderte Zeichen überschrieben.
    text := chr(ord(text[i]) + key);
  end;
  result := text;
end;

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  for i := 1 to length(text) do begin
    // eventuell so
    text[i] := chr(ord(text[i]) + key);
  end;
  result := text;
end;

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  Result := '';
  for i := 1 to length(text) do begin
    Result := Result + chr(ord(text[i]) + key);
  end;
end;

[DieDolly]

OffTopic

Zitat:

Ich muss ein Programm schreiben welches die Zeichen eines Strings um 'key' Stellen verschiebt.

Psychologisch gesehen, gehst du falsch an die Sache ran.

Sage dir selber, dass du ein solches Programm schreiben darfst und nicht musst. Dann geht vieles leichter.

[SirMaurice]

Zitat:

Hallo,
und wo ist da jetzt Dein Problem?

Das [i] hatte ich vergessen, danke dafür schonmal.
Das Problem ist, dass wenn ich einen "Key:= ord(Z) - 65" habe, also die Verschiebung 25 Stellen beträgt und dies mit der Lösung aus der anderen Antwort berechne ein Zeichen "[" rauskommt, es sollte jedoch ein "B" sein.
Ich müsste also jedes mal ein neues Alphabet hinten dranhängen, wenn "ord(text[i]) + key" größer als "ord([)" , also 91, wird.

Das könnte man theoretisch mit einer if-Anweisung umsetzen, ich weiß nun nur nicht, wie ich das zu einer vernünftigen Lösung mit der Form "Result:=" verarbeite.

[DieDolly]

[QUOTE=SirMaurice;1428802]

Zitat:

Das Problem ist, dass wenn ich einen "Key:= ord(Z) - 65" habe, also die Verschiebung 25 Stellen beträgt und dies mit der Lösung aus der anderen Antwort berechne ein Zeichen "[" rauskommt, es sollte jedoch ein "B" sein.

Wenn ich zum Testen Caption := Chr(Ord('Z') - 25) ausführen lasse, erhalte ich ein A. Weder ein B noch ein [.
Der Fehler liegt also woanders. Und außerdem. Warum -65? Um von ASCII Z (90) auf Ascii A zu kommen, rechnet man -25.