BSDI only supports ftime() through libcompat, which means it's
[openssl.git] / apps / speed.c
1 /* apps/speed.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  * 
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  * 
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  * 
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from 
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  * 
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  * 
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58
59 /* most of this code has been pilfered from my libdes speed.c program */
60
61 #undef SECONDS
62 #define SECONDS         3       
63 #define RSA_SECONDS     10
64 #define DSA_SECONDS     10
65
66 /* 11-Sep-92 Andrew Daviel   Support for Silicon Graphics IRIX added */
67 /* 06-Apr-92 Luke Brennan    Support for VMS and add extra signal calls */
68
69 #undef PROG
70 #define PROG speed_main
71
72 #include <stdio.h>
73 #include <stdlib.h>
74 #include <signal.h>
75 #include <string.h>
76 #include <math.h>
77 #include "apps.h"
78 #ifdef NO_STDIO
79 #define APPS_WIN16
80 #endif
81 #include <openssl/crypto.h>
82 #include <openssl/rand.h>
83 #include <openssl/err.h>
84
85 #if defined(__FreeBSD__)
86 # define USE_TOD
87 #elif !defined(MSDOS) && (!defined(VMS) || defined(__DECC))
88 # define TIMES
89 #endif
90 #if !defined(_UNICOS) && !defined(__OpenBSD__) && !defined(sgi) && !defined(__FreeBSD__) && !(defined(__bsdi) || defined(__bsdi__))
91 # define TIMEB
92 #endif
93
94 #ifndef _IRIX
95 # include <time.h>
96 #endif
97 #ifdef TIMES
98 # include <sys/types.h>
99 # include <sys/times.h>
100 #endif
101 #ifdef USE_TOD
102 # include <sys/time.h>
103 # include <sys/resource.h>
104 #endif
105
106 /* Depending on the VMS version, the tms structure is perhaps defined.
107    The __TMS macro will show if it was.  If it wasn't defined, we should
108    undefine TIMES, since that tells the rest of the program how things
109    should be handled.                           -- Richard Levitte */
110 #if defined(VMS) && defined(__DECC) && !defined(__TMS)
111 #undef TIMES
112 #endif
113
114 #ifdef TIMEB
115 #include <sys/timeb.h>
116 #endif
117
118 #if !defined(TIMES) && !defined(TIMEB)
119 #error "It seems neither struct tms nor struct timeb is supported in this platform!"
120 #endif
121
122 #if defined(sun) || defined(__ultrix)
123 #define _POSIX_SOURCE
124 #include <limits.h>
125 #include <sys/param.h>
126 #endif
127
128 #ifndef NO_DES
129 #include <openssl/des.h>
130 #endif
131 #ifndef NO_MD2
132 #include <openssl/md2.h>
133 #endif
134 #ifndef NO_MDC2
135 #include <openssl/mdc2.h>
136 #endif
137 #ifndef NO_MD4
138 #include <openssl/md4.h>
139 #endif
140 #ifndef NO_MD5
141 #include <openssl/md5.h>
142 #endif
143 #ifndef NO_HMAC
144 #include <openssl/hmac.h>
145 #endif
146 #include <openssl/evp.h>
147 #ifndef NO_SHA
148 #include <openssl/sha.h>
149 #endif
150 #ifndef NO_RIPEMD
151 #include <openssl/ripemd.h>
152 #endif
153 #ifndef NO_RC4
154 #include <openssl/rc4.h>
155 #endif
156 #ifndef NO_RC5
157 #include <openssl/rc5.h>
158 #endif
159 #ifndef NO_RC2
160 #include <openssl/rc2.h>
161 #endif
162 #ifndef NO_IDEA
163 #include <openssl/idea.h>
164 #endif
165 #ifndef NO_BF
166 #include <openssl/blowfish.h>
167 #endif
168 #ifndef NO_CAST
169 #include <openssl/cast.h>
170 #endif
171 #ifndef NO_RSA
172 #include <openssl/rsa.h>
173 #include "./testrsa.h"
174 #endif
175 #include <openssl/x509.h>
176 #ifndef NO_DSA
177 #include "./testdsa.h"
178 #endif
179
180 /* The following if from times(3) man page.  It may need to be changed */
181 #ifndef HZ
182 # ifndef CLK_TCK
183 #  ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
184 #   define HZ   100.0
185 #  else /* _BSD_CLK_TCK_ */
186 #   define HZ ((double)_BSD_CLK_TCK_)
187 #  endif
188 # else /* CLK_TCK */
189 #  define HZ ((double)CLK_TCK)
190 # endif
191 #endif
192
193 #undef BUFSIZE
194 #define BUFSIZE ((long)1024*8+1)
195 int run=0;
196
197 static double Time_F(int s, int usertime);
198 static void print_message(char *s,long num,int length);
199 static void pkey_print_message(char *str,char *str2,long num,int bits,int sec);
200 #ifdef SIGALRM
201 #if defined(__STDC__) || defined(sgi) || defined(_AIX)
202 #define SIGRETTYPE void
203 #else
204 #define SIGRETTYPE int
205 #endif 
206
207 static SIGRETTYPE sig_done(int sig);
208 static SIGRETTYPE sig_done(int sig)
209         {
210         signal(SIGALRM,sig_done);
211         run=0;
212 #ifdef LINT
213         sig=sig;
214 #endif
215         }
216 #endif
217
218 #define START   0
219 #define STOP    1
220
221 static double Time_F(int s, int usertime)
222         {
223         double ret;
224
225 #ifdef USE_TOD
226         if(usertime)
227             {
228                 static struct rusage tstart,tend;
229
230                 if (s == START)
231                         {
232                         getrusage(RUSAGE_SELF,&tstart);
233                         return(0);
234                         }
235                 else
236                         {
237                         long i;
238
239                         getrusage(RUSAGE_SELF,&tend);
240                         i=(long)tend.ru_utime.tv_usec-(long)tstart.ru_utime.tv_usec;
241                         ret=((double)(tend.ru_utime.tv_sec-tstart.ru_utime.tv_sec))
242                           +((double)i)/1000000.0;
243                         return((ret < 0.001)?0.001:ret);
244                         }
245                 }
246         else
247                 {
248                 static struct timeval tstart,tend;
249                 long i;
250
251                 if (s == START)
252                         {
253                         gettimeofday(&tstart,NULL);
254                         return(0);
255                         }
256                 else
257                         {
258                         gettimeofday(&tend,NULL);
259                         i=(long)tend.tv_usec-(long)tstart.tv_usec;
260                         ret=((double)(tend.tv_sec-tstart.tv_sec))+((double)i)/1000000.0;
261                         return((ret < 0.001)?0.001:ret);
262                         }
263                 }
264 #else  /* ndef USE_TOD */
265                 
266 # ifdef TIMES
267         if (usertime)
268                 {
269                 static struct tms tstart,tend;
270
271                 if (s == START)
272                         {
273                         times(&tstart);
274                         return(0);
275                         }
276                 else
277                         {
278                         times(&tend);
279                         ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
280                         return((ret < 1e-3)?1e-3:ret);
281                         }
282                 }
283 # endif /* times() */
284 # if defined(TIMES) && defined(TIMEB)
285         else
286 # endif
287 # ifdef TIMEB
288                 {
289                 static struct timeb tstart,tend;
290                 long i;
291
292                 if (s == START)
293                         {
294                         ftime(&tstart);
295                         return(0);
296                         }
297                 else
298                         {
299                         ftime(&tend);
300                         i=(long)tend.millitm-(long)tstart.millitm;
301                         ret=((double)(tend.time-tstart.time))+((double)i)/1000.0;
302                         return((ret < 0.001)?0.001:ret);
303                         }
304                 }
305 # endif
306 #endif
307         }
308
309 int MAIN(int, char **);
310
311 int MAIN(int argc, char **argv)
312         {
313         unsigned char *buf=NULL,*buf2=NULL;
314         int mret=1;
315 #define ALGOR_NUM       15
316 #define SIZE_NUM        5
317 #define RSA_NUM         4
318 #define DSA_NUM         3
319         long count,rsa_count;
320         int i,j,k;
321         unsigned rsa_num;
322 #ifndef NO_MD2
323         unsigned char md2[MD2_DIGEST_LENGTH];
324 #endif
325 #ifndef NO_MDC2
326         unsigned char mdc2[MDC2_DIGEST_LENGTH];
327 #endif
328 #ifndef NO_MD4
329         unsigned char md4[MD4_DIGEST_LENGTH];
330 #endif
331 #ifndef NO_MD5
332         unsigned char md5[MD5_DIGEST_LENGTH];
333         unsigned char hmac[MD5_DIGEST_LENGTH];
334 #endif
335 #ifndef NO_SHA
336         unsigned char sha[SHA_DIGEST_LENGTH];
337 #endif
338 #ifndef NO_RIPEMD
339         unsigned char rmd160[RIPEMD160_DIGEST_LENGTH];
340 #endif
341 #ifndef NO_RC4
342         RC4_KEY rc4_ks;
343 #endif
344 #ifndef NO_RC5
345         RC5_32_KEY rc5_ks;
346 #endif
347 #ifndef NO_RC2
348         RC2_KEY rc2_ks;
349 #endif
350 #ifndef NO_IDEA
351         IDEA_KEY_SCHEDULE idea_ks;
352 #endif
353 #ifndef NO_BF
354         BF_KEY bf_ks;
355 #endif
356 #ifndef NO_CAST
357         CAST_KEY cast_ks;
358 #endif
359         static unsigned char key16[16]=
360                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
361                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
362         unsigned char iv[8];
363 #ifndef NO_DES
364         des_cblock *buf_as_des_cblock = NULL;
365         static des_cblock key ={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
366         static des_cblock key2={0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
367         static des_cblock key3={0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
368         des_key_schedule sch,sch2,sch3;
369 #endif
370 #define D_MD2           0
371 #define D_MDC2          1
372 #define D_MD4           2
373 #define D_MD5           3
374 #define D_HMAC          4
375 #define D_SHA1          5
376 #define D_RMD160        6
377 #define D_RC4           7
378 #define D_CBC_DES       8
379 #define D_EDE3_DES      9
380 #define D_CBC_IDEA      10
381 #define D_CBC_RC2       11
382 #define D_CBC_RC5       12
383 #define D_CBC_BF        13
384 #define D_CBC_CAST      14
385         double d,results[ALGOR_NUM][SIZE_NUM];
386         static int lengths[SIZE_NUM]={8,64,256,1024,8*1024};
387         long c[ALGOR_NUM][SIZE_NUM];
388         static char *names[ALGOR_NUM]={
389                 "md2","mdc2","md4","md5","hmac(md5)","sha1","rmd160","rc4",
390                 "des cbc","des ede3","idea cbc",
391                 "rc2 cbc","rc5-32/12 cbc","blowfish cbc","cast cbc"};
392 #define R_DSA_512       0
393 #define R_DSA_1024      1
394 #define R_DSA_2048      2
395 #define R_RSA_512       0
396 #define R_RSA_1024      1
397 #define R_RSA_2048      2
398 #define R_RSA_4096      3
399 #ifndef NO_RSA
400         RSA *rsa_key[RSA_NUM];
401         long rsa_c[RSA_NUM][2];
402         double rsa_results[RSA_NUM][2];
403         static unsigned int rsa_bits[RSA_NUM]={512,1024,2048,4096};
404         static unsigned char *rsa_data[RSA_NUM]=
405                 {test512,test1024,test2048,test4096};
406         static int rsa_data_length[RSA_NUM]={
407                 sizeof(test512),sizeof(test1024),
408                 sizeof(test2048),sizeof(test4096)};
409 #endif
410 #ifndef NO_DSA
411         DSA *dsa_key[DSA_NUM];
412         long dsa_c[DSA_NUM][2];
413         double dsa_results[DSA_NUM][2];
414         static unsigned int dsa_bits[DSA_NUM]={512,1024,2048};
415 #endif
416         int rsa_doit[RSA_NUM];
417         int dsa_doit[DSA_NUM];
418         int doit[ALGOR_NUM];
419         int pr_header=0;
420         int usertime=1;
421
422 #ifndef TIMES
423         usertime=-1;
424 #endif
425
426         apps_startup();
427         memset(results, 0, sizeof(results));
428 #ifndef NO_DSA
429         memset(dsa_key,0,sizeof(dsa_key));
430 #endif
431
432         if (bio_err == NULL)
433                 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
434                         BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
435
436 #ifndef NO_RSA
437         memset(rsa_key,0,sizeof(rsa_key));
438         for (i=0; i<RSA_NUM; i++)
439                 rsa_key[i]=NULL;
440 #endif
441
442         if ((buf=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
443                 {
444                 BIO_printf(bio_err,"out of memory\n");
445                 goto end;
446                 }
447 #ifndef NO_DES
448         buf_as_des_cblock = (des_cblock *)buf;
449 #endif
450         if ((buf2=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
451                 {
452                 BIO_printf(bio_err,"out of memory\n");
453                 goto end;
454                 }
455
456         memset(c,0,sizeof(c));
457         memset(iv,0,sizeof(iv));
458
459         for (i=0; i<ALGOR_NUM; i++)
460                 doit[i]=0;
461         for (i=0; i<RSA_NUM; i++)
462                 rsa_doit[i]=0;
463         for (i=0; i<DSA_NUM; i++)
464                 dsa_doit[i]=0;
465         
466         j=0;
467         argc--;
468         argv++;
469         while (argc)
470                 {
471                 if      ((argc > 0) && (strcmp(*argv,"-elapsed") == 0))
472                         usertime = 0;
473 #ifndef NO_MD2
474                 if      (strcmp(*argv,"md2") == 0) doit[D_MD2]=1;
475                 else
476 #endif
477 #ifndef NO_MDC2
478                         if (strcmp(*argv,"mdc2") == 0) doit[D_MDC2]=1;
479                 else
480 #endif
481 #ifndef NO_MD4
482                         if (strcmp(*argv,"md4") == 0) doit[D_MD4]=1;
483                 else
484 #endif
485 #ifndef NO_MD5
486                         if (strcmp(*argv,"md5") == 0) doit[D_MD5]=1;
487                 else
488 #endif
489 #ifndef NO_MD5
490                         if (strcmp(*argv,"hmac") == 0) doit[D_HMAC]=1;
491                 else
492 #endif
493 #ifndef NO_SHA
494                         if (strcmp(*argv,"sha1") == 0) doit[D_SHA1]=1;
495                 else
496                         if (strcmp(*argv,"sha") == 0) doit[D_SHA1]=1;
497                 else
498 #endif
499 #ifndef NO_RIPEMD
500                         if (strcmp(*argv,"ripemd") == 0) doit[D_RMD160]=1;
501                 else
502                         if (strcmp(*argv,"rmd160") == 0) doit[D_RMD160]=1;
503                 else
504                         if (strcmp(*argv,"ripemd160") == 0) doit[D_RMD160]=1;
505                 else
506 #endif
507 #ifndef NO_RC4
508                         if (strcmp(*argv,"rc4") == 0) doit[D_RC4]=1;
509                 else 
510 #endif
511 #ifndef NO_DES
512                         if (strcmp(*argv,"des-cbc") == 0) doit[D_CBC_DES]=1;
513                 else    if (strcmp(*argv,"des-ede3") == 0) doit[D_EDE3_DES]=1;
514                 else
515 #endif
516 #ifndef NO_RSA
517 #ifdef RSAref
518                         if (strcmp(*argv,"rsaref") == 0) 
519                         {
520                         RSA_set_default_method(RSA_PKCS1_RSAref());
521                         j--;
522                         }
523                 else
524 #endif
525 #ifndef RSA_NULL
526                         if (strcmp(*argv,"openssl") == 0) 
527                         {
528                         RSA_set_default_method(RSA_PKCS1_SSLeay());
529                         j--;
530                         }
531                 else
532 #endif
533 #endif /* !NO_RSA */
534                      if (strcmp(*argv,"dsa512") == 0) dsa_doit[R_DSA_512]=2;
535                 else if (strcmp(*argv,"dsa1024") == 0) dsa_doit[R_DSA_1024]=2;
536                 else if (strcmp(*argv,"dsa2048") == 0) dsa_doit[R_DSA_2048]=2;
537                 else if (strcmp(*argv,"rsa512") == 0) rsa_doit[R_RSA_512]=2;
538                 else if (strcmp(*argv,"rsa1024") == 0) rsa_doit[R_RSA_1024]=2;
539                 else if (strcmp(*argv,"rsa2048") == 0) rsa_doit[R_RSA_2048]=2;
540                 else if (strcmp(*argv,"rsa4096") == 0) rsa_doit[R_RSA_4096]=2;
541                 else
542 #ifndef NO_RC2
543                      if (strcmp(*argv,"rc2-cbc") == 0) doit[D_CBC_RC2]=1;
544                 else if (strcmp(*argv,"rc2") == 0) doit[D_CBC_RC2]=1;
545                 else
546 #endif
547 #ifndef NO_RC5
548                      if (strcmp(*argv,"rc5-cbc") == 0) doit[D_CBC_RC5]=1;
549                 else if (strcmp(*argv,"rc5") == 0) doit[D_CBC_RC5]=1;
550                 else
551 #endif
552 #ifndef NO_IDEA
553                      if (strcmp(*argv,"idea-cbc") == 0) doit[D_CBC_IDEA]=1;
554                 else if (strcmp(*argv,"idea") == 0) doit[D_CBC_IDEA]=1;
555                 else
556 #endif
557 #ifndef NO_BF
558                      if (strcmp(*argv,"bf-cbc") == 0) doit[D_CBC_BF]=1;
559                 else if (strcmp(*argv,"blowfish") == 0) doit[D_CBC_BF]=1;
560                 else if (strcmp(*argv,"bf") == 0) doit[D_CBC_BF]=1;
561                 else
562 #endif
563 #ifndef NO_CAST
564                      if (strcmp(*argv,"cast-cbc") == 0) doit[D_CBC_CAST]=1;
565                 else if (strcmp(*argv,"cast") == 0) doit[D_CBC_CAST]=1;
566                 else if (strcmp(*argv,"cast5") == 0) doit[D_CBC_CAST]=1;
567                 else
568 #endif
569 #ifndef NO_DES
570                         if (strcmp(*argv,"des") == 0)
571                         {
572                         doit[D_CBC_DES]=1;
573                         doit[D_EDE3_DES]=1;
574                         }
575                 else
576 #endif
577 #ifndef NO_RSA
578                         if (strcmp(*argv,"rsa") == 0)
579                         {
580                         rsa_doit[R_RSA_512]=1;
581                         rsa_doit[R_RSA_1024]=1;
582                         rsa_doit[R_RSA_2048]=1;
583                         rsa_doit[R_RSA_4096]=1;
584                         }
585                 else
586 #endif
587 #ifndef NO_DSA
588                         if (strcmp(*argv,"dsa") == 0)
589                         {
590                         dsa_doit[R_DSA_512]=1;
591                         dsa_doit[R_DSA_1024]=1;
592                         }
593                 else
594 #endif
595                         {
596                         BIO_printf(bio_err,"Error: bad option or value\n");
597                         BIO_printf(bio_err,"\n");
598                         BIO_printf(bio_err,"Available values:\n");
599 #ifndef NO_MD2
600                         BIO_printf(bio_err,"md2      ");
601 #endif
602 #ifndef NO_MDC2
603                         BIO_printf(bio_err,"mdc2     ");
604 #endif
605 #ifndef NO_MD4
606                         BIO_printf(bio_err,"md4      ");
607 #endif
608 #ifndef NO_MD5
609                         BIO_printf(bio_err,"md5      ");
610 #ifndef NO_HMAC
611                         BIO_printf(bio_err,"hmac     ");
612 #endif
613 #endif
614 #ifndef NO_SHA1
615                         BIO_printf(bio_err,"sha1     ");
616 #endif
617 #ifndef NO_RIPEMD160
618                         BIO_printf(bio_err,"rmd160");
619 #endif
620 #if !defined(NO_MD2) || !defined(NO_MDC2) || !defined(NO_MD4) || !defined(NO_MD5) || !defined(NO_SHA1) || !defined(NO_RIPEMD160)
621                         BIO_printf(bio_err,"\n");
622 #endif
623
624 #ifndef NO_IDEA
625                         BIO_printf(bio_err,"idea-cbc ");
626 #endif
627 #ifndef NO_RC2
628                         BIO_printf(bio_err,"rc2-cbc  ");
629 #endif
630 #ifndef NO_RC5
631                         BIO_printf(bio_err,"rc5-cbc  ");
632 #endif
633 #ifndef NO_BF
634                         BIO_printf(bio_err,"bf-cbc");
635 #endif
636 #if !defined(NO_IDEA) || !defined(NO_RC2) || !defined(NO_BF) || !defined(NO_RC5)
637                         BIO_printf(bio_err,"\n");
638 #endif
639
640                         BIO_printf(bio_err,"des-cbc  des-ede3 ");
641 #ifndef NO_RC4
642                         BIO_printf(bio_err,"rc4");
643 #endif
644                         BIO_printf(bio_err,"\n");
645
646 #ifndef NO_RSA
647                         BIO_printf(bio_err,"rsa512   rsa1024  rsa2048  rsa4096\n");
648 #endif
649
650 #ifndef NO_DSA
651                         BIO_printf(bio_err,"dsa512   dsa1024  dsa2048\n");
652 #endif
653
654 #ifndef NO_IDEA
655                         BIO_printf(bio_err,"idea     ");
656 #endif
657 #ifndef NO_RC2
658                         BIO_printf(bio_err,"rc2      ");
659 #endif
660 #ifndef NO_DES
661                         BIO_printf(bio_err,"des      ");
662 #endif
663 #ifndef NO_RSA
664                         BIO_printf(bio_err,"rsa      ");
665 #endif
666 #ifndef NO_BF
667                         BIO_printf(bio_err,"blowfish");
668 #endif
669 #if !defined(NO_IDEA) || !defined(NO_RC2) || !defined(NO_DES) || !defined(NO_RSA) || !defined(NO_BF)
670                         BIO_printf(bio_err,"\n");
671 #endif
672
673 #ifdef TIMES
674                         BIO_printf(bio_err,"\n");
675                         BIO_printf(bio_err,"Available options:\n");
676                         BIO_printf(bio_err,"-elapsed        measure time in real time instead of CPU user time.\n");
677 #endif
678                         goto end;
679                         }
680                 argc--;
681                 argv++;
682                 j++;
683                 }
684
685         if (j == 0)
686                 {
687                 for (i=0; i<ALGOR_NUM; i++)
688                         doit[i]=1;
689                 for (i=0; i<RSA_NUM; i++)
690                         rsa_doit[i]=1;
691                 for (i=0; i<DSA_NUM; i++)
692                         dsa_doit[i]=1;
693                 }
694         for (i=0; i<ALGOR_NUM; i++)
695                 if (doit[i]) pr_header++;
696
697         if (usertime == 0)
698                 BIO_printf(bio_err,"You have chosen to measure elapsed time instead of user CPU time.\n");
699         if (usertime <= 0)
700                 {
701                 BIO_printf(bio_err,"To get the most accurate results, try to run this\n");
702                 BIO_printf(bio_err,"program when this computer is idle.\n");
703                 }
704
705 #ifndef NO_RSA
706         for (i=0; i<RSA_NUM; i++)
707                 {
708                 unsigned char *p;
709
710                 p=rsa_data[i];
711                 rsa_key[i]=d2i_RSAPrivateKey(NULL,&p,rsa_data_length[i]);
712                 if (rsa_key[i] == NULL)
713                         {
714                         BIO_printf(bio_err,"internal error loading RSA key number %d\n",i);
715                         goto end;
716                         }
717 #if 0
718                 else
719                         {
720                         BIO_printf(bio_err,"Loaded RSA key, %d bit modulus and e= 0x",BN_num_bits(rsa_key[i]->n));
721                         BN_print(bio_err,rsa_key[i]->e);
722                         BIO_printf(bio_err,"\n");
723                         }
724 #endif
725                 }
726 #endif
727
728 #ifndef NO_DSA
729         dsa_key[0]=get_dsa512();
730         dsa_key[1]=get_dsa1024();
731         dsa_key[2]=get_dsa2048();
732 #endif
733
734 #ifndef NO_DES
735         des_set_key_unchecked(&key,sch);
736         des_set_key_unchecked(&key2,sch2);
737         des_set_key_unchecked(&key3,sch3);
738 #endif
739 #ifndef NO_IDEA
740         idea_set_encrypt_key(key16,&idea_ks);
741 #endif
742 #ifndef NO_RC4
743         RC4_set_key(&rc4_ks,16,key16);
744 #endif
745 #ifndef NO_RC2
746         RC2_set_key(&rc2_ks,16,key16,128);
747 #endif
748 #ifndef NO_RC5
749         RC5_32_set_key(&rc5_ks,16,key16,12);
750 #endif
751 #ifndef NO_BF
752         BF_set_key(&bf_ks,16,key16);
753 #endif
754 #ifndef NO_CAST
755         CAST_set_key(&cast_ks,16,key16);
756 #endif
757 #ifndef NO_RSA
758         memset(rsa_c,0,sizeof(rsa_c));
759 #endif
760 #ifndef SIGALRM
761 #ifndef NO_DES
762         BIO_printf(bio_err,"First we calculate the approximate speed ...\n");
763         count=10;
764         do      {
765                 long i;
766                 count*=2;
767                 Time_F(START,usertime);
768                 for (i=count; i; i--)
769                         des_ecb_encrypt(buf_as_des_cblock,buf_as_des_cblock,
770                                 &(sch[0]),DES_ENCRYPT);
771                 d=Time_F(STOP,usertime);
772                 } while (d <3);
773         c[D_MD2][0]=count/10;
774         c[D_MDC2][0]=count/10;
775         c[D_MD4][0]=count;
776         c[D_MD5][0]=count;
777         c[D_HMAC][0]=count;
778         c[D_SHA1][0]=count;
779         c[D_RMD160][0]=count;
780         c[D_RC4][0]=count*5;
781         c[D_CBC_DES][0]=count;
782         c[D_EDE3_DES][0]=count/3;
783         c[D_CBC_IDEA][0]=count;
784         c[D_CBC_RC2][0]=count;
785         c[D_CBC_RC5][0]=count;
786         c[D_CBC_BF][0]=count;
787         c[D_CBC_CAST][0]=count;
788
789         for (i=1; i<SIZE_NUM; i++)
790                 {
791                 c[D_MD2][i]=c[D_MD2][0]*4*lengths[0]/lengths[i];
792                 c[D_MDC2][i]=c[D_MDC2][0]*4*lengths[0]/lengths[i];
793                 c[D_MD4][i]=c[D_MD4][0]*4*lengths[0]/lengths[i];
794                 c[D_MD5][i]=c[D_MD5][0]*4*lengths[0]/lengths[i];
795                 c[D_HMAC][i]=c[D_HMAC][0]*4*lengths[0]/lengths[i];
796                 c[D_SHA1][i]=c[D_SHA1][0]*4*lengths[0]/lengths[i];
797                 c[D_RMD160][i]=c[D_RMD160][0]*4*lengths[0]/lengths[i];
798                 }
799         for (i=1; i<SIZE_NUM; i++)
800                 {
801                 long l0,l1;
802
803                 l0=(long)lengths[i-1];
804                 l1=(long)lengths[i];
805                 c[D_RC4][i]=c[D_RC4][i-1]*l0/l1;
806                 c[D_CBC_DES][i]=c[D_CBC_DES][i-1]*l0/l1;
807                 c[D_EDE3_DES][i]=c[D_EDE3_DES][i-1]*l0/l1;
808                 c[D_CBC_IDEA][i]=c[D_CBC_IDEA][i-1]*l0/l1;
809                 c[D_CBC_RC2][i]=c[D_CBC_RC2][i-1]*l0/l1;
810                 c[D_CBC_RC5][i]=c[D_CBC_RC5][i-1]*l0/l1;
811                 c[D_CBC_BF][i]=c[D_CBC_BF][i-1]*l0/l1;
812                 c[D_CBC_CAST][i]=c[D_CBC_CAST][i-1]*l0/l1;
813                 }
814 #ifndef NO_RSA
815         rsa_c[R_RSA_512][0]=count/2000;
816         rsa_c[R_RSA_512][1]=count/400;
817         for (i=1; i<RSA_NUM; i++)
818                 {
819                 rsa_c[i][0]=rsa_c[i-1][0]/8;
820                 rsa_c[i][1]=rsa_c[i-1][1]/4;
821                 if ((rsa_doit[i] <= 1) && (rsa_c[i][0] == 0))
822                         rsa_doit[i]=0;
823                 else
824                         {
825                         if (rsa_c[i][0] == 0)
826                                 {
827                                 rsa_c[i][0]=1;
828                                 rsa_c[i][1]=20;
829                                 }
830                         }                               
831                 }
832 #endif
833
834         dsa_c[R_DSA_512][0]=count/1000;
835         dsa_c[R_DSA_512][1]=count/1000/2;
836         for (i=1; i<DSA_NUM; i++)
837                 {
838                 dsa_c[i][0]=dsa_c[i-1][0]/4;
839                 dsa_c[i][1]=dsa_c[i-1][1]/4;
840                 if ((dsa_doit[i] <= 1) && (dsa_c[i][0] == 0))
841                         dsa_doit[i]=0;
842                 else
843                         {
844                         if (dsa_c[i] == 0)
845                                 {
846                                 dsa_c[i][0]=1;
847                                 dsa_c[i][1]=1;
848                                 }
849                         }                               
850                 }
851
852 #define COND(d) (count < (d))
853 #define COUNT(d) (d)
854 #else
855 /* not worth fixing */
856 # error "You cannot disable DES on systems without SIGALRM."
857 #endif /* NO_DES */
858 #else
859 #define COND(c) (run)
860 #define COUNT(d) (count)
861         signal(SIGALRM,sig_done);
862 #endif /* SIGALRM */
863
864 #ifndef NO_MD2
865         if (doit[D_MD2])
866                 {
867                 for (j=0; j<SIZE_NUM; j++)
868                         {
869                         print_message(names[D_MD2],c[D_MD2][j],lengths[j]);
870                         Time_F(START,usertime);
871                         for (count=0,run=1; COND(c[D_MD2][j]); count++)
872                                 MD2(buf,(unsigned long)lengths[j],&(md2[0]));
873                         d=Time_F(STOP,usertime);
874                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
875                                 count,names[D_MD2],d);
876                         results[D_MD2][j]=((double)count)/d*lengths[j];
877                         }
878                 }
879 #endif
880 #ifndef NO_MDC2
881         if (doit[D_MDC2])
882                 {
883                 for (j=0; j<SIZE_NUM; j++)
884                         {
885                         print_message(names[D_MDC2],c[D_MDC2][j],lengths[j]);
886                         Time_F(START,usertime);
887                         for (count=0,run=1; COND(c[D_MDC2][j]); count++)
888                                 MDC2(buf,(unsigned long)lengths[j],&(mdc2[0]));
889                         d=Time_F(STOP,usertime);
890                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
891                                 count,names[D_MDC2],d);
892                         results[D_MDC2][j]=((double)count)/d*lengths[j];
893                         }
894                 }
895 #endif
896
897 #ifndef NO_MD4
898         if (doit[D_MD4])
899                 {
900                 for (j=0; j<SIZE_NUM; j++)
901                         {
902                         print_message(names[D_MD4],c[D_MD4][j],lengths[j]);
903                         Time_F(START,usertime);
904                         for (count=0,run=1; COND(c[D_MD4][j]); count++)
905                                 MD4(&(buf[0]),(unsigned long)lengths[j],&(md4[0]));
906                         d=Time_F(STOP,usertime);
907                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
908                                 count,names[D_MD4],d);
909                         results[D_MD4][j]=((double)count)/d*lengths[j];
910                         }
911                 }
912 #endif
913
914 #ifndef NO_MD5
915         if (doit[D_MD5])
916                 {
917                 for (j=0; j<SIZE_NUM; j++)
918                         {
919                         print_message(names[D_MD5],c[D_MD5][j],lengths[j]);
920                         Time_F(START,usertime);
921                         for (count=0,run=1; COND(c[D_MD5][j]); count++)
922                                 MD5(&(buf[0]),(unsigned long)lengths[j],&(md5[0]));
923                         d=Time_F(STOP,usertime);
924                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
925                                 count,names[D_MD5],d);
926                         results[D_MD5][j]=((double)count)/d*lengths[j];
927                         }
928                 }
929 #endif
930
931 #if !defined(NO_MD5) && !defined(NO_HMAC)
932         if (doit[D_HMAC])
933                 {
934                 HMAC_CTX hctx;
935                 HMAC_Init(&hctx,(unsigned char *)"This is a key...",
936                         16,EVP_md5());
937
938                 for (j=0; j<SIZE_NUM; j++)
939                         {
940                         print_message(names[D_HMAC],c[D_HMAC][j],lengths[j]);
941                         Time_F(START,usertime);
942                         for (count=0,run=1; COND(c[D_HMAC][j]); count++)
943                                 {
944                                 HMAC_Init(&hctx,NULL,0,NULL);
945                                 HMAC_Update(&hctx,buf,lengths[j]);
946                                 HMAC_Final(&hctx,&(hmac[0]),NULL);
947                                 }
948                         d=Time_F(STOP,usertime);
949                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
950                                 count,names[D_HMAC],d);
951                         results[D_HMAC][j]=((double)count)/d*lengths[j];
952                         }
953                 }
954 #endif
955 #ifndef NO_SHA
956         if (doit[D_SHA1])
957                 {
958                 for (j=0; j<SIZE_NUM; j++)
959                         {
960                         print_message(names[D_SHA1],c[D_SHA1][j],lengths[j]);
961                         Time_F(START,usertime);
962                         for (count=0,run=1; COND(c[D_SHA1][j]); count++)
963                                 SHA1(buf,(unsigned long)lengths[j],&(sha[0]));
964                         d=Time_F(STOP,usertime);
965                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
966                                 count,names[D_SHA1],d);
967                         results[D_SHA1][j]=((double)count)/d*lengths[j];
968                         }
969                 }
970 #endif
971 #ifndef NO_RIPEMD
972         if (doit[D_RMD160])
973                 {
974                 for (j=0; j<SIZE_NUM; j++)
975                         {
976                         print_message(names[D_RMD160],c[D_RMD160][j],lengths[j]);
977                         Time_F(START,usertime);
978                         for (count=0,run=1; COND(c[D_RMD160][j]); count++)
979                                 RIPEMD160(buf,(unsigned long)lengths[j],&(rmd160[0]));
980                         d=Time_F(STOP,usertime);
981                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
982                                 count,names[D_RMD160],d);
983                         results[D_RMD160][j]=((double)count)/d*lengths[j];
984                         }
985                 }
986 #endif
987 #ifndef NO_RC4
988         if (doit[D_RC4])
989                 {
990                 for (j=0; j<SIZE_NUM; j++)
991                         {
992                         print_message(names[D_RC4],c[D_RC4][j],lengths[j]);
993                         Time_F(START,usertime);
994                         for (count=0,run=1; COND(c[D_RC4][j]); count++)
995                                 RC4(&rc4_ks,(unsigned int)lengths[j],
996                                         buf,buf);
997                         d=Time_F(STOP,usertime);
998                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
999                                 count,names[D_RC4],d);
1000                         results[D_RC4][j]=((double)count)/d*lengths[j];
1001                         }
1002                 }
1003 #endif
1004 #ifndef NO_DES
1005         if (doit[D_CBC_DES])
1006                 {
1007                 for (j=0; j<SIZE_NUM; j++)
1008                         {
1009                         print_message(names[D_CBC_DES],c[D_CBC_DES][j],lengths[j]);
1010                         Time_F(START,usertime);
1011                         for (count=0,run=1; COND(c[D_CBC_DES][j]); count++)
1012                                 des_ncbc_encrypt(buf,buf,lengths[j],sch,
1013                                                  &iv,DES_ENCRYPT);
1014                         d=Time_F(STOP,usertime);
1015                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1016                                 count,names[D_CBC_DES],d);
1017                         results[D_CBC_DES][j]=((double)count)/d*lengths[j];
1018                         }
1019                 }
1020
1021         if (doit[D_EDE3_DES])
1022                 {
1023                 for (j=0; j<SIZE_NUM; j++)
1024                         {
1025                         print_message(names[D_EDE3_DES],c[D_EDE3_DES][j],lengths[j]);
1026                         Time_F(START,usertime);
1027                         for (count=0,run=1; COND(c[D_EDE3_DES][j]); count++)
1028                                 des_ede3_cbc_encrypt(buf,buf,lengths[j],
1029                                                      sch,sch2,sch3,
1030                                                      &iv,DES_ENCRYPT);
1031                         d=Time_F(STOP,usertime);
1032                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1033                                 count,names[D_EDE3_DES],d);
1034                         results[D_EDE3_DES][j]=((double)count)/d*lengths[j];
1035                         }
1036                 }
1037 #endif
1038 #ifndef NO_IDEA
1039         if (doit[D_CBC_IDEA])
1040                 {
1041                 for (j=0; j<SIZE_NUM; j++)
1042                         {
1043                         print_message(names[D_CBC_IDEA],c[D_CBC_IDEA][j],lengths[j]);
1044                         Time_F(START,usertime);
1045                         for (count=0,run=1; COND(c[D_CBC_IDEA][j]); count++)
1046                                 idea_cbc_encrypt(buf,buf,
1047                                         (unsigned long)lengths[j],&idea_ks,
1048                                         iv,IDEA_ENCRYPT);
1049                         d=Time_F(STOP,usertime);
1050                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1051                                 count,names[D_CBC_IDEA],d);
1052                         results[D_CBC_IDEA][j]=((double)count)/d*lengths[j];
1053                         }
1054                 }
1055 #endif
1056 #ifndef NO_RC2
1057         if (doit[D_CBC_RC2])
1058                 {
1059                 for (j=0; j<SIZE_NUM; j++)
1060                         {
1061                         print_message(names[D_CBC_RC2],c[D_CBC_RC2][j],lengths[j]);
1062                         Time_F(START,usertime);
1063                         for (count=0,run=1; COND(c[D_CBC_RC2][j]); count++)
1064                                 RC2_cbc_encrypt(buf,buf,
1065                                         (unsigned long)lengths[j],&rc2_ks,
1066                                         iv,RC2_ENCRYPT);
1067                         d=Time_F(STOP,usertime);
1068                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1069                                 count,names[D_CBC_RC2],d);
1070                         results[D_CBC_RC2][j]=((double)count)/d*lengths[j];
1071                         }
1072                 }
1073 #endif
1074 #ifndef NO_RC5
1075         if (doit[D_CBC_RC5])
1076                 {
1077                 for (j=0; j<SIZE_NUM; j++)
1078                         {
1079                         print_message(names[D_CBC_RC5],c[D_CBC_RC5][j],lengths[j]);
1080                         Time_F(START,usertime);
1081                         for (count=0,run=1; COND(c[D_CBC_RC5][j]); count++)
1082                                 RC5_32_cbc_encrypt(buf,buf,
1083                                         (unsigned long)lengths[j],&rc5_ks,
1084                                         iv,RC5_ENCRYPT);
1085                         d=Time_F(STOP,usertime);
1086                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1087                                 count,names[D_CBC_RC5],d);
1088                         results[D_CBC_RC5][j]=((double)count)/d*lengths[j];
1089                         }
1090                 }
1091 #endif
1092 #ifndef NO_BF
1093         if (doit[D_CBC_BF])
1094                 {
1095                 for (j=0; j<SIZE_NUM; j++)
1096                         {
1097                         print_message(names[D_CBC_BF],c[D_CBC_BF][j],lengths[j]);
1098                         Time_F(START,usertime);
1099                         for (count=0,run=1; COND(c[D_CBC_BF][j]); count++)
1100                                 BF_cbc_encrypt(buf,buf,
1101                                         (unsigned long)lengths[j],&bf_ks,
1102                                         iv,BF_ENCRYPT);
1103                         d=Time_F(STOP,usertime);
1104                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1105                                 count,names[D_CBC_BF],d);
1106                         results[D_CBC_BF][j]=((double)count)/d*lengths[j];
1107                         }
1108                 }
1109 #endif
1110 #ifndef NO_CAST
1111         if (doit[D_CBC_CAST])
1112                 {
1113                 for (j=0; j<SIZE_NUM; j++)
1114                         {
1115                         print_message(names[D_CBC_CAST],c[D_CBC_CAST][j],lengths[j]);
1116                         Time_F(START,usertime);
1117                         for (count=0,run=1; COND(c[D_CBC_CAST][j]); count++)
1118                                 CAST_cbc_encrypt(buf,buf,
1119                                         (unsigned long)lengths[j],&cast_ks,
1120                                         iv,CAST_ENCRYPT);
1121                         d=Time_F(STOP,usertime);
1122                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1123                                 count,names[D_CBC_CAST],d);
1124                         results[D_CBC_CAST][j]=((double)count)/d*lengths[j];
1125                         }
1126                 }
1127 #endif
1128
1129         RAND_pseudo_bytes(buf,36);
1130 #ifndef NO_RSA
1131         for (j=0; j<RSA_NUM; j++)
1132                 {
1133                 int ret;
1134                 if (!rsa_doit[j]) continue;
1135                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2, &rsa_num, rsa_key[j]);
1136                 if (ret == 0)
1137                         {
1138                         BIO_printf(bio_err,"RSA sign failure.  No RSA sign will be done.\n");
1139                         ERR_print_errors(bio_err);
1140                         rsa_count=1;
1141                         }
1142                 else
1143                         {
1144                         pkey_print_message("private","rsa",
1145                                 rsa_c[j][0],rsa_bits[j],
1146                                 RSA_SECONDS);
1147 /*                      RSA_blinding_on(rsa_key[j],NULL); */
1148                         Time_F(START,usertime);
1149                         for (count=0,run=1; COND(rsa_c[j][0]); count++)
1150                                 {
1151                                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2,
1152                                         &rsa_num, rsa_key[j]);
1153                                 if (ret == 0)
1154                                         {
1155                                         BIO_printf(bio_err,
1156                                                 "RSA sign failure\n");
1157                                         ERR_print_errors(bio_err);
1158                                         count=1;
1159                                         break;
1160                                         }
1161                                 }
1162                         d=Time_F(STOP,usertime);
1163                         BIO_printf(bio_err,
1164                                 "%ld %d bit private RSA's in %.2fs\n",
1165                                 count,rsa_bits[j],d);
1166                         rsa_results[j][0]=d/(double)count;
1167                         rsa_count=count;
1168                         }
1169
1170 #if 1
1171                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2, rsa_num, rsa_key[j]);
1172                 if (ret <= 0)
1173                         {
1174                         BIO_printf(bio_err,"RSA verify failure.  No RSA verify will be done.\n");
1175                         ERR_print_errors(bio_err);
1176                         dsa_doit[j] = 0;
1177                         }
1178                 else
1179                         {
1180                         pkey_print_message("public","rsa",
1181                                 rsa_c[j][1],rsa_bits[j],
1182                                 RSA_SECONDS);
1183                         Time_F(START,usertime);
1184                         for (count=0,run=1; COND(rsa_c[j][1]); count++)
1185                                 {
1186                                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2,
1187                                         rsa_num, rsa_key[j]);
1188                                 if (ret == 0)
1189                                         {
1190                                         BIO_printf(bio_err,
1191                                                 "RSA verify failure\n");
1192                                         ERR_print_errors(bio_err);
1193                                         count=1;
1194                                         break;
1195                                         }
1196                                 }
1197                         d=Time_F(STOP,usertime);
1198                         BIO_printf(bio_err,
1199                                 "%ld %d bit public RSA's in %.2fs\n",
1200                                 count,rsa_bits[j],d);
1201                         rsa_results[j][1]=d/(double)count;
1202                         }
1203 #endif
1204
1205                 if (rsa_count <= 1)
1206                         {
1207                         /* if longer than 10s, don't do any more */
1208                         for (j++; j<RSA_NUM; j++)
1209                                 rsa_doit[j]=0;
1210                         }
1211                 }
1212 #endif
1213
1214         RAND_pseudo_bytes(buf,20);
1215 #ifndef NO_DSA
1216         if (RAND_status() != 1)
1217                 {
1218                 RAND_seed(rnd_seed, sizeof rnd_seed);
1219                 rnd_fake = 1;
1220                 }
1221         for (j=0; j<DSA_NUM; j++)
1222                 {
1223                 unsigned int kk;
1224                 int ret;
1225
1226                 if (!dsa_doit[j]) continue;
1227                 DSA_generate_key(dsa_key[j]);
1228 /*              DSA_sign_setup(dsa_key[j],NULL); */
1229                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1230                         &kk,dsa_key[j]);
1231                 if (ret == 0)
1232                         {
1233                         BIO_printf(bio_err,"DSA sign failure.  No DSA sign will be done.\n");
1234                         ERR_print_errors(bio_err);
1235                         rsa_count=1;
1236                         }
1237                 else
1238                         {
1239                         pkey_print_message("sign","dsa",
1240                                 dsa_c[j][0],dsa_bits[j],
1241                                 DSA_SECONDS);
1242                         Time_F(START,usertime);
1243                         for (count=0,run=1; COND(dsa_c[j][0]); count++)
1244                                 {
1245                                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1246                                         &kk,dsa_key[j]);
1247                                 if (ret == 0)
1248                                         {
1249                                         BIO_printf(bio_err,
1250                                                 "DSA sign failure\n");
1251                                         ERR_print_errors(bio_err);
1252                                         count=1;
1253                                         break;
1254                                         }
1255                                 }
1256                         d=Time_F(STOP,usertime);
1257                         BIO_printf(bio_err,"%ld %d bit DSA signs in %.2fs\n",
1258                                 count,dsa_bits[j],d);
1259                         dsa_results[j][0]=d/(double)count;
1260                         rsa_count=count;
1261                         }
1262
1263                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1264                         kk,dsa_key[j]);
1265                 if (ret <= 0)
1266                         {
1267                         BIO_printf(bio_err,"DSA verify failure.  No DSA verify will be done.\n");
1268                         ERR_print_errors(bio_err);
1269                         dsa_doit[j] = 0;
1270                         }
1271                 else
1272                         {
1273                         pkey_print_message("verify","dsa",
1274                                 dsa_c[j][1],dsa_bits[j],
1275                                 DSA_SECONDS);
1276                         Time_F(START,usertime);
1277                         for (count=0,run=1; COND(dsa_c[j][1]); count++)
1278                                 {
1279                                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1280                                         kk,dsa_key[j]);
1281                                 if (ret <= 0)
1282                                         {
1283                                         BIO_printf(bio_err,
1284                                                 "DSA verify failure\n");
1285                                         ERR_print_errors(bio_err);
1286                                         count=1;
1287                                         break;
1288                                         }
1289                                 }
1290                         d=Time_F(STOP,usertime);
1291                         BIO_printf(bio_err,"%ld %d bit DSA verify in %.2fs\n",
1292                                 count,dsa_bits[j],d);
1293                         dsa_results[j][1]=d/(double)count;
1294                         }
1295
1296                 if (rsa_count <= 1)
1297                         {
1298                         /* if longer than 10s, don't do any more */
1299                         for (j++; j<DSA_NUM; j++)
1300                                 dsa_doit[j]=0;
1301                         }
1302                 }
1303         if (rnd_fake) RAND_cleanup();
1304 #endif
1305
1306         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_VERSION));
1307         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_BUILT_ON));
1308         printf("options:");
1309         printf("%s ",BN_options());
1310 #ifndef NO_MD2
1311         printf("%s ",MD2_options());
1312 #endif
1313 #ifndef NO_RC4
1314         printf("%s ",RC4_options());
1315 #endif
1316 #ifndef NO_DES
1317         printf("%s ",des_options());
1318 #endif
1319 #ifndef NO_IDEA
1320         printf("%s ",idea_options());
1321 #endif
1322 #ifndef NO_BF
1323         printf("%s ",BF_options());
1324 #endif
1325         fprintf(stdout,"\n%s\n",SSLeay_version(SSLEAY_CFLAGS));
1326
1327         if (pr_header)
1328                 {
1329                 fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n"); 
1330                 fprintf(stdout,"type        ");
1331                 for (j=0;  j<SIZE_NUM; j++)
1332                         fprintf(stdout,"%7d bytes",lengths[j]);
1333                 fprintf(stdout,"\n");
1334                 }
1335
1336         for (k=0; k<ALGOR_NUM; k++)
1337                 {
1338                 if (!doit[k]) continue;
1339                 fprintf(stdout,"%-13s",names[k]);
1340                 for (j=0; j<SIZE_NUM; j++)
1341                         {
1342                         if (results[k][j] > 10000)
1343                                 fprintf(stdout," %11.2fk",results[k][j]/1e3);
1344                         else
1345                                 fprintf(stdout," %11.2f ",results[k][j]);
1346                         }
1347                 fprintf(stdout,"\n");
1348                 }
1349 #ifndef NO_RSA
1350         j=1;
1351         for (k=0; k<RSA_NUM; k++)
1352                 {
1353                 if (!rsa_doit[k]) continue;
1354                 if (j)
1355                         {
1356                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1357                         j=0;
1358                         }
1359                 fprintf(stdout,"rsa %4u bits %8.4fs %8.4fs %8.1f %8.1f",
1360                         rsa_bits[k],rsa_results[k][0],rsa_results[k][1],
1361                         1.0/rsa_results[k][0],1.0/rsa_results[k][1]);
1362                 fprintf(stdout,"\n");
1363                 }
1364 #endif
1365 #ifndef NO_DSA
1366         j=1;
1367         for (k=0; k<DSA_NUM; k++)
1368                 {
1369                 if (!dsa_doit[k]) continue;
1370                 if (j)  {
1371                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1372                         j=0;
1373                         }
1374                 fprintf(stdout,"dsa %4u bits %8.4fs %8.4fs %8.1f %8.1f",
1375                         dsa_bits[k],dsa_results[k][0],dsa_results[k][1],
1376                         1.0/dsa_results[k][0],1.0/dsa_results[k][1]);
1377                 fprintf(stdout,"\n");
1378                 }
1379 #endif
1380         mret=0;
1381 end:
1382         if (buf != NULL) OPENSSL_free(buf);
1383         if (buf2 != NULL) OPENSSL_free(buf2);
1384 #ifndef NO_RSA
1385         for (i=0; i<RSA_NUM; i++)
1386                 if (rsa_key[i] != NULL)
1387                         RSA_free(rsa_key[i]);
1388 #endif
1389 #ifndef NO_DSA
1390         for (i=0; i<DSA_NUM; i++)
1391                 if (dsa_key[i] != NULL)
1392                         DSA_free(dsa_key[i]);
1393 #endif
1394         EXIT(mret);
1395         }
1396
1397 static void print_message(char *s, long num, int length)
1398         {
1399 #ifdef SIGALRM
1400         BIO_printf(bio_err,"Doing %s for %ds on %d size blocks: ",s,SECONDS,length);
1401         (void)BIO_flush(bio_err);
1402         alarm(SECONDS);
1403 #else
1404         BIO_printf(bio_err,"Doing %s %ld times on %d size blocks: ",s,num,length);
1405         (void)BIO_flush(bio_err);
1406 #endif
1407 #ifdef LINT
1408         num=num;
1409 #endif
1410         }
1411
1412 static void pkey_print_message(char *str, char *str2, long num, int bits,
1413              int tm)
1414         {
1415 #ifdef SIGALRM
1416         BIO_printf(bio_err,"Doing %d bit %s %s's for %ds: ",bits,str,str2,tm);
1417         (void)BIO_flush(bio_err);
1418         alarm(RSA_SECONDS);
1419 #else
1420         BIO_printf(bio_err,"Doing %ld %d bit %s %s's: ",num,bits,str,str2);
1421         (void)BIO_flush(bio_err);
1422 #endif
1423 #ifdef LINT
1424         num=num;
1425 #endif
1426         }
1427