Function InverseLucas

src/cryptlib/nbtheory.cpp:827–833

*/

Integer InverseLucas(const Integer &e, const Integer &m, const Integer &p, const Integer &q, const Integer &u)
{
    Integer d = (m*m-4);
    Integer p2 = p-Jacobi(d,p);
    Integer q2 = q-Jacobi(d,q);
    return CRT(Lucas(EuclideanMultiplicativeInverse(e,p2), m, p), p, Lucas(EuclideanMultiplicativeInverse(e,q2), m, q), q, u);
}

Integer InverseLucas(const Integer &e, const Integer &m, const Integer &p, const Integer &q)
{