RosettaCodeData/Task/RSA-code/PARI-GP/rsa-code-2.pari

mirror of https://github.com/acmeism/RosettaCodeData.git
f = factor(n);				\\ factorize public key 'n'

crack = Strchr(digits(lift(Mod(encoded,n) ^ lift(Mod(1,(f[1,1]-1)*(f[2,1]-1)) / e)),256))
	`f = factor(n); \\ factorize public key 'n'`

	`crack = Strchr(digits(lift(Mod(encoded,n) ^ lift(Mod(1,(f[1,1]-1)*(f[2,1]-1)) / e)),256))`