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