13 mpint *clr, *enc, *clr2;
18 fmtinstall('B', mpconv);
20 rsa = rsagen(1024, 16, 0);
28 strtomp("123456789abcdef123456789abcdef123456789abcdef123456789abcdef", nil, 16, clr);
29 rsaencrypt(&rsa->pub, clr, enc);
32 for(n = 0; n < 10; n++)
33 rsadecrypt(rsa, enc, clr);
34 print("%lld\n", nsec()-start);
37 for(n = 0; n < 10; n++)
38 mpexp(enc, rsa->dk, rsa->pub.n, clr2);
39 print("%lld\n", nsec()-start);
41 if(mpcmp(clr, clr2) != 0)
42 print("%B != %B\n", clr, clr2);
45 while(p = Brdline(&b, '\n')){
47 letomp((uchar*)p, n, clr);
48 print("clr %B\n", clr);
49 rsaencrypt(&rsa->pub, clr, enc);
50 print("enc %B\n", enc);
51 rsadecrypt(rsa, enc, clr);
52 print("clr %B\n", clr);
53 n = mptole(clr, buf, sizeof(buf), nil);