Pregunta abierta: RSA en Maple?

robotRSS

Para mi trabajo de recerca he de saber ampliar el método de encriptación de clave pública RSA. He buscado manuales que contienen los códigos de como hacerlo y al copiarlo y pegarlo y hacer todos los pasos no consigo ningún resultado. Solo llego a la generación de claves y an algunos casos ni eso. Por ejemplo:> Generaclaves:=proc(p::integer,q::integer) local n, #modulo e, #exponente d, #d*e=1 (mod phin) phin; #phi(n)=(p-1)(q-1) n:=p*q; #calcula el modulo (publico) phin:=(p-1)*(q-1); e:=13; #este numero se podria generar aleatoriamente #calculamos d tal que e*d=1 (mod phin) d:=op(1,op(Roots(e*x-1) mod phin)); RETURN([[n,e],[n,d]]); end:> > Generaclaves(43,59); [[2537, 13], [2537, 937]]Según el manual el último número (d) tendría que ser un 1 y a mi me sale un 937.Si alguien domina el Maple y sabe en que me equivoco por favor que conteste y le dejare mi e-mail.Gracias!Mireia