X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/898a4e2555438ff8adb08b4d82690d08715e1048..b817bfc642225b8c3c0b6a7e42d1fb949b61a606:/gdsa.c

diff --git a/gdsa.c b/gdsa.c
index 8723847..9b23f4f 100644
--- a/gdsa.c
+++ b/gdsa.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: gdsa.c,v 1.1 2004/04/04 19:42:59 mdw Exp $
+ * $Id: gdsa.c,v 1.2 2004/04/08 01:36:15 mdw Exp $
  *
  * Generalized version of DSA
  *
@@ -27,14 +27,6 @@
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: gdsa.c,v $
- * Revision 1.1  2004/04/04 19:42:59  mdw
- * Add set -e.
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 #include "gdsa.h"
@@ -105,7 +97,7 @@ have_k:
   mpbarrett_create(&b, g->r);
   ss = mp_mul(ss, sr, c->u); ss = mpbarrett_reduce(&b, ss, ss);
   ss = mp_add(ss, ss, mr); mp_div(0, &ss, ss, g->r);
-  mp_gcd(0, 0, &k, g->r, k);
+  k = mp_modinv(k, k, g->r);
   ss = mp_mul(ss, ss, k); ss = mpbarrett_reduce(&b, ss, ss);
   s->r = sr; s->s = ss;
   mp_drop(k); mp_drop(mr); mpbarrett_destroy(&b); G_DESTROY(g, z);
@@ -127,14 +119,14 @@ int gdsa_verify(const gdsa *c, const gdsa_sig *s, const void *m)
   group *g = c->g;
   group_expfactor e[2];
   mpbarrett b;
-  mp *h = MP_NEW, *t;
+  mp *h, *t;
   ge *w;
   int rc = -1;
 
   if (MP_CMP(s->r, <, MP_ONE) || MP_CMP(s->r, >=, g->r) ||
       MP_CMP(s->s, <, MP_ONE) || MP_CMP(s->s, >=, g->r))
     return (-1);
-  mpbarrett_create(&b, g->r); mp_gcd(0, 0, &h, g->r, s->s);
+  mpbarrett_create(&b, g->r); h = mp_modinv(MP_NEW, s->s, g->r);
   e[0].base = g->g; e[1].base = c->p;
   t = mp_loadb(MP_NEW, m, c->h->hashsz); mp_div(0, &t, t, g->r);
   t = mp_mul(t, t, h); e[0].exp = t = mpbarrett_reduce(&b, t, t);