Verschlüsselung mit dem Caesar Verfahren

[marabu]

Ein etwas anderer Ansatz:

Delphi-Quellcode:

function EncodedStr(const text, abNormal, abCaesar: string): string;
var
  i, j: integer;
begin
  SetLength(Result, Length(text));
  for i := 1 to Length(text) do begin
    j := Pos(text[i], abNormal);
    if j = 0
      then Result[i] := text[i]
      else Result[i] := abCaesar[j];
  end;
end;

Grüße vom marabu