Developing.ru

Здравствуйте, есть программа которая шифрует и дешифрует по RSA алгоритму. Но при расшифровке, когда текст более 38 символов, программа не работает как надо - может кто подскажет в чем дело.
---->restart:
q:=nextprime(256^18);
p:=nextprime(256^20);
N:=p*q:
m:=(p-1)*(q-1):
d:=m-(9^47):
d:=d/igcd(d,m);
e:=modp(d&^(-1),m);
Mes1:="Èíôîðìàöèoííûå òåõíîëîãèè";
M:=convert(Mes1,`bytes`);
len:=length(Mes1):
N1:=0:
for i from 1 to len do h:=parse(cat(M)):
N1:=N1+256^(len-i)*h:end do:
N1;evalf(log10(N1));
Nx:=modp(N1&^d,N);
Ny:=modp(Nx&^e,N);

s:=Ny:
t:=modp(s,256):
List:=t:
while s>256 do
s:=(s-t)/256:t:=modp(s,256):
List:=t,List:
end do:ss:=List;
t2:=convert(

• ,`bytes`);