15 mpint *clr, *enc, *clr2;
17 fmtinstall('B', mpfmt);
19 rsa = rsagen(1024, 16, 0);
27 strtomp("123456789abcdef123456789abcdef123456789abcdef123456789abcdef", nil, 16, clr);
28 rsaencrypt(&rsa->pub, clr, enc);
31 for(n = 0; n < 10; n++)
32 rsadecrypt(rsa, enc, clr);
33 print("%lld\n", nsec()-start);
36 for(n = 0; n < 10; n++)
37 mpexp(enc, rsa->dk, rsa->pub.n, clr2);
38 print("%lld\n", nsec()-start);
40 if(mpcmp(clr, clr2) != 0)
41 print("%B != %B\n", clr, clr2);
44 while(p = Brdline(&b, '\n')){
46 letomp((uchar*)p, n, clr);
47 print("clr %B\n", clr);
48 rsaencrypt(&rsa->pub, clr, enc);
49 print("enc %B\n", enc);
50 rsadecrypt(rsa, enc, clr);
51 print("clr %B\n", clr);
52 n = mptole(clr, buf, sizeof(buf), nil);