buchstaben-verschiebung optimieren...

[Basilikum]

ich würde spontan etwas in diese Richtung vorschlagen:

Delphi-Quellcode:

Function Shift_Letter(Letter: Char): Char;
Begin
  Case Letter Of
    'A'..'Z' : Result:=Chr( (((Ord(Letter) - Ord('A') + (26 - Shifter)) mod 26) + Ord('A') );
    'a'..'z' : Result:=Chr( (((Ord(Letter) - Ord('a') + (26 - Shifter)) mod 26) + Ord('a') );
    Else Result:=Letter;
  end;
end;

BTW: wo in der Registry stehen diese Infos ?