/* -*-c-*-
*
- * $Id: rsa-recover.c,v 1.5 2000/10/08 12:11:22 mdw Exp $
+ * $Id: rsa-recover.c,v 1.7 2004/04/08 01:36:15 mdw Exp $
*
* Recover RSA parameters
*
* MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: rsa-recover.c,v $
- * Revision 1.5 2000/10/08 12:11:22 mdw
- * Use @MP_EQ@ instead of @MP_CMP@.
- *
- * Revision 1.4 2000/07/01 11:22:22 mdw
- * Remove bad type name `rsa_param'.
- *
- * Revision 1.3 2000/06/22 19:03:14 mdw
- * Use the new @mp_odd@ function.
- *
- * Revision 1.2 2000/06/17 12:07:19 mdw
- * Fix a bug in argument validation. Force %$p > q$% in output. Use
- * %$\lambda(n) = \lcm(p - 1, q - 1)$% rather than the more traditional
- * %$\phi(n) = (p - 1)(q - 1)$% when computing the decryption exponent.
- *
- * Revision 1.1 1999/12/22 15:50:45 mdw
- * Initial RSA support.
- *
- */
-
/*----- Header files ------------------------------------------------------*/
#include "mp.h"
*/
aw = primetab[i++];
- z = mpmont_expr(&mm, z, &a, t);
+ z = mpmont_mul(&mm, z, &a, mm.r2);
+ z = mpmont_expr(&mm, z, z, t);
if (MP_EQ(z, mm.r) || MP_EQ(z, m1))
continue;