6 egencrypt(EGpub *pub, mpint *in, mpint *out)
8 mpint *m, *k, *gamma, *delta, *pm1;
9 mpint *p = pub->p, *alpha = pub->alpha;
10 int plen = mpsignif(p);
11 int shift = ((plen+Dbits)/Dbits)*Dbits;
12 /* in libcrypt version, (int)(LENGTH(pub->p)*sizeof(NumType)*CHARBITS); */
22 k = mprand(plen, genrandom, nil);
23 if((mpcmp(mpone, k) <= 0) && (mpcmp(k, pm1) < 0))
26 mpexp(alpha, k, p, gamma);
27 mpexp(pub->key, k, p, delta);
28 mpmul(m, delta, delta);
29 mpmod(delta, p, delta);
30 mpleft(gamma, shift, out);
31 mpadd(delta, out, out);