Verschlüsselung...

[DeddyH]

Ich würde das etwa so angehen:

Delphi-Quellcode:

function SimpleCrypt(const PlainText: string): string;
var
  i: integer;
  c: char;
begin
  (* Länge des Ergebnisses auf die des Eingangsstrings setzen *)
  SetLength(Result, Length(PlainText));
  (* nun zeichenweise durchgehen *)
  for i := 1 to Length(PlainText) do
    begin
      (* Zeichen an aktueller Position ermitteln *)
      c := PlainText[i];
      (* die Berechnung des neuen Wertes überlasse ich Dir *)
      (* berechnetes Zeichen an aktuelle Ergebnisposition schreiben *)
      Result[i] := c;
    end;
end;