Аффинная система подстановок Цезаря

[elsin]

Функция для расшифровки.

function Affinna_DeCrypt(s:String;a:integer;b:integer):string;

const
  SizeA = 93; //Размер алфавита
  RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; //Алфавит
var i, P,t,m:integer;
    temp:String;
begin
m:=93;
temp:='';
//удаление символов сообщения, не входящих в алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA);       //ok
   while ((P-b) mod a)<>0 do
   P:=P+m;
   s[i]:=RusA[(P-b) div a];

   end;
   Result:=s;
end;

Всё, теперь правильно!

[LisenaG]

А разве при расшифровке ключ a не меняется?
Формула расшифровки, как говорят в книгах:
D(x) = a' * (x - b) mod m,
a' обратное число к a:
1 = a*a' mod m

[suslik_real]

а можно исходник выложить!?