Initial experimental TLSv1.1 support
[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  * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
60  *
61  * Portions of the attached software ("Contribution") are developed by 
62  * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project.
63  *
64  * The Contribution is licensed pursuant to the OpenSSL open source
65  * license provided above.
66  *
67  * The ECDH and ECDSA speed test software is originally written by 
68  * Sumit Gupta of Sun Microsystems Laboratories.
69  *
70  */
71
72 /* most of this code has been pilfered from my libdes speed.c program */
73
74 #ifndef OPENSSL_NO_SPEED
75
76 #undef SECONDS
77 #define SECONDS         3       
78 #define RSA_SECONDS     10
79 #define DSA_SECONDS     10
80 #define ECDSA_SECONDS   10
81 #define ECDH_SECONDS    10
82
83 /* 11-Sep-92 Andrew Daviel   Support for Silicon Graphics IRIX added */
84 /* 06-Apr-92 Luke Brennan    Support for VMS and add extra signal calls */
85
86 #undef PROG
87 #define PROG speed_main
88
89 #include <stdio.h>
90 #include <stdlib.h>
91
92 #include <string.h>
93 #include <math.h>
94 #include "apps.h"
95 #ifdef OPENSSL_NO_STDIO
96 #define APPS_WIN16
97 #endif
98 #include <openssl/crypto.h>
99 #include <openssl/rand.h>
100 #include <openssl/err.h>
101 #include <openssl/evp.h>
102 #include <openssl/objects.h>
103 #if !defined(OPENSSL_SYS_MSDOS)
104 #include OPENSSL_UNISTD
105 #endif
106
107 #ifndef OPENSSL_SYS_NETWARE
108 #include <signal.h>
109 #endif
110
111 #ifdef _WIN32
112 #include <windows.h>
113 #endif
114
115 #include <openssl/bn.h>
116 #ifndef OPENSSL_NO_DES
117 #include <openssl/des.h>
118 #endif
119 #ifndef OPENSSL_NO_AES
120 #include <openssl/aes.h>
121 #endif
122 #ifndef OPENSSL_NO_CAMELLIA
123 #include <openssl/camellia.h>
124 #endif
125 #ifndef OPENSSL_NO_MD2
126 #include <openssl/md2.h>
127 #endif
128 #ifndef OPENSSL_NO_MDC2
129 #include <openssl/mdc2.h>
130 #endif
131 #ifndef OPENSSL_NO_MD4
132 #include <openssl/md4.h>
133 #endif
134 #ifndef OPENSSL_NO_MD5
135 #include <openssl/md5.h>
136 #endif
137 #ifndef OPENSSL_NO_HMAC
138 #include <openssl/hmac.h>
139 #endif
140 #include <openssl/evp.h>
141 #ifndef OPENSSL_NO_SHA
142 #include <openssl/sha.h>
143 #endif
144 #ifndef OPENSSL_NO_RIPEMD
145 #include <openssl/ripemd.h>
146 #endif
147 #ifndef OPENSSL_NO_WHIRLPOOL
148 #include <openssl/whrlpool.h>
149 #endif
150 #ifndef OPENSSL_NO_RC4
151 #include <openssl/rc4.h>
152 #endif
153 #ifndef OPENSSL_NO_RC5
154 #include <openssl/rc5.h>
155 #endif
156 #ifndef OPENSSL_NO_RC2
157 #include <openssl/rc2.h>
158 #endif
159 #ifndef OPENSSL_NO_IDEA
160 #include <openssl/idea.h>
161 #endif
162 #ifndef OPENSSL_NO_SEED
163 #include <openssl/seed.h>
164 #endif
165 #ifndef OPENSSL_NO_BF
166 #include <openssl/blowfish.h>
167 #endif
168 #ifndef OPENSSL_NO_CAST
169 #include <openssl/cast.h>
170 #endif
171 #ifndef OPENSSL_NO_RSA
172 #include <openssl/rsa.h>
173 #include "./testrsa.h"
174 #endif
175 #include <openssl/x509.h>
176 #ifndef OPENSSL_NO_DSA
177 #include <openssl/dsa.h>
178 #include "./testdsa.h"
179 #endif
180 #ifndef OPENSSL_NO_ECDSA
181 #include <openssl/ecdsa.h>
182 #endif
183 #ifndef OPENSSL_NO_ECDH
184 #include <openssl/ecdh.h>
185 #endif
186
187 #if defined(OPENSSL_SYS_VMS) || defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MACINTOSH_CLASSIC) || defined(OPENSSL_SYS_OS2) || defined(OPENSSL_SYS_NETWARE)
188 # define NO_FORK 1
189 #elif HAVE_FORK
190 # undef NO_FORK
191 #else
192 # define NO_FORK 1
193 #endif
194
195 #undef BUFSIZE
196 #define BUFSIZE ((long)1024*8+1)
197 int run=0;
198
199 static int mr=0;
200 static int usertime=1;
201
202 static double Time_F(int s);
203 static void print_message(const char *s,long num,int length);
204 static void pkey_print_message(const char *str, const char *str2,
205         long num, int bits, int sec);
206 static void print_result(int alg,int run_no,int count,double time_used);
207 #ifndef NO_FORK
208 static int do_multi(int multi);
209 #endif
210
211 #define ALGOR_NUM       29
212 #define SIZE_NUM        5
213 #define RSA_NUM         4
214 #define DSA_NUM         3
215
216 #define EC_NUM       16
217 #define MAX_ECDH_SIZE 256
218
219 static const char *names[ALGOR_NUM]={
220   "md2","mdc2","md4","md5","hmac(md5)","sha1","rmd160","rc4",
221   "des cbc","des ede3","idea cbc","seed cbc",
222   "rc2 cbc","rc5-32/12 cbc","blowfish cbc","cast cbc",
223   "aes-128 cbc","aes-192 cbc","aes-256 cbc",
224   "camellia-128 cbc","camellia-192 cbc","camellia-256 cbc",
225   "evp","sha256","sha512","whirlpool",
226   "aes-128 ige","aes-192 ige","aes-256 ige"};
227 static double results[ALGOR_NUM][SIZE_NUM];
228 static int lengths[SIZE_NUM]={16,64,256,1024,8*1024};
229 static double rsa_results[RSA_NUM][2];
230 static double dsa_results[DSA_NUM][2];
231 #ifndef OPENSSL_NO_ECDSA
232 static double ecdsa_results[EC_NUM][2];
233 #endif
234 #ifndef OPENSSL_NO_ECDH
235 static double ecdh_results[EC_NUM][1];
236 #endif
237
238 #if defined(OPENSSL_NO_DSA) && !(defined(OPENSSL_NO_ECDSA) && defined(OPENSSL_NO_ECDH))
239 static const char rnd_seed[] = "string to make the random number generator think it has entropy";
240 static int rnd_fake = 0;
241 #endif
242
243 #ifdef SIGALRM
244 #if defined(__STDC__) || defined(sgi) || defined(_AIX)
245 #define SIGRETTYPE void
246 #else
247 #define SIGRETTYPE int
248 #endif 
249
250 static SIGRETTYPE sig_done(int sig);
251 static SIGRETTYPE sig_done(int sig)
252         {
253         signal(SIGALRM,sig_done);
254         run=0;
255 #ifdef LINT
256         sig=sig;
257 #endif
258         }
259 #endif
260
261 #define START   0
262 #define STOP    1
263
264 #if defined(_WIN32)
265
266 #define SIGALRM
267 static unsigned int lapse,schlock;
268 static void alarm(unsigned int secs) { lapse = secs*1000; }
269
270 static DWORD WINAPI sleepy(VOID *arg)
271         {
272         schlock = 1;
273         Sleep(lapse);
274         run = 0;
275         return 0;
276         }
277
278 static double Time_F(int s)
279         {
280         if (s == START)
281                 {
282                 HANDLE  thr;
283                 schlock = 0;
284                 thr = CreateThread(NULL,4096,sleepy,NULL,0,NULL);
285                 if (thr==NULL)
286                         {
287                         DWORD ret=GetLastError();
288                         BIO_printf(bio_err,"unable to CreateThread (%d)",ret);
289                         ExitProcess(ret);
290                         }
291                 CloseHandle(thr);               /* detach the thread    */
292                 while (!schlock) Sleep(0);      /* scheduler spinlock   */
293                 }
294
295         return app_tminterval(s,usertime);
296         }
297 #else
298
299 static double Time_F(int s)
300         {
301         return app_tminterval(s,usertime);
302         }
303 #endif
304
305
306 #ifndef OPENSSL_NO_ECDH
307 static const int KDF1_SHA1_len = 20;
308 static void *KDF1_SHA1(const void *in, size_t inlen, void *out, size_t *outlen)
309         {
310 #ifndef OPENSSL_NO_SHA
311         if (*outlen < SHA_DIGEST_LENGTH)
312                 return NULL;
313         else
314                 *outlen = SHA_DIGEST_LENGTH;
315         return SHA1(in, inlen, out);
316 #else
317         return NULL;
318 #endif  /* OPENSSL_NO_SHA */
319         }
320 #endif  /* OPENSSL_NO_ECDH */
321
322
323 int MAIN(int, char **);
324
325 int MAIN(int argc, char **argv)
326         {
327 #ifndef OPENSSL_NO_ENGINE
328         ENGINE *e = NULL;
329 #endif
330         unsigned char *buf=NULL,*buf2=NULL;
331         int mret=1;
332         long count=0,save_count=0;
333         int i,j,k;
334 #if !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_DSA)
335         long rsa_count;
336 #endif
337 #ifndef OPENSSL_NO_RSA
338         unsigned rsa_num;
339 #endif
340         unsigned char md[EVP_MAX_MD_SIZE];
341 #ifndef OPENSSL_NO_MD2
342         unsigned char md2[MD2_DIGEST_LENGTH];
343 #endif
344 #ifndef OPENSSL_NO_MDC2
345         unsigned char mdc2[MDC2_DIGEST_LENGTH];
346 #endif
347 #ifndef OPENSSL_NO_MD4
348         unsigned char md4[MD4_DIGEST_LENGTH];
349 #endif
350 #ifndef OPENSSL_NO_MD5
351         unsigned char md5[MD5_DIGEST_LENGTH];
352         unsigned char hmac[MD5_DIGEST_LENGTH];
353 #endif
354 #ifndef OPENSSL_NO_SHA
355         unsigned char sha[SHA_DIGEST_LENGTH];
356 #ifndef OPENSSL_NO_SHA256
357         unsigned char sha256[SHA256_DIGEST_LENGTH];
358 #endif
359 #ifndef OPENSSL_NO_SHA512
360         unsigned char sha512[SHA512_DIGEST_LENGTH];
361 #endif
362 #endif
363 #ifndef OPENSSL_NO_WHIRLPOOL
364         unsigned char whirlpool[WHIRLPOOL_DIGEST_LENGTH];
365 #endif
366 #ifndef OPENSSL_NO_RIPEMD
367         unsigned char rmd160[RIPEMD160_DIGEST_LENGTH];
368 #endif
369 #ifndef OPENSSL_NO_RC4
370         RC4_KEY rc4_ks;
371 #endif
372 #ifndef OPENSSL_NO_RC5
373         RC5_32_KEY rc5_ks;
374 #endif
375 #ifndef OPENSSL_NO_RC2
376         RC2_KEY rc2_ks;
377 #endif
378 #ifndef OPENSSL_NO_IDEA
379         IDEA_KEY_SCHEDULE idea_ks;
380 #endif
381 #ifndef OPENSSL_NO_SEED
382         SEED_KEY_SCHEDULE seed_ks;
383 #endif
384 #ifndef OPENSSL_NO_BF
385         BF_KEY bf_ks;
386 #endif
387 #ifndef OPENSSL_NO_CAST
388         CAST_KEY cast_ks;
389 #endif
390         static const unsigned char key16[16]=
391                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
392                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
393 #ifndef OPENSSL_NO_AES
394         static const unsigned char key24[24]=
395                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
396                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
397                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
398         static const unsigned char key32[32]=
399                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
400                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
401                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,
402                  0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,0x56};
403 #endif
404 #ifndef OPENSSL_NO_CAMELLIA
405         static const unsigned char ckey24[24]=
406                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
407                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
408                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
409         static const unsigned char ckey32[32]=
410                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
411                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
412                  0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,
413                  0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,0x56};
414 #endif
415 #ifndef OPENSSL_NO_AES
416 #define MAX_BLOCK_SIZE 128
417 #else
418 #define MAX_BLOCK_SIZE 64
419 #endif
420         unsigned char DES_iv[8];
421         unsigned char iv[2*MAX_BLOCK_SIZE/8];
422 #ifndef OPENSSL_NO_DES
423         DES_cblock *buf_as_des_cblock = NULL;
424         static DES_cblock key ={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
425         static DES_cblock key2={0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
426         static DES_cblock key3={0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
427         DES_key_schedule sch;
428         DES_key_schedule sch2;
429         DES_key_schedule sch3;
430 #endif
431 #ifndef OPENSSL_NO_AES
432         AES_KEY aes_ks1, aes_ks2, aes_ks3;
433 #endif
434 #ifndef OPENSSL_NO_CAMELLIA
435         CAMELLIA_KEY camellia_ks1, camellia_ks2, camellia_ks3;
436 #endif
437 #define D_MD2           0
438 #define D_MDC2          1
439 #define D_MD4           2
440 #define D_MD5           3
441 #define D_HMAC          4
442 #define D_SHA1          5
443 #define D_RMD160        6
444 #define D_RC4           7
445 #define D_CBC_DES       8
446 #define D_EDE3_DES      9
447 #define D_CBC_IDEA      10
448 #define D_CBC_SEED      11
449 #define D_CBC_RC2       12
450 #define D_CBC_RC5       13
451 #define D_CBC_BF        14
452 #define D_CBC_CAST      15
453 #define D_CBC_128_AES   16
454 #define D_CBC_192_AES   17
455 #define D_CBC_256_AES   18
456 #define D_CBC_128_CML   19 
457 #define D_CBC_192_CML   20
458 #define D_CBC_256_CML   21 
459 #define D_EVP           22
460 #define D_SHA256        23      
461 #define D_SHA512        24
462 #define D_WHIRLPOOL     25
463 #define D_IGE_128_AES   26
464 #define D_IGE_192_AES   27
465 #define D_IGE_256_AES   28
466         double d=0.0;
467         long c[ALGOR_NUM][SIZE_NUM];
468 #define R_DSA_512       0
469 #define R_DSA_1024      1
470 #define R_DSA_2048      2
471 #define R_RSA_512       0
472 #define R_RSA_1024      1
473 #define R_RSA_2048      2
474 #define R_RSA_4096      3
475
476 #define R_EC_P160    0
477 #define R_EC_P192    1  
478 #define R_EC_P224    2
479 #define R_EC_P256    3
480 #define R_EC_P384    4
481 #define R_EC_P521    5
482 #define R_EC_K163    6
483 #define R_EC_K233    7
484 #define R_EC_K283    8
485 #define R_EC_K409    9
486 #define R_EC_K571    10
487 #define R_EC_B163    11
488 #define R_EC_B233    12
489 #define R_EC_B283    13
490 #define R_EC_B409    14
491 #define R_EC_B571    15
492
493 #ifndef OPENSSL_NO_RSA
494         RSA *rsa_key[RSA_NUM];
495         long rsa_c[RSA_NUM][2];
496         static unsigned int rsa_bits[RSA_NUM]={512,1024,2048,4096};
497         static unsigned char *rsa_data[RSA_NUM]=
498                 {test512,test1024,test2048,test4096};
499         static int rsa_data_length[RSA_NUM]={
500                 sizeof(test512),sizeof(test1024),
501                 sizeof(test2048),sizeof(test4096)};
502 #endif
503 #ifndef OPENSSL_NO_DSA
504         DSA *dsa_key[DSA_NUM];
505         long dsa_c[DSA_NUM][2];
506         static unsigned int dsa_bits[DSA_NUM]={512,1024,2048};
507 #endif
508 #ifndef OPENSSL_NO_EC
509         /* We only test over the following curves as they are representative, 
510          * To add tests over more curves, simply add the curve NID
511          * and curve name to the following arrays and increase the 
512          * EC_NUM value accordingly. 
513          */
514         static unsigned int test_curves[EC_NUM] = 
515         {       
516         /* Prime Curves */
517         NID_secp160r1,
518         NID_X9_62_prime192v1,
519         NID_secp224r1,
520         NID_X9_62_prime256v1,
521         NID_secp384r1,
522         NID_secp521r1,
523         /* Binary Curves */
524         NID_sect163k1,
525         NID_sect233k1,
526         NID_sect283k1,
527         NID_sect409k1,
528         NID_sect571k1,
529         NID_sect163r2,
530         NID_sect233r1,
531         NID_sect283r1,
532         NID_sect409r1,
533         NID_sect571r1
534         }; 
535         static const char * test_curves_names[EC_NUM] = 
536         {
537         /* Prime Curves */
538         "secp160r1",
539         "nistp192",
540         "nistp224",
541         "nistp256",
542         "nistp384",
543         "nistp521",
544         /* Binary Curves */
545         "nistk163",
546         "nistk233",
547         "nistk283",
548         "nistk409",
549         "nistk571",
550         "nistb163",
551         "nistb233",
552         "nistb283",
553         "nistb409",
554         "nistb571"
555         };
556         static int test_curves_bits[EC_NUM] =
557         {
558         160, 192, 224, 256, 384, 521,
559         163, 233, 283, 409, 571,
560         163, 233, 283, 409, 571
561         };
562
563 #endif
564
565 #ifndef OPENSSL_NO_ECDSA
566         unsigned char ecdsasig[256];
567         unsigned int ecdsasiglen;
568         EC_KEY *ecdsa[EC_NUM];
569         long ecdsa_c[EC_NUM][2];
570 #endif
571
572 #ifndef OPENSSL_NO_ECDH
573         EC_KEY *ecdh_a[EC_NUM], *ecdh_b[EC_NUM];
574         unsigned char secret_a[MAX_ECDH_SIZE], secret_b[MAX_ECDH_SIZE];
575         int secret_size_a, secret_size_b;
576         int ecdh_checks = 0;
577         int secret_idx = 0;
578         long ecdh_c[EC_NUM][2];
579 #endif
580
581         int rsa_doit[RSA_NUM];
582         int dsa_doit[DSA_NUM];
583 #ifndef OPENSSL_NO_ECDSA
584         int ecdsa_doit[EC_NUM];
585 #endif
586 #ifndef OPENSSL_NO_ECDH
587         int ecdh_doit[EC_NUM];
588 #endif
589         int doit[ALGOR_NUM];
590         int pr_header=0;
591         const EVP_CIPHER *evp_cipher=NULL;
592         const EVP_MD *evp_md=NULL;
593         int decrypt=0;
594 #ifndef NO_FORK
595         int multi=0;
596 #endif
597
598 #ifndef TIMES
599         usertime=-1;
600 #endif
601
602         apps_startup();
603         memset(results, 0, sizeof(results));
604 #ifndef OPENSSL_NO_DSA
605         memset(dsa_key,0,sizeof(dsa_key));
606 #endif
607 #ifndef OPENSSL_NO_ECDSA
608         for (i=0; i<EC_NUM; i++) ecdsa[i] = NULL;
609 #endif
610 #ifndef OPENSSL_NO_ECDH
611         for (i=0; i<EC_NUM; i++)
612                 {
613                 ecdh_a[i] = NULL;
614                 ecdh_b[i] = NULL;
615                 }
616 #endif
617
618
619         if (bio_err == NULL)
620                 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
621                         BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
622
623         if (!load_config(bio_err, NULL))
624                 goto end;
625
626 #ifndef OPENSSL_NO_RSA
627         memset(rsa_key,0,sizeof(rsa_key));
628         for (i=0; i<RSA_NUM; i++)
629                 rsa_key[i]=NULL;
630 #endif
631
632         if ((buf=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
633                 {
634                 BIO_printf(bio_err,"out of memory\n");
635                 goto end;
636                 }
637 #ifndef OPENSSL_NO_DES
638         buf_as_des_cblock = (DES_cblock *)buf;
639 #endif
640         if ((buf2=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
641                 {
642                 BIO_printf(bio_err,"out of memory\n");
643                 goto end;
644                 }
645
646         memset(c,0,sizeof(c));
647         memset(DES_iv,0,sizeof(DES_iv));
648         memset(iv,0,sizeof(iv));
649
650         for (i=0; i<ALGOR_NUM; i++)
651                 doit[i]=0;
652         for (i=0; i<RSA_NUM; i++)
653                 rsa_doit[i]=0;
654         for (i=0; i<DSA_NUM; i++)
655                 dsa_doit[i]=0;
656 #ifndef OPENSSL_NO_ECDSA
657         for (i=0; i<EC_NUM; i++)
658                 ecdsa_doit[i]=0;
659 #endif
660 #ifndef OPENSSL_NO_ECDH
661         for (i=0; i<EC_NUM; i++)
662                 ecdh_doit[i]=0;
663 #endif
664
665         
666         j=0;
667         argc--;
668         argv++;
669         while (argc)
670                 {
671                 if      ((argc > 0) && (strcmp(*argv,"-elapsed") == 0))
672                         {
673                         usertime = 0;
674                         j--;    /* Otherwise, -elapsed gets confused with
675                                    an algorithm. */
676                         }
677                 else if ((argc > 0) && (strcmp(*argv,"-evp") == 0))
678                         {
679                         argc--;
680                         argv++;
681                         if(argc == 0)
682                                 {
683                                 BIO_printf(bio_err,"no EVP given\n");
684                                 goto end;
685                                 }
686                         evp_cipher=EVP_get_cipherbyname(*argv);
687                         if(!evp_cipher)
688                                 {
689                                 evp_md=EVP_get_digestbyname(*argv);
690                                 }
691                         if(!evp_cipher && !evp_md)
692                                 {
693                                 BIO_printf(bio_err,"%s is an unknown cipher or digest\n",*argv);
694                                 goto end;
695                                 }
696                         doit[D_EVP]=1;
697                         }
698                 else if (argc > 0 && !strcmp(*argv,"-decrypt"))
699                         {
700                         decrypt=1;
701                         j--;    /* Otherwise, -elapsed gets confused with
702                                    an algorithm. */
703                         }
704 #ifndef OPENSSL_NO_ENGINE
705                 else if ((argc > 0) && (strcmp(*argv,"-engine") == 0))
706                         {
707                         argc--;
708                         argv++;
709                         if(argc == 0)
710                                 {
711                                 BIO_printf(bio_err,"no engine given\n");
712                                 goto end;
713                                 }
714                         e = setup_engine(bio_err, *argv, 0);
715                         /* j will be increased again further down.  We just
716                            don't want speed to confuse an engine with an
717                            algorithm, especially when none is given (which
718                            means all of them should be run) */
719                         j--;
720                         }
721 #endif
722 #ifndef NO_FORK
723                 else if ((argc > 0) && (strcmp(*argv,"-multi") == 0))
724                         {
725                         argc--;
726                         argv++;
727                         if(argc == 0)
728                                 {
729                                 BIO_printf(bio_err,"no multi count given\n");
730                                 goto end;
731                                 }
732                         multi=atoi(argv[0]);
733                         if(multi <= 0)
734                             {
735                                 BIO_printf(bio_err,"bad multi count\n");
736                                 goto end;
737                                 }                               
738                         j--;    /* Otherwise, -mr gets confused with
739                                    an algorithm. */
740                         }
741 #endif
742                 else if (argc > 0 && !strcmp(*argv,"-mr"))
743                         {
744                         mr=1;
745                         j--;    /* Otherwise, -mr gets confused with
746                                    an algorithm. */
747                         }
748                 else
749 #ifndef OPENSSL_NO_MD2
750                 if      (strcmp(*argv,"md2") == 0) doit[D_MD2]=1;
751                 else
752 #endif
753 #ifndef OPENSSL_NO_MDC2
754                         if (strcmp(*argv,"mdc2") == 0) doit[D_MDC2]=1;
755                 else
756 #endif
757 #ifndef OPENSSL_NO_MD4
758                         if (strcmp(*argv,"md4") == 0) doit[D_MD4]=1;
759                 else
760 #endif
761 #ifndef OPENSSL_NO_MD5
762                         if (strcmp(*argv,"md5") == 0) doit[D_MD5]=1;
763                 else
764 #endif
765 #ifndef OPENSSL_NO_MD5
766                         if (strcmp(*argv,"hmac") == 0) doit[D_HMAC]=1;
767                 else
768 #endif
769 #ifndef OPENSSL_NO_SHA
770                         if (strcmp(*argv,"sha1") == 0) doit[D_SHA1]=1;
771                 else
772                         if (strcmp(*argv,"sha") == 0)   doit[D_SHA1]=1,
773                                                         doit[D_SHA256]=1,
774                                                         doit[D_SHA512]=1;
775                 else
776 #ifndef OPENSSL_NO_SHA256
777                         if (strcmp(*argv,"sha256") == 0) doit[D_SHA256]=1;
778                 else
779 #endif
780 #ifndef OPENSSL_NO_SHA512
781                         if (strcmp(*argv,"sha512") == 0) doit[D_SHA512]=1;
782                 else
783 #endif
784 #endif
785 #ifndef OPENSSL_NO_WHIRLPOOL
786                         if (strcmp(*argv,"whirlpool") == 0) doit[D_WHIRLPOOL]=1;
787                 else
788 #endif
789 #ifndef OPENSSL_NO_RIPEMD
790                         if (strcmp(*argv,"ripemd") == 0) doit[D_RMD160]=1;
791                 else
792                         if (strcmp(*argv,"rmd160") == 0) doit[D_RMD160]=1;
793                 else
794                         if (strcmp(*argv,"ripemd160") == 0) doit[D_RMD160]=1;
795                 else
796 #endif
797 #ifndef OPENSSL_NO_RC4
798                         if (strcmp(*argv,"rc4") == 0) doit[D_RC4]=1;
799                 else 
800 #endif
801 #ifndef OPENSSL_NO_DES
802                         if (strcmp(*argv,"des-cbc") == 0) doit[D_CBC_DES]=1;
803                 else    if (strcmp(*argv,"des-ede3") == 0) doit[D_EDE3_DES]=1;
804                 else
805 #endif
806 #ifndef OPENSSL_NO_AES
807                         if (strcmp(*argv,"aes-128-cbc") == 0) doit[D_CBC_128_AES]=1;
808                 else    if (strcmp(*argv,"aes-192-cbc") == 0) doit[D_CBC_192_AES]=1;
809                 else    if (strcmp(*argv,"aes-256-cbc") == 0) doit[D_CBC_256_AES]=1;
810                 else    if (strcmp(*argv,"aes-128-ige") == 0) doit[D_IGE_128_AES]=1;
811                 else    if (strcmp(*argv,"aes-192-ige") == 0) doit[D_IGE_192_AES]=1;
812                 else    if (strcmp(*argv,"aes-256-ige") == 0) doit[D_IGE_256_AES]=1;
813                 else
814 #endif
815 #ifndef OPENSSL_NO_CAMELLIA
816                         if (strcmp(*argv,"camellia-128-cbc") == 0) doit[D_CBC_128_CML]=1;
817                 else    if (strcmp(*argv,"camellia-192-cbc") == 0) doit[D_CBC_192_CML]=1;
818                 else    if (strcmp(*argv,"camellia-256-cbc") == 0) doit[D_CBC_256_CML]=1;
819                 else
820 #endif
821 #ifndef OPENSSL_NO_RSA
822 #if 0 /* was: #ifdef RSAref */
823                         if (strcmp(*argv,"rsaref") == 0) 
824                         {
825                         RSA_set_default_openssl_method(RSA_PKCS1_RSAref());
826                         j--;
827                         }
828                 else
829 #endif
830 #ifndef RSA_NULL
831                         if (strcmp(*argv,"openssl") == 0) 
832                         {
833                         RSA_set_default_method(RSA_PKCS1_SSLeay());
834                         j--;
835                         }
836                 else
837 #endif
838 #endif /* !OPENSSL_NO_RSA */
839                      if (strcmp(*argv,"dsa512") == 0) dsa_doit[R_DSA_512]=2;
840                 else if (strcmp(*argv,"dsa1024") == 0) dsa_doit[R_DSA_1024]=2;
841                 else if (strcmp(*argv,"dsa2048") == 0) dsa_doit[R_DSA_2048]=2;
842                 else if (strcmp(*argv,"rsa512") == 0) rsa_doit[R_RSA_512]=2;
843                 else if (strcmp(*argv,"rsa1024") == 0) rsa_doit[R_RSA_1024]=2;
844                 else if (strcmp(*argv,"rsa2048") == 0) rsa_doit[R_RSA_2048]=2;
845                 else if (strcmp(*argv,"rsa4096") == 0) rsa_doit[R_RSA_4096]=2;
846                 else
847 #ifndef OPENSSL_NO_RC2
848                      if (strcmp(*argv,"rc2-cbc") == 0) doit[D_CBC_RC2]=1;
849                 else if (strcmp(*argv,"rc2") == 0) doit[D_CBC_RC2]=1;
850                 else
851 #endif
852 #ifndef OPENSSL_NO_RC5
853                      if (strcmp(*argv,"rc5-cbc") == 0) doit[D_CBC_RC5]=1;
854                 else if (strcmp(*argv,"rc5") == 0) doit[D_CBC_RC5]=1;
855                 else
856 #endif
857 #ifndef OPENSSL_NO_IDEA
858                      if (strcmp(*argv,"idea-cbc") == 0) doit[D_CBC_IDEA]=1;
859                 else if (strcmp(*argv,"idea") == 0) doit[D_CBC_IDEA]=1;
860                 else
861 #endif
862 #ifndef OPENSSL_NO_SEED
863                      if (strcmp(*argv,"seed-cbc") == 0) doit[D_CBC_SEED]=1;
864                 else if (strcmp(*argv,"seed") == 0) doit[D_CBC_SEED]=1;
865                 else
866 #endif
867 #ifndef OPENSSL_NO_BF
868                      if (strcmp(*argv,"bf-cbc") == 0) doit[D_CBC_BF]=1;
869                 else if (strcmp(*argv,"blowfish") == 0) doit[D_CBC_BF]=1;
870                 else if (strcmp(*argv,"bf") == 0) doit[D_CBC_BF]=1;
871                 else
872 #endif
873 #ifndef OPENSSL_NO_CAST
874                      if (strcmp(*argv,"cast-cbc") == 0) doit[D_CBC_CAST]=1;
875                 else if (strcmp(*argv,"cast") == 0) doit[D_CBC_CAST]=1;
876                 else if (strcmp(*argv,"cast5") == 0) doit[D_CBC_CAST]=1;
877                 else
878 #endif
879 #ifndef OPENSSL_NO_DES
880                         if (strcmp(*argv,"des") == 0)
881                         {
882                         doit[D_CBC_DES]=1;
883                         doit[D_EDE3_DES]=1;
884                         }
885                 else
886 #endif
887 #ifndef OPENSSL_NO_AES
888                         if (strcmp(*argv,"aes") == 0)
889                         {
890                         doit[D_CBC_128_AES]=1;
891                         doit[D_CBC_192_AES]=1;
892                         doit[D_CBC_256_AES]=1;
893                         }
894                 else
895 #endif
896 #ifndef OPENSSL_NO_CAMELLIA
897                         if (strcmp(*argv,"camellia") == 0)
898                         {
899                         doit[D_CBC_128_CML]=1;
900                         doit[D_CBC_192_CML]=1;
901                         doit[D_CBC_256_CML]=1;
902                         }
903                 else
904 #endif
905 #ifndef OPENSSL_NO_RSA
906                         if (strcmp(*argv,"rsa") == 0)
907                         {
908                         rsa_doit[R_RSA_512]=1;
909                         rsa_doit[R_RSA_1024]=1;
910                         rsa_doit[R_RSA_2048]=1;
911                         rsa_doit[R_RSA_4096]=1;
912                         }
913                 else
914 #endif
915 #ifndef OPENSSL_NO_DSA
916                         if (strcmp(*argv,"dsa") == 0)
917                         {
918                         dsa_doit[R_DSA_512]=1;
919                         dsa_doit[R_DSA_1024]=1;
920                         dsa_doit[R_DSA_2048]=1;
921                         }
922                 else
923 #endif
924 #ifndef OPENSSL_NO_ECDSA
925                      if (strcmp(*argv,"ecdsap160") == 0) ecdsa_doit[R_EC_P160]=2;
926                 else if (strcmp(*argv,"ecdsap192") == 0) ecdsa_doit[R_EC_P192]=2;
927                 else if (strcmp(*argv,"ecdsap224") == 0) ecdsa_doit[R_EC_P224]=2;
928                 else if (strcmp(*argv,"ecdsap256") == 0) ecdsa_doit[R_EC_P256]=2;
929                 else if (strcmp(*argv,"ecdsap384") == 0) ecdsa_doit[R_EC_P384]=2;
930                 else if (strcmp(*argv,"ecdsap521") == 0) ecdsa_doit[R_EC_P521]=2;
931                 else if (strcmp(*argv,"ecdsak163") == 0) ecdsa_doit[R_EC_K163]=2;
932                 else if (strcmp(*argv,"ecdsak233") == 0) ecdsa_doit[R_EC_K233]=2;
933                 else if (strcmp(*argv,"ecdsak283") == 0) ecdsa_doit[R_EC_K283]=2;
934                 else if (strcmp(*argv,"ecdsak409") == 0) ecdsa_doit[R_EC_K409]=2;
935                 else if (strcmp(*argv,"ecdsak571") == 0) ecdsa_doit[R_EC_K571]=2;
936                 else if (strcmp(*argv,"ecdsab163") == 0) ecdsa_doit[R_EC_B163]=2;
937                 else if (strcmp(*argv,"ecdsab233") == 0) ecdsa_doit[R_EC_B233]=2;
938                 else if (strcmp(*argv,"ecdsab283") == 0) ecdsa_doit[R_EC_B283]=2;
939                 else if (strcmp(*argv,"ecdsab409") == 0) ecdsa_doit[R_EC_B409]=2;
940                 else if (strcmp(*argv,"ecdsab571") == 0) ecdsa_doit[R_EC_B571]=2;
941                 else if (strcmp(*argv,"ecdsa") == 0)
942                         {
943                         for (i=0; i < EC_NUM; i++)
944                                 ecdsa_doit[i]=1;
945                         }
946                 else
947 #endif
948 #ifndef OPENSSL_NO_ECDH
949                      if (strcmp(*argv,"ecdhp160") == 0) ecdh_doit[R_EC_P160]=2;
950                 else if (strcmp(*argv,"ecdhp192") == 0) ecdh_doit[R_EC_P192]=2;
951                 else if (strcmp(*argv,"ecdhp224") == 0) ecdh_doit[R_EC_P224]=2;
952                 else if (strcmp(*argv,"ecdhp256") == 0) ecdh_doit[R_EC_P256]=2;
953                 else if (strcmp(*argv,"ecdhp384") == 0) ecdh_doit[R_EC_P384]=2;
954                 else if (strcmp(*argv,"ecdhp521") == 0) ecdh_doit[R_EC_P521]=2;
955                 else if (strcmp(*argv,"ecdhk163") == 0) ecdh_doit[R_EC_K163]=2;
956                 else if (strcmp(*argv,"ecdhk233") == 0) ecdh_doit[R_EC_K233]=2;
957                 else if (strcmp(*argv,"ecdhk283") == 0) ecdh_doit[R_EC_K283]=2;
958                 else if (strcmp(*argv,"ecdhk409") == 0) ecdh_doit[R_EC_K409]=2;
959                 else if (strcmp(*argv,"ecdhk571") == 0) ecdh_doit[R_EC_K571]=2;
960                 else if (strcmp(*argv,"ecdhb163") == 0) ecdh_doit[R_EC_B163]=2;
961                 else if (strcmp(*argv,"ecdhb233") == 0) ecdh_doit[R_EC_B233]=2;
962                 else if (strcmp(*argv,"ecdhb283") == 0) ecdh_doit[R_EC_B283]=2;
963                 else if (strcmp(*argv,"ecdhb409") == 0) ecdh_doit[R_EC_B409]=2;
964                 else if (strcmp(*argv,"ecdhb571") == 0) ecdh_doit[R_EC_B571]=2;
965                 else if (strcmp(*argv,"ecdh") == 0)
966                         {
967                         for (i=0; i < EC_NUM; i++)
968                                 ecdh_doit[i]=1;
969                         }
970                 else
971 #endif
972                         {
973                         BIO_printf(bio_err,"Error: bad option or value\n");
974                         BIO_printf(bio_err,"\n");
975                         BIO_printf(bio_err,"Available values:\n");
976 #ifndef OPENSSL_NO_MD2
977                         BIO_printf(bio_err,"md2      ");
978 #endif
979 #ifndef OPENSSL_NO_MDC2
980                         BIO_printf(bio_err,"mdc2     ");
981 #endif
982 #ifndef OPENSSL_NO_MD4
983                         BIO_printf(bio_err,"md4      ");
984 #endif
985 #ifndef OPENSSL_NO_MD5
986                         BIO_printf(bio_err,"md5      ");
987 #ifndef OPENSSL_NO_HMAC
988                         BIO_printf(bio_err,"hmac     ");
989 #endif
990 #endif
991 #ifndef OPENSSL_NO_SHA1
992                         BIO_printf(bio_err,"sha1     ");
993 #endif
994 #ifndef OPENSSL_NO_SHA256
995                         BIO_printf(bio_err,"sha256   ");
996 #endif
997 #ifndef OPENSSL_NO_SHA512
998                         BIO_printf(bio_err,"sha512   ");
999 #endif
1000 #ifndef OPENSSL_NO_WHIRLPOOL
1001                         BIO_printf(bio_err,"whirlpool");
1002 #endif
1003 #ifndef OPENSSL_NO_RIPEMD160
1004                         BIO_printf(bio_err,"rmd160");
1005 #endif
1006 #if !defined(OPENSSL_NO_MD2) || !defined(OPENSSL_NO_MDC2) || \
1007     !defined(OPENSSL_NO_MD4) || !defined(OPENSSL_NO_MD5) || \
1008     !defined(OPENSSL_NO_SHA1) || !defined(OPENSSL_NO_RIPEMD160) || \
1009     !defined(OPENSSL_NO_WHIRLPOOL)
1010                         BIO_printf(bio_err,"\n");
1011 #endif
1012
1013 #ifndef OPENSSL_NO_IDEA
1014                         BIO_printf(bio_err,"idea-cbc ");
1015 #endif
1016 #ifndef OPENSSL_NO_SEED
1017                         BIO_printf(bio_err,"seed-cbc ");
1018 #endif
1019 #ifndef OPENSSL_NO_RC2
1020                         BIO_printf(bio_err,"rc2-cbc  ");
1021 #endif
1022 #ifndef OPENSSL_NO_RC5
1023                         BIO_printf(bio_err,"rc5-cbc  ");
1024 #endif
1025 #ifndef OPENSSL_NO_BF
1026                         BIO_printf(bio_err,"bf-cbc");
1027 #endif
1028 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || !defined(OPENSSL_NO_RC2) || \
1029     !defined(OPENSSL_NO_BF) || !defined(OPENSSL_NO_RC5)
1030                         BIO_printf(bio_err,"\n");
1031 #endif
1032 #ifndef OPENSSL_NO_DES
1033                         BIO_printf(bio_err,"des-cbc  des-ede3 ");
1034 #endif
1035 #ifndef OPENSSL_NO_AES
1036                         BIO_printf(bio_err,"aes-128-cbc aes-192-cbc aes-256-cbc ");
1037                         BIO_printf(bio_err,"aes-128-ige aes-192-ige aes-256-ige ");
1038 #endif
1039 #ifndef OPENSSL_NO_CAMELLIA
1040                         BIO_printf(bio_err,"\n");
1041                         BIO_printf(bio_err,"camellia-128-cbc camellia-192-cbc camellia-256-cbc ");
1042 #endif
1043 #ifndef OPENSSL_NO_RC4
1044                         BIO_printf(bio_err,"rc4");
1045 #endif
1046                         BIO_printf(bio_err,"\n");
1047
1048 #ifndef OPENSSL_NO_RSA
1049                         BIO_printf(bio_err,"rsa512   rsa1024  rsa2048  rsa4096\n");
1050 #endif
1051
1052 #ifndef OPENSSL_NO_DSA
1053                         BIO_printf(bio_err,"dsa512   dsa1024  dsa2048\n");
1054 #endif
1055 #ifndef OPENSSL_NO_ECDSA
1056                         BIO_printf(bio_err,"ecdsap160 ecdsap192 ecdsap224 ecdsap256 ecdsap384 ecdsap521\n");
1057                         BIO_printf(bio_err,"ecdsak163 ecdsak233 ecdsak283 ecdsak409 ecdsak571\n");
1058                         BIO_printf(bio_err,"ecdsab163 ecdsab233 ecdsab283 ecdsab409 ecdsab571\n");
1059                         BIO_printf(bio_err,"ecdsa\n");
1060 #endif
1061 #ifndef OPENSSL_NO_ECDH
1062                         BIO_printf(bio_err,"ecdhp160  ecdhp192  ecdhp224  ecdhp256  ecdhp384  ecdhp521\n");
1063                         BIO_printf(bio_err,"ecdhk163  ecdhk233  ecdhk283  ecdhk409  ecdhk571\n");
1064                         BIO_printf(bio_err,"ecdhb163  ecdhb233  ecdhb283  ecdhb409  ecdhb571\n");
1065                         BIO_printf(bio_err,"ecdh\n");
1066 #endif
1067
1068 #ifndef OPENSSL_NO_IDEA
1069                         BIO_printf(bio_err,"idea     ");
1070 #endif
1071 #ifndef OPENSSL_NO_SEED
1072                         BIO_printf(bio_err,"seed     ");
1073 #endif
1074 #ifndef OPENSSL_NO_RC2
1075                         BIO_printf(bio_err,"rc2      ");
1076 #endif
1077 #ifndef OPENSSL_NO_DES
1078                         BIO_printf(bio_err,"des      ");
1079 #endif
1080 #ifndef OPENSSL_NO_AES
1081                         BIO_printf(bio_err,"aes      ");
1082 #endif
1083 #ifndef OPENSSL_NO_CAMELLIA
1084                         BIO_printf(bio_err,"camellia ");
1085 #endif
1086 #ifndef OPENSSL_NO_RSA
1087                         BIO_printf(bio_err,"rsa      ");
1088 #endif
1089 #ifndef OPENSSL_NO_BF
1090                         BIO_printf(bio_err,"blowfish");
1091 #endif
1092 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || \
1093     !defined(OPENSSL_NO_RC2) || !defined(OPENSSL_NO_DES) || \
1094     !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_BF) || \
1095     !defined(OPENSSL_NO_AES) || !defined(OPENSSL_NO_CAMELLIA)
1096                         BIO_printf(bio_err,"\n");
1097 #endif
1098
1099                         BIO_printf(bio_err,"\n");
1100                         BIO_printf(bio_err,"Available options:\n");
1101 #if defined(TIMES) || defined(USE_TOD)
1102                         BIO_printf(bio_err,"-elapsed        measure time in real time instead of CPU user time.\n");
1103 #endif
1104 #ifndef OPENSSL_NO_ENGINE
1105                         BIO_printf(bio_err,"-engine e       use engine e, possibly a hardware device.\n");
1106 #endif
1107                         BIO_printf(bio_err,"-evp e          use EVP e.\n");
1108                         BIO_printf(bio_err,"-decrypt        time decryption instead of encryption (only EVP).\n");
1109                         BIO_printf(bio_err,"-mr             produce machine readable output.\n");
1110 #ifndef NO_FORK
1111                         BIO_printf(bio_err,"-multi n        run n benchmarks in parallel.\n");
1112 #endif
1113                         goto end;
1114                         }
1115                 argc--;
1116                 argv++;
1117                 j++;
1118                 }
1119
1120 #ifndef NO_FORK
1121         if(multi && do_multi(multi))
1122                 goto show_res;
1123 #endif
1124
1125         if (j == 0)
1126                 {
1127                 for (i=0; i<ALGOR_NUM; i++)
1128                         {
1129                         if (i != D_EVP)
1130                                 doit[i]=1;
1131                         }
1132                 for (i=0; i<RSA_NUM; i++)
1133                         rsa_doit[i]=1;
1134                 for (i=0; i<DSA_NUM; i++)
1135                         dsa_doit[i]=1;
1136 #ifndef OPENSSL_NO_ECDSA
1137                 for (i=0; i<EC_NUM; i++)
1138                         ecdsa_doit[i]=1;
1139 #endif
1140 #ifndef OPENSSL_NO_ECDH
1141                 for (i=0; i<EC_NUM; i++)
1142                         ecdh_doit[i]=1;
1143 #endif
1144                 }
1145         for (i=0; i<ALGOR_NUM; i++)
1146                 if (doit[i]) pr_header++;
1147
1148         if (usertime == 0 && !mr)
1149                 BIO_printf(bio_err,"You have chosen to measure elapsed time instead of user CPU time.\n");
1150
1151 #ifndef OPENSSL_NO_RSA
1152         for (i=0; i<RSA_NUM; i++)
1153                 {
1154                 const unsigned char *p;
1155
1156                 p=rsa_data[i];
1157                 rsa_key[i]=d2i_RSAPrivateKey(NULL,&p,rsa_data_length[i]);
1158                 if (rsa_key[i] == NULL)
1159                         {
1160                         BIO_printf(bio_err,"internal error loading RSA key number %d\n",i);
1161                         goto end;
1162                         }
1163 #if 0
1164                 else
1165                         {
1166                         BIO_printf(bio_err,mr ? "+RK:%d:"
1167                                    : "Loaded RSA key, %d bit modulus and e= 0x",
1168                                    BN_num_bits(rsa_key[i]->n));
1169                         BN_print(bio_err,rsa_key[i]->e);
1170                         BIO_printf(bio_err,"\n");
1171                         }
1172 #endif
1173                 }
1174 #endif
1175
1176 #ifndef OPENSSL_NO_DSA
1177         dsa_key[0]=get_dsa512();
1178         dsa_key[1]=get_dsa1024();
1179         dsa_key[2]=get_dsa2048();
1180 #endif
1181
1182 #ifndef OPENSSL_NO_DES
1183         DES_set_key_unchecked(&key,&sch);
1184         DES_set_key_unchecked(&key2,&sch2);
1185         DES_set_key_unchecked(&key3,&sch3);
1186 #endif
1187 #ifndef OPENSSL_NO_AES
1188         AES_set_encrypt_key(key16,128,&aes_ks1);
1189         AES_set_encrypt_key(key24,192,&aes_ks2);
1190         AES_set_encrypt_key(key32,256,&aes_ks3);
1191 #endif
1192 #ifndef OPENSSL_NO_CAMELLIA
1193         Camellia_set_key(key16,128,&camellia_ks1);
1194         Camellia_set_key(ckey24,192,&camellia_ks2);
1195         Camellia_set_key(ckey32,256,&camellia_ks3);
1196 #endif
1197 #ifndef OPENSSL_NO_IDEA
1198         idea_set_encrypt_key(key16,&idea_ks);
1199 #endif
1200 #ifndef OPENSSL_NO_SEED
1201         SEED_set_key(key16,&seed_ks);
1202 #endif
1203 #ifndef OPENSSL_NO_RC4
1204         RC4_set_key(&rc4_ks,16,key16);
1205 #endif
1206 #ifndef OPENSSL_NO_RC2
1207         RC2_set_key(&rc2_ks,16,key16,128);
1208 #endif
1209 #ifndef OPENSSL_NO_RC5
1210         RC5_32_set_key(&rc5_ks,16,key16,12);
1211 #endif
1212 #ifndef OPENSSL_NO_BF
1213         BF_set_key(&bf_ks,16,key16);
1214 #endif
1215 #ifndef OPENSSL_NO_CAST
1216         CAST_set_key(&cast_ks,16,key16);
1217 #endif
1218 #ifndef OPENSSL_NO_RSA
1219         memset(rsa_c,0,sizeof(rsa_c));
1220 #endif
1221 #ifndef SIGALRM
1222 #ifndef OPENSSL_NO_DES
1223         BIO_printf(bio_err,"First we calculate the approximate speed ...\n");
1224         count=10;
1225         do      {
1226                 long it;
1227                 count*=2;
1228                 Time_F(START);
1229                 for (it=count; it; it--)
1230                         DES_ecb_encrypt(buf_as_des_cblock,buf_as_des_cblock,
1231                                 &sch,DES_ENCRYPT);
1232                 d=Time_F(STOP);
1233                 } while (d <3);
1234         save_count=count;
1235         c[D_MD2][0]=count/10;
1236         c[D_MDC2][0]=count/10;
1237         c[D_MD4][0]=count;
1238         c[D_MD5][0]=count;
1239         c[D_HMAC][0]=count;
1240         c[D_SHA1][0]=count;
1241         c[D_RMD160][0]=count;
1242         c[D_RC4][0]=count*5;
1243         c[D_CBC_DES][0]=count;
1244         c[D_EDE3_DES][0]=count/3;
1245         c[D_CBC_IDEA][0]=count;
1246         c[D_CBC_SEED][0]=count;
1247         c[D_CBC_RC2][0]=count;
1248         c[D_CBC_RC5][0]=count;
1249         c[D_CBC_BF][0]=count;
1250         c[D_CBC_CAST][0]=count;
1251         c[D_CBC_128_AES][0]=count;
1252         c[D_CBC_192_AES][0]=count;
1253         c[D_CBC_256_AES][0]=count;
1254         c[D_CBC_128_CML][0]=count;
1255         c[D_CBC_192_CML][0]=count;
1256         c[D_CBC_256_CML][0]=count;
1257         c[D_SHA256][0]=count;
1258         c[D_SHA512][0]=count;
1259         c[D_WHIRLPOOL][0]=count;
1260         c[D_IGE_128_AES][0]=count;
1261         c[D_IGE_192_AES][0]=count;
1262         c[D_IGE_256_AES][0]=count;
1263
1264         for (i=1; i<SIZE_NUM; i++)
1265                 {
1266                 c[D_MD2][i]=c[D_MD2][0]*4*lengths[0]/lengths[i];
1267                 c[D_MDC2][i]=c[D_MDC2][0]*4*lengths[0]/lengths[i];
1268                 c[D_MD4][i]=c[D_MD4][0]*4*lengths[0]/lengths[i];
1269                 c[D_MD5][i]=c[D_MD5][0]*4*lengths[0]/lengths[i];
1270                 c[D_HMAC][i]=c[D_HMAC][0]*4*lengths[0]/lengths[i];
1271                 c[D_SHA1][i]=c[D_SHA1][0]*4*lengths[0]/lengths[i];
1272                 c[D_RMD160][i]=c[D_RMD160][0]*4*lengths[0]/lengths[i];
1273                 c[D_SHA256][i]=c[D_SHA256][0]*4*lengths[0]/lengths[i];
1274                 c[D_SHA512][i]=c[D_SHA512][0]*4*lengths[0]/lengths[i];
1275                 c[D_WHIRLPOOL][i]=c[D_WHIRLPOOL][0]*4*lengths[0]/lengths[i];
1276                 }
1277         for (i=1; i<SIZE_NUM; i++)
1278                 {
1279                 long l0,l1;
1280
1281                 l0=(long)lengths[i-1];
1282                 l1=(long)lengths[i];
1283                 c[D_RC4][i]=c[D_RC4][i-1]*l0/l1;
1284                 c[D_CBC_DES][i]=c[D_CBC_DES][i-1]*l0/l1;
1285                 c[D_EDE3_DES][i]=c[D_EDE3_DES][i-1]*l0/l1;
1286                 c[D_CBC_IDEA][i]=c[D_CBC_IDEA][i-1]*l0/l1;
1287                 c[D_CBC_SEED][i]=c[D_CBC_SEED][i-1]*l0/l1;
1288                 c[D_CBC_RC2][i]=c[D_CBC_RC2][i-1]*l0/l1;
1289                 c[D_CBC_RC5][i]=c[D_CBC_RC5][i-1]*l0/l1;
1290                 c[D_CBC_BF][i]=c[D_CBC_BF][i-1]*l0/l1;
1291                 c[D_CBC_CAST][i]=c[D_CBC_CAST][i-1]*l0/l1;
1292                 c[D_CBC_128_AES][i]=c[D_CBC_128_AES][i-1]*l0/l1;
1293                 c[D_CBC_192_AES][i]=c[D_CBC_192_AES][i-1]*l0/l1;
1294                 c[D_CBC_256_AES][i]=c[D_CBC_256_AES][i-1]*l0/l1;
1295                 c[D_CBC_128_CML][i]=c[D_CBC_128_CML][i-1]*l0/l1;
1296                 c[D_CBC_192_CML][i]=c[D_CBC_192_CML][i-1]*l0/l1;
1297                 c[D_CBC_256_CML][i]=c[D_CBC_256_CML][i-1]*l0/l1;
1298                 c[D_IGE_128_AES][i]=c[D_IGE_128_AES][i-1]*l0/l1;
1299                 c[D_IGE_192_AES][i]=c[D_IGE_192_AES][i-1]*l0/l1;
1300                 c[D_IGE_256_AES][i]=c[D_IGE_256_AES][i-1]*l0/l1;
1301                 }
1302 #ifndef OPENSSL_NO_RSA
1303         rsa_c[R_RSA_512][0]=count/2000;
1304         rsa_c[R_RSA_512][1]=count/400;
1305         for (i=1; i<RSA_NUM; i++)
1306                 {
1307                 rsa_c[i][0]=rsa_c[i-1][0]/8;
1308                 rsa_c[i][1]=rsa_c[i-1][1]/4;
1309                 if ((rsa_doit[i] <= 1) && (rsa_c[i][0] == 0))
1310                         rsa_doit[i]=0;
1311                 else
1312                         {
1313                         if (rsa_c[i][0] == 0)
1314                                 {
1315                                 rsa_c[i][0]=1;
1316                                 rsa_c[i][1]=20;
1317                                 }
1318                         }                               
1319                 }
1320 #endif
1321
1322 #ifndef OPENSSL_NO_DSA
1323         dsa_c[R_DSA_512][0]=count/1000;
1324         dsa_c[R_DSA_512][1]=count/1000/2;
1325         for (i=1; i<DSA_NUM; i++)
1326                 {
1327                 dsa_c[i][0]=dsa_c[i-1][0]/4;
1328                 dsa_c[i][1]=dsa_c[i-1][1]/4;
1329                 if ((dsa_doit[i] <= 1) && (dsa_c[i][0] == 0))
1330                         dsa_doit[i]=0;
1331                 else
1332                         {
1333                         if (dsa_c[i] == 0)
1334                                 {
1335                                 dsa_c[i][0]=1;
1336                                 dsa_c[i][1]=1;
1337                                 }
1338                         }                               
1339                 }
1340 #endif
1341
1342 #ifndef OPENSSL_NO_ECDSA
1343         ecdsa_c[R_EC_P160][0]=count/1000;
1344         ecdsa_c[R_EC_P160][1]=count/1000/2;
1345         for (i=R_EC_P192; i<=R_EC_P521; i++)
1346                 {
1347                 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1348                 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1349                 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1350                         ecdsa_doit[i]=0;
1351                 else
1352                         {
1353                         if (ecdsa_c[i] == 0)
1354                                 {
1355                                 ecdsa_c[i][0]=1;
1356                                 ecdsa_c[i][1]=1;
1357                                 }
1358                         }
1359                 }
1360         ecdsa_c[R_EC_K163][0]=count/1000;
1361         ecdsa_c[R_EC_K163][1]=count/1000/2;
1362         for (i=R_EC_K233; i<=R_EC_K571; i++)
1363                 {
1364                 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1365                 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1366                 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1367                         ecdsa_doit[i]=0;
1368                 else
1369                         {
1370                         if (ecdsa_c[i] == 0)
1371                                 {
1372                                 ecdsa_c[i][0]=1;
1373                                 ecdsa_c[i][1]=1;
1374                                 }
1375                         }
1376                 }
1377         ecdsa_c[R_EC_B163][0]=count/1000;
1378         ecdsa_c[R_EC_B163][1]=count/1000/2;
1379         for (i=R_EC_B233; i<=R_EC_B571; i++)
1380                 {
1381                 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1382                 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1383                 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1384                         ecdsa_doit[i]=0;
1385                 else
1386                         {
1387                         if (ecdsa_c[i] == 0)
1388                                 {
1389                                 ecdsa_c[i][0]=1;
1390                                 ecdsa_c[i][1]=1;
1391                                 }
1392                         }
1393                 }
1394 #endif
1395
1396 #ifndef OPENSSL_NO_ECDH
1397         ecdh_c[R_EC_P160][0]=count/1000;
1398         ecdh_c[R_EC_P160][1]=count/1000;
1399         for (i=R_EC_P192; i<=R_EC_P521; i++)
1400                 {
1401                 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1402                 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1403                 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1404                         ecdh_doit[i]=0;
1405                 else
1406                         {
1407                         if (ecdh_c[i] == 0)
1408                                 {
1409                                 ecdh_c[i][0]=1;
1410                                 ecdh_c[i][1]=1;
1411                                 }
1412                         }
1413                 }
1414         ecdh_c[R_EC_K163][0]=count/1000;
1415         ecdh_c[R_EC_K163][1]=count/1000;
1416         for (i=R_EC_K233; i<=R_EC_K571; i++)
1417                 {
1418                 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1419                 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1420                 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1421                         ecdh_doit[i]=0;
1422                 else
1423                         {
1424                         if (ecdh_c[i] == 0)
1425                                 {
1426                                 ecdh_c[i][0]=1;
1427                                 ecdh_c[i][1]=1;
1428                                 }
1429                         }
1430                 }
1431         ecdh_c[R_EC_B163][0]=count/1000;
1432         ecdh_c[R_EC_B163][1]=count/1000;
1433         for (i=R_EC_B233; i<=R_EC_B571; i++)
1434                 {
1435                 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1436                 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1437                 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1438                         ecdh_doit[i]=0;
1439                 else
1440                         {
1441                         if (ecdh_c[i] == 0)
1442                                 {
1443                                 ecdh_c[i][0]=1;
1444                                 ecdh_c[i][1]=1;
1445                                 }
1446                         }
1447                 }
1448 #endif
1449
1450 #define COND(d) (count < (d))
1451 #define COUNT(d) (d)
1452 #else
1453 /* not worth fixing */
1454 # error "You cannot disable DES on systems without SIGALRM."
1455 #endif /* OPENSSL_NO_DES */
1456 #else
1457 #define COND(c) (run)
1458 #define COUNT(d) (count)
1459 #ifndef _WIN32
1460         signal(SIGALRM,sig_done);
1461 #endif
1462 #endif /* SIGALRM */
1463
1464 #ifndef OPENSSL_NO_MD2
1465         if (doit[D_MD2])
1466                 {
1467                 for (j=0; j<SIZE_NUM; j++)
1468                         {
1469                         print_message(names[D_MD2],c[D_MD2][j],lengths[j]);
1470                         Time_F(START);
1471                         for (count=0,run=1; COND(c[D_MD2][j]); count++)
1472                                 EVP_Digest(buf,(unsigned long)lengths[j],&(md2[0]),NULL,EVP_md2(),NULL);
1473                         d=Time_F(STOP);
1474                         print_result(D_MD2,j,count,d);
1475                         }
1476                 }
1477 #endif
1478 #ifndef OPENSSL_NO_MDC2
1479         if (doit[D_MDC2])
1480                 {
1481                 for (j=0; j<SIZE_NUM; j++)
1482                         {
1483                         print_message(names[D_MDC2],c[D_MDC2][j],lengths[j]);
1484                         Time_F(START);
1485                         for (count=0,run=1; COND(c[D_MDC2][j]); count++)
1486                                 EVP_Digest(buf,(unsigned long)lengths[j],&(mdc2[0]),NULL,EVP_mdc2(),NULL);
1487                         d=Time_F(STOP);
1488                         print_result(D_MDC2,j,count,d);
1489                         }
1490                 }
1491 #endif
1492
1493 #ifndef OPENSSL_NO_MD4
1494         if (doit[D_MD4])
1495                 {
1496                 for (j=0; j<SIZE_NUM; j++)
1497                         {
1498                         print_message(names[D_MD4],c[D_MD4][j],lengths[j]);
1499                         Time_F(START);
1500                         for (count=0,run=1; COND(c[D_MD4][j]); count++)
1501                                 EVP_Digest(&(buf[0]),(unsigned long)lengths[j],&(md4[0]),NULL,EVP_md4(),NULL);
1502                         d=Time_F(STOP);
1503                         print_result(D_MD4,j,count,d);
1504                         }
1505                 }
1506 #endif
1507
1508 #ifndef OPENSSL_NO_MD5
1509         if (doit[D_MD5])
1510                 {
1511                 for (j=0; j<SIZE_NUM; j++)
1512                         {
1513                         print_message(names[D_MD5],c[D_MD5][j],lengths[j]);
1514                         Time_F(START);
1515                         for (count=0,run=1; COND(c[D_MD5][j]); count++)
1516                                 EVP_Digest(&(buf[0]),(unsigned long)lengths[j],&(md5[0]),NULL,EVP_get_digestbyname("md5"),NULL);
1517                         d=Time_F(STOP);
1518                         print_result(D_MD5,j,count,d);
1519                         }
1520                 }
1521 #endif
1522
1523 #if !defined(OPENSSL_NO_MD5) && !defined(OPENSSL_NO_HMAC)
1524         if (doit[D_HMAC])
1525                 {
1526                 HMAC_CTX hctx;
1527
1528                 HMAC_CTX_init(&hctx);
1529                 HMAC_Init_ex(&hctx,(unsigned char *)"This is a key...",
1530                         16,EVP_md5(), NULL);
1531
1532                 for (j=0; j<SIZE_NUM; j++)
1533                         {
1534                         print_message(names[D_HMAC],c[D_HMAC][j],lengths[j]);
1535                         Time_F(START);
1536                         for (count=0,run=1; COND(c[D_HMAC][j]); count++)
1537                                 {
1538                                 HMAC_Init_ex(&hctx,NULL,0,NULL,NULL);
1539                                 HMAC_Update(&hctx,buf,lengths[j]);
1540                                 HMAC_Final(&hctx,&(hmac[0]),NULL);
1541                                 }
1542                         d=Time_F(STOP);
1543                         print_result(D_HMAC,j,count,d);
1544                         }
1545                 HMAC_CTX_cleanup(&hctx);
1546                 }
1547 #endif
1548 #ifndef OPENSSL_NO_SHA
1549         if (doit[D_SHA1])
1550                 {
1551                 for (j=0; j<SIZE_NUM; j++)
1552                         {
1553                         print_message(names[D_SHA1],c[D_SHA1][j],lengths[j]);
1554                         Time_F(START);
1555                         for (count=0,run=1; COND(c[D_SHA1][j]); count++)
1556                                 EVP_Digest(buf,(unsigned long)lengths[j],&(sha[0]),NULL,EVP_sha1(),NULL);
1557                         d=Time_F(STOP);
1558                         print_result(D_SHA1,j,count,d);
1559                         }
1560                 }
1561
1562 #ifndef OPENSSL_NO_SHA256
1563         if (doit[D_SHA256])
1564                 {
1565                 for (j=0; j<SIZE_NUM; j++)
1566                         {
1567                         print_message(names[D_SHA256],c[D_SHA256][j],lengths[j]);
1568                         Time_F(START);
1569                         for (count=0,run=1; COND(c[D_SHA256][j]); count++)
1570                                 SHA256(buf,lengths[j],sha256);
1571                         d=Time_F(STOP);
1572                         print_result(D_SHA256,j,count,d);
1573                         }
1574                 }
1575 #endif
1576
1577 #ifndef OPENSSL_NO_SHA512
1578         if (doit[D_SHA512])
1579                 {
1580                 for (j=0; j<SIZE_NUM; j++)
1581                         {
1582                         print_message(names[D_SHA512],c[D_SHA512][j],lengths[j]);
1583                         Time_F(START);
1584                         for (count=0,run=1; COND(c[D_SHA512][j]); count++)
1585                                 SHA512(buf,lengths[j],sha512);
1586                         d=Time_F(STOP);
1587                         print_result(D_SHA512,j,count,d);
1588                         }
1589                 }
1590 #endif
1591 #endif
1592
1593 #ifndef OPENSSL_NO_WHIRLPOOL
1594         if (doit[D_WHIRLPOOL])
1595                 {
1596                 for (j=0; j<SIZE_NUM; j++)
1597                         {
1598                         print_message(names[D_WHIRLPOOL],c[D_WHIRLPOOL][j],lengths[j]);
1599                         Time_F(START);
1600                         for (count=0,run=1; COND(c[D_WHIRLPOOL][j]); count++)
1601                                 WHIRLPOOL(buf,lengths[j],whirlpool);
1602                         d=Time_F(STOP);
1603                         print_result(D_WHIRLPOOL,j,count,d);
1604                         }
1605                 }
1606 #endif
1607
1608 #ifndef OPENSSL_NO_RIPEMD
1609         if (doit[D_RMD160])
1610                 {
1611                 for (j=0; j<SIZE_NUM; j++)
1612                         {
1613                         print_message(names[D_RMD160],c[D_RMD160][j],lengths[j]);
1614                         Time_F(START);
1615                         for (count=0,run=1; COND(c[D_RMD160][j]); count++)
1616                                 EVP_Digest(buf,(unsigned long)lengths[j],&(rmd160[0]),NULL,EVP_ripemd160(),NULL);
1617                         d=Time_F(STOP);
1618                         print_result(D_RMD160,j,count,d);
1619                         }
1620                 }
1621 #endif
1622 #ifndef OPENSSL_NO_RC4
1623         if (doit[D_RC4])
1624                 {
1625                 for (j=0; j<SIZE_NUM; j++)
1626                         {
1627                         print_message(names[D_RC4],c[D_RC4][j],lengths[j]);
1628                         Time_F(START);
1629                         for (count=0,run=1; COND(c[D_RC4][j]); count++)
1630                                 RC4(&rc4_ks,(unsigned int)lengths[j],
1631                                         buf,buf);
1632                         d=Time_F(STOP);
1633                         print_result(D_RC4,j,count,d);
1634                         }
1635                 }
1636 #endif
1637 #ifndef OPENSSL_NO_DES
1638         if (doit[D_CBC_DES])
1639                 {
1640                 for (j=0; j<SIZE_NUM; j++)
1641                         {
1642                         print_message(names[D_CBC_DES],c[D_CBC_DES][j],lengths[j]);
1643                         Time_F(START);
1644                         for (count=0,run=1; COND(c[D_CBC_DES][j]); count++)
1645                                 DES_ncbc_encrypt(buf,buf,lengths[j],&sch,
1646                                                  &DES_iv,DES_ENCRYPT);
1647                         d=Time_F(STOP);
1648                         print_result(D_CBC_DES,j,count,d);
1649                         }
1650                 }
1651
1652         if (doit[D_EDE3_DES])
1653                 {
1654                 for (j=0; j<SIZE_NUM; j++)
1655                         {
1656                         print_message(names[D_EDE3_DES],c[D_EDE3_DES][j],lengths[j]);
1657                         Time_F(START);
1658                         for (count=0,run=1; COND(c[D_EDE3_DES][j]); count++)
1659                                 DES_ede3_cbc_encrypt(buf,buf,lengths[j],
1660                                                      &sch,&sch2,&sch3,
1661                                                      &DES_iv,DES_ENCRYPT);
1662                         d=Time_F(STOP);
1663                         print_result(D_EDE3_DES,j,count,d);
1664                         }
1665                 }
1666 #endif
1667 #ifndef OPENSSL_NO_AES
1668         if (doit[D_CBC_128_AES])
1669                 {
1670                 for (j=0; j<SIZE_NUM; j++)
1671                         {
1672                         print_message(names[D_CBC_128_AES],c[D_CBC_128_AES][j],lengths[j]);
1673                         Time_F(START);
1674                         for (count=0,run=1; COND(c[D_CBC_128_AES][j]); count++)
1675                                 AES_cbc_encrypt(buf,buf,
1676                                         (unsigned long)lengths[j],&aes_ks1,
1677                                         iv,AES_ENCRYPT);
1678                         d=Time_F(STOP);
1679                         print_result(D_CBC_128_AES,j,count,d);
1680                         }
1681                 }
1682         if (doit[D_CBC_192_AES])
1683                 {
1684                 for (j=0; j<SIZE_NUM; j++)
1685                         {
1686                         print_message(names[D_CBC_192_AES],c[D_CBC_192_AES][j],lengths[j]);
1687                         Time_F(START);
1688                         for (count=0,run=1; COND(c[D_CBC_192_AES][j]); count++)
1689                                 AES_cbc_encrypt(buf,buf,
1690                                         (unsigned long)lengths[j],&aes_ks2,
1691                                         iv,AES_ENCRYPT);
1692                         d=Time_F(STOP);
1693                         print_result(D_CBC_192_AES,j,count,d);
1694                         }
1695                 }
1696         if (doit[D_CBC_256_AES])
1697                 {
1698                 for (j=0; j<SIZE_NUM; j++)
1699                         {
1700                         print_message(names[D_CBC_256_AES],c[D_CBC_256_AES][j],lengths[j]);
1701                         Time_F(START);
1702                         for (count=0,run=1; COND(c[D_CBC_256_AES][j]); count++)
1703                                 AES_cbc_encrypt(buf,buf,
1704                                         (unsigned long)lengths[j],&aes_ks3,
1705                                         iv,AES_ENCRYPT);
1706                         d=Time_F(STOP);
1707                         print_result(D_CBC_256_AES,j,count,d);
1708                         }
1709                 }
1710
1711         if (doit[D_IGE_128_AES])
1712                 {
1713                 for (j=0; j<SIZE_NUM; j++)
1714                         {
1715                         print_message(names[D_IGE_128_AES],c[D_IGE_128_AES][j],lengths[j]);
1716                         Time_F(START);
1717                         for (count=0,run=1; COND(c[D_IGE_128_AES][j]); count++)
1718                                 AES_ige_encrypt(buf,buf2,
1719                                         (unsigned long)lengths[j],&aes_ks1,
1720                                         iv,AES_ENCRYPT);
1721                         d=Time_F(STOP);
1722                         print_result(D_IGE_128_AES,j,count,d);
1723                         }
1724                 }
1725         if (doit[D_IGE_192_AES])
1726                 {
1727                 for (j=0; j<SIZE_NUM; j++)
1728                         {
1729                         print_message(names[D_IGE_192_AES],c[D_IGE_192_AES][j],lengths[j]);
1730                         Time_F(START);
1731                         for (count=0,run=1; COND(c[D_IGE_192_AES][j]); count++)
1732                                 AES_ige_encrypt(buf,buf2,
1733                                         (unsigned long)lengths[j],&aes_ks2,
1734                                         iv,AES_ENCRYPT);
1735                         d=Time_F(STOP);
1736                         print_result(D_IGE_192_AES,j,count,d);
1737                         }
1738                 }
1739         if (doit[D_IGE_256_AES])
1740                 {
1741                 for (j=0; j<SIZE_NUM; j++)
1742                         {
1743                         print_message(names[D_IGE_256_AES],c[D_IGE_256_AES][j],lengths[j]);
1744                         Time_F(START);
1745                         for (count=0,run=1; COND(c[D_IGE_256_AES][j]); count++)
1746                                 AES_ige_encrypt(buf,buf2,
1747                                         (unsigned long)lengths[j],&aes_ks3,
1748                                         iv,AES_ENCRYPT);
1749                         d=Time_F(STOP);
1750                         print_result(D_IGE_256_AES,j,count,d);
1751                         }
1752                 }
1753
1754
1755 #endif
1756 #ifndef OPENSSL_NO_CAMELLIA
1757         if (doit[D_CBC_128_CML])
1758                 {
1759                 for (j=0; j<SIZE_NUM; j++)
1760                         {
1761                         print_message(names[D_CBC_128_CML],c[D_CBC_128_CML][j],lengths[j]);
1762                         Time_F(START);
1763                         for (count=0,run=1; COND(c[D_CBC_128_CML][j]); count++)
1764                                 Camellia_cbc_encrypt(buf,buf,
1765                                         (unsigned long)lengths[j],&camellia_ks1,
1766                                         iv,CAMELLIA_ENCRYPT);
1767                         d=Time_F(STOP);
1768                         print_result(D_CBC_128_CML,j,count,d);
1769                         }
1770                 }
1771         if (doit[D_CBC_192_CML])
1772                 {
1773                 for (j=0; j<SIZE_NUM; j++)
1774                         {
1775                         print_message(names[D_CBC_192_CML],c[D_CBC_192_CML][j],lengths[j]);
1776                         Time_F(START);
1777                         for (count=0,run=1; COND(c[D_CBC_192_CML][j]); count++)
1778                                 Camellia_cbc_encrypt(buf,buf,
1779                                         (unsigned long)lengths[j],&camellia_ks2,
1780                                         iv,CAMELLIA_ENCRYPT);
1781                         d=Time_F(STOP);
1782                         print_result(D_CBC_192_CML,j,count,d);
1783                         }
1784                 }
1785         if (doit[D_CBC_256_CML])
1786                 {
1787                 for (j=0; j<SIZE_NUM; j++)
1788                         {
1789                         print_message(names[D_CBC_256_CML],c[D_CBC_256_CML][j],lengths[j]);
1790                         Time_F(START);
1791                         for (count=0,run=1; COND(c[D_CBC_256_CML][j]); count++)
1792                                 Camellia_cbc_encrypt(buf,buf,
1793                                         (unsigned long)lengths[j],&camellia_ks3,
1794                                         iv,CAMELLIA_ENCRYPT);
1795                         d=Time_F(STOP);
1796                         print_result(D_CBC_256_CML,j,count,d);
1797                         }
1798                 }
1799
1800 #endif
1801 #ifndef OPENSSL_NO_IDEA
1802         if (doit[D_CBC_IDEA])
1803                 {
1804                 for (j=0; j<SIZE_NUM; j++)
1805                         {
1806                         print_message(names[D_CBC_IDEA],c[D_CBC_IDEA][j],lengths[j]);
1807                         Time_F(START);
1808                         for (count=0,run=1; COND(c[D_CBC_IDEA][j]); count++)
1809                                 idea_cbc_encrypt(buf,buf,
1810                                         (unsigned long)lengths[j],&idea_ks,
1811                                         iv,IDEA_ENCRYPT);
1812                         d=Time_F(STOP);
1813                         print_result(D_CBC_IDEA,j,count,d);
1814                         }
1815                 }
1816 #endif
1817 #ifndef OPENSSL_NO_SEED
1818         if (doit[D_CBC_SEED])
1819                 {
1820                 for (j=0; j<SIZE_NUM; j++)
1821                         {
1822                         print_message(names[D_CBC_SEED],c[D_CBC_SEED][j],lengths[j]);
1823                         Time_F(START);
1824                         for (count=0,run=1; COND(c[D_CBC_SEED][j]); count++)
1825                                 SEED_cbc_encrypt(buf,buf,
1826                                         (unsigned long)lengths[j],&seed_ks,iv,1);
1827                         d=Time_F(STOP);
1828                         print_result(D_CBC_SEED,j,count,d);
1829                         }
1830                 }
1831 #endif
1832 #ifndef OPENSSL_NO_RC2
1833         if (doit[D_CBC_RC2])
1834                 {
1835                 for (j=0; j<SIZE_NUM; j++)
1836                         {
1837                         print_message(names[D_CBC_RC2],c[D_CBC_RC2][j],lengths[j]);
1838                         Time_F(START);
1839                         for (count=0,run=1; COND(c[D_CBC_RC2][j]); count++)
1840                                 RC2_cbc_encrypt(buf,buf,
1841                                         (unsigned long)lengths[j],&rc2_ks,
1842                                         iv,RC2_ENCRYPT);
1843                         d=Time_F(STOP);
1844                         print_result(D_CBC_RC2,j,count,d);
1845                         }
1846                 }
1847 #endif
1848 #ifndef OPENSSL_NO_RC5
1849         if (doit[D_CBC_RC5])
1850                 {
1851                 for (j=0; j<SIZE_NUM; j++)
1852                         {
1853                         print_message(names[D_CBC_RC5],c[D_CBC_RC5][j],lengths[j]);
1854                         Time_F(START);
1855                         for (count=0,run=1; COND(c[D_CBC_RC5][j]); count++)
1856                                 RC5_32_cbc_encrypt(buf,buf,
1857                                         (unsigned long)lengths[j],&rc5_ks,
1858                                         iv,RC5_ENCRYPT);
1859                         d=Time_F(STOP);
1860                         print_result(D_CBC_RC5,j,count,d);
1861                         }
1862                 }
1863 #endif
1864 #ifndef OPENSSL_NO_BF
1865         if (doit[D_CBC_BF])
1866                 {
1867                 for (j=0; j<SIZE_NUM; j++)
1868                         {
1869                         print_message(names[D_CBC_BF],c[D_CBC_BF][j],lengths[j]);
1870                         Time_F(START);
1871                         for (count=0,run=1; COND(c[D_CBC_BF][j]); count++)
1872                                 BF_cbc_encrypt(buf,buf,
1873                                         (unsigned long)lengths[j],&bf_ks,
1874                                         iv,BF_ENCRYPT);
1875                         d=Time_F(STOP);
1876                         print_result(D_CBC_BF,j,count,d);
1877                         }
1878                 }
1879 #endif
1880 #ifndef OPENSSL_NO_CAST
1881         if (doit[D_CBC_CAST])
1882                 {
1883                 for (j=0; j<SIZE_NUM; j++)
1884                         {
1885                         print_message(names[D_CBC_CAST],c[D_CBC_CAST][j],lengths[j]);
1886                         Time_F(START);
1887                         for (count=0,run=1; COND(c[D_CBC_CAST][j]); count++)
1888                                 CAST_cbc_encrypt(buf,buf,
1889                                         (unsigned long)lengths[j],&cast_ks,
1890                                         iv,CAST_ENCRYPT);
1891                         d=Time_F(STOP);
1892                         print_result(D_CBC_CAST,j,count,d);
1893                         }
1894                 }
1895 #endif
1896
1897         if (doit[D_EVP])
1898                 {
1899                 for (j=0; j<SIZE_NUM; j++)
1900                         {
1901                         if (evp_cipher)
1902                                 {
1903                                 EVP_CIPHER_CTX ctx;
1904                                 int outl;
1905
1906                                 names[D_EVP]=OBJ_nid2ln(evp_cipher->nid);
1907                                 /* -O3 -fschedule-insns messes up an
1908                                  * optimization here!  names[D_EVP]
1909                                  * somehow becomes NULL */
1910                                 print_message(names[D_EVP],save_count,
1911                                         lengths[j]);
1912
1913                                 EVP_CIPHER_CTX_init(&ctx);
1914                                 if(decrypt)
1915                                         EVP_DecryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
1916                                 else
1917                                         EVP_EncryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
1918                                 EVP_CIPHER_CTX_set_padding(&ctx, 0);
1919
1920                                 Time_F(START);
1921                                 if(decrypt)
1922                                         for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1923                                                 EVP_DecryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
1924                                 else
1925                                         for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1926                                                 EVP_EncryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
1927                                 if(decrypt)
1928                                         EVP_DecryptFinal_ex(&ctx,buf,&outl);
1929                                 else
1930                                         EVP_EncryptFinal_ex(&ctx,buf,&outl);
1931                                 d=Time_F(STOP);
1932                                 EVP_CIPHER_CTX_cleanup(&ctx);
1933                                 }
1934                         if (evp_md)
1935                                 {
1936                                 names[D_EVP]=OBJ_nid2ln(evp_md->type);
1937                                 print_message(names[D_EVP],save_count,
1938                                         lengths[j]);
1939
1940                                 Time_F(START);
1941                                 for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1942                                         EVP_Digest(buf,lengths[j],&(md[0]),NULL,evp_md,NULL);
1943
1944                                 d=Time_F(STOP);
1945                                 }
1946                         print_result(D_EVP,j,count,d);
1947                         }
1948                 }
1949
1950         RAND_pseudo_bytes(buf,36);
1951 #ifndef OPENSSL_NO_RSA
1952         for (j=0; j<RSA_NUM; j++)
1953                 {
1954                 int ret;
1955                 if (!rsa_doit[j]) continue;
1956                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2, &rsa_num, rsa_key[j]);
1957                 if (ret == 0)
1958                         {
1959                         BIO_printf(bio_err,"RSA sign failure.  No RSA sign will be done.\n");
1960                         ERR_print_errors(bio_err);
1961                         rsa_count=1;
1962                         }
1963                 else
1964                         {
1965                         pkey_print_message("private","rsa",
1966                                 rsa_c[j][0],rsa_bits[j],
1967                                 RSA_SECONDS);
1968 /*                      RSA_blinding_on(rsa_key[j],NULL); */
1969                         Time_F(START);
1970                         for (count=0,run=1; COND(rsa_c[j][0]); count++)
1971                                 {
1972                                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2,
1973                                         &rsa_num, rsa_key[j]);
1974                                 if (ret == 0)
1975                                         {
1976                                         BIO_printf(bio_err,
1977                                                 "RSA sign failure\n");
1978                                         ERR_print_errors(bio_err);
1979                                         count=1;
1980                                         break;
1981                                         }
1982                                 }
1983                         d=Time_F(STOP);
1984                         BIO_printf(bio_err,mr ? "+R1:%ld:%d:%.2f\n"
1985                                    : "%ld %d bit private RSA's in %.2fs\n",
1986                                    count,rsa_bits[j],d);
1987                         rsa_results[j][0]=d/(double)count;
1988                         rsa_count=count;
1989                         }
1990
1991 #if 1
1992                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2, rsa_num, rsa_key[j]);
1993                 if (ret <= 0)
1994                         {
1995                         BIO_printf(bio_err,"RSA verify failure.  No RSA verify will be done.\n");
1996                         ERR_print_errors(bio_err);
1997                         rsa_doit[j] = 0;
1998                         }
1999                 else
2000                         {
2001                         pkey_print_message("public","rsa",
2002                                 rsa_c[j][1],rsa_bits[j],
2003                                 RSA_SECONDS);
2004                         Time_F(START);
2005                         for (count=0,run=1; COND(rsa_c[j][1]); count++)
2006                                 {
2007                                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2,
2008                                         rsa_num, rsa_key[j]);
2009                                 if (ret <= 0)
2010                                         {
2011                                         BIO_printf(bio_err,
2012                                                 "RSA verify failure\n");
2013                                         ERR_print_errors(bio_err);
2014                                         count=1;
2015                                         break;
2016                                         }
2017                                 }
2018                         d=Time_F(STOP);
2019                         BIO_printf(bio_err,mr ? "+R2:%ld:%d:%.2f\n"
2020                                    : "%ld %d bit public RSA's in %.2fs\n",
2021                                    count,rsa_bits[j],d);
2022                         rsa_results[j][1]=d/(double)count;
2023                         }
2024 #endif
2025
2026                 if (rsa_count <= 1)
2027                         {
2028                         /* if longer than 10s, don't do any more */
2029                         for (j++; j<RSA_NUM; j++)
2030                                 rsa_doit[j]=0;
2031                         }
2032                 }
2033 #endif
2034
2035         RAND_pseudo_bytes(buf,20);
2036 #ifndef OPENSSL_NO_DSA
2037         if (RAND_status() != 1)
2038                 {
2039                 RAND_seed(rnd_seed, sizeof rnd_seed);
2040                 rnd_fake = 1;
2041                 }
2042         for (j=0; j<DSA_NUM; j++)
2043                 {
2044                 unsigned int kk;
2045                 int ret;
2046
2047                 if (!dsa_doit[j]) continue;
2048 /*              DSA_generate_key(dsa_key[j]); */
2049 /*              DSA_sign_setup(dsa_key[j],NULL); */
2050                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
2051                         &kk,dsa_key[j]);
2052                 if (ret == 0)
2053                         {
2054                         BIO_printf(bio_err,"DSA sign failure.  No DSA sign will be done.\n");
2055                         ERR_print_errors(bio_err);
2056                         rsa_count=1;
2057                         }
2058                 else
2059                         {
2060                         pkey_print_message("sign","dsa",
2061                                 dsa_c[j][0],dsa_bits[j],
2062                                 DSA_SECONDS);
2063                         Time_F(START);
2064                         for (count=0,run=1; COND(dsa_c[j][0]); count++)
2065                                 {
2066                                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
2067                                         &kk,dsa_key[j]);
2068                                 if (ret == 0)
2069                                         {
2070                                         BIO_printf(bio_err,
2071                                                 "DSA sign failure\n");
2072                                         ERR_print_errors(bio_err);
2073                                         count=1;
2074                                         break;
2075                                         }
2076                                 }
2077                         d=Time_F(STOP);
2078                         BIO_printf(bio_err,mr ? "+R3:%ld:%d:%.2f\n"
2079                                    : "%ld %d bit DSA signs in %.2fs\n",
2080                                    count,dsa_bits[j],d);
2081                         dsa_results[j][0]=d/(double)count;
2082                         rsa_count=count;
2083                         }
2084
2085                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
2086                         kk,dsa_key[j]);
2087                 if (ret <= 0)
2088                         {
2089                         BIO_printf(bio_err,"DSA verify failure.  No DSA verify will be done.\n");
2090                         ERR_print_errors(bio_err);
2091                         dsa_doit[j] = 0;
2092                         }
2093                 else
2094                         {
2095                         pkey_print_message("verify","dsa",
2096                                 dsa_c[j][1],dsa_bits[j],
2097                                 DSA_SECONDS);
2098                         Time_F(START);
2099                         for (count=0,run=1; COND(dsa_c[j][1]); count++)
2100                                 {
2101                                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
2102                                         kk,dsa_key[j]);
2103                                 if (ret <= 0)
2104                                         {
2105                                         BIO_printf(bio_err,
2106                                                 "DSA verify failure\n");
2107                                         ERR_print_errors(bio_err);
2108                                         count=1;
2109                                         break;
2110                                         }
2111                                 }
2112                         d=Time_F(STOP);
2113                         BIO_printf(bio_err,mr ? "+R4:%ld:%d:%.2f\n"
2114                                    : "%ld %d bit DSA verify in %.2fs\n",
2115                                    count,dsa_bits[j],d);
2116                         dsa_results[j][1]=d/(double)count;
2117                         }
2118
2119                 if (rsa_count <= 1)
2120                         {
2121                         /* if longer than 10s, don't do any more */
2122                         for (j++; j<DSA_NUM; j++)
2123                                 dsa_doit[j]=0;
2124                         }
2125                 }
2126         if (rnd_fake) RAND_cleanup();
2127 #endif
2128
2129 #ifndef OPENSSL_NO_ECDSA
2130         if (RAND_status() != 1) 
2131                 {
2132                 RAND_seed(rnd_seed, sizeof rnd_seed);
2133                 rnd_fake = 1;
2134                 }
2135         for (j=0; j<EC_NUM; j++) 
2136                 {
2137                 int ret;
2138
2139                 if (!ecdsa_doit[j]) continue; /* Ignore Curve */ 
2140                 ecdsa[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2141                 if (ecdsa[j] == NULL) 
2142                         {
2143                         BIO_printf(bio_err,"ECDSA failure.\n");
2144                         ERR_print_errors(bio_err);
2145                         rsa_count=1;
2146                         } 
2147                 else 
2148                         {
2149 #if 1
2150                         EC_KEY_precompute_mult(ecdsa[j], NULL);
2151 #endif
2152                         /* Perform ECDSA signature test */
2153                         EC_KEY_generate_key(ecdsa[j]);
2154                         ret = ECDSA_sign(0, buf, 20, ecdsasig, 
2155                                 &ecdsasiglen, ecdsa[j]);
2156                         if (ret == 0) 
2157                                 {
2158                                 BIO_printf(bio_err,"ECDSA sign failure.  No ECDSA sign will be done.\n");
2159                                 ERR_print_errors(bio_err);
2160                                 rsa_count=1;
2161                                 } 
2162                         else 
2163                                 {
2164                                 pkey_print_message("sign","ecdsa",
2165                                         ecdsa_c[j][0], 
2166                                         test_curves_bits[j],
2167                                         ECDSA_SECONDS);
2168
2169                                 Time_F(START);
2170                                 for (count=0,run=1; COND(ecdsa_c[j][0]);
2171                                         count++) 
2172                                         {
2173                                         ret=ECDSA_sign(0, buf, 20, 
2174                                                 ecdsasig, &ecdsasiglen,
2175                                                 ecdsa[j]);
2176                                         if (ret == 0) 
2177                                                 {
2178                                                 BIO_printf(bio_err, "ECDSA sign failure\n");
2179                                                 ERR_print_errors(bio_err);
2180                                                 count=1;
2181                                                 break;
2182                                                 }
2183                                         }
2184                                 d=Time_F(STOP);
2185
2186                                 BIO_printf(bio_err, mr ? "+R5:%ld:%d:%.2f\n" :
2187                                         "%ld %d bit ECDSA signs in %.2fs \n", 
2188                                         count, test_curves_bits[j], d);
2189                                 ecdsa_results[j][0]=d/(double)count;
2190                                 rsa_count=count;
2191                                 }
2192
2193                         /* Perform ECDSA verification test */
2194                         ret=ECDSA_verify(0, buf, 20, ecdsasig, 
2195                                 ecdsasiglen, ecdsa[j]);
2196                         if (ret != 1) 
2197                                 {
2198                                 BIO_printf(bio_err,"ECDSA verify failure.  No ECDSA verify will be done.\n");
2199                                 ERR_print_errors(bio_err);
2200                                 ecdsa_doit[j] = 0;
2201                                 } 
2202                         else 
2203                                 {
2204                                 pkey_print_message("verify","ecdsa",
2205                                 ecdsa_c[j][1],
2206                                 test_curves_bits[j],
2207                                 ECDSA_SECONDS);
2208                                 Time_F(START);
2209                                 for (count=0,run=1; COND(ecdsa_c[j][1]); count++) 
2210                                         {
2211                                         ret=ECDSA_verify(0, buf, 20, ecdsasig, ecdsasiglen, ecdsa[j]);
2212                                         if (ret != 1) 
2213                                                 {
2214                                                 BIO_printf(bio_err, "ECDSA verify failure\n");
2215                                                 ERR_print_errors(bio_err);
2216                                                 count=1;
2217                                                 break;
2218                                                 }
2219                                         }
2220                                 d=Time_F(STOP);
2221                                 BIO_printf(bio_err, mr? "+R6:%ld:%d:%.2f\n"
2222                                                 : "%ld %d bit ECDSA verify in %.2fs\n",
2223                                 count, test_curves_bits[j], d);
2224                                 ecdsa_results[j][1]=d/(double)count;
2225                                 }
2226
2227                         if (rsa_count <= 1) 
2228                                 {
2229                                 /* if longer than 10s, don't do any more */
2230                                 for (j++; j<EC_NUM; j++)
2231                                 ecdsa_doit[j]=0;
2232                                 }
2233                         }
2234                 }
2235         if (rnd_fake) RAND_cleanup();
2236 #endif
2237
2238 #ifndef OPENSSL_NO_ECDH
2239         if (RAND_status() != 1)
2240                 {
2241                 RAND_seed(rnd_seed, sizeof rnd_seed);
2242                 rnd_fake = 1;
2243                 }
2244         for (j=0; j<EC_NUM; j++)
2245                 {
2246                 if (!ecdh_doit[j]) continue;
2247                 ecdh_a[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2248                 ecdh_b[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2249                 if ((ecdh_a[j] == NULL) || (ecdh_b[j] == NULL))
2250                         {
2251                         BIO_printf(bio_err,"ECDH failure.\n");
2252                         ERR_print_errors(bio_err);
2253                         rsa_count=1;
2254                         }
2255                 else
2256                         {
2257                         /* generate two ECDH key pairs */
2258                         if (!EC_KEY_generate_key(ecdh_a[j]) ||
2259                                 !EC_KEY_generate_key(ecdh_b[j]))
2260                                 {
2261                                 BIO_printf(bio_err,"ECDH key generation failure.\n");
2262                                 ERR_print_errors(bio_err);
2263                                 rsa_count=1;            
2264                                 }
2265                         else
2266                                 {
2267                                 /* If field size is not more than 24 octets, then use SHA-1 hash of result;
2268                                  * otherwise, use result (see section 4.8 of draft-ietf-tls-ecc-03.txt).
2269                                  */
2270                                 int field_size, outlen;
2271                                 void *(*kdf)(const void *in, size_t inlen, void *out, size_t *xoutlen);
2272                                 field_size = EC_GROUP_get_degree(EC_KEY_get0_group(ecdh_a[j]));
2273                                 if (field_size <= 24 * 8)
2274                                         {
2275                                         outlen = KDF1_SHA1_len;
2276                                         kdf = KDF1_SHA1;
2277                                         }
2278                                 else
2279                                         {
2280                                         outlen = (field_size+7)/8;
2281                                         kdf = NULL;
2282                                         }
2283                                 secret_size_a = ECDH_compute_key(secret_a, outlen,
2284                                         EC_KEY_get0_public_key(ecdh_b[j]),
2285                                         ecdh_a[j], kdf);
2286                                 secret_size_b = ECDH_compute_key(secret_b, outlen,
2287                                         EC_KEY_get0_public_key(ecdh_a[j]),
2288                                         ecdh_b[j], kdf);
2289                                 if (secret_size_a != secret_size_b) 
2290                                         ecdh_checks = 0;
2291                                 else
2292                                         ecdh_checks = 1;
2293
2294                                 for (secret_idx = 0; 
2295                                     (secret_idx < secret_size_a)
2296                                         && (ecdh_checks == 1);
2297                                     secret_idx++)
2298                                         {
2299                                         if (secret_a[secret_idx] != secret_b[secret_idx])
2300                                         ecdh_checks = 0;
2301                                         }
2302
2303                                 if (ecdh_checks == 0)
2304                                         {
2305                                         BIO_printf(bio_err,"ECDH computations don't match.\n");
2306                                         ERR_print_errors(bio_err);
2307                                         rsa_count=1;            
2308                                         }
2309
2310                                 pkey_print_message("","ecdh",
2311                                 ecdh_c[j][0], 
2312                                 test_curves_bits[j],
2313                                 ECDH_SECONDS);
2314                                 Time_F(START);
2315                                 for (count=0,run=1; COND(ecdh_c[j][0]); count++)
2316                                         {
2317                                         ECDH_compute_key(secret_a, outlen,
2318                                         EC_KEY_get0_public_key(ecdh_b[j]),
2319                                         ecdh_a[j], kdf);
2320                                         }
2321                                 d=Time_F(STOP);
2322                                 BIO_printf(bio_err, mr ? "+R7:%ld:%d:%.2f\n" :"%ld %d-bit ECDH ops in %.2fs\n",
2323                                 count, test_curves_bits[j], d);
2324                                 ecdh_results[j][0]=d/(double)count;
2325                                 rsa_count=count;
2326                                 }
2327                         }
2328
2329
2330                 if (rsa_count <= 1)
2331                         {
2332                         /* if longer than 10s, don't do any more */
2333                         for (j++; j<EC_NUM; j++)
2334                         ecdh_doit[j]=0;
2335                         }
2336                 }
2337         if (rnd_fake) RAND_cleanup();
2338 #endif
2339 #ifndef NO_FORK
2340 show_res:
2341 #endif
2342         if(!mr)
2343                 {
2344                 fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_VERSION));
2345         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_BUILT_ON));
2346                 printf("options:");
2347                 printf("%s ",BN_options());
2348 #ifndef OPENSSL_NO_MD2
2349                 printf("%s ",MD2_options());
2350 #endif
2351 #ifndef OPENSSL_NO_RC4
2352                 printf("%s ",RC4_options());
2353 #endif
2354 #ifndef OPENSSL_NO_DES
2355                 printf("%s ",DES_options());
2356 #endif
2357 #ifndef OPENSSL_NO_AES
2358                 printf("%s ",AES_options());
2359 #endif
2360 #ifndef OPENSSL_NO_IDEA
2361                 printf("%s ",idea_options());
2362 #endif
2363 #ifndef OPENSSL_NO_BF
2364                 printf("%s ",BF_options());
2365 #endif
2366                 fprintf(stdout,"\n%s\n",SSLeay_version(SSLEAY_CFLAGS));
2367                 }
2368
2369         if (pr_header)
2370                 {
2371                 if(mr)
2372                         fprintf(stdout,"+H");
2373                 else
2374                         {
2375                         fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n"); 
2376                         fprintf(stdout,"type        ");
2377                         }
2378                 for (j=0;  j<SIZE_NUM; j++)
2379                         fprintf(stdout,mr ? ":%d" : "%7d bytes",lengths[j]);
2380                 fprintf(stdout,"\n");
2381                 }
2382
2383         for (k=0; k<ALGOR_NUM; k++)
2384                 {
2385                 if (!doit[k]) continue;
2386                 if(mr)
2387                         fprintf(stdout,"+F:%d:%s",k,names[k]);
2388                 else
2389                         fprintf(stdout,"%-13s",names[k]);
2390                 for (j=0; j<SIZE_NUM; j++)
2391                         {
2392                         if (results[k][j] > 10000 && !mr)
2393                                 fprintf(stdout," %11.2fk",results[k][j]/1e3);
2394                         else
2395                                 fprintf(stdout,mr ? ":%.2f" : " %11.2f ",results[k][j]);
2396                         }
2397                 fprintf(stdout,"\n");
2398                 }
2399 #ifndef OPENSSL_NO_RSA
2400         j=1;
2401         for (k=0; k<RSA_NUM; k++)
2402                 {
2403                 if (!rsa_doit[k]) continue;
2404                 if (j && !mr)
2405                         {
2406                         printf("%18ssign    verify    sign/s verify/s\n"," ");
2407                         j=0;
2408                         }
2409                 if(mr)
2410                         fprintf(stdout,"+F2:%u:%u:%f:%f\n",
2411                                 k,rsa_bits[k],rsa_results[k][0],
2412                                 rsa_results[k][1]);
2413                 else
2414                         fprintf(stdout,"rsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n",
2415                                 rsa_bits[k],rsa_results[k][0],rsa_results[k][1],
2416                                 1.0/rsa_results[k][0],1.0/rsa_results[k][1]);
2417                 }
2418 #endif
2419 #ifndef OPENSSL_NO_DSA
2420         j=1;
2421         for (k=0; k<DSA_NUM; k++)
2422                 {
2423                 if (!dsa_doit[k]) continue;
2424                 if (j && !mr)
2425                         {
2426                         printf("%18ssign    verify    sign/s verify/s\n"," ");
2427                         j=0;
2428                         }
2429                 if(mr)
2430                         fprintf(stdout,"+F3:%u:%u:%f:%f\n",
2431                                 k,dsa_bits[k],dsa_results[k][0],dsa_results[k][1]);
2432                 else
2433                         fprintf(stdout,"dsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n",
2434                                 dsa_bits[k],dsa_results[k][0],dsa_results[k][1],
2435                                 1.0/dsa_results[k][0],1.0/dsa_results[k][1]);
2436                 }
2437 #endif
2438 #ifndef OPENSSL_NO_ECDSA
2439         j=1;
2440         for (k=0; k<EC_NUM; k++)
2441                 {
2442                 if (!ecdsa_doit[k]) continue;
2443                 if (j && !mr)
2444                         {
2445                         printf("%30ssign    verify    sign/s verify/s\n"," ");
2446                         j=0;
2447                         }
2448
2449                 if (mr)
2450                         fprintf(stdout,"+F4:%u:%u:%f:%f\n", 
2451                                 k, test_curves_bits[k],
2452                                 ecdsa_results[k][0],ecdsa_results[k][1]);
2453                 else
2454                         fprintf(stdout,
2455                                 "%4u bit ecdsa (%s) %8.4fs %8.4fs %8.1f %8.1f\n", 
2456                                 test_curves_bits[k],
2457                                 test_curves_names[k],
2458                                 ecdsa_results[k][0],ecdsa_results[k][1], 
2459                                 1.0/ecdsa_results[k][0],1.0/ecdsa_results[k][1]);
2460                 }
2461 #endif
2462
2463
2464 #ifndef OPENSSL_NO_ECDH
2465         j=1;
2466         for (k=0; k<EC_NUM; k++)
2467                 {
2468                 if (!ecdh_doit[k]) continue;
2469                 if (j && !mr)
2470                         {
2471                         printf("%30sop      op/s\n"," ");
2472                         j=0;
2473                         }
2474                 if (mr)
2475                         fprintf(stdout,"+F5:%u:%u:%f:%f\n",
2476                                 k, test_curves_bits[k],
2477                                 ecdh_results[k][0], 1.0/ecdh_results[k][0]);
2478
2479                 else
2480                         fprintf(stdout,"%4u bit ecdh (%s) %8.4fs %8.1f\n",
2481                                 test_curves_bits[k],
2482                                 test_curves_names[k],
2483                                 ecdh_results[k][0], 1.0/ecdh_results[k][0]);
2484                 }
2485 #endif
2486
2487         mret=0;
2488
2489 end:
2490         ERR_print_errors(bio_err);
2491         if (buf != NULL) OPENSSL_free(buf);
2492         if (buf2 != NULL) OPENSSL_free(buf2);
2493 #ifndef OPENSSL_NO_RSA
2494         for (i=0; i<RSA_NUM; i++)
2495                 if (rsa_key[i] != NULL)
2496                         RSA_free(rsa_key[i]);
2497 #endif
2498 #ifndef OPENSSL_NO_DSA
2499         for (i=0; i<DSA_NUM; i++)
2500                 if (dsa_key[i] != NULL)
2501                         DSA_free(dsa_key[i]);
2502 #endif
2503
2504 #ifndef OPENSSL_NO_ECDSA
2505         for (i=0; i<EC_NUM; i++)
2506                 if (ecdsa[i] != NULL)
2507                         EC_KEY_free(ecdsa[i]);
2508 #endif
2509 #ifndef OPENSSL_NO_ECDH
2510         for (i=0; i<EC_NUM; i++)
2511         {
2512                 if (ecdh_a[i] != NULL)
2513                         EC_KEY_free(ecdh_a[i]);
2514                 if (ecdh_b[i] != NULL)
2515                         EC_KEY_free(ecdh_b[i]);
2516         }
2517 #endif
2518
2519         apps_shutdown();
2520         OPENSSL_EXIT(mret);
2521         }
2522
2523 static void print_message(const char *s, long num, int length)
2524         {
2525 #ifdef SIGALRM
2526         BIO_printf(bio_err,mr ? "+DT:%s:%d:%d\n"
2527                    : "Doing %s for %ds on %d size blocks: ",s,SECONDS,length);
2528         (void)BIO_flush(bio_err);
2529         alarm(SECONDS);
2530 #else
2531         BIO_printf(bio_err,mr ? "+DN:%s:%ld:%d\n"
2532                    : "Doing %s %ld times on %d size blocks: ",s,num,length);
2533         (void)BIO_flush(bio_err);
2534 #endif
2535 #ifdef LINT
2536         num=num;
2537 #endif
2538         }
2539
2540 static void pkey_print_message(const char *str, const char *str2, long num,
2541         int bits, int tm)
2542         {
2543 #ifdef SIGALRM
2544         BIO_printf(bio_err,mr ? "+DTP:%d:%s:%s:%d\n"
2545                            : "Doing %d bit %s %s's for %ds: ",bits,str,str2,tm);
2546         (void)BIO_flush(bio_err);
2547         alarm(RSA_SECONDS);
2548 #else
2549         BIO_printf(bio_err,mr ? "+DNP:%ld:%d:%s:%s\n"
2550                            : "Doing %ld %d bit %s %s's: ",num,bits,str,str2);
2551         (void)BIO_flush(bio_err);
2552 #endif
2553 #ifdef LINT
2554         num=num;
2555 #endif
2556         }
2557
2558 static void print_result(int alg,int run_no,int count,double time_used)
2559         {
2560         BIO_printf(bio_err,mr ? "+R:%d:%s:%f\n"
2561                    : "%d %s's in %.2fs\n",count,names[alg],time_used);
2562         results[alg][run_no]=((double)count)/time_used*lengths[run_no];
2563         }
2564
2565 #ifndef NO_FORK
2566 static char *sstrsep(char **string, const char *delim)
2567     {
2568     char isdelim[256];
2569     char *token = *string;
2570
2571     if (**string == 0)
2572         return NULL;
2573
2574     memset(isdelim, 0, sizeof isdelim);
2575     isdelim[0] = 1;
2576
2577     while (*delim)
2578         {
2579         isdelim[(unsigned char)(*delim)] = 1;
2580         delim++;
2581         }
2582
2583     while (!isdelim[(unsigned char)(**string)])
2584         {
2585         (*string)++;
2586         }
2587
2588     if (**string)
2589         {
2590         **string = 0;
2591         (*string)++;
2592         }
2593
2594     return token;
2595     }
2596
2597 static int do_multi(int multi)
2598         {
2599         int n;
2600         int fd[2];
2601         int *fds;
2602         static char sep[]=":";
2603
2604         fds=malloc(multi*sizeof *fds);
2605         for(n=0 ; n < multi ; ++n)
2606                 {
2607                 pipe(fd);
2608                 fflush(stdout);
2609                 fflush(stderr);
2610                 if(fork())
2611                         {
2612                         close(fd[1]);
2613                         fds[n]=fd[0];
2614                         }
2615                 else
2616                         {
2617                         close(fd[0]);
2618                         close(1);
2619                         dup(fd[1]);
2620                         close(fd[1]);
2621                         mr=1;
2622                         usertime=0;
2623                         free(fds);
2624                         return 0;
2625                         }
2626                 printf("Forked child %d\n",n);
2627                 }
2628
2629         /* for now, assume the pipe is long enough to take all the output */
2630         for(n=0 ; n < multi ; ++n)
2631                 {
2632                 FILE *f;
2633                 char buf[1024];
2634                 char *p;
2635
2636                 f=fdopen(fds[n],"r");
2637                 while(fgets(buf,sizeof buf,f))
2638                         {
2639                         p=strchr(buf,'\n');
2640                         if(p)
2641                                 *p='\0';
2642                         if(buf[0] != '+')
2643                                 {
2644                                 fprintf(stderr,"Don't understand line '%s' from child %d\n",
2645                                                 buf,n);
2646                                 continue;
2647                                 }
2648                         printf("Got: %s from %d\n",buf,n);
2649                         if(!strncmp(buf,"+F:",3))
2650                                 {
2651                                 int alg;
2652                                 int j;
2653
2654                                 p=buf+3;
2655                                 alg=atoi(sstrsep(&p,sep));
2656                                 sstrsep(&p,sep);
2657                                 for(j=0 ; j < SIZE_NUM ; ++j)
2658                                         results[alg][j]+=atof(sstrsep(&p,sep));
2659                                 }
2660                         else if(!strncmp(buf,"+F2:",4))
2661                                 {
2662                                 int k;
2663                                 double d;
2664                                 
2665                                 p=buf+4;
2666                                 k=atoi(sstrsep(&p,sep));
2667                                 sstrsep(&p,sep);
2668
2669                                 d=atof(sstrsep(&p,sep));
2670                                 if(n)
2671                                         rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
2672                                 else
2673                                         rsa_results[k][0]=d;
2674
2675                                 d=atof(sstrsep(&p,sep));
2676                                 if(n)
2677                                         rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
2678                                 else
2679                                         rsa_results[k][1]=d;
2680                                 }
2681                         else if(!strncmp(buf,"+F2:",4))
2682                                 {
2683                                 int k;
2684                                 double d;
2685                                 
2686                                 p=buf+4;
2687                                 k=atoi(sstrsep(&p,sep));
2688                                 sstrsep(&p,sep);
2689
2690                                 d=atof(sstrsep(&p,sep));
2691                                 if(n)
2692                                         rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
2693                                 else
2694                                         rsa_results[k][0]=d;
2695
2696                                 d=atof(sstrsep(&p,sep));
2697                                 if(n)
2698                                         rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
2699                                 else
2700                                         rsa_results[k][1]=d;
2701                                 }
2702                         else if(!strncmp(buf,"+F3:",4))
2703                                 {
2704                                 int k;
2705                                 double d;
2706                                 
2707                                 p=buf+4;
2708                                 k=atoi(sstrsep(&p,sep));
2709                                 sstrsep(&p,sep);
2710
2711                                 d=atof(sstrsep(&p,sep));
2712                                 if(n)
2713                                         dsa_results[k][0]=1/(1/dsa_results[k][0]+1/d);
2714                                 else
2715                                         dsa_results[k][0]=d;
2716
2717                                 d=atof(sstrsep(&p,sep));
2718                                 if(n)
2719                                         dsa_results[k][1]=1/(1/dsa_results[k][1]+1/d);
2720                                 else
2721                                         dsa_results[k][1]=d;
2722                                 }
2723 #ifndef OPENSSL_NO_ECDSA
2724                         else if(!strncmp(buf,"+F4:",4))
2725                                 {
2726                                 int k;
2727                                 double d;
2728                                 
2729                                 p=buf+4;
2730                                 k=atoi(sstrsep(&p,sep));
2731                                 sstrsep(&p,sep);
2732
2733                                 d=atof(sstrsep(&p,sep));
2734                                 if(n)
2735                                         ecdsa_results[k][0]=1/(1/ecdsa_results[k][0]+1/d);
2736                                 else
2737                                         ecdsa_results[k][0]=d;
2738
2739                                 d=atof(sstrsep(&p,sep));
2740                                 if(n)
2741                                         ecdsa_results[k][1]=1/(1/ecdsa_results[k][1]+1/d);
2742                                 else
2743                                         ecdsa_results[k][1]=d;
2744                                 }
2745 #endif 
2746
2747 #ifndef OPENSSL_NO_ECDH
2748                         else if(!strncmp(buf,"+F5:",4))
2749                                 {
2750                                 int k;
2751                                 double d;
2752                                 
2753                                 p=buf+4;
2754                                 k=atoi(sstrsep(&p,sep));
2755                                 sstrsep(&p,sep);
2756
2757                                 d=atof(sstrsep(&p,sep));
2758                                 if(n)
2759                                         ecdh_results[k][0]=1/(1/ecdh_results[k][0]+1/d);
2760                                 else
2761                                         ecdh_results[k][0]=d;
2762
2763                                 }
2764 #endif
2765
2766                         else if(!strncmp(buf,"+H:",3))
2767                                 {
2768                                 }
2769                         else
2770                                 fprintf(stderr,"Unknown type '%s' from child %d\n",buf,n);
2771                         }
2772
2773                 fclose(f);
2774                 }
2775         free(fds);
2776         return 1;
2777         }
2778 #endif
2779 #endif