/* -*-c-*-
*
- * $Id: rsa-priv.c,v 1.2 2000/10/08 12:11:22 mdw Exp $
+ * $Id: rsa-priv.c,v 1.3 2001/06/16 12:56:38 mdw Exp $
*
* RSA private-key operations
*
/*----- Revision history --------------------------------------------------*
*
* $Log: rsa-priv.c,v $
+ * Revision 1.3 2001/06/16 12:56:38 mdw
+ * Fixes for interface change to @mpmont_expr@ and @mpmont_mexpr@.
+ *
* Revision 1.2 2000/10/08 12:11:22 mdw
* Use @MP_EQ@ instead of @MP_CMP@.
*
k = mprand_range(k, rp->n, rd->r, 0);
mp_gcd(&g, 0, &ki, rp->n, k);
} while (!MP_EQ(g, MP_ONE));
+ k = mpmont_mul(&rd->nm, k, k, rd->nm.r2);
k = mpmont_expr(&rd->nm, k, k, rp->e);
c = mpmont_mul(&rd->nm, c, c, k);
mp_drop(k);