Chiffre-Problem

[Luckie]

Also wenn ich das richtig verstehe:

Zitat:

Wechsel in beiden Richtungen:
t-d
b-p
k-g
t-d
s-z
w - v
i - y

Sollen nur einzelne Zeichen getauscht werden.

Delphi-Quellcode:

function ChiffreString(Klartext: AnsiString): AnsiString;
var
  s: AnsiString;
  i: Integer;
  OrdinalValue: Integer;
begin
  s := KlarText;
  for i := 1 to length(s) do
  begin
    OrdinalValue := Ord(s[i]);
    case OrdinalValue of
      116: s[i] := 'd';
      100: s[i] := 't';
    end;
  end;
  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ChiffreString('dauernt'));
end;

Liefert "tauernd" wie gefordert.