6 egsign(EGpriv *priv, mpint *m)
8 EGpub *pub = &priv->pub;
10 mpint *pm1, *k, *kinv, *r, *s;
11 mpint *p = pub->p, *alpha = pub->alpha;
12 int plen = mpsignif(p);
21 mprand(plen, genrandom, k);
22 if((mpcmp(mpone, k) > 0) || (mpcmp(k, pm1) >= 0))
24 mpextendedgcd(k, pm1, r, kinv, s);
25 if(mpcmp(r, mpone) != 0)
29 mpmod(kinv, pm1, kinv); // make kinv positive
30 mpexp(alpha, k, p, r);
31 mpmul(priv->secret, r, s);