Fix bugs and typos.
[openssl.git] / apps / speed.c
1 /* apps/speed.c -*- mode:C; c-file-style: "eay" -*- */
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 OPENSSL_NO_STDIO
79 #define APPS_WIN16
80 #endif
81 #include <openssl/crypto.h>
82 #include <openssl/rand.h>
83 #include <openssl/err.h>
84 #include <openssl/evp.h>
85 #include <openssl/objects.h>
86 #if !defined(OPENSSL_SYS_MSDOS)
87 #include OPENSSL_UNISTD
88 #endif
89
90 #if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(OPENSSL_SYS_MACOSX)
91 # define USE_TOD
92 #elif !defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_VXWORKS) && (!defined(OPENSSL_SYS_VMS) || defined(__DECC))
93 # define TIMES
94 #endif
95 #if !defined(_UNICOS) && !defined(__OpenBSD__) && !defined(sgi) && !defined(__FreeBSD__) && !(defined(__bsdi) || defined(__bsdi__)) && !defined(_AIX) && !defined(OPENSSL_SYS_MPE) && !defined(__NetBSD__) && !defined(OPENSSL_SYS_VXWORKS) /* FIXME */
96 # define TIMEB
97 #endif
98
99 #ifndef _IRIX
100 # include <time.h>
101 #endif
102 #ifdef TIMES
103 # include <sys/types.h>
104 # include <sys/times.h>
105 #endif
106 #ifdef USE_TOD
107 # include <sys/time.h>
108 # include <sys/resource.h>
109 #endif
110
111 /* Depending on the VMS version, the tms structure is perhaps defined.
112    The __TMS macro will show if it was.  If it wasn't defined, we should
113    undefine TIMES, since that tells the rest of the program how things
114    should be handled.                           -- Richard Levitte */
115 #if defined(OPENSSL_SYS_VMS_DECC) && !defined(__TMS)
116 #undef TIMES
117 #endif
118
119 #ifdef TIMEB
120 #include <sys/timeb.h>
121 #endif
122
123 #if !defined(TIMES) && !defined(TIMEB) && !defined(USE_TOD) && !defined(OPENSSL_SYS_VXWORKS)
124 #error "It seems neither struct tms nor struct timeb is supported in this platform!"
125 #endif
126
127 #if defined(sun) || defined(__ultrix)
128 #define _POSIX_SOURCE
129 #include <limits.h>
130 #include <sys/param.h>
131 #endif
132
133 #ifndef OPENSSL_NO_DES
134 #include <openssl/des_old.h>
135 #endif
136 #ifndef OPENSSL_NO_AES
137 #include <openssl/aes.h>
138 #endif
139 #ifndef OPENSSL_NO_MD2
140 #include <openssl/md2.h>
141 #endif
142 #ifndef OPENSSL_NO_MDC2
143 #include <openssl/mdc2.h>
144 #endif
145 #ifndef OPENSSL_NO_MD4
146 #include <openssl/md4.h>
147 #endif
148 #ifndef OPENSSL_NO_MD5
149 #include <openssl/md5.h>
150 #endif
151 #ifndef OPENSSL_NO_HMAC
152 #include <openssl/hmac.h>
153 #endif
154 #include <openssl/evp.h>
155 #ifndef OPENSSL_NO_SHA
156 #include <openssl/sha.h>
157 #endif
158 #ifndef OPENSSL_NO_RIPEMD
159 #include <openssl/ripemd.h>
160 #endif
161 #ifndef OPENSSL_NO_RC4
162 #include <openssl/rc4.h>
163 #endif
164 #ifndef OPENSSL_NO_RC5
165 #include <openssl/rc5.h>
166 #endif
167 #ifndef OPENSSL_NO_RC2
168 #include <openssl/rc2.h>
169 #endif
170 #ifndef OPENSSL_NO_IDEA
171 #include <openssl/idea.h>
172 #endif
173 #ifndef OPENSSL_NO_BF
174 #include <openssl/blowfish.h>
175 #endif
176 #ifndef OPENSSL_NO_CAST
177 #include <openssl/cast.h>
178 #endif
179 #ifndef OPENSSL_NO_RSA
180 #include <openssl/rsa.h>
181 #include "./testrsa.h"
182 #endif
183 #include <openssl/x509.h>
184 #ifndef OPENSSL_NO_DSA
185 #include "./testdsa.h"
186 #endif
187
188 /* The following if from times(3) man page.  It may need to be changed */
189 #ifndef HZ
190 # ifdef _SC_CLK_TCK
191 #  define HZ ((double)sysconf(_SC_CLK_TCK))
192 # else
193 #  ifndef CLK_TCK
194 #   ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
195 #    define HZ  100.0
196 #   else /* _BSD_CLK_TCK_ */
197 #    define HZ ((double)_BSD_CLK_TCK_)
198 #   endif
199 #  else /* CLK_TCK */
200 #   define HZ ((double)CLK_TCK)
201 #  endif
202 # endif
203 #endif
204
205 #if !defined(OPENSSL_SYS_VMS) && !defined(OPENSSL_SYS_WINDOWS) && !defined(OPENSSL_SYS_MACINTOSH_CLASSIC) && !defined(OPENSSL_SYS_OS2)
206 # define HAVE_FORK 1
207 #endif
208
209 #undef BUFSIZE
210 #define BUFSIZE ((long)1024*8+1)
211 int run=0;
212
213 static char ftime_used = 0, times_used = 0, gettimeofday_used = 0, getrusage_used = 0;
214 static int mr=0;
215 static int usertime=1;
216
217 static double Time_F(int s);
218 static void print_message(const char *s,long num,int length);
219 static void pkey_print_message(char *str,char *str2,long num,int bits,int sec);
220 static void print_result(int alg,int run_no,int count,double time_used);
221 #ifdef HAVE_FORK
222 static int do_multi(int multi);
223 #endif
224
225 #define ALGOR_NUM       19
226 #define SIZE_NUM        5
227 #define RSA_NUM         4
228 #define DSA_NUM         3
229 static const char *names[ALGOR_NUM]={
230   "md2","mdc2","md4","md5","hmac(md5)","sha1","rmd160","rc4",
231   "des cbc","des ede3","idea cbc",
232   "rc2 cbc","rc5-32/12 cbc","blowfish cbc","cast cbc",
233   "aes-128 cbc","aes-192 cbc","aes-256 cbc"};
234 static double results[ALGOR_NUM][SIZE_NUM];
235 static int lengths[SIZE_NUM]={16,64,256,1024,8*1024};
236 static double rsa_results[RSA_NUM][2];
237 static double dsa_results[DSA_NUM][2];
238
239 #ifdef SIGALRM
240 #if defined(__STDC__) || defined(sgi) || defined(_AIX)
241 #define SIGRETTYPE void
242 #else
243 #define SIGRETTYPE int
244 #endif 
245
246 static SIGRETTYPE sig_done(int sig);
247 static SIGRETTYPE sig_done(int sig)
248         {
249         signal(SIGALRM,sig_done);
250         run=0;
251 #ifdef LINT
252         sig=sig;
253 #endif
254         }
255 #endif
256
257 #define START   0
258 #define STOP    1
259
260 static double Time_F(int s)
261         {
262         double ret;
263
264 #ifdef USE_TOD
265         if(usertime)
266             {
267                 static struct rusage tstart,tend;
268
269                 getrusage_used = 1;
270                 if (s == START)
271                         {
272                         getrusage(RUSAGE_SELF,&tstart);
273                         return(0);
274                         }
275                 else
276                         {
277                         long i;
278
279                         getrusage(RUSAGE_SELF,&tend);
280                         i=(long)tend.ru_utime.tv_usec-(long)tstart.ru_utime.tv_usec;
281                         ret=((double)(tend.ru_utime.tv_sec-tstart.ru_utime.tv_sec))
282                           +((double)i)/1000000.0;
283                         return((ret < 0.001)?0.001:ret);
284                         }
285                 }
286         else
287                 {
288                 static struct timeval tstart,tend;
289                 long i;
290
291                 gettimeofday_used = 1;
292                 if (s == START)
293                         {
294                         gettimeofday(&tstart,NULL);
295                         return(0);
296                         }
297                 else
298                         {
299                         gettimeofday(&tend,NULL);
300                         i=(long)tend.tv_usec-(long)tstart.tv_usec;
301                         ret=((double)(tend.tv_sec-tstart.tv_sec))+((double)i)/1000000.0;
302                         return((ret < 0.001)?0.001:ret);
303                         }
304                 }
305 #else  /* ndef USE_TOD */
306                 
307 # ifdef TIMES
308         if (usertime)
309                 {
310                 static struct tms tstart,tend;
311
312                 times_used = 1;
313                 if (s == START)
314                         {
315                         times(&tstart);
316                         return(0);
317                         }
318                 else
319                         {
320                         times(&tend);
321                         ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
322                         return((ret < 1e-3)?1e-3:ret);
323                         }
324                 }
325 # endif /* times() */
326 # if defined(TIMES) && defined(TIMEB)
327         else
328 # endif
329 # ifdef OPENSSL_SYS_VXWORKS
330                 {
331                 static unsigned long tick_start, tick_end;
332
333                 if( s == START )
334                         {
335                         tick_start = tickGet();
336                         return 0;
337                         }
338                 else
339                         {
340                         tick_end = tickGet();
341                         ret = (double)(tick_end - tick_start) / (double)sysClkRateGet();
342                         return((ret < 0.001)?0.001:ret);
343                         }
344                 }
345 # elif defined(TIMEB)
346                 {
347                 static struct timeb tstart,tend;
348                 long i;
349
350                 ftime_used = 1;
351                 if (s == START)
352                         {
353                         ftime(&tstart);
354                         return(0);
355                         }
356                 else
357                         {
358                         ftime(&tend);
359                         i=(long)tend.millitm-(long)tstart.millitm;
360                         ret=((double)(tend.time-tstart.time))+((double)i)/1000.0;
361                         return((ret < 0.001)?0.001:ret);
362                         }
363                 }
364 # endif
365 #endif
366         }
367
368 int MAIN(int, char **);
369
370 int MAIN(int argc, char **argv)
371         {
372         ENGINE *e = NULL;
373         unsigned char *buf=NULL,*buf2=NULL;
374         int mret=1;
375         long count=0,save_count=0;
376         int i,j,k;
377 #if !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_DSA)
378         long rsa_count;
379 #endif
380 #ifndef OPENSSL_NO_RSA
381         unsigned rsa_num;
382 #endif
383         unsigned char md[EVP_MAX_MD_SIZE];
384 #ifndef OPENSSL_NO_MD2
385         unsigned char md2[MD2_DIGEST_LENGTH];
386 #endif
387 #ifndef OPENSSL_NO_MDC2
388         unsigned char mdc2[MDC2_DIGEST_LENGTH];
389 #endif
390 #ifndef OPENSSL_NO_MD4
391         unsigned char md4[MD4_DIGEST_LENGTH];
392 #endif
393 #ifndef OPENSSL_NO_MD5
394         unsigned char md5[MD5_DIGEST_LENGTH];
395         unsigned char hmac[MD5_DIGEST_LENGTH];
396 #endif
397 #ifndef OPENSSL_NO_SHA
398         unsigned char sha[SHA_DIGEST_LENGTH];
399 #endif
400 #ifndef OPENSSL_NO_RIPEMD
401         unsigned char rmd160[RIPEMD160_DIGEST_LENGTH];
402 #endif
403 #ifndef OPENSSL_NO_RC4
404         RC4_KEY rc4_ks;
405 #endif
406 #ifndef OPENSSL_NO_RC5
407         RC5_32_KEY rc5_ks;
408 #endif
409 #ifndef OPENSSL_NO_RC2
410         RC2_KEY rc2_ks;
411 #endif
412 #ifndef OPENSSL_NO_IDEA
413         IDEA_KEY_SCHEDULE idea_ks;
414 #endif
415 #ifndef OPENSSL_NO_BF
416         BF_KEY bf_ks;
417 #endif
418 #ifndef OPENSSL_NO_CAST
419         CAST_KEY cast_ks;
420 #endif
421         static const unsigned char key16[16]=
422                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
423                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
424         static const unsigned char key24[24]=
425                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
426                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
427                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
428         static const unsigned char key32[32]=
429                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
430                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
431                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,
432                  0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,0x56};
433 #ifndef OPENSSL_NO_AES
434 #define MAX_BLOCK_SIZE 128
435 #else
436 #define MAX_BLOCK_SIZE 64
437 #endif
438         unsigned char DES_iv[8];
439         unsigned char iv[MAX_BLOCK_SIZE/8];
440 #ifndef OPENSSL_NO_DES
441         DES_cblock *buf_as_des_cblock = NULL;
442         static des_cblock key ={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
443         static des_cblock key2={0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
444         static des_cblock key3={0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
445         DES_key_schedule sch;
446         DES_key_schedule sch2;
447         DES_key_schedule sch3;
448 #endif
449 #ifndef OPENSSL_NO_AES
450         AES_KEY aes_ks1, aes_ks2, aes_ks3;
451 #endif
452 #define D_MD2           0
453 #define D_MDC2          1
454 #define D_MD4           2
455 #define D_MD5           3
456 #define D_HMAC          4
457 #define D_SHA1          5
458 #define D_RMD160        6
459 #define D_RC4           7
460 #define D_CBC_DES       8
461 #define D_EDE3_DES      9
462 #define D_CBC_IDEA      10
463 #define D_CBC_RC2       11
464 #define D_CBC_RC5       12
465 #define D_CBC_BF        13
466 #define D_CBC_CAST      14
467 #define D_CBC_128_AES   15
468 #define D_CBC_192_AES   16
469 #define D_CBC_256_AES   17
470 #define D_EVP           18
471         double d=0.0;
472         long c[ALGOR_NUM][SIZE_NUM];
473 #define R_DSA_512       0
474 #define R_DSA_1024      1
475 #define R_DSA_2048      2
476 #define R_RSA_512       0
477 #define R_RSA_1024      1
478 #define R_RSA_2048      2
479 #define R_RSA_4096      3
480 #ifndef OPENSSL_NO_RSA
481         RSA *rsa_key[RSA_NUM];
482         long rsa_c[RSA_NUM][2];
483         static unsigned int rsa_bits[RSA_NUM]={512,1024,2048,4096};
484         static unsigned char *rsa_data[RSA_NUM]=
485                 {test512,test1024,test2048,test4096};
486         static int rsa_data_length[RSA_NUM]={
487                 sizeof(test512),sizeof(test1024),
488                 sizeof(test2048),sizeof(test4096)};
489 #endif
490 #ifndef OPENSSL_NO_DSA
491         DSA *dsa_key[DSA_NUM];
492         long dsa_c[DSA_NUM][2];
493         static unsigned int dsa_bits[DSA_NUM]={512,1024,2048};
494 #endif
495         int rsa_doit[RSA_NUM];
496         int dsa_doit[DSA_NUM];
497         int doit[ALGOR_NUM];
498         int pr_header=0;
499         const EVP_CIPHER *evp_cipher=NULL;
500         const EVP_MD *evp_md=NULL;
501         int decrypt=0;
502 #ifdef HAVE_FORK
503         int multi=0;
504 #endif
505
506 #ifndef TIMES
507         usertime=-1;
508 #endif
509
510         apps_startup();
511         memset(results, 0, sizeof(results));
512 #ifndef OPENSSL_NO_DSA
513         memset(dsa_key,0,sizeof(dsa_key));
514 #endif
515
516         if (bio_err == NULL)
517                 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
518                         BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
519
520         if (!load_config(bio_err, NULL))
521                 goto end;
522
523 #ifndef OPENSSL_NO_RSA
524         memset(rsa_key,0,sizeof(rsa_key));
525         for (i=0; i<RSA_NUM; i++)
526                 rsa_key[i]=NULL;
527 #endif
528
529         if ((buf=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
530                 {
531                 BIO_printf(bio_err,"out of memory\n");
532                 goto end;
533                 }
534 #ifndef OPENSSL_NO_DES
535         buf_as_des_cblock = (des_cblock *)buf;
536 #endif
537         if ((buf2=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
538                 {
539                 BIO_printf(bio_err,"out of memory\n");
540                 goto end;
541                 }
542
543         memset(c,0,sizeof(c));
544         memset(DES_iv,0,sizeof(DES_iv));
545         memset(iv,0,sizeof(iv));
546
547         for (i=0; i<ALGOR_NUM; i++)
548                 doit[i]=0;
549         for (i=0; i<RSA_NUM; i++)
550                 rsa_doit[i]=0;
551         for (i=0; i<DSA_NUM; i++)
552                 dsa_doit[i]=0;
553         
554         j=0;
555         argc--;
556         argv++;
557         while (argc)
558                 {
559                 if      ((argc > 0) && (strcmp(*argv,"-elapsed") == 0))
560                         {
561                         usertime = 0;
562                         j--;    /* Otherwise, -elapsed gets confused with
563                                    an algorithm. */
564                         }
565                 else if ((argc > 0) && (strcmp(*argv,"-evp") == 0))
566                         {
567                         argc--;
568                         argv++;
569                         if(argc == 0)
570                                 {
571                                 BIO_printf(bio_err,"no EVP given\n");
572                                 goto end;
573                                 }
574                         evp_cipher=EVP_get_cipherbyname(*argv);
575                         if(!evp_cipher)
576                                 {
577                                 evp_md=EVP_get_digestbyname(*argv);
578                                 }
579                         if(!evp_cipher && !evp_md)
580                                 {
581                                 BIO_printf(bio_err,"%s is an unknown cipher or digest\n",*argv);
582                                 goto end;
583                                 }
584                         doit[D_EVP]=1;
585                         }
586                 else if (argc > 0 && !strcmp(*argv,"-decrypt"))
587                         {
588                         decrypt=1;
589                         j--;    /* Otherwise, -elapsed gets confused with
590                                    an algorithm. */
591                         }
592                 else if ((argc > 0) && (strcmp(*argv,"-engine") == 0))
593                         {
594                         argc--;
595                         argv++;
596                         if(argc == 0)
597                                 {
598                                 BIO_printf(bio_err,"no engine given\n");
599                                 goto end;
600                                 }
601                         e = setup_engine(bio_err, *argv, 0);
602                         /* j will be increased again further down.  We just
603                            don't want speed to confuse an engine with an
604                            algorithm, especially when none is given (which
605                            means all of them should be run) */
606                         j--;
607                         }
608 #ifdef HAVE_FORK
609                 else if ((argc > 0) && (strcmp(*argv,"-multi") == 0))
610                         {
611                         argc--;
612                         argv++;
613                         if(argc == 0)
614                                 {
615                                 BIO_printf(bio_err,"no multi count given\n");
616                                 goto end;
617                                 }
618                         multi=atoi(argv[0]);
619                         if(multi <= 0)
620                             {
621                                 BIO_printf(bio_err,"bad multi count\n");
622                                 goto end;
623                                 }                               
624                         j--;    /* Otherwise, -mr gets confused with
625                                    an algorithm. */
626                         }
627 #endif
628                 else if (argc > 0 && !strcmp(*argv,"-mr"))
629                         {
630                         mr=1;
631                         j--;    /* Otherwise, -mr gets confused with
632                                    an algorithm. */
633                         }
634                 else
635 #ifndef OPENSSL_NO_MD2
636                 if      (strcmp(*argv,"md2") == 0) doit[D_MD2]=1;
637                 else
638 #endif
639 #ifndef OPENSSL_NO_MDC2
640                         if (strcmp(*argv,"mdc2") == 0) doit[D_MDC2]=1;
641                 else
642 #endif
643 #ifndef OPENSSL_NO_MD4
644                         if (strcmp(*argv,"md4") == 0) doit[D_MD4]=1;
645                 else
646 #endif
647 #ifndef OPENSSL_NO_MD5
648                         if (strcmp(*argv,"md5") == 0) doit[D_MD5]=1;
649                 else
650 #endif
651 #ifndef OPENSSL_NO_MD5
652                         if (strcmp(*argv,"hmac") == 0) doit[D_HMAC]=1;
653                 else
654 #endif
655 #ifndef OPENSSL_NO_SHA
656                         if (strcmp(*argv,"sha1") == 0) doit[D_SHA1]=1;
657                 else
658                         if (strcmp(*argv,"sha") == 0) doit[D_SHA1]=1;
659                 else
660 #endif
661 #ifndef OPENSSL_NO_RIPEMD
662                         if (strcmp(*argv,"ripemd") == 0) doit[D_RMD160]=1;
663                 else
664                         if (strcmp(*argv,"rmd160") == 0) doit[D_RMD160]=1;
665                 else
666                         if (strcmp(*argv,"ripemd160") == 0) doit[D_RMD160]=1;
667                 else
668 #endif
669 #ifndef OPENSSL_NO_RC4
670                         if (strcmp(*argv,"rc4") == 0) doit[D_RC4]=1;
671                 else 
672 #endif
673 #ifndef OPENSSL_NO_DES
674                         if (strcmp(*argv,"des-cbc") == 0) doit[D_CBC_DES]=1;
675                 else    if (strcmp(*argv,"des-ede3") == 0) doit[D_EDE3_DES]=1;
676                 else
677 #endif
678 #ifndef OPENSSL_NO_AES
679                         if (strcmp(*argv,"aes-128-cbc") == 0) doit[D_CBC_128_AES]=1;
680                 else    if (strcmp(*argv,"aes-192-cbc") == 0) doit[D_CBC_192_AES]=1;
681                 else    if (strcmp(*argv,"aes-256-cbc") == 0) doit[D_CBC_256_AES]=1;
682                 else
683 #endif
684 #ifndef OPENSSL_NO_RSA
685 #if 0 /* was: #ifdef RSAref */
686                         if (strcmp(*argv,"rsaref") == 0) 
687                         {
688                         RSA_set_default_openssl_method(RSA_PKCS1_RSAref());
689                         j--;
690                         }
691                 else
692 #endif
693 #ifndef RSA_NULL
694                         if (strcmp(*argv,"openssl") == 0) 
695                         {
696                         RSA_set_default_method(RSA_PKCS1_SSLeay());
697                         j--;
698                         }
699                 else
700 #endif
701 #endif /* !OPENSSL_NO_RSA */
702                      if (strcmp(*argv,"dsa512") == 0) dsa_doit[R_DSA_512]=2;
703                 else if (strcmp(*argv,"dsa1024") == 0) dsa_doit[R_DSA_1024]=2;
704                 else if (strcmp(*argv,"dsa2048") == 0) dsa_doit[R_DSA_2048]=2;
705                 else if (strcmp(*argv,"rsa512") == 0) rsa_doit[R_RSA_512]=2;
706                 else if (strcmp(*argv,"rsa1024") == 0) rsa_doit[R_RSA_1024]=2;
707                 else if (strcmp(*argv,"rsa2048") == 0) rsa_doit[R_RSA_2048]=2;
708                 else if (strcmp(*argv,"rsa4096") == 0) rsa_doit[R_RSA_4096]=2;
709                 else
710 #ifndef OPENSSL_NO_RC2
711                      if (strcmp(*argv,"rc2-cbc") == 0) doit[D_CBC_RC2]=1;
712                 else if (strcmp(*argv,"rc2") == 0) doit[D_CBC_RC2]=1;
713                 else
714 #endif
715 #ifndef OPENSSL_NO_RC5
716                      if (strcmp(*argv,"rc5-cbc") == 0) doit[D_CBC_RC5]=1;
717                 else if (strcmp(*argv,"rc5") == 0) doit[D_CBC_RC5]=1;
718                 else
719 #endif
720 #ifndef OPENSSL_NO_IDEA
721                      if (strcmp(*argv,"idea-cbc") == 0) doit[D_CBC_IDEA]=1;
722                 else if (strcmp(*argv,"idea") == 0) doit[D_CBC_IDEA]=1;
723                 else
724 #endif
725 #ifndef OPENSSL_NO_BF
726                      if (strcmp(*argv,"bf-cbc") == 0) doit[D_CBC_BF]=1;
727                 else if (strcmp(*argv,"blowfish") == 0) doit[D_CBC_BF]=1;
728                 else if (strcmp(*argv,"bf") == 0) doit[D_CBC_BF]=1;
729                 else
730 #endif
731 #ifndef OPENSSL_NO_CAST
732                      if (strcmp(*argv,"cast-cbc") == 0) doit[D_CBC_CAST]=1;
733                 else if (strcmp(*argv,"cast") == 0) doit[D_CBC_CAST]=1;
734                 else if (strcmp(*argv,"cast5") == 0) doit[D_CBC_CAST]=1;
735                 else
736 #endif
737 #ifndef OPENSSL_NO_DES
738                         if (strcmp(*argv,"des") == 0)
739                         {
740                         doit[D_CBC_DES]=1;
741                         doit[D_EDE3_DES]=1;
742                         }
743                 else
744 #endif
745 #ifndef OPENSSL_NO_AES
746                         if (strcmp(*argv,"aes") == 0)
747                         {
748                         doit[D_CBC_128_AES]=1;
749                         doit[D_CBC_192_AES]=1;
750                         doit[D_CBC_256_AES]=1;
751                         }
752                 else
753 #endif
754 #ifndef OPENSSL_NO_RSA
755                         if (strcmp(*argv,"rsa") == 0)
756                         {
757                         rsa_doit[R_RSA_512]=1;
758                         rsa_doit[R_RSA_1024]=1;
759                         rsa_doit[R_RSA_2048]=1;
760                         rsa_doit[R_RSA_4096]=1;
761                         }
762                 else
763 #endif
764 #ifndef OPENSSL_NO_DSA
765                         if (strcmp(*argv,"dsa") == 0)
766                         {
767                         dsa_doit[R_DSA_512]=1;
768                         dsa_doit[R_DSA_1024]=1;
769                         }
770                 else
771 #endif
772                         {
773                         BIO_printf(bio_err,"Error: bad option or value\n");
774                         BIO_printf(bio_err,"\n");
775                         BIO_printf(bio_err,"Available values:\n");
776 #ifndef OPENSSL_NO_MD2
777                         BIO_printf(bio_err,"md2      ");
778 #endif
779 #ifndef OPENSSL_NO_MDC2
780                         BIO_printf(bio_err,"mdc2     ");
781 #endif
782 #ifndef OPENSSL_NO_MD4
783                         BIO_printf(bio_err,"md4      ");
784 #endif
785 #ifndef OPENSSL_NO_MD5
786                         BIO_printf(bio_err,"md5      ");
787 #ifndef OPENSSL_NO_HMAC
788                         BIO_printf(bio_err,"hmac     ");
789 #endif
790 #endif
791 #ifndef OPENSSL_NO_SHA1
792                         BIO_printf(bio_err,"sha1     ");
793 #endif
794 #ifndef OPENSSL_NO_RIPEMD160
795                         BIO_printf(bio_err,"rmd160");
796 #endif
797 #if !defined(OPENSSL_NO_MD2) || !defined(OPENSSL_NO_MDC2) || \
798     !defined(OPENSSL_NO_MD4) || !defined(OPENSSL_NO_MD5) || \
799     !defined(OPENSSL_NO_SHA1) || !defined(OPENSSL_NO_RIPEMD160)
800                         BIO_printf(bio_err,"\n");
801 #endif
802
803 #ifndef OPENSSL_NO_IDEA
804                         BIO_printf(bio_err,"idea-cbc ");
805 #endif
806 #ifndef OPENSSL_NO_RC2
807                         BIO_printf(bio_err,"rc2-cbc  ");
808 #endif
809 #ifndef OPENSSL_NO_RC5
810                         BIO_printf(bio_err,"rc5-cbc  ");
811 #endif
812 #ifndef OPENSSL_NO_BF
813                         BIO_printf(bio_err,"bf-cbc");
814 #endif
815 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_RC2) || \
816     !defined(OPENSSL_NO_BF) || !defined(OPENSSL_NO_RC5)
817                         BIO_printf(bio_err,"\n");
818 #endif
819 #ifndef OPENSSL_NO_DES
820                         BIO_printf(bio_err,"des-cbc  des-ede3 ");
821 #endif
822 #ifndef OPENSSL_NO_AES
823                         BIO_printf(bio_err,"aes-128-cbc aes-192-cbc aes-256-cbc ");
824 #endif
825 #ifndef OPENSSL_NO_RC4
826                         BIO_printf(bio_err,"rc4");
827 #endif
828                         BIO_printf(bio_err,"\n");
829
830 #ifndef OPENSSL_NO_RSA
831                         BIO_printf(bio_err,"rsa512   rsa1024  rsa2048  rsa4096\n");
832 #endif
833
834 #ifndef OPENSSL_NO_DSA
835                         BIO_printf(bio_err,"dsa512   dsa1024  dsa2048\n");
836 #endif
837
838 #ifndef OPENSSL_NO_IDEA
839                         BIO_printf(bio_err,"idea     ");
840 #endif
841 #ifndef OPENSSL_NO_RC2
842                         BIO_printf(bio_err,"rc2      ");
843 #endif
844 #ifndef OPENSSL_NO_DES
845                         BIO_printf(bio_err,"des      ");
846 #endif
847 #ifndef OPENSSL_NO_AES
848                         BIO_printf(bio_err,"aes      ");
849 #endif
850 #ifndef OPENSSL_NO_RSA
851                         BIO_printf(bio_err,"rsa      ");
852 #endif
853 #ifndef OPENSSL_NO_BF
854                         BIO_printf(bio_err,"blowfish");
855 #endif
856 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_RC2) || \
857     !defined(OPENSSL_NO_DES) || !defined(OPENSSL_NO_RSA) || \
858     !defined(OPENSSL_NO_BF) || !defined(OPENSSL_NO_AES)
859                         BIO_printf(bio_err,"\n");
860 #endif
861
862                         BIO_printf(bio_err,"\n");
863                         BIO_printf(bio_err,"Available options:\n");
864 #ifdef TIMES
865                         BIO_printf(bio_err,"-elapsed        measure time in real time instead of CPU user time.\n");
866 #endif
867                         BIO_printf(bio_err,"-engine e       use engine e, possibly a hardware device.\n");
868                         BIO_printf(bio_err,"-evp e          use EVP e.\n");
869                         BIO_printf(bio_err,"-decrypt        time decryption instead of encryption (only EVP).\n");
870                         BIO_printf(bio_err,"-mr             produce machine readable output.\n");
871 #ifdef HAVE_FORK
872                         BIO_printf(bio_err,"-multi n        run n benchmarks in parallel.\n");
873 #endif
874                         goto end;
875                         }
876                 argc--;
877                 argv++;
878                 j++;
879                 }
880
881 #ifdef HAVE_FORK
882         if(multi && do_multi(multi))
883                 goto show_res;
884 #endif
885
886         if (j == 0)
887                 {
888                 for (i=0; i<ALGOR_NUM; i++)
889                         {
890                         if (i != D_EVP)
891                                 doit[i]=1;
892                         }
893                 for (i=0; i<RSA_NUM; i++)
894                         rsa_doit[i]=1;
895                 for (i=0; i<DSA_NUM; i++)
896                         dsa_doit[i]=1;
897                 }
898         for (i=0; i<ALGOR_NUM; i++)
899                 if (doit[i]) pr_header++;
900
901         if (usertime == 0 && !mr)
902                 BIO_printf(bio_err,"You have chosen to measure elapsed time instead of user CPU time.\n");
903         if (usertime <= 0 && !mr)
904                 {
905                 BIO_printf(bio_err,"To get the most accurate results, try to run this\n");
906                 BIO_printf(bio_err,"program when this computer is idle.\n");
907                 }
908
909 #ifndef OPENSSL_NO_RSA
910         for (i=0; i<RSA_NUM; i++)
911                 {
912                 const unsigned char *p;
913
914                 p=rsa_data[i];
915                 rsa_key[i]=d2i_RSAPrivateKey(NULL,&p,rsa_data_length[i]);
916                 if (rsa_key[i] == NULL)
917                         {
918                         BIO_printf(bio_err,"internal error loading RSA key number %d\n",i);
919                         goto end;
920                         }
921 #if 0
922                 else
923                         {
924                         BIO_printf(bio_err,mr ? "+RK:%d:"
925                                    : "Loaded RSA key, %d bit modulus and e= 0x",
926                                    BN_num_bits(rsa_key[i]->n));
927                         BN_print(bio_err,rsa_key[i]->e);
928                         BIO_printf(bio_err,"\n");
929                         }
930 #endif
931                 }
932 #endif
933
934 #ifndef OPENSSL_NO_DSA
935         dsa_key[0]=get_dsa512();
936         dsa_key[1]=get_dsa1024();
937         dsa_key[2]=get_dsa2048();
938 #endif
939
940 #ifndef OPENSSL_NO_DES
941         DES_set_key_unchecked(&key,&sch);
942         DES_set_key_unchecked(&key2,&sch2);
943         DES_set_key_unchecked(&key3,&sch3);
944 #endif
945 #ifndef OPENSSL_NO_AES
946         AES_set_encrypt_key(key16,128,&aes_ks1);
947         AES_set_encrypt_key(key24,192,&aes_ks2);
948         AES_set_encrypt_key(key32,256,&aes_ks3);
949 #endif
950 #ifndef OPENSSL_NO_IDEA
951         idea_set_encrypt_key(key16,&idea_ks);
952 #endif
953 #ifndef OPENSSL_NO_RC4
954         RC4_set_key(&rc4_ks,16,key16);
955 #endif
956 #ifndef OPENSSL_NO_RC2
957         RC2_set_key(&rc2_ks,16,key16,128);
958 #endif
959 #ifndef OPENSSL_NO_RC5
960         RC5_32_set_key(&rc5_ks,16,key16,12);
961 #endif
962 #ifndef OPENSSL_NO_BF
963         BF_set_key(&bf_ks,16,key16);
964 #endif
965 #ifndef OPENSSL_NO_CAST
966         CAST_set_key(&cast_ks,16,key16);
967 #endif
968 #ifndef OPENSSL_NO_RSA
969         memset(rsa_c,0,sizeof(rsa_c));
970 #endif
971 #ifndef SIGALRM
972 #ifndef OPENSSL_NO_DES
973         BIO_printf(bio_err,"First we calculate the approximate speed ...\n");
974         count=10;
975         do      {
976                 long i;
977                 count*=2;
978                 Time_F(START);
979                 for (i=count; i; i--)
980                         DES_ecb_encrypt(buf_as_des_cblock,buf_as_des_cblock,
981                                 &sch,DES_ENCRYPT);
982                 d=Time_F(STOP);
983                 } while (d <3);
984         save_count=count;
985         c[D_MD2][0]=count/10;
986         c[D_MDC2][0]=count/10;
987         c[D_MD4][0]=count;
988         c[D_MD5][0]=count;
989         c[D_HMAC][0]=count;
990         c[D_SHA1][0]=count;
991         c[D_RMD160][0]=count;
992         c[D_RC4][0]=count*5;
993         c[D_CBC_DES][0]=count;
994         c[D_EDE3_DES][0]=count/3;
995         c[D_CBC_IDEA][0]=count;
996         c[D_CBC_RC2][0]=count;
997         c[D_CBC_RC5][0]=count;
998         c[D_CBC_BF][0]=count;
999         c[D_CBC_CAST][0]=count;
1000
1001         for (i=1; i<SIZE_NUM; i++)
1002                 {
1003                 c[D_MD2][i]=c[D_MD2][0]*4*lengths[0]/lengths[i];
1004                 c[D_MDC2][i]=c[D_MDC2][0]*4*lengths[0]/lengths[i];
1005                 c[D_MD4][i]=c[D_MD4][0]*4*lengths[0]/lengths[i];
1006                 c[D_MD5][i]=c[D_MD5][0]*4*lengths[0]/lengths[i];
1007                 c[D_HMAC][i]=c[D_HMAC][0]*4*lengths[0]/lengths[i];
1008                 c[D_SHA1][i]=c[D_SHA1][0]*4*lengths[0]/lengths[i];
1009                 c[D_RMD160][i]=c[D_RMD160][0]*4*lengths[0]/lengths[i];
1010                 }
1011         for (i=1; i<SIZE_NUM; i++)
1012                 {
1013                 long l0,l1;
1014
1015                 l0=(long)lengths[i-1];
1016                 l1=(long)lengths[i];
1017                 c[D_RC4][i]=c[D_RC4][i-1]*l0/l1;
1018                 c[D_CBC_DES][i]=c[D_CBC_DES][i-1]*l0/l1;
1019                 c[D_EDE3_DES][i]=c[D_EDE3_DES][i-1]*l0/l1;
1020                 c[D_CBC_IDEA][i]=c[D_CBC_IDEA][i-1]*l0/l1;
1021                 c[D_CBC_RC2][i]=c[D_CBC_RC2][i-1]*l0/l1;
1022                 c[D_CBC_RC5][i]=c[D_CBC_RC5][i-1]*l0/l1;
1023                 c[D_CBC_BF][i]=c[D_CBC_BF][i-1]*l0/l1;
1024                 c[D_CBC_CAST][i]=c[D_CBC_CAST][i-1]*l0/l1;
1025                 }
1026 #ifndef OPENSSL_NO_RSA
1027         rsa_c[R_RSA_512][0]=count/2000;
1028         rsa_c[R_RSA_512][1]=count/400;
1029         for (i=1; i<RSA_NUM; i++)
1030                 {
1031                 rsa_c[i][0]=rsa_c[i-1][0]/8;
1032                 rsa_c[i][1]=rsa_c[i-1][1]/4;
1033                 if ((rsa_doit[i] <= 1) && (rsa_c[i][0] == 0))
1034                         rsa_doit[i]=0;
1035                 else
1036                         {
1037                         if (rsa_c[i][0] == 0)
1038                                 {
1039                                 rsa_c[i][0]=1;
1040                                 rsa_c[i][1]=20;
1041                                 }
1042                         }                               
1043                 }
1044 #endif
1045
1046 #ifndef OPENSSL_NO_DSA
1047         dsa_c[R_DSA_512][0]=count/1000;
1048         dsa_c[R_DSA_512][1]=count/1000/2;
1049         for (i=1; i<DSA_NUM; i++)
1050                 {
1051                 dsa_c[i][0]=dsa_c[i-1][0]/4;
1052                 dsa_c[i][1]=dsa_c[i-1][1]/4;
1053                 if ((dsa_doit[i] <= 1) && (dsa_c[i][0] == 0))
1054                         dsa_doit[i]=0;
1055                 else
1056                         {
1057                         if (dsa_c[i] == 0)
1058                                 {
1059                                 dsa_c[i][0]=1;
1060                                 dsa_c[i][1]=1;
1061                                 }
1062                         }                               
1063                 }
1064 #endif
1065
1066 #define COND(d) (count < (d))
1067 #define COUNT(d) (d)
1068 #else
1069 /* not worth fixing */
1070 # error "You cannot disable DES on systems without SIGALRM."
1071 #endif /* OPENSSL_NO_DES */
1072 #else
1073 #define COND(c) (run)
1074 #define COUNT(d) (count)
1075         signal(SIGALRM,sig_done);
1076 #endif /* SIGALRM */
1077
1078 #ifndef OPENSSL_NO_MD2
1079         if (doit[D_MD2])
1080                 {
1081                 for (j=0; j<SIZE_NUM; j++)
1082                         {
1083                         print_message(names[D_MD2],c[D_MD2][j],lengths[j]);
1084                         Time_F(START);
1085                         for (count=0,run=1; COND(c[D_MD2][j]); count++)
1086                                 EVP_Digest(buf,(unsigned long)lengths[j],&(md2[0]),NULL,EVP_md2(),NULL);
1087                         d=Time_F(STOP);
1088                         print_result(D_MD2,j,count,d);
1089                         }
1090                 }
1091 #endif
1092 #ifndef OPENSSL_NO_MDC2
1093         if (doit[D_MDC2])
1094                 {
1095                 for (j=0; j<SIZE_NUM; j++)
1096                         {
1097                         print_message(names[D_MDC2],c[D_MDC2][j],lengths[j]);
1098                         Time_F(START);
1099                         for (count=0,run=1; COND(c[D_MDC2][j]); count++)
1100                                 EVP_Digest(buf,(unsigned long)lengths[j],&(mdc2[0]),NULL,EVP_mdc2(),NULL);
1101                         d=Time_F(STOP);
1102                         print_result(D_MDC2,j,count,d);
1103                         }
1104                 }
1105 #endif
1106
1107 #ifndef OPENSSL_NO_MD4
1108         if (doit[D_MD4])
1109                 {
1110                 for (j=0; j<SIZE_NUM; j++)
1111                         {
1112                         print_message(names[D_MD4],c[D_MD4][j],lengths[j]);
1113                         Time_F(START);
1114                         for (count=0,run=1; COND(c[D_MD4][j]); count++)
1115                                 EVP_Digest(&(buf[0]),(unsigned long)lengths[j],&(md4[0]),NULL,EVP_md4(),NULL);
1116                         d=Time_F(STOP);
1117                         print_result(D_MD4,j,count,d);
1118                         }
1119                 }
1120 #endif
1121
1122 #ifndef OPENSSL_NO_MD5
1123         if (doit[D_MD5])
1124                 {
1125                 for (j=0; j<SIZE_NUM; j++)
1126                         {
1127                         print_message(names[D_MD5],c[D_MD5][j],lengths[j]);
1128                         Time_F(START);
1129                         for (count=0,run=1; COND(c[D_MD5][j]); count++)
1130                                 EVP_Digest(&(buf[0]),(unsigned long)lengths[j],&(md5[0]),NULL,EVP_get_digestbyname("md5"),NULL);
1131                         d=Time_F(STOP);
1132                         print_result(D_MD5,j,count,d);
1133                         }
1134                 }
1135 #endif
1136
1137 #if !defined(OPENSSL_NO_MD5) && !defined(OPENSSL_NO_HMAC)
1138         if (doit[D_HMAC])
1139                 {
1140                 HMAC_CTX hctx;
1141
1142                 HMAC_CTX_init(&hctx);
1143                 HMAC_Init_ex(&hctx,(unsigned char *)"This is a key...",
1144                         16,EVP_md5(), NULL);
1145
1146                 for (j=0; j<SIZE_NUM; j++)
1147                         {
1148                         print_message(names[D_HMAC],c[D_HMAC][j],lengths[j]);
1149                         Time_F(START);
1150                         for (count=0,run=1; COND(c[D_HMAC][j]); count++)
1151                                 {
1152                                 HMAC_Init_ex(&hctx,NULL,0,NULL,NULL);
1153                                 HMAC_Update(&hctx,buf,lengths[j]);
1154                                 HMAC_Final(&hctx,&(hmac[0]),NULL);
1155                                 }
1156                         d=Time_F(STOP);
1157                         print_result(D_HMAC,j,count,d);
1158                         }
1159                 HMAC_CTX_cleanup(&hctx);
1160                 }
1161 #endif
1162 #ifndef OPENSSL_NO_SHA
1163         if (doit[D_SHA1])
1164                 {
1165                 for (j=0; j<SIZE_NUM; j++)
1166                         {
1167                         print_message(names[D_SHA1],c[D_SHA1][j],lengths[j]);
1168                         Time_F(START);
1169                         for (count=0,run=1; COND(c[D_SHA1][j]); count++)
1170                                 EVP_Digest(buf,(unsigned long)lengths[j],&(sha[0]),NULL,EVP_sha1(),NULL);
1171                         d=Time_F(STOP);
1172                         print_result(D_SHA1,j,count,d);
1173                         }
1174                 }
1175 #endif
1176 #ifndef OPENSSL_NO_RIPEMD
1177         if (doit[D_RMD160])
1178                 {
1179                 for (j=0; j<SIZE_NUM; j++)
1180                         {
1181                         print_message(names[D_RMD160],c[D_RMD160][j],lengths[j]);
1182                         Time_F(START);
1183                         for (count=0,run=1; COND(c[D_RMD160][j]); count++)
1184                                 EVP_Digest(buf,(unsigned long)lengths[j],&(rmd160[0]),NULL,EVP_ripemd160(),NULL);
1185                         d=Time_F(STOP);
1186                         print_result(D_RMD160,j,count,d);
1187                         }
1188                 }
1189 #endif
1190 #ifndef OPENSSL_NO_RC4
1191         if (doit[D_RC4])
1192                 {
1193                 for (j=0; j<SIZE_NUM; j++)
1194                         {
1195                         print_message(names[D_RC4],c[D_RC4][j],lengths[j]);
1196                         Time_F(START);
1197                         for (count=0,run=1; COND(c[D_RC4][j]); count++)
1198                                 RC4(&rc4_ks,(unsigned int)lengths[j],
1199                                         buf,buf);
1200                         d=Time_F(STOP);
1201                         print_result(D_RC4,j,count,d);
1202                         }
1203                 }
1204 #endif
1205 #ifndef OPENSSL_NO_DES
1206         if (doit[D_CBC_DES])
1207                 {
1208                 for (j=0; j<SIZE_NUM; j++)
1209                         {
1210                         print_message(names[D_CBC_DES],c[D_CBC_DES][j],lengths[j]);
1211                         Time_F(START);
1212                         for (count=0,run=1; COND(c[D_CBC_DES][j]); count++)
1213                                 DES_ncbc_encrypt(buf,buf,lengths[j],&sch,
1214                                                  &DES_iv,DES_ENCRYPT);
1215                         d=Time_F(STOP);
1216                         print_result(D_CBC_DES,j,count,d);
1217                         }
1218                 }
1219
1220         if (doit[D_EDE3_DES])
1221                 {
1222                 for (j=0; j<SIZE_NUM; j++)
1223                         {
1224                         print_message(names[D_EDE3_DES],c[D_EDE3_DES][j],lengths[j]);
1225                         Time_F(START);
1226                         for (count=0,run=1; COND(c[D_EDE3_DES][j]); count++)
1227                                 DES_ede3_cbc_encrypt(buf,buf,lengths[j],
1228                                                      &sch,&sch2,&sch3,
1229                                                      &DES_iv,DES_ENCRYPT);
1230                         d=Time_F(STOP);
1231                         print_result(D_EDE3_DES,j,count,d);
1232                         }
1233                 }
1234 #endif
1235 #ifndef OPENSSL_NO_AES
1236         if (doit[D_CBC_128_AES])
1237                 {
1238                 for (j=0; j<SIZE_NUM; j++)
1239                         {
1240                         print_message(names[D_CBC_128_AES],c[D_CBC_128_AES][j],lengths[j]);
1241                         Time_F(START);
1242                         for (count=0,run=1; COND(c[D_CBC_128_AES][j]); count++)
1243                                 AES_cbc_encrypt(buf,buf,
1244                                         (unsigned long)lengths[j],&aes_ks1,
1245                                         iv,AES_ENCRYPT);
1246                         d=Time_F(STOP);
1247                         print_result(D_CBC_128_AES,j,count,d);
1248                         }
1249                 }
1250         if (doit[D_CBC_192_AES])
1251                 {
1252                 for (j=0; j<SIZE_NUM; j++)
1253                         {
1254                         print_message(names[D_CBC_192_AES],c[D_CBC_192_AES][j],lengths[j]);
1255                         Time_F(START);
1256                         for (count=0,run=1; COND(c[D_CBC_192_AES][j]); count++)
1257                                 AES_cbc_encrypt(buf,buf,
1258                                         (unsigned long)lengths[j],&aes_ks2,
1259                                         iv,AES_ENCRYPT);
1260                         d=Time_F(STOP);
1261                         print_result(D_CBC_192_AES,j,count,d);
1262                         }
1263                 }
1264         if (doit[D_CBC_256_AES])
1265                 {
1266                 for (j=0; j<SIZE_NUM; j++)
1267                         {
1268                         print_message(names[D_CBC_256_AES],c[D_CBC_256_AES][j],lengths[j]);
1269                         Time_F(START);
1270                         for (count=0,run=1; COND(c[D_CBC_256_AES][j]); count++)
1271                                 AES_cbc_encrypt(buf,buf,
1272                                         (unsigned long)lengths[j],&aes_ks3,
1273                                         iv,AES_ENCRYPT);
1274                         d=Time_F(STOP);
1275                         print_result(D_CBC_256_AES,j,count,d);
1276                         }
1277                 }
1278
1279 #endif
1280 #ifndef OPENSSL_NO_IDEA
1281         if (doit[D_CBC_IDEA])
1282                 {
1283                 for (j=0; j<SIZE_NUM; j++)
1284                         {
1285                         print_message(names[D_CBC_IDEA],c[D_CBC_IDEA][j],lengths[j]);
1286                         Time_F(START);
1287                         for (count=0,run=1; COND(c[D_CBC_IDEA][j]); count++)
1288                                 idea_cbc_encrypt(buf,buf,
1289                                         (unsigned long)lengths[j],&idea_ks,
1290                                         iv,IDEA_ENCRYPT);
1291                         d=Time_F(STOP);
1292                         print_result(D_CBC_IDEA,j,count,d);
1293                         }
1294                 }
1295 #endif
1296 #ifndef OPENSSL_NO_RC2
1297         if (doit[D_CBC_RC2])
1298                 {
1299                 for (j=0; j<SIZE_NUM; j++)
1300                         {
1301                         print_message(names[D_CBC_RC2],c[D_CBC_RC2][j],lengths[j]);
1302                         Time_F(START);
1303                         for (count=0,run=1; COND(c[D_CBC_RC2][j]); count++)
1304                                 RC2_cbc_encrypt(buf,buf,
1305                                         (unsigned long)lengths[j],&rc2_ks,
1306                                         iv,RC2_ENCRYPT);
1307                         d=Time_F(STOP);
1308                         print_result(D_CBC_RC2,j,count,d);
1309                         }
1310                 }
1311 #endif
1312 #ifndef OPENSSL_NO_RC5
1313         if (doit[D_CBC_RC5])
1314                 {
1315                 for (j=0; j<SIZE_NUM; j++)
1316                         {
1317                         print_message(names[D_CBC_RC5],c[D_CBC_RC5][j],lengths[j]);
1318                         Time_F(START);
1319                         for (count=0,run=1; COND(c[D_CBC_RC5][j]); count++)
1320                                 RC5_32_cbc_encrypt(buf,buf,
1321                                         (unsigned long)lengths[j],&rc5_ks,
1322                                         iv,RC5_ENCRYPT);
1323                         d=Time_F(STOP);
1324                         print_result(D_CBC_RC5,j,count,d);
1325                         }
1326                 }
1327 #endif
1328 #ifndef OPENSSL_NO_BF
1329         if (doit[D_CBC_BF])
1330                 {
1331                 for (j=0; j<SIZE_NUM; j++)
1332                         {
1333                         print_message(names[D_CBC_BF],c[D_CBC_BF][j],lengths[j]);
1334                         Time_F(START);
1335                         for (count=0,run=1; COND(c[D_CBC_BF][j]); count++)
1336                                 BF_cbc_encrypt(buf,buf,
1337                                         (unsigned long)lengths[j],&bf_ks,
1338                                         iv,BF_ENCRYPT);
1339                         d=Time_F(STOP);
1340                         print_result(D_CBC_BF,j,count,d);
1341                         }
1342                 }
1343 #endif
1344 #ifndef OPENSSL_NO_CAST
1345         if (doit[D_CBC_CAST])
1346                 {
1347                 for (j=0; j<SIZE_NUM; j++)
1348                         {
1349                         print_message(names[D_CBC_CAST],c[D_CBC_CAST][j],lengths[j]);
1350                         Time_F(START);
1351                         for (count=0,run=1; COND(c[D_CBC_CAST][j]); count++)
1352                                 CAST_cbc_encrypt(buf,buf,
1353                                         (unsigned long)lengths[j],&cast_ks,
1354                                         iv,CAST_ENCRYPT);
1355                         d=Time_F(STOP);
1356                         print_result(D_CBC_CAST,j,count,d);
1357                         }
1358                 }
1359 #endif
1360
1361         if (doit[D_EVP])
1362                 {
1363                 for (j=0; j<SIZE_NUM; j++)
1364                         {
1365                         if (evp_cipher)
1366                                 {
1367                                 EVP_CIPHER_CTX ctx;
1368                                 int outl;
1369
1370                                 names[D_EVP]=OBJ_nid2ln(evp_cipher->nid);
1371                                 /* -O3 -fschedule-insns messes up an
1372                                  * optimization here!  names[D_EVP]
1373                                  * somehow becomes NULL */
1374                                 print_message(names[D_EVP],save_count,
1375                                         lengths[j]);
1376
1377                                 EVP_CIPHER_CTX_init(&ctx);
1378                                 if(decrypt)
1379                                         EVP_DecryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
1380                                 else
1381                                         EVP_EncryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
1382
1383                                 Time_F(START);
1384                                 if(decrypt)
1385                                         for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1386                                                 EVP_DecryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
1387                                 else
1388                                         for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1389                                                 EVP_EncryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
1390                                 if(decrypt)
1391                                         EVP_DecryptFinal_ex(&ctx,buf,&outl);
1392                                 else
1393                                         EVP_EncryptFinal_ex(&ctx,buf,&outl);
1394                                 d=Time_F(STOP);
1395                                 }
1396                         if (evp_md)
1397                                 {
1398                                 names[D_EVP]=OBJ_nid2ln(evp_md->type);
1399                                 print_message(names[D_EVP],save_count,
1400                                         lengths[j]);
1401
1402                                 Time_F(START);
1403                                 for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1404                                         EVP_Digest(buf,lengths[j],&(md[0]),NULL,evp_md,NULL);
1405
1406                                 d=Time_F(STOP);
1407                                 }
1408                         print_result(D_EVP,j,count,d);
1409                         }
1410                 }
1411
1412         RAND_pseudo_bytes(buf,36);
1413 #ifndef OPENSSL_NO_RSA
1414         for (j=0; j<RSA_NUM; j++)
1415                 {
1416                 int ret;
1417                 if (!rsa_doit[j]) continue;
1418                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2, &rsa_num, rsa_key[j]);
1419                 if (ret == 0)
1420                         {
1421                         BIO_printf(bio_err,"RSA sign failure.  No RSA sign will be done.\n");
1422                         ERR_print_errors(bio_err);
1423                         rsa_count=1;
1424                         }
1425                 else
1426                         {
1427                         pkey_print_message("private","rsa",
1428                                 rsa_c[j][0],rsa_bits[j],
1429                                 RSA_SECONDS);
1430 /*                      RSA_blinding_on(rsa_key[j],NULL); */
1431                         Time_F(START);
1432                         for (count=0,run=1; COND(rsa_c[j][0]); count++)
1433                                 {
1434                                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2,
1435                                         &rsa_num, rsa_key[j]);
1436                                 if (ret == 0)
1437                                         {
1438                                         BIO_printf(bio_err,
1439                                                 "RSA sign failure\n");
1440                                         ERR_print_errors(bio_err);
1441                                         count=1;
1442                                         break;
1443                                         }
1444                                 }
1445                         d=Time_F(STOP);
1446                         BIO_printf(bio_err,mr ? "+R1:%ld:%d:%.2f\n"
1447                                    : "%ld %d bit private RSA's in %.2fs\n",
1448                                    count,rsa_bits[j],d);
1449                         rsa_results[j][0]=d/(double)count;
1450                         rsa_count=count;
1451                         }
1452
1453 #if 1
1454                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2, rsa_num, rsa_key[j]);
1455                 if (ret <= 0)
1456                         {
1457                         BIO_printf(bio_err,"RSA verify failure.  No RSA verify will be done.\n");
1458                         ERR_print_errors(bio_err);
1459                         rsa_doit[j] = 0;
1460                         }
1461                 else
1462                         {
1463                         pkey_print_message("public","rsa",
1464                                 rsa_c[j][1],rsa_bits[j],
1465                                 RSA_SECONDS);
1466                         Time_F(START);
1467                         for (count=0,run=1; COND(rsa_c[j][1]); count++)
1468                                 {
1469                                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2,
1470                                         rsa_num, rsa_key[j]);
1471                                 if (ret == 0)
1472                                         {
1473                                         BIO_printf(bio_err,
1474                                                 "RSA verify failure\n");
1475                                         ERR_print_errors(bio_err);
1476                                         count=1;
1477                                         break;
1478                                         }
1479                                 }
1480                         d=Time_F(STOP);
1481                         BIO_printf(bio_err,mr ? "+R2:%ld:%d:%.2f\n"
1482                                    : "%ld %d bit public RSA's in %.2fs\n",
1483                                    count,rsa_bits[j],d);
1484                         rsa_results[j][1]=d/(double)count;
1485                         }
1486 #endif
1487
1488                 if (rsa_count <= 1)
1489                         {
1490                         /* if longer than 10s, don't do any more */
1491                         for (j++; j<RSA_NUM; j++)
1492                                 rsa_doit[j]=0;
1493                         }
1494                 }
1495 #endif
1496
1497         RAND_pseudo_bytes(buf,20);
1498 #ifndef OPENSSL_NO_DSA
1499         if (RAND_status() != 1)
1500                 {
1501                 RAND_seed(rnd_seed, sizeof rnd_seed);
1502                 rnd_fake = 1;
1503                 }
1504         for (j=0; j<DSA_NUM; j++)
1505                 {
1506                 unsigned int kk;
1507                 int ret;
1508
1509                 if (!dsa_doit[j]) continue;
1510 /*              DSA_generate_key(dsa_key[j]); */
1511 /*              DSA_sign_setup(dsa_key[j],NULL); */
1512                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1513                         &kk,dsa_key[j]);
1514                 if (ret == 0)
1515                         {
1516                         BIO_printf(bio_err,"DSA sign failure.  No DSA sign will be done.\n");
1517                         ERR_print_errors(bio_err);
1518                         rsa_count=1;
1519                         }
1520                 else
1521                         {
1522                         pkey_print_message("sign","dsa",
1523                                 dsa_c[j][0],dsa_bits[j],
1524                                 DSA_SECONDS);
1525                         Time_F(START);
1526                         for (count=0,run=1; COND(dsa_c[j][0]); count++)
1527                                 {
1528                                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1529                                         &kk,dsa_key[j]);
1530                                 if (ret == 0)
1531                                         {
1532                                         BIO_printf(bio_err,
1533                                                 "DSA sign failure\n");
1534                                         ERR_print_errors(bio_err);
1535                                         count=1;
1536                                         break;
1537                                         }
1538                                 }
1539                         d=Time_F(STOP);
1540                         BIO_printf(bio_err,mr ? "+R3:%ld:%d:%.2f\n"
1541                                    : "%ld %d bit DSA signs in %.2fs\n",
1542                                    count,dsa_bits[j],d);
1543                         dsa_results[j][0]=d/(double)count;
1544                         rsa_count=count;
1545                         }
1546
1547                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1548                         kk,dsa_key[j]);
1549                 if (ret <= 0)
1550                         {
1551                         BIO_printf(bio_err,"DSA verify failure.  No DSA verify will be done.\n");
1552                         ERR_print_errors(bio_err);
1553                         dsa_doit[j] = 0;
1554                         }
1555                 else
1556                         {
1557                         pkey_print_message("verify","dsa",
1558                                 dsa_c[j][1],dsa_bits[j],
1559                                 DSA_SECONDS);
1560                         Time_F(START);
1561                         for (count=0,run=1; COND(dsa_c[j][1]); count++)
1562                                 {
1563                                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1564                                         kk,dsa_key[j]);
1565                                 if (ret <= 0)
1566                                         {
1567                                         BIO_printf(bio_err,
1568                                                 "DSA verify failure\n");
1569                                         ERR_print_errors(bio_err);
1570                                         count=1;
1571                                         break;
1572                                         }
1573                                 }
1574                         d=Time_F(STOP);
1575                         BIO_printf(bio_err,mr ? "+R4:%ld:%d:%.2f\n"
1576                                    : "%ld %d bit DSA verify in %.2fs\n",
1577                                    count,dsa_bits[j],d);
1578                         dsa_results[j][1]=d/(double)count;
1579                         }
1580
1581                 if (rsa_count <= 1)
1582                         {
1583                         /* if longer than 10s, don't do any more */
1584                         for (j++; j<DSA_NUM; j++)
1585                                 dsa_doit[j]=0;
1586                         }
1587                 }
1588         if (rnd_fake) RAND_cleanup();
1589 #endif
1590 #ifdef HAVE_FORK
1591 show_res:
1592 #endif
1593         if(!mr)
1594                 {
1595                 fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_VERSION));
1596         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_BUILT_ON));
1597                 printf("options:");
1598                 printf("%s ",BN_options());
1599 #ifndef OPENSSL_NO_MD2
1600                 printf("%s ",MD2_options());
1601 #endif
1602 #ifndef OPENSSL_NO_RC4
1603                 printf("%s ",RC4_options());
1604 #endif
1605 #ifndef OPENSSL_NO_DES
1606                 printf("%s ",des_options());
1607 #endif
1608 #ifndef OPENSSL_NO_AES
1609                 printf("%s ",AES_options());
1610 #endif
1611 #ifndef OPENSSL_NO_IDEA
1612                 printf("%s ",idea_options());
1613 #endif
1614 #ifndef OPENSSL_NO_BF
1615                 printf("%s ",BF_options());
1616 #endif
1617                 fprintf(stdout,"\n%s\n",SSLeay_version(SSLEAY_CFLAGS));
1618                 printf("available timing options: ");
1619 #ifdef TIMES
1620                 printf("TIMES ");
1621 #endif
1622 #ifdef TIMEB
1623                 printf("TIMEB ");
1624 #endif
1625 #ifdef USE_TOD
1626                 printf("USE_TOD ");
1627 #endif
1628 #ifdef HZ
1629 #define as_string(s) (#s)
1630                 printf("HZ=%g", (double)HZ);
1631 # ifdef _SC_CLK_TCK
1632                 printf(" [sysconf value]");
1633 # endif
1634 #endif
1635                 printf("\n");
1636                 printf("timing function used: %s%s%s%s%s%s%s\n",
1637                        (ftime_used ? "ftime" : ""),
1638                        (ftime_used + times_used > 1 ? "," : ""),
1639                        (times_used ? "times" : ""),
1640                        (ftime_used + times_used + gettimeofday_used > 1 ? "," : ""),
1641                        (gettimeofday_used ? "gettimeofday" : ""),
1642                        (ftime_used + times_used + gettimeofday_used + getrusage_used > 1 ? "," : ""),
1643                        (getrusage_used ? "getrusage" : ""));
1644                 }
1645
1646         if (pr_header)
1647                 {
1648                 if(mr)
1649                         fprintf(stdout,"+H");
1650                 else
1651                         {
1652                         fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n"); 
1653                         fprintf(stdout,"type        ");
1654                         }
1655                 for (j=0;  j<SIZE_NUM; j++)
1656                         fprintf(stdout,mr ? ":%d" : "%7d bytes",lengths[j]);
1657                 fprintf(stdout,"\n");
1658                 }
1659
1660         for (k=0; k<ALGOR_NUM; k++)
1661                 {
1662                 if (!doit[k]) continue;
1663                 if(mr)
1664                         fprintf(stdout,"+F:%d:%s",k,names[k]);
1665                 else
1666                         fprintf(stdout,"%-13s",names[k]);
1667                 for (j=0; j<SIZE_NUM; j++)
1668                         {
1669                         if (results[k][j] > 10000 && !mr)
1670                                 fprintf(stdout," %11.2fk",results[k][j]/1e3);
1671                         else
1672                                 fprintf(stdout,mr ? ":%.2f" : " %11.2f ",results[k][j]);
1673                         }
1674                 fprintf(stdout,"\n");
1675                 }
1676 #ifndef OPENSSL_NO_RSA
1677         j=1;
1678         for (k=0; k<RSA_NUM; k++)
1679                 {
1680                 if (!rsa_doit[k]) continue;
1681                 if (j && !mr)
1682                         {
1683                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1684                         j=0;
1685                         }
1686                 if(mr)
1687                         fprintf(stdout,"+F2:%u:%u:%f:%f\n",
1688                                 k,rsa_bits[k],rsa_results[k][0],
1689                                 rsa_results[k][1]);
1690                 else
1691                         fprintf(stdout,"rsa %4u bits %8.4fs %8.4fs %8.1f %8.1f\n",
1692                                 rsa_bits[k],rsa_results[k][0],rsa_results[k][1],
1693                                 1.0/rsa_results[k][0],1.0/rsa_results[k][1]);
1694                 }
1695 #endif
1696 #ifndef OPENSSL_NO_DSA
1697         j=1;
1698         for (k=0; k<DSA_NUM; k++)
1699                 {
1700                 if (!dsa_doit[k]) continue;
1701                 if (j && !mr)
1702                         {
1703                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1704                         j=0;
1705                         }
1706                 if(mr)
1707                         fprintf(stdout,"+F3:%u:%u:%f:%f\n",
1708                                 k,dsa_bits[k],dsa_results[k][0],dsa_results[k][1]);
1709                 else
1710                         fprintf(stdout,"dsa %4u bits %8.4fs %8.4fs %8.1f %8.1f\n",
1711                                 dsa_bits[k],dsa_results[k][0],dsa_results[k][1],
1712                                 1.0/dsa_results[k][0],1.0/dsa_results[k][1]);
1713                 }
1714 #endif
1715         mret=0;
1716 end:
1717         ERR_print_errors(bio_err);
1718         if (buf != NULL) OPENSSL_free(buf);
1719         if (buf2 != NULL) OPENSSL_free(buf2);
1720 #ifndef OPENSSL_NO_RSA
1721         for (i=0; i<RSA_NUM; i++)
1722                 if (rsa_key[i] != NULL)
1723                         RSA_free(rsa_key[i]);
1724 #endif
1725 #ifndef OPENSSL_NO_DSA
1726         for (i=0; i<DSA_NUM; i++)
1727                 if (dsa_key[i] != NULL)
1728                         DSA_free(dsa_key[i]);
1729 #endif
1730         apps_shutdown();
1731         EXIT(mret);
1732         }
1733
1734 static void print_message(const char *s, long num, int length)
1735         {
1736 #ifdef SIGALRM
1737         BIO_printf(bio_err,mr ? "+DT:%s:%d:%d\n"
1738                    : "Doing %s for %ds on %d size blocks: ",s,SECONDS,length);
1739         (void)BIO_flush(bio_err);
1740         alarm(SECONDS);
1741 #else
1742         BIO_printf(bio_err,mr ? "+DN:%s:%ld:%d\n"
1743                    : "Doing %s %ld times on %d size blocks: ",s,num,length);
1744         (void)BIO_flush(bio_err);
1745 #endif
1746 #ifdef LINT
1747         num=num;
1748 #endif
1749         }
1750
1751 static void pkey_print_message(char *str, char *str2, long num, int bits,
1752              int tm)
1753         {
1754 #ifdef SIGALRM
1755         BIO_printf(bio_err,mr ? "+DTP:%d:%s:%s:%d\n"
1756                            : "Doing %d bit %s %s's for %ds: ",bits,str,str2,tm);
1757         (void)BIO_flush(bio_err);
1758         alarm(RSA_SECONDS);
1759 #else
1760         BIO_printf(bio_err,mr ? "+DNP:%ld:%d:%s:%s\n"
1761                            : "Doing %ld %d bit %s %s's: ",num,bits,str,str2);
1762         (void)BIO_flush(bio_err);
1763 #endif
1764 #ifdef LINT
1765         num=num;
1766 #endif
1767         }
1768
1769 static void print_result(int alg,int run_no,int count,double time_used)
1770         {
1771         BIO_printf(bio_err,mr ? "+R:%ld:%s:%f\n"
1772                    : "%ld %s's in %.2fs\n",count,names[alg],time_used);
1773         results[alg][run_no]=((double)count)/time_used*lengths[run_no];
1774         }
1775
1776 static char *sstrsep(char **string, const char *delim)
1777     {
1778     char isdelim[256];
1779     char *token = *string;
1780
1781     if (**string == 0)
1782         return NULL;
1783
1784     memset(isdelim, 0, 256);
1785     isdelim[0] = 1;
1786
1787     while (*delim)
1788         {
1789         isdelim[(unsigned char)(*delim)] = 1;
1790         delim++;
1791         }
1792
1793     while (!isdelim[(unsigned char)(**string)])
1794         {
1795         (*string)++;
1796         }
1797
1798     if (**string)
1799         {
1800         **string = 0;
1801         (*string)++;
1802         }
1803
1804     return token;
1805     }
1806
1807 #ifdef HAVE_FORK
1808 static int do_multi(int multi)
1809         {
1810         int n;
1811         int fd[2];
1812         int *fds;
1813         static char sep[]=":";
1814
1815         fds=malloc(multi*sizeof *fds);
1816         for(n=0 ; n < multi ; ++n)
1817                 {
1818                 pipe(fd);
1819                 if(fork())
1820                         {
1821                         close(fd[1]);
1822                         fds[n]=fd[0];
1823                         }
1824                 else
1825                         {
1826                         close(fd[0]);
1827                         close(1);
1828                         dup(fd[1]);
1829                         close(fd[1]);
1830                         mr=1;
1831                         usertime=0;
1832                         return 0;
1833                         }
1834                 printf("Forked child %d\n",n);
1835                 }
1836
1837         /* for now, assume the pipe is long enough to take all the output */
1838         for(n=0 ; n < multi ; ++n)
1839                 {
1840                 FILE *f;
1841                 char buf[1024];
1842                 char *p;
1843
1844                 f=fdopen(fds[n],"r");
1845                 while(fgets(buf,sizeof buf,f))
1846                         {
1847                         p=strchr(buf,'\n');
1848                         if(p)
1849                                 *p='\0';
1850                         if(buf[0] != '+')
1851                                 {
1852                                 fprintf(stderr,"Don't understand line '%s' from child %d\n",
1853                                                 buf,n);
1854                                 continue;
1855                                 }
1856                         printf("Got: %s from %d\n",buf,n);
1857                         if(!strncmp(buf,"+F:",3))
1858                                 {
1859                                 int alg;
1860                                 int j;
1861
1862                                 p=buf+3;
1863                                 alg=atoi(sstrsep(&p,sep));
1864                                 sstrsep(&p,sep);
1865                                 for(j=0 ; j < SIZE_NUM ; ++j)
1866                                         results[alg][j]+=atof(sstrsep(&p,sep));
1867                                 }
1868                         else if(!strncmp(buf,"+F2:",4))
1869                                 {
1870                                 int k;
1871                                 double d;
1872                                 
1873                                 p=buf+4;
1874                                 k=atoi(sstrsep(&p,sep));
1875                                 sstrsep(&p,sep);
1876
1877                                 d=atof(sstrsep(&p,sep));
1878                                 if(n)
1879                                         rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
1880                                 else
1881                                         rsa_results[k][0]=d;
1882
1883                                 d=atof(sstrsep(&p,sep));
1884                                 if(n)
1885                                         rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
1886                                 else
1887                                         rsa_results[k][1]=d;
1888                                 }
1889                         else if(!strncmp(buf,"+F2:",4))
1890                                 {
1891                                 int k;
1892                                 double d;
1893                                 
1894                                 p=buf+4;
1895                                 k=atoi(sstrsep(&p,sep));
1896                                 sstrsep(&p,sep);
1897
1898                                 d=atof(sstrsep(&p,sep));
1899                                 if(n)
1900                                         rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
1901                                 else
1902                                         rsa_results[k][0]=d;
1903
1904                                 d=atof(sstrsep(&p,sep));
1905                                 if(n)
1906                                         rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
1907                                 else
1908                                         rsa_results[k][1]=d;
1909                                 }
1910                         else if(!strncmp(buf,"+F3:",4))
1911                                 {
1912                                 int k;
1913                                 double d;
1914                                 
1915                                 p=buf+4;
1916                                 k=atoi(sstrsep(&p,sep));
1917                                 sstrsep(&p,sep);
1918
1919                                 d=atof(sstrsep(&p,sep));
1920                                 if(n)
1921                                         dsa_results[k][0]=1/(1/dsa_results[k][0]+1/d);
1922                                 else
1923                                         dsa_results[k][0]=d;
1924
1925                                 d=atof(sstrsep(&p,sep));
1926                                 if(n)
1927                                         dsa_results[k][1]=1/(1/dsa_results[k][1]+1/d);
1928                                 else
1929                                         dsa_results[k][1]=d;
1930                                 }
1931                         else if(!strncmp(buf,"+H:",3))
1932                                 {
1933                                 }
1934                         else
1935                                 fprintf(stderr,"Unknown type '%s' from child %d\n",buf,n);
1936                         }
1937                 }
1938         return 1;
1939         }
1940 #endif