import Crypto.Number.ModArithmeticcrackRSA :: Integer -> Integer -> Integer -> Integer -> IntegercrackRSA p q e c = expSafe c d n where l = lcm (p-1) (q-1) d = inverseCoprimes e l n = p * q