9 mpint *m, *gamma, *delta, *in, *out;
12 fmtinstall('B', mpfmt);
15 sk->pub.p = uitomp(2357, nil);
16 sk->pub.alpha = uitomp(2, nil);
17 sk->pub.key = uitomp(1185, nil);
18 sk->secret = uitomp(1751, nil);
20 m = uitomp(2035, nil);
22 plen = mpsignif(sk->pub.p)+1;
23 shift = ((plen+Dbits-1)/Dbits)*Dbits;
24 gamma = uitomp(1430, nil);
25 delta = uitomp(697, nil);
28 mpleft(gamma, shift, in);
30 egdecrypt(sk, in, out);
32 if(mpcmp(m, out) != 0)
33 print("decrypt failed to recover message\n");