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 ?