Problem bei Verschlüsselungsprogramm

[fishly]

Naja so ungefähr hatte ich mir das vorgestellt:

Delphi-Quellcode:

function TCaesar.EnCode(Text: string; Schl: byte): string;
VAR
  i: integer;
  klartext, geheimtext : string;
  code: integer;
CONST
  alphabet = ['a'..'z'];
BEGIN
    geheimtext := '';
    klartext := AnsiLowerCase(Text); //Umwandlung in Kleinbuchstaben

    for i := 1 to length(klartext) do //Jedes Zeichen durchgehen
    begin
      code := ord(klartext[i]); //ASCII-Code ermitteln
      if klartext[i] in alphabet  then //nur verschieben, wenn Buchstabe
      begin
        inc(code,Schl); //Verschiebung
        while code > 122 do dec(code,26); //damit im Buchstabenbereich
      end;
      geheimtext := geheimtext + chr(code);
    end;

    Result := geheimtext;
END;

Vielleicht bringts dir was.

lg fishly