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