Fixes for interface change to @mpmont_expr@ and @mpmont_mexpr@.

[u/mdw/catacomb] / rsa-priv.c

diff --git a/rsa-priv.c b/rsa-priv.c
index 255a6b5..a529f0b 100644 (file)
--- a/rsa-priv.c
+++ b/rsa-priv.c
@@ -1,6 +1,6 @@
 /* -*-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
  *
@@ -30,6 +30,9 @@
 /*----- 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@.
  *
@@ -141,6 +144,7 @@ mp *rsa_privop(rsa_privctx *rd, mp *d, mp *c)
       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);