So als Ansatz:
Delphi-Quellcode:
var
chr: char;
x: integer;
begin
chr:='d'; // Mal als Bsp.
x:= ord(str); // Da steht jetzt was Richtung 80 drin, wenn ich mich recht erinner...
x:= x-ord('a')+1; // Jetzt hat man da schön seine 4 drin stehen.
Jetzt kannst du verschlüsseln wie du willst und nachher alle Schritte rückwärts gehen.