Verschlüsselung mit Monoalphabetischer Substitution

[Klaus01]

Guten Morgen,

habe mal dieses geändert:

Delphi-Quellcode:

  if (DecodedChar >= 97) and (DecodedChar <= 122)then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>122 then
          begin
            TemporaryNumber := EncodedChar-122;
            EncodedChar := 96+TemporaryNumber;
          end;
      end;
    if (DecodedChar >= 65) and (DecodedChar <=90) then
      begin
        OrdinalKey := UnformatetOrdKey-65;
        EncodedChar := DecodedChar+OrdinalKey;
        if EncodedChar>90 then
          begin
            TemporaryNumber := EncodedChar-90;
            EncodedChar := 64+TemporaryNumber;
          end;
      end;

Warum es mit den sets nicht läuft keine Ahnung.

Grüße
Klaus