1 /* apps/speed.c -*- mode:C; c-file-style: "eay" -*- */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
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.
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).
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.
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
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)"
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
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.]
58 /* ====================================================================
59 * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
61 * Portions of the attached software ("Contribution") are developed by
62 * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project.
64 * The Contribution is licensed pursuant to the OpenSSL open source
65 * license provided above.
67 * The ECDH and ECDSA speed test software is originally written by
68 * Sumit Gupta of Sun Microsystems Laboratories.
72 /* most of this code has been pilfered from my libdes speed.c program */
74 #ifndef OPENSSL_NO_SPEED
78 #define PRIME_SECONDS 10
79 #define RSA_SECONDS 10
80 #define DSA_SECONDS 10
81 #define ECDSA_SECONDS 10
82 #define ECDH_SECONDS 10
84 /* 11-Sep-92 Andrew Daviel Support for Silicon Graphics IRIX added */
85 /* 06-Apr-92 Luke Brennan Support for VMS and add extra signal calls */
88 #define PROG speed_main
96 #include <openssl/crypto.h>
97 #include <openssl/rand.h>
98 #include <openssl/err.h>
99 #include <openssl/evp.h>
100 #include <openssl/objects.h>
101 #if !defined(OPENSSL_SYS_MSDOS)
102 #include OPENSSL_UNISTD
105 #ifndef OPENSSL_SYS_NETWARE
109 #if defined(_WIN32) || defined(__CYGWIN__)
111 # if defined(__CYGWIN__) && !defined(_WIN32)
112 /* <windows.h> should define _WIN32, which normally is mutually
113 * exclusive with __CYGWIN__, but if it didn't... */
115 /* this is done because Cygwin alarm() fails sometimes. */
119 #include <openssl/bn.h>
120 #ifndef OPENSSL_NO_DES
121 #include <openssl/des.h>
123 #ifndef OPENSSL_NO_AES
124 #include <openssl/aes.h>
126 #ifndef OPENSSL_NO_CAMELLIA
127 #include <openssl/camellia.h>
129 #ifndef OPENSSL_NO_MD2
130 #include <openssl/md2.h>
132 #ifndef OPENSSL_NO_MDC2
133 #include <openssl/mdc2.h>
135 #ifndef OPENSSL_NO_MD4
136 #include <openssl/md4.h>
138 #ifndef OPENSSL_NO_MD5
139 #include <openssl/md5.h>
141 #ifndef OPENSSL_NO_HMAC
142 #include <openssl/hmac.h>
144 #include <openssl/evp.h>
145 #ifndef OPENSSL_NO_SHA
146 #include <openssl/sha.h>
148 #ifndef OPENSSL_NO_RIPEMD
149 #include <openssl/ripemd.h>
151 #ifndef OPENSSL_NO_WHIRLPOOL
152 #include <openssl/whrlpool.h>
154 #ifndef OPENSSL_NO_RC4
155 #include <openssl/rc4.h>
157 #ifndef OPENSSL_NO_RC5
158 #include <openssl/rc5.h>
160 #ifndef OPENSSL_NO_RC2
161 #include <openssl/rc2.h>
163 #ifndef OPENSSL_NO_IDEA
164 #include <openssl/idea.h>
166 #ifndef OPENSSL_NO_SEED
167 #include <openssl/seed.h>
169 #ifndef OPENSSL_NO_BF
170 #include <openssl/blowfish.h>
172 #ifndef OPENSSL_NO_CAST
173 #include <openssl/cast.h>
175 #ifndef OPENSSL_NO_RSA
176 #include <openssl/rsa.h>
177 #include "./testrsa.h"
179 #include <openssl/x509.h>
180 #ifndef OPENSSL_NO_DSA
181 #include <openssl/dsa.h>
182 #include "./testdsa.h"
184 #ifndef OPENSSL_NO_ECDSA
185 #include <openssl/ecdsa.h>
187 #ifndef OPENSSL_NO_ECDH
188 #include <openssl/ecdh.h>
190 #include <openssl/modes.h>
192 #include "../crypto/bn/bn_lcl.h"
195 # if defined(OPENSSL_SYS_VMS) || defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MACINTOSH_CLASSIC) || defined(OPENSSL_SYS_OS2) || defined(OPENSSL_SYS_NETWARE)
209 #define BUFSIZE (1024*8+1)
210 #define MAX_MISALIGNMENT 63
215 static int usertime=1;
217 static double Time_F(int s);
218 static void print_message(const char *s,long num,int length);
219 static void prime_print_message(const char *s, long num);
220 static void pkey_print_message(const char *str, const char *str2,
221 long num, int bits, int sec);
222 static void print_result(int alg,int run_no,int count,double time_used);
223 static void prime_print_result(int alg, int count, double time_used);
225 static int do_multi(int multi);
235 #define MAX_ECDH_SIZE 256
237 static const char *names[ALGOR_NUM]={
238 "md2","mdc2","md4","md5","hmac(md5)","sha1","rmd160","rc4",
239 "des cbc","des ede3","idea cbc","seed cbc",
240 "rc2 cbc","rc5-32/12 cbc","blowfish cbc","cast cbc",
241 "aes-128 cbc","aes-192 cbc","aes-256 cbc",
242 "camellia-128 cbc","camellia-192 cbc","camellia-256 cbc",
243 "evp","sha256","sha512","whirlpool",
244 "aes-128 ige","aes-192 ige","aes-256 ige","ghash" };
245 static double results[ALGOR_NUM][SIZE_NUM];
246 static int lengths[SIZE_NUM]={16,64,256,1024,8*1024};
247 static const char *prime_names[PRIME_NUM]={
248 "prime trial division", "prime trial division retry", "prime coprime" };
249 #ifndef OPENSSL_NO_RSA
250 static double rsa_results[RSA_NUM][2];
252 #ifndef OPENSSL_NO_DSA
253 static double dsa_results[DSA_NUM][2];
255 #ifndef OPENSSL_NO_ECDSA
256 static double ecdsa_results[EC_NUM][2];
258 #ifndef OPENSSL_NO_ECDH
259 static double ecdh_results[EC_NUM][1];
262 #if defined(OPENSSL_NO_DSA) && !(defined(OPENSSL_NO_ECDSA) && defined(OPENSSL_NO_ECDH))
263 static const char rnd_seed[] = "string to make the random number generator think it has entropy";
264 static int rnd_fake = 0;
268 #if defined(__STDC__) || defined(sgi) || defined(_AIX)
269 #define SIGRETTYPE void
271 #define SIGRETTYPE int
274 static SIGRETTYPE sig_done(int sig);
275 static SIGRETTYPE sig_done(int sig)
277 signal(SIGALRM,sig_done);
290 #if !defined(SIGALRM)
293 static unsigned int lapse,schlock;
294 static void alarm_win32(unsigned int secs) { lapse = secs*1000; }
295 #define alarm alarm_win32
297 static DWORD WINAPI sleepy(VOID *arg)
305 static double Time_F(int s)
313 thr = CreateThread(NULL,4096,sleepy,NULL,0,NULL);
316 DWORD ret=GetLastError();
317 BIO_printf(bio_err,"unable to CreateThread (%d)",ret);
320 while (!schlock) Sleep(0); /* scheduler spinlock */
321 ret = app_tminterval(s,usertime);
325 ret = app_tminterval(s,usertime);
326 if (run) TerminateThread(thr,0);
334 static double Time_F(int s)
336 double ret = app_tminterval(s,usertime);
337 if (s == STOP) alarm(0);
343 #ifndef OPENSSL_NO_ECDH
344 static const int KDF1_SHA1_len = 20;
345 static void *KDF1_SHA1(const void *in, size_t inlen, void *out, size_t *outlen)
347 #ifndef OPENSSL_NO_SHA
348 if (*outlen < SHA_DIGEST_LENGTH)
351 *outlen = SHA_DIGEST_LENGTH;
352 return SHA1(in, inlen, out);
355 #endif /* OPENSSL_NO_SHA */
357 #endif /* OPENSSL_NO_ECDH */
359 static void multiblock_speed(const EVP_CIPHER *evp_cipher);
361 int MAIN(int, char **);
363 int MAIN(int argc, char **argv)
365 unsigned char *buf_malloc=NULL, *buf2_malloc=NULL;
366 unsigned char *buf=NULL,*buf2=NULL;
368 long count=0,save_count=0;
370 #if !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_DSA)
373 #ifndef OPENSSL_NO_RSA
376 unsigned char md[EVP_MAX_MD_SIZE];
377 #ifndef OPENSSL_NO_MD2
378 unsigned char md2[MD2_DIGEST_LENGTH];
380 #ifndef OPENSSL_NO_MDC2
381 unsigned char mdc2[MDC2_DIGEST_LENGTH];
383 #ifndef OPENSSL_NO_MD4
384 unsigned char md4[MD4_DIGEST_LENGTH];
386 #ifndef OPENSSL_NO_MD5
387 unsigned char md5[MD5_DIGEST_LENGTH];
388 unsigned char hmac[MD5_DIGEST_LENGTH];
390 #ifndef OPENSSL_NO_SHA
391 unsigned char sha[SHA_DIGEST_LENGTH];
392 #ifndef OPENSSL_NO_SHA256
393 unsigned char sha256[SHA256_DIGEST_LENGTH];
395 #ifndef OPENSSL_NO_SHA512
396 unsigned char sha512[SHA512_DIGEST_LENGTH];
399 #ifndef OPENSSL_NO_WHIRLPOOL
400 unsigned char whirlpool[WHIRLPOOL_DIGEST_LENGTH];
402 #ifndef OPENSSL_NO_RIPEMD
403 unsigned char rmd160[RIPEMD160_DIGEST_LENGTH];
405 #ifndef OPENSSL_NO_RC4
408 #ifndef OPENSSL_NO_RC5
411 #ifndef OPENSSL_NO_RC2
414 #ifndef OPENSSL_NO_IDEA
415 IDEA_KEY_SCHEDULE idea_ks;
417 #ifndef OPENSSL_NO_SEED
418 SEED_KEY_SCHEDULE seed_ks;
420 #ifndef OPENSSL_NO_BF
423 #ifndef OPENSSL_NO_CAST
426 static const unsigned char key16[16]=
427 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
428 0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
429 #ifndef OPENSSL_NO_AES
430 static const unsigned char key24[24]=
431 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
432 0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
433 0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
434 static const unsigned char key32[32]=
435 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
436 0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
437 0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,
438 0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,0x56};
440 #ifndef OPENSSL_NO_CAMELLIA
441 static const unsigned char ckey24[24]=
442 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
443 0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
444 0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
445 static const unsigned char ckey32[32]=
446 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
447 0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,
448 0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,
449 0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34,0x56};
451 #ifndef OPENSSL_NO_AES
452 #define MAX_BLOCK_SIZE 128
454 #define MAX_BLOCK_SIZE 64
456 unsigned char DES_iv[8];
457 unsigned char iv[2*MAX_BLOCK_SIZE/8];
458 #ifndef OPENSSL_NO_DES
459 static DES_cblock key ={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
460 static DES_cblock key2={0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
461 static DES_cblock key3={0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
462 DES_key_schedule sch;
463 DES_key_schedule sch2;
464 DES_key_schedule sch3;
466 #ifndef OPENSSL_NO_AES
467 AES_KEY aes_ks1, aes_ks2, aes_ks3;
469 #ifndef OPENSSL_NO_CAMELLIA
470 CAMELLIA_KEY camellia_ks1, camellia_ks2, camellia_ks3;
482 #define D_CBC_IDEA 10
483 #define D_CBC_SEED 11
487 #define D_CBC_CAST 15
488 #define D_CBC_128_AES 16
489 #define D_CBC_192_AES 17
490 #define D_CBC_256_AES 18
491 #define D_CBC_128_CML 19
492 #define D_CBC_192_CML 20
493 #define D_CBC_256_CML 21
497 #define D_WHIRLPOOL 25
498 #define D_IGE_128_AES 26
499 #define D_IGE_192_AES 27
500 #define D_IGE_256_AES 28
503 long c[ALGOR_NUM][SIZE_NUM];
505 #define D_PRIME_TRIAL_DIVISION 0
506 #define D_PRIME_TRIAL_DIVISION_RETRY 1
507 #define D_PRIME_COPRIME 2
508 long prime_c[PRIME_NUM];
519 #define R_RSA_15360 6
538 #ifndef OPENSSL_NO_RSA
539 RSA *rsa_key[RSA_NUM];
540 long rsa_c[RSA_NUM][2];
541 static unsigned int rsa_bits[RSA_NUM]={512,1024,2048,3072,4096,7680,15360};
542 static unsigned char *rsa_data[RSA_NUM]=
543 {test512,test1024,test2048,test3072,test4096,test7680,test15360};
544 static int rsa_data_length[RSA_NUM]={
545 sizeof(test512),sizeof(test1024),
546 sizeof(test2048),sizeof(test3072),
547 sizeof(test4096),sizeof(test7680),
550 #ifndef OPENSSL_NO_DSA
551 DSA *dsa_key[DSA_NUM];
552 long dsa_c[DSA_NUM][2];
553 static unsigned int dsa_bits[DSA_NUM]={512,1024,2048};
555 #ifndef OPENSSL_NO_EC
556 /* We only test over the following curves as they are representative,
557 * To add tests over more curves, simply add the curve NID
558 * and curve name to the following arrays and increase the
559 * EC_NUM value accordingly.
561 static unsigned int test_curves[EC_NUM] =
565 NID_X9_62_prime192v1,
567 NID_X9_62_prime256v1,
582 static const char * test_curves_names[EC_NUM] =
603 static int test_curves_bits[EC_NUM] =
605 160, 192, 224, 256, 384, 521,
606 163, 233, 283, 409, 571,
607 163, 233, 283, 409, 571
612 #ifndef OPENSSL_NO_ECDSA
613 unsigned char ecdsasig[256];
614 unsigned int ecdsasiglen;
615 EC_KEY *ecdsa[EC_NUM];
616 long ecdsa_c[EC_NUM][2];
619 #ifndef OPENSSL_NO_ECDH
620 EC_KEY *ecdh_a[EC_NUM], *ecdh_b[EC_NUM];
621 unsigned char secret_a[MAX_ECDH_SIZE], secret_b[MAX_ECDH_SIZE];
622 int secret_size_a, secret_size_b;
625 long ecdh_c[EC_NUM][2];
628 int prime_doit[PRIME_NUM];
629 int rsa_doit[RSA_NUM];
630 int dsa_doit[DSA_NUM];
631 #ifndef OPENSSL_NO_ECDSA
632 int ecdsa_doit[EC_NUM];
634 #ifndef OPENSSL_NO_ECDH
635 int ecdh_doit[EC_NUM];
639 const EVP_CIPHER *evp_cipher=NULL;
640 const EVP_MD *evp_md=NULL;
646 int misalign=MAX_MISALIGNMENT+1;
653 memset(results, 0, sizeof(results));
654 #ifndef OPENSSL_NO_DSA
655 memset(dsa_key,0,sizeof(dsa_key));
657 #ifndef OPENSSL_NO_ECDSA
658 for (i=0; i<EC_NUM; i++) ecdsa[i] = NULL;
660 #ifndef OPENSSL_NO_ECDH
661 for (i=0; i<EC_NUM; i++)
670 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
671 BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
673 if (!load_config(bio_err, NULL))
676 #ifndef OPENSSL_NO_RSA
677 memset(rsa_key,0,sizeof(rsa_key));
678 for (i=0; i<RSA_NUM; i++)
682 if ((buf_malloc=(unsigned char *)OPENSSL_malloc(BUFSIZE+misalign)) == NULL)
684 BIO_printf(bio_err,"out of memory\n");
687 if ((buf2_malloc=(unsigned char *)OPENSSL_malloc(BUFSIZE+misalign)) == NULL)
689 BIO_printf(bio_err,"out of memory\n");
693 misalign = 0; /* set later and buf/buf2 are adjusted accordingly */
697 memset(c,0,sizeof(c));
698 memset(DES_iv,0,sizeof(DES_iv));
699 memset(iv,0,sizeof(iv));
701 for (i=0; i<ALGOR_NUM; i++)
703 for (i=0; i<RSA_NUM; i++)
705 for (i=0; i<DSA_NUM; i++)
707 #ifndef OPENSSL_NO_ECDSA
708 for (i=0; i<EC_NUM; i++)
711 #ifndef OPENSSL_NO_ECDH
712 for (i=0; i<EC_NUM; i++)
715 for (i=0; i<PRIME_NUM; i++)
724 if ((argc > 0) && (strcmp(*argv,"-elapsed") == 0))
727 j--; /* Otherwise, -elapsed gets confused with
730 else if ((argc > 0) && (strcmp(*argv,"-evp") == 0))
736 BIO_printf(bio_err,"no EVP given\n");
739 evp_cipher=EVP_get_cipherbyname(*argv);
742 evp_md=EVP_get_digestbyname(*argv);
744 if(!evp_cipher && !evp_md)
746 BIO_printf(bio_err,"%s is an unknown cipher or digest\n",*argv);
751 else if (argc > 0 && !strcmp(*argv,"-decrypt"))
754 j--; /* Otherwise, -elapsed gets confused with
757 #ifndef OPENSSL_NO_ENGINE
758 else if ((argc > 0) && (strcmp(*argv,"-engine") == 0))
764 BIO_printf(bio_err,"no engine given\n");
767 setup_engine(bio_err, *argv, 0);
768 /* j will be increased again further down. We just
769 don't want speed to confuse an engine with an
770 algorithm, especially when none is given (which
771 means all of them should be run) */
776 else if ((argc > 0) && (strcmp(*argv,"-multi") == 0))
782 BIO_printf(bio_err,"no multi count given\n");
788 BIO_printf(bio_err,"bad multi count\n");
791 j--; /* Otherwise, -mr gets confused with
795 else if (argc > 0 && !strcmp(*argv,"-mr"))
798 j--; /* Otherwise, -mr gets confused with
801 else if (argc > 0 && !strcmp(*argv,"-mb"))
806 else if (argc > 0 && !strcmp(*argv,"-misalign"))
812 BIO_printf(bio_err,"no misalignment given\n");
815 misalign=atoi(argv[0]);
816 if (misalign<0 || misalign>MAX_MISALIGNMENT)
818 BIO_printf(bio_err,"misalignment is outsize permitted range 0-%d\n",MAX_MISALIGNMENT);
821 buf=buf_malloc+misalign;
822 buf2=buf2_malloc+misalign;
826 #ifndef OPENSSL_NO_MD2
827 if (strcmp(*argv,"md2") == 0) doit[D_MD2]=1;
830 #ifndef OPENSSL_NO_MDC2
831 if (strcmp(*argv,"mdc2") == 0) doit[D_MDC2]=1;
834 #ifndef OPENSSL_NO_MD4
835 if (strcmp(*argv,"md4") == 0) doit[D_MD4]=1;
838 #ifndef OPENSSL_NO_MD5
839 if (strcmp(*argv,"md5") == 0) doit[D_MD5]=1;
842 #ifndef OPENSSL_NO_MD5
843 if (strcmp(*argv,"hmac") == 0) doit[D_HMAC]=1;
846 #ifndef OPENSSL_NO_SHA
847 if (strcmp(*argv,"sha1") == 0) doit[D_SHA1]=1;
849 if (strcmp(*argv,"sha") == 0) doit[D_SHA1]=1,
853 #ifndef OPENSSL_NO_SHA256
854 if (strcmp(*argv,"sha256") == 0) doit[D_SHA256]=1;
857 #ifndef OPENSSL_NO_SHA512
858 if (strcmp(*argv,"sha512") == 0) doit[D_SHA512]=1;
862 #ifndef OPENSSL_NO_WHIRLPOOL
863 if (strcmp(*argv,"whirlpool") == 0) doit[D_WHIRLPOOL]=1;
866 #ifndef OPENSSL_NO_RIPEMD
867 if (strcmp(*argv,"ripemd") == 0) doit[D_RMD160]=1;
869 if (strcmp(*argv,"rmd160") == 0) doit[D_RMD160]=1;
871 if (strcmp(*argv,"ripemd160") == 0) doit[D_RMD160]=1;
874 #ifndef OPENSSL_NO_RC4
875 if (strcmp(*argv,"rc4") == 0) doit[D_RC4]=1;
878 #ifndef OPENSSL_NO_DES
879 if (strcmp(*argv,"des-cbc") == 0) doit[D_CBC_DES]=1;
880 else if (strcmp(*argv,"des-ede3") == 0) doit[D_EDE3_DES]=1;
883 #ifndef OPENSSL_NO_AES
884 if (strcmp(*argv,"aes-128-cbc") == 0) doit[D_CBC_128_AES]=1;
885 else if (strcmp(*argv,"aes-192-cbc") == 0) doit[D_CBC_192_AES]=1;
886 else if (strcmp(*argv,"aes-256-cbc") == 0) doit[D_CBC_256_AES]=1;
887 else if (strcmp(*argv,"aes-128-ige") == 0) doit[D_IGE_128_AES]=1;
888 else if (strcmp(*argv,"aes-192-ige") == 0) doit[D_IGE_192_AES]=1;
889 else if (strcmp(*argv,"aes-256-ige") == 0) doit[D_IGE_256_AES]=1;
892 #ifndef OPENSSL_NO_CAMELLIA
893 if (strcmp(*argv,"camellia-128-cbc") == 0) doit[D_CBC_128_CML]=1;
894 else if (strcmp(*argv,"camellia-192-cbc") == 0) doit[D_CBC_192_CML]=1;
895 else if (strcmp(*argv,"camellia-256-cbc") == 0) doit[D_CBC_256_CML]=1;
898 #ifndef OPENSSL_NO_RSA
899 #if 0 /* was: #ifdef RSAref */
900 if (strcmp(*argv,"rsaref") == 0)
902 RSA_set_default_openssl_method(RSA_PKCS1_RSAref());
908 if (strcmp(*argv,"openssl") == 0)
910 RSA_set_default_method(RSA_PKCS1_SSLeay());
915 #endif /* !OPENSSL_NO_RSA */
916 if (strcmp(*argv,"dsa512") == 0) dsa_doit[R_DSA_512]=2;
917 else if (strcmp(*argv,"dsa1024") == 0) dsa_doit[R_DSA_1024]=2;
918 else if (strcmp(*argv,"dsa2048") == 0) dsa_doit[R_DSA_2048]=2;
919 else if (strcmp(*argv,"rsa512") == 0) rsa_doit[R_RSA_512]=2;
920 else if (strcmp(*argv,"rsa1024") == 0) rsa_doit[R_RSA_1024]=2;
921 else if (strcmp(*argv,"rsa2048") == 0) rsa_doit[R_RSA_2048]=2;
922 else if (strcmp(*argv,"rsa3072") == 0) rsa_doit[R_RSA_3072]=2;
923 else if (strcmp(*argv,"rsa4096") == 0) rsa_doit[R_RSA_4096]=2;
924 else if (strcmp(*argv,"rsa7680") == 0) rsa_doit[R_RSA_7680]=2;
925 else if (strcmp(*argv,"rsa15360") == 0) rsa_doit[R_RSA_15360]=2;
927 #ifndef OPENSSL_NO_RC2
928 if (strcmp(*argv,"rc2-cbc") == 0) doit[D_CBC_RC2]=1;
929 else if (strcmp(*argv,"rc2") == 0) doit[D_CBC_RC2]=1;
932 #ifndef OPENSSL_NO_RC5
933 if (strcmp(*argv,"rc5-cbc") == 0) doit[D_CBC_RC5]=1;
934 else if (strcmp(*argv,"rc5") == 0) doit[D_CBC_RC5]=1;
937 #ifndef OPENSSL_NO_IDEA
938 if (strcmp(*argv,"idea-cbc") == 0) doit[D_CBC_IDEA]=1;
939 else if (strcmp(*argv,"idea") == 0) doit[D_CBC_IDEA]=1;
942 #ifndef OPENSSL_NO_SEED
943 if (strcmp(*argv,"seed-cbc") == 0) doit[D_CBC_SEED]=1;
944 else if (strcmp(*argv,"seed") == 0) doit[D_CBC_SEED]=1;
947 #ifndef OPENSSL_NO_BF
948 if (strcmp(*argv,"bf-cbc") == 0) doit[D_CBC_BF]=1;
949 else if (strcmp(*argv,"blowfish") == 0) doit[D_CBC_BF]=1;
950 else if (strcmp(*argv,"bf") == 0) doit[D_CBC_BF]=1;
953 #ifndef OPENSSL_NO_CAST
954 if (strcmp(*argv,"cast-cbc") == 0) doit[D_CBC_CAST]=1;
955 else if (strcmp(*argv,"cast") == 0) doit[D_CBC_CAST]=1;
956 else if (strcmp(*argv,"cast5") == 0) doit[D_CBC_CAST]=1;
959 #ifndef OPENSSL_NO_DES
960 if (strcmp(*argv,"des") == 0)
967 #ifndef OPENSSL_NO_AES
968 if (strcmp(*argv,"aes") == 0)
970 doit[D_CBC_128_AES]=1;
971 doit[D_CBC_192_AES]=1;
972 doit[D_CBC_256_AES]=1;
974 else if (strcmp(*argv,"ghash") == 0)
980 #ifndef OPENSSL_NO_CAMELLIA
981 if (strcmp(*argv,"camellia") == 0)
983 doit[D_CBC_128_CML]=1;
984 doit[D_CBC_192_CML]=1;
985 doit[D_CBC_256_CML]=1;
989 #ifndef OPENSSL_NO_RSA
990 if (strcmp(*argv,"rsa") == 0)
992 rsa_doit[R_RSA_512]=1;
993 rsa_doit[R_RSA_1024]=1;
994 rsa_doit[R_RSA_2048]=1;
995 rsa_doit[R_RSA_3072]=1;
996 rsa_doit[R_RSA_4096]=1;
997 rsa_doit[R_RSA_7680]=1;
998 rsa_doit[R_RSA_15360]=1;
1002 #ifndef OPENSSL_NO_DSA
1003 if (strcmp(*argv,"dsa") == 0)
1005 dsa_doit[R_DSA_512]=1;
1006 dsa_doit[R_DSA_1024]=1;
1007 dsa_doit[R_DSA_2048]=1;
1011 #ifndef OPENSSL_NO_ECDSA
1012 if (strcmp(*argv,"ecdsap160") == 0) ecdsa_doit[R_EC_P160]=2;
1013 else if (strcmp(*argv,"ecdsap192") == 0) ecdsa_doit[R_EC_P192]=2;
1014 else if (strcmp(*argv,"ecdsap224") == 0) ecdsa_doit[R_EC_P224]=2;
1015 else if (strcmp(*argv,"ecdsap256") == 0) ecdsa_doit[R_EC_P256]=2;
1016 else if (strcmp(*argv,"ecdsap384") == 0) ecdsa_doit[R_EC_P384]=2;
1017 else if (strcmp(*argv,"ecdsap521") == 0) ecdsa_doit[R_EC_P521]=2;
1018 else if (strcmp(*argv,"ecdsak163") == 0) ecdsa_doit[R_EC_K163]=2;
1019 else if (strcmp(*argv,"ecdsak233") == 0) ecdsa_doit[R_EC_K233]=2;
1020 else if (strcmp(*argv,"ecdsak283") == 0) ecdsa_doit[R_EC_K283]=2;
1021 else if (strcmp(*argv,"ecdsak409") == 0) ecdsa_doit[R_EC_K409]=2;
1022 else if (strcmp(*argv,"ecdsak571") == 0) ecdsa_doit[R_EC_K571]=2;
1023 else if (strcmp(*argv,"ecdsab163") == 0) ecdsa_doit[R_EC_B163]=2;
1024 else if (strcmp(*argv,"ecdsab233") == 0) ecdsa_doit[R_EC_B233]=2;
1025 else if (strcmp(*argv,"ecdsab283") == 0) ecdsa_doit[R_EC_B283]=2;
1026 else if (strcmp(*argv,"ecdsab409") == 0) ecdsa_doit[R_EC_B409]=2;
1027 else if (strcmp(*argv,"ecdsab571") == 0) ecdsa_doit[R_EC_B571]=2;
1028 else if (strcmp(*argv,"ecdsa") == 0)
1030 for (i=0; i < EC_NUM; i++)
1035 #ifndef OPENSSL_NO_ECDH
1036 if (strcmp(*argv,"ecdhp160") == 0) ecdh_doit[R_EC_P160]=2;
1037 else if (strcmp(*argv,"ecdhp192") == 0) ecdh_doit[R_EC_P192]=2;
1038 else if (strcmp(*argv,"ecdhp224") == 0) ecdh_doit[R_EC_P224]=2;
1039 else if (strcmp(*argv,"ecdhp256") == 0) ecdh_doit[R_EC_P256]=2;
1040 else if (strcmp(*argv,"ecdhp384") == 0) ecdh_doit[R_EC_P384]=2;
1041 else if (strcmp(*argv,"ecdhp521") == 0) ecdh_doit[R_EC_P521]=2;
1042 else if (strcmp(*argv,"ecdhk163") == 0) ecdh_doit[R_EC_K163]=2;
1043 else if (strcmp(*argv,"ecdhk233") == 0) ecdh_doit[R_EC_K233]=2;
1044 else if (strcmp(*argv,"ecdhk283") == 0) ecdh_doit[R_EC_K283]=2;
1045 else if (strcmp(*argv,"ecdhk409") == 0) ecdh_doit[R_EC_K409]=2;
1046 else if (strcmp(*argv,"ecdhk571") == 0) ecdh_doit[R_EC_K571]=2;
1047 else if (strcmp(*argv,"ecdhb163") == 0) ecdh_doit[R_EC_B163]=2;
1048 else if (strcmp(*argv,"ecdhb233") == 0) ecdh_doit[R_EC_B233]=2;
1049 else if (strcmp(*argv,"ecdhb283") == 0) ecdh_doit[R_EC_B283]=2;
1050 else if (strcmp(*argv,"ecdhb409") == 0) ecdh_doit[R_EC_B409]=2;
1051 else if (strcmp(*argv,"ecdhb571") == 0) ecdh_doit[R_EC_B571]=2;
1052 else if (strcmp(*argv,"ecdh") == 0)
1054 for (i=0; i < EC_NUM; i++)
1059 if (strcmp(*argv,"prime-trial-division") == 0)
1060 prime_doit[D_PRIME_TRIAL_DIVISION] = 1;
1061 else if (strcmp(*argv,"prime-trial-division-retry") == 0)
1062 prime_doit[D_PRIME_TRIAL_DIVISION_RETRY] = 1;
1063 else if (strcmp(*argv,"prime-coprime") == 0)
1064 prime_doit[D_PRIME_COPRIME] = 1;
1065 else if (strcmp(*argv,"prime") == 0)
1067 for (i=0; i < PRIME_NUM; i++)
1072 BIO_printf(bio_err,"Error: bad option or value\n");
1073 BIO_printf(bio_err,"\n");
1074 BIO_printf(bio_err,"Available values:\n");
1075 #ifndef OPENSSL_NO_MD2
1076 BIO_printf(bio_err,"md2 ");
1078 #ifndef OPENSSL_NO_MDC2
1079 BIO_printf(bio_err,"mdc2 ");
1081 #ifndef OPENSSL_NO_MD4
1082 BIO_printf(bio_err,"md4 ");
1084 #ifndef OPENSSL_NO_MD5
1085 BIO_printf(bio_err,"md5 ");
1086 #ifndef OPENSSL_NO_HMAC
1087 BIO_printf(bio_err,"hmac ");
1090 #ifndef OPENSSL_NO_SHA1
1091 BIO_printf(bio_err,"sha1 ");
1093 #ifndef OPENSSL_NO_SHA256
1094 BIO_printf(bio_err,"sha256 ");
1096 #ifndef OPENSSL_NO_SHA512
1097 BIO_printf(bio_err,"sha512 ");
1099 #ifndef OPENSSL_NO_WHIRLPOOL
1100 BIO_printf(bio_err,"whirlpool");
1102 #ifndef OPENSSL_NO_RIPEMD160
1103 BIO_printf(bio_err,"rmd160");
1105 #if !defined(OPENSSL_NO_MD2) || !defined(OPENSSL_NO_MDC2) || \
1106 !defined(OPENSSL_NO_MD4) || !defined(OPENSSL_NO_MD5) || \
1107 !defined(OPENSSL_NO_SHA1) || !defined(OPENSSL_NO_RIPEMD160) || \
1108 !defined(OPENSSL_NO_WHIRLPOOL)
1109 BIO_printf(bio_err,"\n");
1112 #ifndef OPENSSL_NO_IDEA
1113 BIO_printf(bio_err,"idea-cbc ");
1115 #ifndef OPENSSL_NO_SEED
1116 BIO_printf(bio_err,"seed-cbc ");
1118 #ifndef OPENSSL_NO_RC2
1119 BIO_printf(bio_err,"rc2-cbc ");
1121 #ifndef OPENSSL_NO_RC5
1122 BIO_printf(bio_err,"rc5-cbc ");
1124 #ifndef OPENSSL_NO_BF
1125 BIO_printf(bio_err,"bf-cbc");
1127 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || !defined(OPENSSL_NO_RC2) || \
1128 !defined(OPENSSL_NO_BF) || !defined(OPENSSL_NO_RC5)
1129 BIO_printf(bio_err,"\n");
1131 #ifndef OPENSSL_NO_DES
1132 BIO_printf(bio_err,"des-cbc des-ede3 ");
1134 #ifndef OPENSSL_NO_AES
1135 BIO_printf(bio_err,"aes-128-cbc aes-192-cbc aes-256-cbc ");
1136 BIO_printf(bio_err,"aes-128-ige aes-192-ige aes-256-ige ");
1138 #ifndef OPENSSL_NO_CAMELLIA
1139 BIO_printf(bio_err,"\n");
1140 BIO_printf(bio_err,"camellia-128-cbc camellia-192-cbc camellia-256-cbc ");
1142 #ifndef OPENSSL_NO_RC4
1143 BIO_printf(bio_err,"rc4");
1145 BIO_printf(bio_err,"\n");
1147 #ifndef OPENSSL_NO_RSA
1148 BIO_printf(bio_err,"rsa512 rsa1024 rsa2048 rsa3072 rsa4096\n");
1149 BIO_printf(bio_err,"rsa7680 rsa15360\n");
1152 #ifndef OPENSSL_NO_DSA
1153 BIO_printf(bio_err,"dsa512 dsa1024 dsa2048\n");
1155 #ifndef OPENSSL_NO_ECDSA
1156 BIO_printf(bio_err,"ecdsap160 ecdsap192 ecdsap224 ecdsap256 ecdsap384 ecdsap521\n");
1157 BIO_printf(bio_err,"ecdsak163 ecdsak233 ecdsak283 ecdsak409 ecdsak571\n");
1158 BIO_printf(bio_err,"ecdsab163 ecdsab233 ecdsab283 ecdsab409 ecdsab571\n");
1159 BIO_printf(bio_err,"ecdsa\n");
1161 #ifndef OPENSSL_NO_ECDH
1162 BIO_printf(bio_err,"ecdhp160 ecdhp192 ecdhp224 ecdhp256 ecdhp384 ecdhp521\n");
1163 BIO_printf(bio_err,"ecdhk163 ecdhk233 ecdhk283 ecdhk409 ecdhk571\n");
1164 BIO_printf(bio_err,"ecdhb163 ecdhb233 ecdhb283 ecdhb409 ecdhb571\n");
1165 BIO_printf(bio_err,"ecdh\n");
1168 #ifndef OPENSSL_NO_IDEA
1169 BIO_printf(bio_err,"idea ");
1171 #ifndef OPENSSL_NO_SEED
1172 BIO_printf(bio_err,"seed ");
1174 #ifndef OPENSSL_NO_RC2
1175 BIO_printf(bio_err,"rc2 ");
1177 #ifndef OPENSSL_NO_DES
1178 BIO_printf(bio_err,"des ");
1180 #ifndef OPENSSL_NO_AES
1181 BIO_printf(bio_err,"aes ");
1183 #ifndef OPENSSL_NO_CAMELLIA
1184 BIO_printf(bio_err,"camellia ");
1186 #ifndef OPENSSL_NO_RSA
1187 BIO_printf(bio_err,"rsa ");
1189 #ifndef OPENSSL_NO_BF
1190 BIO_printf(bio_err,"blowfish");
1192 #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || \
1193 !defined(OPENSSL_NO_RC2) || !defined(OPENSSL_NO_DES) || \
1194 !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_BF) || \
1195 !defined(OPENSSL_NO_AES) || !defined(OPENSSL_NO_CAMELLIA)
1196 BIO_printf(bio_err,"\n");
1198 BIO_printf(bio_err,"prime-trial-division prime-coprime\n");
1200 BIO_printf(bio_err,"\n");
1201 BIO_printf(bio_err,"Available options:\n");
1202 #if defined(TIMES) || defined(USE_TOD)
1203 BIO_printf(bio_err,"-elapsed measure time in real time instead of CPU user time.\n");
1205 #ifndef OPENSSL_NO_ENGINE
1206 BIO_printf(bio_err,"-engine e use engine e, possibly a hardware device.\n");
1208 BIO_printf(bio_err,"-evp e use EVP e.\n");
1209 BIO_printf(bio_err,"-decrypt time decryption instead of encryption (only EVP).\n");
1210 BIO_printf(bio_err,"-mr produce machine readable output.\n");
1211 BIO_printf(bio_err,"-mb perform multi-block benchmark (for specific ciphers)\n");
1212 BIO_printf(bio_err,"-misalign n perform benchmark with misaligned data\n");
1214 BIO_printf(bio_err,"-multi n run n benchmarks in parallel.\n");
1224 if(multi && do_multi(multi))
1230 for (i=0; i<ALGOR_NUM; i++)
1235 for (i=0; i<RSA_NUM; i++)
1237 for (i=0; i<DSA_NUM; i++)
1239 #ifndef OPENSSL_NO_ECDSA
1240 for (i=0; i<EC_NUM; i++)
1243 #ifndef OPENSSL_NO_ECDH
1244 for (i=0; i<EC_NUM; i++)
1248 for (i=0; i<ALGOR_NUM; i++)
1249 if (doit[i]) pr_header++;
1251 if (usertime == 0 && !mr)
1252 BIO_printf(bio_err,"You have chosen to measure elapsed time instead of user CPU time.\n");
1254 #ifndef OPENSSL_NO_RSA
1255 for (i=0; i<RSA_NUM; i++)
1257 const unsigned char *p;
1260 rsa_key[i]=d2i_RSAPrivateKey(NULL,&p,rsa_data_length[i]);
1261 if (rsa_key[i] == NULL)
1263 BIO_printf(bio_err,"internal error loading RSA key number %d\n",i);
1269 BIO_printf(bio_err,mr ? "+RK:%d:"
1270 : "Loaded RSA key, %d bit modulus and e= 0x",
1271 BN_num_bits(rsa_key[i]->n));
1272 BN_print(bio_err,rsa_key[i]->e);
1273 BIO_printf(bio_err,"\n");
1279 #ifndef OPENSSL_NO_DSA
1280 dsa_key[0]=get_dsa512();
1281 dsa_key[1]=get_dsa1024();
1282 dsa_key[2]=get_dsa2048();
1285 #ifndef OPENSSL_NO_DES
1286 DES_set_key_unchecked(&key,&sch);
1287 DES_set_key_unchecked(&key2,&sch2);
1288 DES_set_key_unchecked(&key3,&sch3);
1290 #ifndef OPENSSL_NO_AES
1291 AES_set_encrypt_key(key16,128,&aes_ks1);
1292 AES_set_encrypt_key(key24,192,&aes_ks2);
1293 AES_set_encrypt_key(key32,256,&aes_ks3);
1295 #ifndef OPENSSL_NO_CAMELLIA
1296 Camellia_set_key(key16,128,&camellia_ks1);
1297 Camellia_set_key(ckey24,192,&camellia_ks2);
1298 Camellia_set_key(ckey32,256,&camellia_ks3);
1300 #ifndef OPENSSL_NO_IDEA
1301 idea_set_encrypt_key(key16,&idea_ks);
1303 #ifndef OPENSSL_NO_SEED
1304 SEED_set_key(key16,&seed_ks);
1306 #ifndef OPENSSL_NO_RC4
1307 RC4_set_key(&rc4_ks,16,key16);
1309 #ifndef OPENSSL_NO_RC2
1310 RC2_set_key(&rc2_ks,16,key16,128);
1312 #ifndef OPENSSL_NO_RC5
1313 RC5_32_set_key(&rc5_ks,16,key16,12);
1315 #ifndef OPENSSL_NO_BF
1316 BF_set_key(&bf_ks,16,key16);
1318 #ifndef OPENSSL_NO_CAST
1319 CAST_set_key(&cast_ks,16,key16);
1321 #ifndef OPENSSL_NO_RSA
1322 memset(rsa_c,0,sizeof(rsa_c));
1325 #ifndef OPENSSL_NO_DES
1326 BIO_printf(bio_err,"First we calculate the approximate speed ...\n");
1332 for (it=count; it; it--)
1333 DES_ecb_encrypt((DES_cblock *)buf,
1339 c[D_MD2][0]=count/10;
1340 c[D_MDC2][0]=count/10;
1345 c[D_RMD160][0]=count;
1346 c[D_RC4][0]=count*5;
1347 c[D_CBC_DES][0]=count;
1348 c[D_EDE3_DES][0]=count/3;
1349 c[D_CBC_IDEA][0]=count;
1350 c[D_CBC_SEED][0]=count;
1351 c[D_CBC_RC2][0]=count;
1352 c[D_CBC_RC5][0]=count;
1353 c[D_CBC_BF][0]=count;
1354 c[D_CBC_CAST][0]=count;
1355 c[D_CBC_128_AES][0]=count;
1356 c[D_CBC_192_AES][0]=count;
1357 c[D_CBC_256_AES][0]=count;
1358 c[D_CBC_128_CML][0]=count;
1359 c[D_CBC_192_CML][0]=count;
1360 c[D_CBC_256_CML][0]=count;
1361 c[D_SHA256][0]=count;
1362 c[D_SHA512][0]=count;
1363 c[D_WHIRLPOOL][0]=count;
1364 c[D_IGE_128_AES][0]=count;
1365 c[D_IGE_192_AES][0]=count;
1366 c[D_IGE_256_AES][0]=count;
1367 c[D_GHASH][0]=count;
1369 for (i=1; i<SIZE_NUM; i++)
1373 l0=(long)lengths[0];
1374 l1=(long)lengths[i];
1376 c[D_MD2][i]=c[D_MD2][0]*4*l0/l1;
1377 c[D_MDC2][i]=c[D_MDC2][0]*4*l0/l1;
1378 c[D_MD4][i]=c[D_MD4][0]*4*l0/l1;
1379 c[D_MD5][i]=c[D_MD5][0]*4*l0/l1;
1380 c[D_HMAC][i]=c[D_HMAC][0]*4*l0/l1;
1381 c[D_SHA1][i]=c[D_SHA1][0]*4*l0/l1;
1382 c[D_RMD160][i]=c[D_RMD160][0]*4*l0/l1;
1383 c[D_SHA256][i]=c[D_SHA256][0]*4*l0/l1;
1384 c[D_SHA512][i]=c[D_SHA512][0]*4*l0/l1;
1385 c[D_WHIRLPOOL][i]=c[D_WHIRLPOOL][0]*4*l0/l1;
1387 l0=(long)lengths[i-1];
1389 c[D_RC4][i]=c[D_RC4][i-1]*l0/l1;
1390 c[D_CBC_DES][i]=c[D_CBC_DES][i-1]*l0/l1;
1391 c[D_EDE3_DES][i]=c[D_EDE3_DES][i-1]*l0/l1;
1392 c[D_CBC_IDEA][i]=c[D_CBC_IDEA][i-1]*l0/l1;
1393 c[D_CBC_SEED][i]=c[D_CBC_SEED][i-1]*l0/l1;
1394 c[D_CBC_RC2][i]=c[D_CBC_RC2][i-1]*l0/l1;
1395 c[D_CBC_RC5][i]=c[D_CBC_RC5][i-1]*l0/l1;
1396 c[D_CBC_BF][i]=c[D_CBC_BF][i-1]*l0/l1;
1397 c[D_CBC_CAST][i]=c[D_CBC_CAST][i-1]*l0/l1;
1398 c[D_CBC_128_AES][i]=c[D_CBC_128_AES][i-1]*l0/l1;
1399 c[D_CBC_192_AES][i]=c[D_CBC_192_AES][i-1]*l0/l1;
1400 c[D_CBC_256_AES][i]=c[D_CBC_256_AES][i-1]*l0/l1;
1401 c[D_CBC_128_CML][i]=c[D_CBC_128_CML][i-1]*l0/l1;
1402 c[D_CBC_192_CML][i]=c[D_CBC_192_CML][i-1]*l0/l1;
1403 c[D_CBC_256_CML][i]=c[D_CBC_256_CML][i-1]*l0/l1;
1404 c[D_IGE_128_AES][i]=c[D_IGE_128_AES][i-1]*l0/l1;
1405 c[D_IGE_192_AES][i]=c[D_IGE_192_AES][i-1]*l0/l1;
1406 c[D_IGE_256_AES][i]=c[D_IGE_256_AES][i-1]*l0/l1;
1409 prime_c[D_PRIME_TRIAL_DIVISION]=count;
1410 prime_c[D_PRIME_TRIAL_DIVISION_RETRY]=count;
1411 prime_c[D_PRIME_COPRIME]=count;
1413 #ifndef OPENSSL_NO_RSA
1414 rsa_c[R_RSA_512][0]=count/2000;
1415 rsa_c[R_RSA_512][1]=count/400;
1416 for (i=1; i<RSA_NUM; i++)
1418 rsa_c[i][0]=rsa_c[i-1][0]/8;
1419 rsa_c[i][1]=rsa_c[i-1][1]/4;
1420 if ((rsa_doit[i] <= 1) && (rsa_c[i][0] == 0))
1424 if (rsa_c[i][0] == 0)
1433 #ifndef OPENSSL_NO_DSA
1434 dsa_c[R_DSA_512][0]=count/1000;
1435 dsa_c[R_DSA_512][1]=count/1000/2;
1436 for (i=1; i<DSA_NUM; i++)
1438 dsa_c[i][0]=dsa_c[i-1][0]/4;
1439 dsa_c[i][1]=dsa_c[i-1][1]/4;
1440 if ((dsa_doit[i] <= 1) && (dsa_c[i][0] == 0))
1453 #ifndef OPENSSL_NO_ECDSA
1454 ecdsa_c[R_EC_P160][0]=count/1000;
1455 ecdsa_c[R_EC_P160][1]=count/1000/2;
1456 for (i=R_EC_P192; i<=R_EC_P521; i++)
1458 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1459 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1460 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1464 if (ecdsa_c[i] == 0)
1471 ecdsa_c[R_EC_K163][0]=count/1000;
1472 ecdsa_c[R_EC_K163][1]=count/1000/2;
1473 for (i=R_EC_K233; i<=R_EC_K571; i++)
1475 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1476 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1477 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1481 if (ecdsa_c[i] == 0)
1488 ecdsa_c[R_EC_B163][0]=count/1000;
1489 ecdsa_c[R_EC_B163][1]=count/1000/2;
1490 for (i=R_EC_B233; i<=R_EC_B571; i++)
1492 ecdsa_c[i][0]=ecdsa_c[i-1][0]/2;
1493 ecdsa_c[i][1]=ecdsa_c[i-1][1]/2;
1494 if ((ecdsa_doit[i] <= 1) && (ecdsa_c[i][0] == 0))
1498 if (ecdsa_c[i] == 0)
1507 #ifndef OPENSSL_NO_ECDH
1508 ecdh_c[R_EC_P160][0]=count/1000;
1509 ecdh_c[R_EC_P160][1]=count/1000;
1510 for (i=R_EC_P192; i<=R_EC_P521; i++)
1512 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1513 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1514 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1525 ecdh_c[R_EC_K163][0]=count/1000;
1526 ecdh_c[R_EC_K163][1]=count/1000;
1527 for (i=R_EC_K233; i<=R_EC_K571; i++)
1529 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1530 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1531 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1542 ecdh_c[R_EC_B163][0]=count/1000;
1543 ecdh_c[R_EC_B163][1]=count/1000;
1544 for (i=R_EC_B233; i<=R_EC_B571; i++)
1546 ecdh_c[i][0]=ecdh_c[i-1][0]/2;
1547 ecdh_c[i][1]=ecdh_c[i-1][1]/2;
1548 if ((ecdh_doit[i] <= 1) && (ecdh_c[i][0] == 0))
1561 #define COND(d) (count < (d))
1562 #define COUNT(d) (d)
1564 /* not worth fixing */
1565 # error "You cannot disable DES on systems without SIGALRM."
1566 #endif /* OPENSSL_NO_DES */
1568 #define COND(c) (run && count<0x7fffffff)
1569 #define COUNT(d) (count)
1571 signal(SIGALRM,sig_done);
1573 #endif /* SIGALRM */
1575 #ifndef OPENSSL_NO_MD2
1578 for (j=0; j<SIZE_NUM; j++)
1580 print_message(names[D_MD2],c[D_MD2][j],lengths[j]);
1582 for (count=0,run=1; COND(c[D_MD2][j]); count++)
1583 EVP_Digest(buf,(unsigned long)lengths[j],&(md2[0]),NULL,EVP_md2(),NULL);
1585 print_result(D_MD2,j,count,d);
1589 #ifndef OPENSSL_NO_MDC2
1592 for (j=0; j<SIZE_NUM; j++)
1594 print_message(names[D_MDC2],c[D_MDC2][j],lengths[j]);
1596 for (count=0,run=1; COND(c[D_MDC2][j]); count++)
1597 EVP_Digest(buf,(unsigned long)lengths[j],&(mdc2[0]),NULL,EVP_mdc2(),NULL);
1599 print_result(D_MDC2,j,count,d);
1604 #ifndef OPENSSL_NO_MD4
1607 for (j=0; j<SIZE_NUM; j++)
1609 print_message(names[D_MD4],c[D_MD4][j],lengths[j]);
1611 for (count=0,run=1; COND(c[D_MD4][j]); count++)
1612 EVP_Digest(&(buf[0]),(unsigned long)lengths[j],&(md4[0]),NULL,EVP_md4(),NULL);
1614 print_result(D_MD4,j,count,d);
1619 #ifndef OPENSSL_NO_MD5
1622 for (j=0; j<SIZE_NUM; j++)
1624 print_message(names[D_MD5],c[D_MD5][j],lengths[j]);
1626 for (count=0,run=1; COND(c[D_MD5][j]); count++)
1627 MD5(buf,lengths[j],md5);
1629 print_result(D_MD5,j,count,d);
1634 #if !defined(OPENSSL_NO_MD5) && !defined(OPENSSL_NO_HMAC)
1639 HMAC_CTX_init(&hctx);
1640 HMAC_Init_ex(&hctx,(unsigned char *)"This is a key...",
1641 16,EVP_md5(), NULL);
1643 for (j=0; j<SIZE_NUM; j++)
1645 print_message(names[D_HMAC],c[D_HMAC][j],lengths[j]);
1647 for (count=0,run=1; COND(c[D_HMAC][j]); count++)
1649 HMAC_Init_ex(&hctx,NULL,0,NULL,NULL);
1650 HMAC_Update(&hctx,buf,lengths[j]);
1651 HMAC_Final(&hctx,&(hmac[0]),NULL);
1654 print_result(D_HMAC,j,count,d);
1656 HMAC_CTX_cleanup(&hctx);
1659 #ifndef OPENSSL_NO_SHA
1662 for (j=0; j<SIZE_NUM; j++)
1664 print_message(names[D_SHA1],c[D_SHA1][j],lengths[j]);
1666 for (count=0,run=1; COND(c[D_SHA1][j]); count++)
1668 EVP_Digest(buf,(unsigned long)lengths[j],&(sha[0]),NULL,EVP_sha1(),NULL);
1670 SHA1(buf,lengths[j],sha);
1673 print_result(D_SHA1,j,count,d);
1677 #ifndef OPENSSL_NO_SHA256
1680 for (j=0; j<SIZE_NUM; j++)
1682 print_message(names[D_SHA256],c[D_SHA256][j],lengths[j]);
1684 for (count=0,run=1; COND(c[D_SHA256][j]); count++)
1685 SHA256(buf,lengths[j],sha256);
1687 print_result(D_SHA256,j,count,d);
1692 #ifndef OPENSSL_NO_SHA512
1695 for (j=0; j<SIZE_NUM; j++)
1697 print_message(names[D_SHA512],c[D_SHA512][j],lengths[j]);
1699 for (count=0,run=1; COND(c[D_SHA512][j]); count++)
1700 SHA512(buf,lengths[j],sha512);
1702 print_result(D_SHA512,j,count,d);
1708 #ifndef OPENSSL_NO_WHIRLPOOL
1709 if (doit[D_WHIRLPOOL])
1711 for (j=0; j<SIZE_NUM; j++)
1713 print_message(names[D_WHIRLPOOL],c[D_WHIRLPOOL][j],lengths[j]);
1715 for (count=0,run=1; COND(c[D_WHIRLPOOL][j]); count++)
1716 WHIRLPOOL(buf,lengths[j],whirlpool);
1718 print_result(D_WHIRLPOOL,j,count,d);
1723 #ifndef OPENSSL_NO_RIPEMD
1726 for (j=0; j<SIZE_NUM; j++)
1728 print_message(names[D_RMD160],c[D_RMD160][j],lengths[j]);
1730 for (count=0,run=1; COND(c[D_RMD160][j]); count++)
1731 EVP_Digest(buf,(unsigned long)lengths[j],&(rmd160[0]),NULL,EVP_ripemd160(),NULL);
1733 print_result(D_RMD160,j,count,d);
1737 #ifndef OPENSSL_NO_RC4
1740 for (j=0; j<SIZE_NUM; j++)
1742 print_message(names[D_RC4],c[D_RC4][j],lengths[j]);
1744 for (count=0,run=1; COND(c[D_RC4][j]); count++)
1745 RC4(&rc4_ks,(unsigned int)lengths[j],
1748 print_result(D_RC4,j,count,d);
1752 #ifndef OPENSSL_NO_DES
1753 if (doit[D_CBC_DES])
1755 for (j=0; j<SIZE_NUM; j++)
1757 print_message(names[D_CBC_DES],c[D_CBC_DES][j],lengths[j]);
1759 for (count=0,run=1; COND(c[D_CBC_DES][j]); count++)
1760 DES_ncbc_encrypt(buf,buf,lengths[j],&sch,
1761 &DES_iv,DES_ENCRYPT);
1763 print_result(D_CBC_DES,j,count,d);
1767 if (doit[D_EDE3_DES])
1769 for (j=0; j<SIZE_NUM; j++)
1771 print_message(names[D_EDE3_DES],c[D_EDE3_DES][j],lengths[j]);
1773 for (count=0,run=1; COND(c[D_EDE3_DES][j]); count++)
1774 DES_ede3_cbc_encrypt(buf,buf,lengths[j],
1776 &DES_iv,DES_ENCRYPT);
1778 print_result(D_EDE3_DES,j,count,d);
1782 #ifndef OPENSSL_NO_AES
1783 if (doit[D_CBC_128_AES])
1785 for (j=0; j<SIZE_NUM; j++)
1787 print_message(names[D_CBC_128_AES],c[D_CBC_128_AES][j],lengths[j]);
1789 for (count=0,run=1; COND(c[D_CBC_128_AES][j]); count++)
1790 AES_cbc_encrypt(buf,buf,
1791 (unsigned long)lengths[j],&aes_ks1,
1794 print_result(D_CBC_128_AES,j,count,d);
1797 if (doit[D_CBC_192_AES])
1799 for (j=0; j<SIZE_NUM; j++)
1801 print_message(names[D_CBC_192_AES],c[D_CBC_192_AES][j],lengths[j]);
1803 for (count=0,run=1; COND(c[D_CBC_192_AES][j]); count++)
1804 AES_cbc_encrypt(buf,buf,
1805 (unsigned long)lengths[j],&aes_ks2,
1808 print_result(D_CBC_192_AES,j,count,d);
1811 if (doit[D_CBC_256_AES])
1813 for (j=0; j<SIZE_NUM; j++)
1815 print_message(names[D_CBC_256_AES],c[D_CBC_256_AES][j],lengths[j]);
1817 for (count=0,run=1; COND(c[D_CBC_256_AES][j]); count++)
1818 AES_cbc_encrypt(buf,buf,
1819 (unsigned long)lengths[j],&aes_ks3,
1822 print_result(D_CBC_256_AES,j,count,d);
1826 if (doit[D_IGE_128_AES])
1828 for (j=0; j<SIZE_NUM; j++)
1830 print_message(names[D_IGE_128_AES],c[D_IGE_128_AES][j],lengths[j]);
1832 for (count=0,run=1; COND(c[D_IGE_128_AES][j]); count++)
1833 AES_ige_encrypt(buf,buf2,
1834 (unsigned long)lengths[j],&aes_ks1,
1837 print_result(D_IGE_128_AES,j,count,d);
1840 if (doit[D_IGE_192_AES])
1842 for (j=0; j<SIZE_NUM; j++)
1844 print_message(names[D_IGE_192_AES],c[D_IGE_192_AES][j],lengths[j]);
1846 for (count=0,run=1; COND(c[D_IGE_192_AES][j]); count++)
1847 AES_ige_encrypt(buf,buf2,
1848 (unsigned long)lengths[j],&aes_ks2,
1851 print_result(D_IGE_192_AES,j,count,d);
1854 if (doit[D_IGE_256_AES])
1856 for (j=0; j<SIZE_NUM; j++)
1858 print_message(names[D_IGE_256_AES],c[D_IGE_256_AES][j],lengths[j]);
1860 for (count=0,run=1; COND(c[D_IGE_256_AES][j]); count++)
1861 AES_ige_encrypt(buf,buf2,
1862 (unsigned long)lengths[j],&aes_ks3,
1865 print_result(D_IGE_256_AES,j,count,d);
1870 GCM128_CONTEXT *ctx = CRYPTO_gcm128_new(&aes_ks1,(block128_f)AES_encrypt);
1871 CRYPTO_gcm128_setiv (ctx,(unsigned char *)"0123456789ab",12);
1873 for (j=0; j<SIZE_NUM; j++)
1875 print_message(names[D_GHASH],c[D_GHASH][j],lengths[j]);
1877 for (count=0,run=1; COND(c[D_GHASH][j]); count++)
1878 CRYPTO_gcm128_aad(ctx,buf,lengths[j]);
1880 print_result(D_GHASH,j,count,d);
1882 CRYPTO_gcm128_release(ctx);
1886 #ifndef OPENSSL_NO_CAMELLIA
1887 if (doit[D_CBC_128_CML])
1889 for (j=0; j<SIZE_NUM; j++)
1891 print_message(names[D_CBC_128_CML],c[D_CBC_128_CML][j],lengths[j]);
1893 for (count=0,run=1; COND(c[D_CBC_128_CML][j]); count++)
1894 Camellia_cbc_encrypt(buf,buf,
1895 (unsigned long)lengths[j],&camellia_ks1,
1896 iv,CAMELLIA_ENCRYPT);
1898 print_result(D_CBC_128_CML,j,count,d);
1901 if (doit[D_CBC_192_CML])
1903 for (j=0; j<SIZE_NUM; j++)
1905 print_message(names[D_CBC_192_CML],c[D_CBC_192_CML][j],lengths[j]);
1907 for (count=0,run=1; COND(c[D_CBC_192_CML][j]); count++)
1908 Camellia_cbc_encrypt(buf,buf,
1909 (unsigned long)lengths[j],&camellia_ks2,
1910 iv,CAMELLIA_ENCRYPT);
1912 print_result(D_CBC_192_CML,j,count,d);
1915 if (doit[D_CBC_256_CML])
1917 for (j=0; j<SIZE_NUM; j++)
1919 print_message(names[D_CBC_256_CML],c[D_CBC_256_CML][j],lengths[j]);
1921 for (count=0,run=1; COND(c[D_CBC_256_CML][j]); count++)
1922 Camellia_cbc_encrypt(buf,buf,
1923 (unsigned long)lengths[j],&camellia_ks3,
1924 iv,CAMELLIA_ENCRYPT);
1926 print_result(D_CBC_256_CML,j,count,d);
1931 #ifndef OPENSSL_NO_IDEA
1932 if (doit[D_CBC_IDEA])
1934 for (j=0; j<SIZE_NUM; j++)
1936 print_message(names[D_CBC_IDEA],c[D_CBC_IDEA][j],lengths[j]);
1938 for (count=0,run=1; COND(c[D_CBC_IDEA][j]); count++)
1939 idea_cbc_encrypt(buf,buf,
1940 (unsigned long)lengths[j],&idea_ks,
1943 print_result(D_CBC_IDEA,j,count,d);
1947 #ifndef OPENSSL_NO_SEED
1948 if (doit[D_CBC_SEED])
1950 for (j=0; j<SIZE_NUM; j++)
1952 print_message(names[D_CBC_SEED],c[D_CBC_SEED][j],lengths[j]);
1954 for (count=0,run=1; COND(c[D_CBC_SEED][j]); count++)
1955 SEED_cbc_encrypt(buf,buf,
1956 (unsigned long)lengths[j],&seed_ks,iv,1);
1958 print_result(D_CBC_SEED,j,count,d);
1962 #ifndef OPENSSL_NO_RC2
1963 if (doit[D_CBC_RC2])
1965 for (j=0; j<SIZE_NUM; j++)
1967 print_message(names[D_CBC_RC2],c[D_CBC_RC2][j],lengths[j]);
1969 for (count=0,run=1; COND(c[D_CBC_RC2][j]); count++)
1970 RC2_cbc_encrypt(buf,buf,
1971 (unsigned long)lengths[j],&rc2_ks,
1974 print_result(D_CBC_RC2,j,count,d);
1978 #ifndef OPENSSL_NO_RC5
1979 if (doit[D_CBC_RC5])
1981 for (j=0; j<SIZE_NUM; j++)
1983 print_message(names[D_CBC_RC5],c[D_CBC_RC5][j],lengths[j]);
1985 for (count=0,run=1; COND(c[D_CBC_RC5][j]); count++)
1986 RC5_32_cbc_encrypt(buf,buf,
1987 (unsigned long)lengths[j],&rc5_ks,
1990 print_result(D_CBC_RC5,j,count,d);
1994 #ifndef OPENSSL_NO_BF
1997 for (j=0; j<SIZE_NUM; j++)
1999 print_message(names[D_CBC_BF],c[D_CBC_BF][j],lengths[j]);
2001 for (count=0,run=1; COND(c[D_CBC_BF][j]); count++)
2002 BF_cbc_encrypt(buf,buf,
2003 (unsigned long)lengths[j],&bf_ks,
2006 print_result(D_CBC_BF,j,count,d);
2010 #ifndef OPENSSL_NO_CAST
2011 if (doit[D_CBC_CAST])
2013 for (j=0; j<SIZE_NUM; j++)
2015 print_message(names[D_CBC_CAST],c[D_CBC_CAST][j],lengths[j]);
2017 for (count=0,run=1; COND(c[D_CBC_CAST][j]); count++)
2018 CAST_cbc_encrypt(buf,buf,
2019 (unsigned long)lengths[j],&cast_ks,
2022 print_result(D_CBC_CAST,j,count,d);
2029 #ifdef EVP_CIPH_FLAG_TLS1_1_MULTIBLOCK
2030 if (multiblock && evp_cipher)
2032 if (!(EVP_CIPHER_flags(evp_cipher)&EVP_CIPH_FLAG_TLS1_1_MULTIBLOCK))
2034 fprintf(stderr,"%s is not multi-block capable\n",OBJ_nid2ln(evp_cipher->nid));
2037 multiblock_speed(evp_cipher);
2042 for (j=0; j<SIZE_NUM; j++)
2049 names[D_EVP]=OBJ_nid2ln(evp_cipher->nid);
2050 /* -O3 -fschedule-insns messes up an
2051 * optimization here! names[D_EVP]
2052 * somehow becomes NULL */
2053 print_message(names[D_EVP],save_count,
2056 EVP_CIPHER_CTX_init(&ctx);
2058 EVP_DecryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
2060 EVP_EncryptInit_ex(&ctx,evp_cipher,NULL,key16,iv);
2061 EVP_CIPHER_CTX_set_padding(&ctx, 0);
2065 for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
2066 EVP_DecryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
2068 for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
2069 EVP_EncryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
2071 EVP_DecryptFinal_ex(&ctx,buf,&outl);
2073 EVP_EncryptFinal_ex(&ctx,buf,&outl);
2075 EVP_CIPHER_CTX_cleanup(&ctx);
2079 names[D_EVP]=OBJ_nid2ln(evp_md->type);
2080 print_message(names[D_EVP],save_count,
2084 for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
2085 EVP_Digest(buf,lengths[j],&(md[0]),NULL,evp_md,NULL);
2089 print_result(D_EVP,j,count,d);
2093 if (prime_doit[D_PRIME_TRIAL_DIVISION])
2095 BIGNUM *rnd = BN_new();
2096 BIGNUM *add = BN_new();
2097 BN_CTX *ctx = BN_CTX_new();
2099 BN_set_word(add, 2);
2100 prime_print_message(prime_names[D_PRIME_TRIAL_DIVISION],
2101 prime_c[D_PRIME_TRIAL_DIVISION]);
2104 for (count=0, run=1; COND(prime_c[D_PRIME_TRIAL_DIVISION]); count++)
2105 if (!bn_probable_prime_dh(rnd, 1024, add, NULL, ctx)) count--;
2108 prime_print_result(D_PRIME_TRIAL_DIVISION, count, d);
2115 if (prime_doit[D_PRIME_TRIAL_DIVISION_RETRY])
2117 BIGNUM *rnd = BN_new();
2118 BN_CTX *ctx = BN_CTX_new();
2120 prime_print_message(prime_names[D_PRIME_TRIAL_DIVISION_RETRY],
2121 prime_c[D_PRIME_TRIAL_DIVISION_RETRY]);
2124 for (count=0, run=1; COND(prime_c[D_PRIME_TRIAL_DIVISION_RETRY]); count++)
2125 if (!bn_probable_prime_dh_retry(rnd, 1024, ctx)) count--;
2128 prime_print_result(D_PRIME_TRIAL_DIVISION_RETRY, count, d);
2134 if (prime_doit[D_PRIME_COPRIME])
2136 BIGNUM *rnd = BN_new();
2137 BN_CTX *ctx = BN_CTX_new();
2139 prime_print_message(prime_names[D_PRIME_COPRIME],
2140 prime_c[D_PRIME_COPRIME]);
2143 for (count=0, run=1; COND(prime_c[D_PRIME_COPRIME]); count++)
2144 if (!bn_probable_prime_dh_coprime(rnd, 1024, ctx)) count--;
2147 prime_print_result(D_PRIME_COPRIME, count, d);
2153 RAND_pseudo_bytes(buf,36);
2154 #ifndef OPENSSL_NO_RSA
2155 for (j=0; j<RSA_NUM; j++)
2158 if (!rsa_doit[j]) continue;
2159 ret=RSA_sign(NID_md5_sha1, buf,36, buf2, &rsa_num, rsa_key[j]);
2162 BIO_printf(bio_err,"RSA sign failure. No RSA sign will be done.\n");
2163 ERR_print_errors(bio_err);
2168 pkey_print_message("private","rsa",
2169 rsa_c[j][0],rsa_bits[j],
2171 /* RSA_blinding_on(rsa_key[j],NULL); */
2173 for (count=0,run=1; COND(rsa_c[j][0]); count++)
2175 ret=RSA_sign(NID_md5_sha1, buf,36, buf2,
2176 &rsa_num, rsa_key[j]);
2180 "RSA sign failure\n");
2181 ERR_print_errors(bio_err);
2187 BIO_printf(bio_err,mr ? "+R1:%ld:%d:%.2f\n"
2188 : "%ld %d bit private RSA's in %.2fs\n",
2189 count,rsa_bits[j],d);
2190 rsa_results[j][0]=d/(double)count;
2195 ret=RSA_verify(NID_md5_sha1, buf,36, buf2, rsa_num, rsa_key[j]);
2198 BIO_printf(bio_err,"RSA verify failure. No RSA verify will be done.\n");
2199 ERR_print_errors(bio_err);
2204 pkey_print_message("public","rsa",
2205 rsa_c[j][1],rsa_bits[j],
2208 for (count=0,run=1; COND(rsa_c[j][1]); count++)
2210 ret=RSA_verify(NID_md5_sha1, buf,36, buf2,
2211 rsa_num, rsa_key[j]);
2215 "RSA verify failure\n");
2216 ERR_print_errors(bio_err);
2222 BIO_printf(bio_err,mr ? "+R2:%ld:%d:%.2f\n"
2223 : "%ld %d bit public RSA's in %.2fs\n",
2224 count,rsa_bits[j],d);
2225 rsa_results[j][1]=d/(double)count;
2231 /* if longer than 10s, don't do any more */
2232 for (j++; j<RSA_NUM; j++)
2238 RAND_pseudo_bytes(buf,20);
2239 #ifndef OPENSSL_NO_DSA
2240 if (RAND_status() != 1)
2242 RAND_seed(rnd_seed, sizeof rnd_seed);
2245 for (j=0; j<DSA_NUM; j++)
2250 if (!dsa_doit[j]) continue;
2251 /* DSA_generate_key(dsa_key[j]); */
2252 /* DSA_sign_setup(dsa_key[j],NULL); */
2253 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
2257 BIO_printf(bio_err,"DSA sign failure. No DSA sign will be done.\n");
2258 ERR_print_errors(bio_err);
2263 pkey_print_message("sign","dsa",
2264 dsa_c[j][0],dsa_bits[j],
2267 for (count=0,run=1; COND(dsa_c[j][0]); count++)
2269 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
2274 "DSA sign failure\n");
2275 ERR_print_errors(bio_err);
2281 BIO_printf(bio_err,mr ? "+R3:%ld:%d:%.2f\n"
2282 : "%ld %d bit DSA signs in %.2fs\n",
2283 count,dsa_bits[j],d);
2284 dsa_results[j][0]=d/(double)count;
2288 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
2292 BIO_printf(bio_err,"DSA verify failure. No DSA verify will be done.\n");
2293 ERR_print_errors(bio_err);
2298 pkey_print_message("verify","dsa",
2299 dsa_c[j][1],dsa_bits[j],
2302 for (count=0,run=1; COND(dsa_c[j][1]); count++)
2304 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
2309 "DSA verify failure\n");
2310 ERR_print_errors(bio_err);
2316 BIO_printf(bio_err,mr ? "+R4:%ld:%d:%.2f\n"
2317 : "%ld %d bit DSA verify in %.2fs\n",
2318 count,dsa_bits[j],d);
2319 dsa_results[j][1]=d/(double)count;
2324 /* if longer than 10s, don't do any more */
2325 for (j++; j<DSA_NUM; j++)
2329 if (rnd_fake) RAND_cleanup();
2332 #ifndef OPENSSL_NO_ECDSA
2333 if (RAND_status() != 1)
2335 RAND_seed(rnd_seed, sizeof rnd_seed);
2338 for (j=0; j<EC_NUM; j++)
2342 if (!ecdsa_doit[j]) continue; /* Ignore Curve */
2343 ecdsa[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2344 if (ecdsa[j] == NULL)
2346 BIO_printf(bio_err,"ECDSA failure.\n");
2347 ERR_print_errors(bio_err);
2353 EC_KEY_precompute_mult(ecdsa[j], NULL);
2355 /* Perform ECDSA signature test */
2356 EC_KEY_generate_key(ecdsa[j]);
2357 ret = ECDSA_sign(0, buf, 20, ecdsasig,
2358 &ecdsasiglen, ecdsa[j]);
2361 BIO_printf(bio_err,"ECDSA sign failure. No ECDSA sign will be done.\n");
2362 ERR_print_errors(bio_err);
2367 pkey_print_message("sign","ecdsa",
2369 test_curves_bits[j],
2373 for (count=0,run=1; COND(ecdsa_c[j][0]);
2376 ret=ECDSA_sign(0, buf, 20,
2377 ecdsasig, &ecdsasiglen,
2381 BIO_printf(bio_err, "ECDSA sign failure\n");
2382 ERR_print_errors(bio_err);
2389 BIO_printf(bio_err, mr ? "+R5:%ld:%d:%.2f\n" :
2390 "%ld %d bit ECDSA signs in %.2fs \n",
2391 count, test_curves_bits[j], d);
2392 ecdsa_results[j][0]=d/(double)count;
2396 /* Perform ECDSA verification test */
2397 ret=ECDSA_verify(0, buf, 20, ecdsasig,
2398 ecdsasiglen, ecdsa[j]);
2401 BIO_printf(bio_err,"ECDSA verify failure. No ECDSA verify will be done.\n");
2402 ERR_print_errors(bio_err);
2407 pkey_print_message("verify","ecdsa",
2409 test_curves_bits[j],
2412 for (count=0,run=1; COND(ecdsa_c[j][1]); count++)
2414 ret=ECDSA_verify(0, buf, 20, ecdsasig, ecdsasiglen, ecdsa[j]);
2417 BIO_printf(bio_err, "ECDSA verify failure\n");
2418 ERR_print_errors(bio_err);
2424 BIO_printf(bio_err, mr? "+R6:%ld:%d:%.2f\n"
2425 : "%ld %d bit ECDSA verify in %.2fs\n",
2426 count, test_curves_bits[j], d);
2427 ecdsa_results[j][1]=d/(double)count;
2432 /* if longer than 10s, don't do any more */
2433 for (j++; j<EC_NUM; j++)
2438 if (rnd_fake) RAND_cleanup();
2441 #ifndef OPENSSL_NO_ECDH
2442 if (RAND_status() != 1)
2444 RAND_seed(rnd_seed, sizeof rnd_seed);
2447 for (j=0; j<EC_NUM; j++)
2449 if (!ecdh_doit[j]) continue;
2450 ecdh_a[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2451 ecdh_b[j] = EC_KEY_new_by_curve_name(test_curves[j]);
2452 if ((ecdh_a[j] == NULL) || (ecdh_b[j] == NULL))
2454 BIO_printf(bio_err,"ECDH failure.\n");
2455 ERR_print_errors(bio_err);
2460 /* generate two ECDH key pairs */
2461 if (!EC_KEY_generate_key(ecdh_a[j]) ||
2462 !EC_KEY_generate_key(ecdh_b[j]))
2464 BIO_printf(bio_err,"ECDH key generation failure.\n");
2465 ERR_print_errors(bio_err);
2470 /* If field size is not more than 24 octets, then use SHA-1 hash of result;
2471 * otherwise, use result (see section 4.8 of draft-ietf-tls-ecc-03.txt).
2473 int field_size, outlen;
2474 void *(*kdf)(const void *in, size_t inlen, void *out, size_t *xoutlen);
2475 field_size = EC_GROUP_get_degree(EC_KEY_get0_group(ecdh_a[j]));
2476 if (field_size <= 24 * 8)
2478 outlen = KDF1_SHA1_len;
2483 outlen = (field_size+7)/8;
2486 secret_size_a = ECDH_compute_key(secret_a, outlen,
2487 EC_KEY_get0_public_key(ecdh_b[j]),
2489 secret_size_b = ECDH_compute_key(secret_b, outlen,
2490 EC_KEY_get0_public_key(ecdh_a[j]),
2492 if (secret_size_a != secret_size_b)
2497 for (secret_idx = 0;
2498 (secret_idx < secret_size_a)
2499 && (ecdh_checks == 1);
2502 if (secret_a[secret_idx] != secret_b[secret_idx])
2506 if (ecdh_checks == 0)
2508 BIO_printf(bio_err,"ECDH computations don't match.\n");
2509 ERR_print_errors(bio_err);
2513 pkey_print_message("","ecdh",
2515 test_curves_bits[j],
2518 for (count=0,run=1; COND(ecdh_c[j][0]); count++)
2520 ECDH_compute_key(secret_a, outlen,
2521 EC_KEY_get0_public_key(ecdh_b[j]),
2525 BIO_printf(bio_err, mr ? "+R7:%ld:%d:%.2f\n" :"%ld %d-bit ECDH ops in %.2fs\n",
2526 count, test_curves_bits[j], d);
2527 ecdh_results[j][0]=d/(double)count;
2535 /* if longer than 10s, don't do any more */
2536 for (j++; j<EC_NUM; j++)
2540 if (rnd_fake) RAND_cleanup();
2547 fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_VERSION));
2548 fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_BUILT_ON));
2550 printf("%s ",BN_options());
2551 #ifndef OPENSSL_NO_MD2
2552 printf("%s ",MD2_options());
2554 #ifndef OPENSSL_NO_RC4
2555 printf("%s ",RC4_options());
2557 #ifndef OPENSSL_NO_DES
2558 printf("%s ",DES_options());
2560 #ifndef OPENSSL_NO_AES
2561 printf("%s ",AES_options());
2563 #ifndef OPENSSL_NO_IDEA
2564 printf("%s ",idea_options());
2566 #ifndef OPENSSL_NO_BF
2567 printf("%s ",BF_options());
2569 fprintf(stdout,"\n%s\n",SSLeay_version(SSLEAY_CFLAGS));
2575 fprintf(stdout,"+H");
2578 fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n");
2579 fprintf(stdout,"type ");
2581 for (j=0; j<SIZE_NUM; j++)
2582 fprintf(stdout,mr ? ":%d" : "%7d bytes",lengths[j]);
2583 fprintf(stdout,"\n");
2586 for (k=0; k<ALGOR_NUM; k++)
2588 if (!doit[k]) continue;
2590 fprintf(stdout,"+F:%d:%s",k,names[k]);
2592 fprintf(stdout,"%-13s",names[k]);
2593 for (j=0; j<SIZE_NUM; j++)
2595 if (results[k][j] > 10000 && !mr)
2596 fprintf(stdout," %11.2fk",results[k][j]/1e3);
2598 fprintf(stdout,mr ? ":%.2f" : " %11.2f ",results[k][j]);
2600 fprintf(stdout,"\n");
2602 #ifndef OPENSSL_NO_RSA
2604 for (k=0; k<RSA_NUM; k++)
2606 if (!rsa_doit[k]) continue;
2609 printf("%18ssign verify sign/s verify/s\n"," ");
2613 fprintf(stdout,"+F2:%u:%u:%f:%f\n",
2614 k,rsa_bits[k],rsa_results[k][0],
2617 fprintf(stdout,"rsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n",
2618 rsa_bits[k],rsa_results[k][0],rsa_results[k][1],
2619 1.0/rsa_results[k][0],1.0/rsa_results[k][1]);
2622 #ifndef OPENSSL_NO_DSA
2624 for (k=0; k<DSA_NUM; k++)
2626 if (!dsa_doit[k]) continue;
2629 printf("%18ssign verify sign/s verify/s\n"," ");
2633 fprintf(stdout,"+F3:%u:%u:%f:%f\n",
2634 k,dsa_bits[k],dsa_results[k][0],dsa_results[k][1]);
2636 fprintf(stdout,"dsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n",
2637 dsa_bits[k],dsa_results[k][0],dsa_results[k][1],
2638 1.0/dsa_results[k][0],1.0/dsa_results[k][1]);
2641 #ifndef OPENSSL_NO_ECDSA
2643 for (k=0; k<EC_NUM; k++)
2645 if (!ecdsa_doit[k]) continue;
2648 printf("%30ssign verify sign/s verify/s\n"," ");
2653 fprintf(stdout,"+F4:%u:%u:%f:%f\n",
2654 k, test_curves_bits[k],
2655 ecdsa_results[k][0],ecdsa_results[k][1]);
2658 "%4u bit ecdsa (%s) %8.4fs %8.4fs %8.1f %8.1f\n",
2659 test_curves_bits[k],
2660 test_curves_names[k],
2661 ecdsa_results[k][0],ecdsa_results[k][1],
2662 1.0/ecdsa_results[k][0],1.0/ecdsa_results[k][1]);
2667 #ifndef OPENSSL_NO_ECDH
2669 for (k=0; k<EC_NUM; k++)
2671 if (!ecdh_doit[k]) continue;
2674 printf("%30sop op/s\n"," ");
2678 fprintf(stdout,"+F5:%u:%u:%f:%f\n",
2679 k, test_curves_bits[k],
2680 ecdh_results[k][0], 1.0/ecdh_results[k][0]);
2683 fprintf(stdout,"%4u bit ecdh (%s) %8.4fs %8.1f\n",
2684 test_curves_bits[k],
2685 test_curves_names[k],
2686 ecdh_results[k][0], 1.0/ecdh_results[k][0]);
2693 ERR_print_errors(bio_err);
2694 if (buf_malloc != NULL) OPENSSL_free(buf_malloc);
2695 if (buf2_malloc != NULL) OPENSSL_free(buf2_malloc);
2696 #ifndef OPENSSL_NO_RSA
2697 for (i=0; i<RSA_NUM; i++)
2698 if (rsa_key[i] != NULL)
2699 RSA_free(rsa_key[i]);
2701 #ifndef OPENSSL_NO_DSA
2702 for (i=0; i<DSA_NUM; i++)
2703 if (dsa_key[i] != NULL)
2704 DSA_free(dsa_key[i]);
2707 #ifndef OPENSSL_NO_ECDSA
2708 for (i=0; i<EC_NUM; i++)
2709 if (ecdsa[i] != NULL)
2710 EC_KEY_free(ecdsa[i]);
2712 #ifndef OPENSSL_NO_ECDH
2713 for (i=0; i<EC_NUM; i++)
2715 if (ecdh_a[i] != NULL)
2716 EC_KEY_free(ecdh_a[i]);
2717 if (ecdh_b[i] != NULL)
2718 EC_KEY_free(ecdh_b[i]);
2726 static void print_message(const char *s, long num, int length)
2729 BIO_printf(bio_err,mr ? "+DT:%s:%d:%d\n"
2730 : "Doing %s for %ds on %d size blocks: ",s,SECONDS,length);
2731 (void)BIO_flush(bio_err);
2734 BIO_printf(bio_err,mr ? "+DN:%s:%ld:%d\n"
2735 : "Doing %s %ld times on %d size blocks: ",s,num,length);
2736 (void)BIO_flush(bio_err);
2743 static void prime_print_message(const char *s, long num)
2746 BIO_printf(bio_err,mr ? "+DT:%s:%d\n"
2747 : "Doing %s for %ds: ", s, PRIME_SECONDS);
2748 (void)BIO_flush(bio_err);
2749 alarm(PRIME_SECONDS);
2751 BIO_printf(bio_err,mr ? "+DN:%s:%ld\n"
2752 : "Doing %s %ld times: ", s, num);
2753 (void)BIO_flush(bio_err);
2760 static void pkey_print_message(const char *str, const char *str2, long num,
2764 BIO_printf(bio_err,mr ? "+DTP:%d:%s:%s:%d\n"
2765 : "Doing %d bit %s %s's for %ds: ",bits,str,str2,tm);
2766 (void)BIO_flush(bio_err);
2769 BIO_printf(bio_err,mr ? "+DNP:%ld:%d:%s:%s\n"
2770 : "Doing %ld %d bit %s %s's: ",num,bits,str,str2);
2771 (void)BIO_flush(bio_err);
2778 static void print_result(int alg,int run_no,int count,double time_used)
2780 BIO_printf(bio_err,mr ? "+R:%d:%s:%f\n"
2781 : "%d %s's in %.2fs\n",count,names[alg],time_used);
2782 results[alg][run_no]=((double)count)/time_used*lengths[run_no];
2785 static void prime_print_result(int alg, int count, double time_used)
2788 mr ? "+R:%d:%s:%f:%f\n" : "%d %s's in %.2fs (%.2f microseconds / run)\n",
2789 count, prime_names[alg], time_used,
2790 time_used / ((double)count) * 1000000);
2794 static char *sstrsep(char **string, const char *delim)
2797 char *token = *string;
2802 memset(isdelim, 0, sizeof isdelim);
2807 isdelim[(unsigned char)(*delim)] = 1;
2811 while (!isdelim[(unsigned char)(**string)])
2825 static int do_multi(int multi)
2830 static char sep[]=":";
2832 fds=malloc(multi*sizeof *fds);
2833 for(n=0 ; n < multi ; ++n)
2837 fprintf(stderr, "pipe failure\n");
2851 if (dup(fd[1]) == -1)
2853 fprintf(stderr, "dup failed\n");
2862 printf("Forked child %d\n",n);
2865 /* for now, assume the pipe is long enough to take all the output */
2866 for(n=0 ; n < multi ; ++n)
2872 f=fdopen(fds[n],"r");
2873 while(fgets(buf,sizeof buf,f))
2880 fprintf(stderr,"Don't understand line '%s' from child %d\n",
2884 printf("Got: %s from %d\n",buf,n);
2885 if(!strncmp(buf,"+F:",3))
2891 alg=atoi(sstrsep(&p,sep));
2893 for(j=0 ; j < SIZE_NUM ; ++j)
2894 results[alg][j]+=atof(sstrsep(&p,sep));
2896 else if(!strncmp(buf,"+F2:",4))
2902 k=atoi(sstrsep(&p,sep));
2905 d=atof(sstrsep(&p,sep));
2907 rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
2909 rsa_results[k][0]=d;
2911 d=atof(sstrsep(&p,sep));
2913 rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
2915 rsa_results[k][1]=d;
2917 else if(!strncmp(buf,"+F2:",4))
2923 k=atoi(sstrsep(&p,sep));
2926 d=atof(sstrsep(&p,sep));
2928 rsa_results[k][0]=1/(1/rsa_results[k][0]+1/d);
2930 rsa_results[k][0]=d;
2932 d=atof(sstrsep(&p,sep));
2934 rsa_results[k][1]=1/(1/rsa_results[k][1]+1/d);
2936 rsa_results[k][1]=d;
2938 #ifndef OPENSSL_NO_DSA
2939 else if(!strncmp(buf,"+F3:",4))
2945 k=atoi(sstrsep(&p,sep));
2948 d=atof(sstrsep(&p,sep));
2950 dsa_results[k][0]=1/(1/dsa_results[k][0]+1/d);
2952 dsa_results[k][0]=d;
2954 d=atof(sstrsep(&p,sep));
2956 dsa_results[k][1]=1/(1/dsa_results[k][1]+1/d);
2958 dsa_results[k][1]=d;
2961 #ifndef OPENSSL_NO_ECDSA
2962 else if(!strncmp(buf,"+F4:",4))
2968 k=atoi(sstrsep(&p,sep));
2971 d=atof(sstrsep(&p,sep));
2973 ecdsa_results[k][0]=1/(1/ecdsa_results[k][0]+1/d);
2975 ecdsa_results[k][0]=d;
2977 d=atof(sstrsep(&p,sep));
2979 ecdsa_results[k][1]=1/(1/ecdsa_results[k][1]+1/d);
2981 ecdsa_results[k][1]=d;
2985 #ifndef OPENSSL_NO_ECDH
2986 else if(!strncmp(buf,"+F5:",4))
2992 k=atoi(sstrsep(&p,sep));
2995 d=atof(sstrsep(&p,sep));
2997 ecdh_results[k][0]=1/(1/ecdh_results[k][0]+1/d);
2999 ecdh_results[k][0]=d;
3004 else if(!strncmp(buf,"+H:",3))
3008 fprintf(stderr,"Unknown type '%s' from child %d\n",buf,n);
3018 static void multiblock_speed(const EVP_CIPHER *evp_cipher)
3020 static int mblengths[]={8*1024,2*8*1024,4*8*1024,8*8*1024,8*16*1024};
3021 int j,count,num=sizeof(lengths)/sizeof(lengths[0]);
3022 const char *alg_name;
3023 unsigned char *inp,*out,no_key[32],no_iv[16];
3027 inp = OPENSSL_malloc(mblengths[num-1]);
3028 out = OPENSSL_malloc(mblengths[num-1]+1024);
3030 EVP_CIPHER_CTX_init(&ctx);
3031 EVP_EncryptInit_ex(&ctx,evp_cipher,NULL,no_key,no_iv);
3032 EVP_CIPHER_CTX_ctrl(&ctx,EVP_CTRL_AEAD_SET_MAC_KEY,sizeof(no_key),no_key);
3033 alg_name=OBJ_nid2ln(evp_cipher->nid);
3035 for (j=0; j<num; j++)
3037 print_message(alg_name,0,mblengths[j]);
3039 for (count=0,run=1; run && count<0x7fffffff; count++)
3041 unsigned char aad[13];
3042 EVP_CTRL_TLS1_1_MULTIBLOCK_PARAM mb_param;
3043 size_t len = mblengths[j];
3046 memset(aad,0,8);/* avoid uninitialized values */
3047 aad[8] = 23; /* SSL3_RT_APPLICATION_DATA */
3048 aad[9] = 3; /* version */
3050 aad[11] = 0; /* length */
3052 mb_param.out = NULL;
3055 mb_param.interleave = 8;
3057 packlen=EVP_CIPHER_CTX_ctrl(&ctx,
3058 EVP_CTRL_TLS1_1_MULTIBLOCK_AAD,
3059 sizeof(mb_param),&mb_param);
3066 EVP_CIPHER_CTX_ctrl(&ctx,
3067 EVP_CTRL_TLS1_1_MULTIBLOCK_ENCRYPT,
3068 sizeof(mb_param),&mb_param);
3078 pad=EVP_CIPHER_CTX_ctrl(&ctx,
3079 EVP_CTRL_AEAD_TLS1_AAD,13,aad);
3080 EVP_Cipher(&ctx,out,inp,len+pad);
3084 BIO_printf(bio_err,mr ? "+R:%d:%s:%f\n"
3085 : "%d %s's in %.2fs\n",count,"evp",d);
3086 results[D_EVP][j]=((double)count)/d*mblengths[j];
3091 fprintf(stdout,"+H");
3092 for (j=0; j<num; j++)
3093 fprintf(stdout,":%d",mblengths[j]);
3094 fprintf(stdout,"\n");
3095 fprintf(stdout,"+F:%d:%s",D_EVP,alg_name);
3096 for (j=0; j<num; j++)
3097 fprintf(stdout,":%.2f",results[D_EVP][j]);
3098 fprintf(stdout,"\n");
3102 fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n");
3103 fprintf(stdout,"type ");
3104 for (j=0; j<num; j++)
3105 fprintf(stdout,"%7d bytes",mblengths[j]);
3106 fprintf(stdout,"\n");
3107 fprintf(stdout,"%-24s",alg_name);
3109 for (j=0; j<num; j++)
3111 if (results[D_EVP][j] > 10000)
3112 fprintf(stdout," %11.2fk",results[D_EVP][j]/1e3);
3114 fprintf(stdout," %11.2f ",results[D_EVP][j]);
3116 fprintf(stdout,"\n");