Шифровщик, 007 Опции

[givi]

Вот небольшая программа для шифровки сообшений!uses crt;

Код

var s,key,s_res,ss,sim:string;
i,p,N:integer;
begin
clrscr;
  key:=' [b]йцукенгшщзхъфывапролджэячсмитьбю[/b] ';
   Write('Ввести сообшение-');Readln(s);
     n:=Length(s);
 for i:=1 to n do begin
      sim:=copy(s,i,1);
      p:=pos(sim,key);
      str(p,ss);
     If (p<10) then ss:='00'+ss;
    If  (p<100) then ss:='0'+ss;
    s_res:=s_res+ss;
  end;
 write('Шифр-',s_res);
 readkey;
end

Тобиш она переводит слова в цифры по ключевому слову(key) и цифры соответствуют пазиции буквы но в трех-значной форме т.к ключом может быть любое выражение содержащее все буквы алфовита!
Помогите составить расшифровшик тут поменять чето надр а вот че? Смекалки не хватает

[Ростислав]

Отличный шифровальщик спасибо!