Chiffre-Problem

[Luckie]

Delphi hat keine fertige, eingebaute Funktion dafür. Hat himitsu doch geschrieben. Was aber nicht heißt, dass irgend jemand so was schon mal geschrieben und im Internet veröffentlicht hat.

Hier mal ein Denkanstoß:

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
    // wenn s[i] gleich dem Buchstaben X dann weise s[i] Buchstaben Y zu
  end;
  Result := s;
end;

Ist in fünf Minuten selber geschrieben.