apps/speed.c

   1 /* apps/speed.c */
   2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
   3  * All rights reserved.
   4  *
   5  * This package is an SSL implementation written
   6  * by Eric Young (eay@cryptsoft.com).
   7  * The implementation was written so as to conform with Netscapes SSL.
   8  *
   9  * This library is free for commercial and non-commercial use as long as
  10  * the following conditions are aheared to.  The following conditions
  11  * apply to all code found in this distribution, be it the RC4, RSA,
  12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
  13  * included with this distribution is covered by the same copyright terms
  14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
  15  *
  16  * Copyright remains Eric Young's, and as such any Copyright notices in
  17  * the code are not to be removed.
  18  * If this package is used in a product, Eric Young should be given attribution
  19  * as the author of the parts of the library used.
  20  * This can be in the form of a textual message at program startup or
  21  * in documentation (online or textual) provided with the package.
  22  *
  23  * Redistribution and use in source and binary forms, with or without
  24  * modification, are permitted provided that the following conditions
  25  * are met:
  26  * 1. Redistributions of source code must retain the copyright
  27  *    notice, this list of conditions and the following disclaimer.
  28  * 2. Redistributions in binary form must reproduce the above copyright
  29  *    notice, this list of conditions and the following disclaimer in the
  30  *    documentation and/or other materials provided with the distribution.
  31  * 3. All advertising materials mentioning features or use of this software
  32  *    must display the following acknowledgement:
  33  *    "This product includes cryptographic software written by
  34  *     Eric Young (eay@cryptsoft.com)"
  35  *    The word 'cryptographic' can be left out if the rouines from the library
  36  *    being used are not cryptographic related :-).
  37  * 4. If you include any Windows specific code (or a derivative thereof) from
  38  *    the apps directory (application code) you must include an acknowledgement:
  39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
  40  *
  41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  51  * SUCH DAMAGE.
  52  *
  53  * The licence and distribution terms for any publically available version or
  54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
  55  * copied and put under another distribution licence
  56  * [including the GNU Public Licence.]
  57  */
  58
  59 /* most of this code has been pilfered from my libdes speed.c program */
  60
  61 #undef SECONDS
  62 #define SECONDS         3
  63 #define RSA_SECONDS     10
  64 #define DSA_SECONDS     10
  65
  66 /* 11-Sep-92 Andrew Daviel   Support for Silicon Graphics IRIX added */
  67 /* 06-Apr-92 Luke Brennan    Support for VMS and add extra signal calls */
  68
  69 #undef PROG
  70 #define PROG speed_main
  71
  72 #include <stdio.h>
  73 #include <stdlib.h>
  74 #include <signal.h>
  75 #include <string.h>
  76 #include <math.h>
  77 #include "apps.h"
  78 #ifdef NO_STDIO
  79 #define APPS_WIN16
  80 #endif
  81 #include <openssl/crypto.h>
  82 #include <openssl/rand.h>
  83 #include <openssl/err.h>
  84 #include <openssl/engine.h>
  85 #include <openssl/evp.h>
  86 #include <openssl/objects.h>
  87
  88 #if defined(__FreeBSD__)
  89 # define USE_TOD
  90 #elif !defined(MSDOS) && (!defined(VMS) || defined(__DECC))
  91 # define TIMES
  92 #endif
  93 #if !defined(_UNICOS) && !defined(__OpenBSD__) && !defined(sgi) && !defined(__FreeBSD__) && !(defined(__bsdi) || defined(__bsdi__)) && !defined(_AIX) && !defined(MPE) && !defined(__NetBSD__) /* FIXME */
  94 # define TIMEB
  95 #endif
  96
  97 #ifndef _IRIX
  98 # include <time.h>
  99 #endif
 100 #ifdef TIMES
 101 # include <sys/types.h>
 102 # include <sys/times.h>
 103 #endif
 104 #ifdef USE_TOD
 105 # include <sys/time.h>
 106 # include <sys/resource.h>
 107 #endif
 108
 109 /* Depending on the VMS version, the tms structure is perhaps defined.
 110    The __TMS macro will show if it was.  If it wasn't defined, we should
 111    undefine TIMES, since that tells the rest of the program how things
 112    should be handled.                           -- Richard Levitte */
 113 #if defined(VMS) && defined(__DECC) && !defined(__TMS)
 114 #undef TIMES
 115 #endif
 116
 117 #ifdef TIMEB
 118 #include <sys/timeb.h>
 119 #endif
 120
 121 #if !defined(TIMES) && !defined(TIMEB) && !defined(USE_TOD)
 122 #error "It seems neither struct tms nor struct timeb is supported in this platform!"
 123 #endif
 124
 125 #if defined(sun) || defined(__ultrix)
 126 #define _POSIX_SOURCE
 127 #include <limits.h>
 128 #include <sys/param.h>
 129 #endif
 130
 131 #ifndef NO_DES
 132 #include <openssl/des.h>
 133 #endif
 134 #ifndef NO_MD2
 135 #include <openssl/md2.h>
 136 #endif
 137 #ifndef NO_MDC2
 138 #include <openssl/mdc2.h>
 139 #endif
 140 #ifndef NO_MD4
 141 #include <openssl/md4.h>
 142 #endif
 143 #ifndef NO_MD5
 144 #include <openssl/md5.h>
 145 #endif
 146 #ifndef NO_HMAC
 147 #include <openssl/hmac.h>
 148 #endif
 149 #include <openssl/evp.h>
 150 #ifndef NO_SHA
 151 #include <openssl/sha.h>
 152 #endif
 153 #ifndef NO_RIPEMD
 154 #include <openssl/ripemd.h>
 155 #endif
 156 #ifndef NO_RC4
 157 #include <openssl/rc4.h>
 158 #endif
 159 #ifndef NO_RC5
 160 #include <openssl/rc5.h>
 161 #endif
 162 #ifndef NO_RC2
 163 #include <openssl/rc2.h>
 164 #endif
 165 #ifndef NO_IDEA
 166 #include <openssl/idea.h>
 167 #endif
 168 #ifndef NO_BF
 169 #include <openssl/blowfish.h>
 170 #endif
 171 #ifndef NO_CAST
 172 #include <openssl/cast.h>
 173 #endif
 174 #ifndef NO_RSA
 175 #include <openssl/rsa.h>
 176 #include "./testrsa.h"
 177 #endif
 178 #include <openssl/x509.h>
 179 #ifndef NO_DSA
 180 #include "./testdsa.h"
 181 #endif
 182
 183 /* The following if from times(3) man page.  It may need to be changed */
 184 #ifndef HZ
 185 # ifndef CLK_TCK
 186 #  ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
 187 #   define HZ   100.0
 188 #  else /* _BSD_CLK_TCK_ */
 189 #   define HZ ((double)_BSD_CLK_TCK_)
 190 #  endif
 191 # else /* CLK_TCK */
 192 #  define HZ ((double)CLK_TCK)
 193 # endif
 194 #endif
 195
 196 #undef BUFSIZE
 197 #define BUFSIZE ((long)1024*8+1)
 198 int run=0;
 199
 200 static double Time_F(int s, int usertime);
 201 static void print_message(const char *s,long num,int length);
 202 static void pkey_print_message(char *str,char *str2,long num,int bits,int sec);
 203 #ifdef SIGALRM
 204 #if defined(__STDC__) || defined(sgi) || defined(_AIX)
 205 #define SIGRETTYPE void
 206 #else
 207 #define SIGRETTYPE int
 208 #endif
 209
 210 static SIGRETTYPE sig_done(int sig);
 211 static SIGRETTYPE sig_done(int sig)
 212         {
 213         signal(SIGALRM,sig_done);
 214         run=0;
 215 #ifdef LINT
 216         sig=sig;
 217 #endif
 218         }
 219 #endif
 220
 221 #define START   0
 222 #define STOP    1
 223
 224 static double Time_F(int s, int usertime)
 225         {
 226         double ret;
 227
 228 #ifdef USE_TOD
 229         if(usertime)
 230             {
 231                 static struct rusage tstart,tend;
 232
 233                 if (s == START)
 234                         {
 235                         getrusage(RUSAGE_SELF,&tstart);
 236                         return(0);
 237                         }
 238                 else
 239                         {
 240                         long i;
 241
 242                         getrusage(RUSAGE_SELF,&tend);
 243                         i=(long)tend.ru_utime.tv_usec-(long)tstart.ru_utime.tv_usec;
 244                         ret=((double)(tend.ru_utime.tv_sec-tstart.ru_utime.tv_sec))
 245                           +((double)i)/1000000.0;
 246                         return((ret < 0.001)?0.001:ret);
 247                         }
 248                 }
 249         else
 250                 {
 251                 static struct timeval tstart,tend;
 252                 long i;
 253
 254                 if (s == START)
 255                         {
 256                         gettimeofday(&tstart,NULL);
 257                         return(0);
 258                         }
 259                 else
 260                         {
 261                         gettimeofday(&tend,NULL);
 262                         i=(long)tend.tv_usec-(long)tstart.tv_usec;
 263                         ret=((double)(tend.tv_sec-tstart.tv_sec))+((double)i)/1000000.0;
 264                         return((ret < 0.001)?0.001:ret);
 265                         }
 266                 }
 267 #else  /* ndef USE_TOD */
 268
 269 # ifdef TIMES
 270         if (usertime)
 271                 {
 272                 static struct tms tstart,tend;
 273
 274                 if (s == START)
 275                         {
 276                         times(&tstart);
 277                         return(0);
 278                         }
 279                 else
 280                         {
 281                         times(&tend);
 282                         ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
 283                         return((ret < 1e-3)?1e-3:ret);
 284                         }
 285                 }
 286 # endif /* times() */
 287 # if defined(TIMES) && defined(TIMEB)
 288         else
 289 # endif
 290 # ifdef TIMEB
 291                 {
 292                 static struct timeb tstart,tend;
 293                 long i;
 294
 295                 if (s == START)
 296                         {
 297                         ftime(&tstart);
 298                         return(0);
 299                         }
 300                 else
 301                         {
 302                         ftime(&tend);
 303                         i=(long)tend.millitm-(long)tstart.millitm;
 304                         ret=((double)(tend.time-tstart.time))+((double)i)/1000.0;
 305                         return((ret < 0.001)?0.001:ret);
 306                         }
 307                 }
 308 # endif
 309 #endif
 310         }
 311
 312 int MAIN(int, char **);
 313
 314 int MAIN(int argc, char **argv)
 315         {
 316         ENGINE *e;
 317         unsigned char *buf=NULL,*buf2=NULL;
 318         int mret=1;
 319 #define ALGOR_NUM       16
 320 #define SIZE_NUM        5
 321 #define RSA_NUM         4
 322 #define DSA_NUM         3
 323         long count,rsa_count,save_count=0;
 324         int i,j,k;
 325 #ifndef NO_RSA
 326         unsigned rsa_num;
 327 #endif
 328 #ifndef NO_MD2
 329         unsigned char md2[MD2_DIGEST_LENGTH];
 330 #endif
 331 #ifndef NO_MDC2
 332         unsigned char mdc2[MDC2_DIGEST_LENGTH];
 333 #endif
 334 #ifndef NO_MD4
 335         unsigned char md4[MD4_DIGEST_LENGTH];
 336 #endif
 337 #ifndef NO_MD5
 338         unsigned char md5[MD5_DIGEST_LENGTH];
 339         unsigned char hmac[MD5_DIGEST_LENGTH];
 340 #endif
 341 #ifndef NO_SHA
 342         unsigned char sha[SHA_DIGEST_LENGTH];
 343 #endif
 344 #ifndef NO_RIPEMD
 345         unsigned char rmd160[RIPEMD160_DIGEST_LENGTH];
 346 #endif
 347 #ifndef NO_RC4
 348         RC4_KEY rc4_ks;
 349 #endif
 350 #ifndef NO_RC5
 351         RC5_32_KEY rc5_ks;
 352 #endif
 353 #ifndef NO_RC2
 354         RC2_KEY rc2_ks;
 355 #endif
 356 #ifndef NO_IDEA
 357         IDEA_KEY_SCHEDULE idea_ks;
 358 #endif
 359 #ifndef NO_BF
 360         BF_KEY bf_ks;
 361 #endif
 362 #ifndef NO_CAST
 363         CAST_KEY cast_ks;
 364 #endif
 365         static unsigned char key16[16]=
 366                 {0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,
 367                  0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
 368         unsigned char iv[8];
 369 #ifndef NO_DES
 370         des_cblock *buf_as_des_cblock = NULL;
 371         static des_cblock key ={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
 372         static des_cblock key2={0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12};
 373         static des_cblock key3={0x56,0x78,0x9a,0xbc,0xde,0xf0,0x12,0x34};
 374         des_key_schedule sch,sch2,sch3;
 375 #endif
 376 #define D_MD2           0
 377 #define D_MDC2          1
 378 #define D_MD4           2
 379 #define D_MD5           3
 380 #define D_HMAC          4
 381 #define D_SHA1          5
 382 #define D_RMD160        6
 383 #define D_RC4           7
 384 #define D_CBC_DES       8
 385 #define D_EDE3_DES      9
 386 #define D_CBC_IDEA      10
 387 #define D_CBC_RC2       11
 388 #define D_CBC_RC5       12
 389 #define D_CBC_BF        13
 390 #define D_CBC_CAST      14
 391 #define D_EVP           15
 392         double d,results[ALGOR_NUM][SIZE_NUM];
 393         static int lengths[SIZE_NUM]={8,64,256,1024,8*1024};
 394         long c[ALGOR_NUM][SIZE_NUM];
 395         static const char *names[ALGOR_NUM]={
 396                 "md2","mdc2","md4","md5","hmac(md5)","sha1","rmd160","rc4",
 397                 "des cbc","des ede3","idea cbc",
 398                 "rc2 cbc","rc5-32/12 cbc","blowfish cbc","cast cbc"};
 399 #define R_DSA_512       0
 400 #define R_DSA_1024      1
 401 #define R_DSA_2048      2
 402 #define R_RSA_512       0
 403 #define R_RSA_1024      1
 404 #define R_RSA_2048      2
 405 #define R_RSA_4096      3
 406 #ifndef NO_RSA
 407         RSA *rsa_key[RSA_NUM];
 408         long rsa_c[RSA_NUM][2];
 409         double rsa_results[RSA_NUM][2];
 410         static unsigned int rsa_bits[RSA_NUM]={512,1024,2048,4096};
 411         static unsigned char *rsa_data[RSA_NUM]=
 412                 {test512,test1024,test2048,test4096};
 413         static int rsa_data_length[RSA_NUM]={
 414                 sizeof(test512),sizeof(test1024),
 415                 sizeof(test2048),sizeof(test4096)};
 416 #endif
 417 #ifndef NO_DSA
 418         DSA *dsa_key[DSA_NUM];
 419         long dsa_c[DSA_NUM][2];
 420         double dsa_results[DSA_NUM][2];
 421         static unsigned int dsa_bits[DSA_NUM]={512,1024,2048};
 422 #endif
 423         int rsa_doit[RSA_NUM];
 424         int dsa_doit[DSA_NUM];
 425         int doit[ALGOR_NUM];
 426         int pr_header=0;
 427         int usertime=1;
 428         const EVP_CIPHER *evp=NULL;
 429
 430 #ifndef TIMES
 431         usertime=-1;
 432 #endif
 433
 434         apps_startup();
 435         memset(results, 0, sizeof(results));
 436 #ifndef NO_DSA
 437         memset(dsa_key,0,sizeof(dsa_key));
 438 #endif
 439
 440         if (bio_err == NULL)
 441                 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
 442                         BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
 443
 444 #ifndef NO_RSA
 445         memset(rsa_key,0,sizeof(rsa_key));
 446         for (i=0; i<RSA_NUM; i++)
 447                 rsa_key[i]=NULL;
 448 #endif
 449
 450         if ((buf=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
 451                 {
 452                 BIO_printf(bio_err,"out of memory\n");
 453                 goto end;
 454                 }
 455 #ifndef NO_DES
 456         buf_as_des_cblock = (des_cblock *)buf;
 457 #endif
 458         if ((buf2=(unsigned char *)OPENSSL_malloc((int)BUFSIZE)) == NULL)
 459                 {
 460                 BIO_printf(bio_err,"out of memory\n");
 461                 goto end;
 462                 }
 463
 464         memset(c,0,sizeof(c));
 465         memset(iv,0,sizeof(iv));
 466
 467         for (i=0; i<ALGOR_NUM; i++)
 468                 doit[i]=0;
 469         for (i=0; i<RSA_NUM; i++)
 470                 rsa_doit[i]=0;
 471         for (i=0; i<DSA_NUM; i++)
 472                 dsa_doit[i]=0;
 473
 474         j=0;
 475         argc--;
 476         argv++;
 477         while (argc)
 478                 {
 479                 if      ((argc > 0) && (strcmp(*argv,"-elapsed") == 0))
 480                         usertime = 0;
 481                 else if ((argc > 0) && (strcmp(*argv,"-evp") == 0))
 482                         {
 483                         argc--;
 484                         argv++;
 485                         if(argc == 0)
 486                                 {
 487                                 BIO_printf(bio_err,"no EVP given\n");
 488                                 goto end;
 489                                 }
 490                         evp=EVP_get_cipherbyname(*argv);
 491                         if(!evp)
 492                                 {
 493                                 BIO_printf(bio_err,"%s is an unknown cipher\n",*argv);
 494                                 goto end;
 495                                 }
 496                         doit[D_EVP]=1;
 497                         }
 498                 else
 499                 if      ((argc > 0) && (strcmp(*argv,"-engine") == 0))
 500                         {
 501                         argc--;
 502                         argv++;
 503                         if(argc == 0)
 504                                 {
 505                                 BIO_printf(bio_err,"no engine given\n");
 506                                 goto end;
 507                                 }
 508                         if((e = ENGINE_by_id(*argv)) == NULL)
 509                                 {
 510                                 BIO_printf(bio_err,"invalid engine \"%s\"\n",
 511                                         *argv);
 512                                 goto end;
 513                                 }
 514                         if(!ENGINE_set_default(e, ENGINE_METHOD_ALL))
 515                                 {
 516                                 BIO_printf(bio_err,"can't use that engine\n");
 517                                 goto end;
 518                                 }
 519                         BIO_printf(bio_err,"engine \"%s\" set.\n", *argv);
 520                         /* Free our "structural" reference. */
 521                         ENGINE_free(e);
 522                         /* It will be increased again further down.  We just
 523                            don't want speed to confuse an engine with an
 524                            algorithm, especially when none is given (which
 525                            means all of them should be run) */
 526                         j--;
 527                         }
 528                 else
 529 #ifndef NO_MD2
 530                 if      (strcmp(*argv,"md2") == 0) doit[D_MD2]=1;
 531                 else
 532 #endif
 533 #ifndef NO_MDC2
 534                         if (strcmp(*argv,"mdc2") == 0) doit[D_MDC2]=1;
 535                 else
 536 #endif
 537 #ifndef NO_MD4
 538                         if (strcmp(*argv,"md4") == 0) doit[D_MD4]=1;
 539                 else
 540 #endif
 541 #ifndef NO_MD5
 542                         if (strcmp(*argv,"md5") == 0) doit[D_MD5]=1;
 543                 else
 544 #endif
 545 #ifndef NO_MD5
 546                         if (strcmp(*argv,"hmac") == 0) doit[D_HMAC]=1;
 547                 else
 548 #endif
 549 #ifndef NO_SHA
 550                         if (strcmp(*argv,"sha1") == 0) doit[D_SHA1]=1;
 551                 else
 552                         if (strcmp(*argv,"sha") == 0) doit[D_SHA1]=1;
 553                 else
 554 #endif
 555 #ifndef NO_RIPEMD
 556                         if (strcmp(*argv,"ripemd") == 0) doit[D_RMD160]=1;
 557                 else
 558                         if (strcmp(*argv,"rmd160") == 0) doit[D_RMD160]=1;
 559                 else
 560                         if (strcmp(*argv,"ripemd160") == 0) doit[D_RMD160]=1;
 561                 else
 562 #endif
 563 #ifndef NO_RC4
 564                         if (strcmp(*argv,"rc4") == 0) doit[D_RC4]=1;
 565                 else
 566 #endif
 567 #ifndef NO_DES
 568                         if (strcmp(*argv,"des-cbc") == 0) doit[D_CBC_DES]=1;
 569                 else    if (strcmp(*argv,"des-ede3") == 0) doit[D_EDE3_DES]=1;
 570                 else
 571 #endif
 572 #ifndef NO_RSA
 573 #if 0 /* was: #ifdef RSAref */
 574                         if (strcmp(*argv,"rsaref") == 0)
 575                         {
 576                         RSA_set_default_openssl_method(RSA_PKCS1_RSAref());
 577                         j--;
 578                         }
 579                 else
 580 #endif
 581 #ifndef RSA_NULL
 582                         if (strcmp(*argv,"openssl") == 0)
 583                         {
 584                         RSA_set_default_openssl_method(RSA_PKCS1_SSLeay());
 585                         j--;
 586                         }
 587                 else
 588 #endif
 589 #endif /* !NO_RSA */
 590                      if (strcmp(*argv,"dsa512") == 0) dsa_doit[R_DSA_512]=2;
 591                 else if (strcmp(*argv,"dsa1024") == 0) dsa_doit[R_DSA_1024]=2;
 592                 else if (strcmp(*argv,"dsa2048") == 0) dsa_doit[R_DSA_2048]=2;
 593                 else if (strcmp(*argv,"rsa512") == 0) rsa_doit[R_RSA_512]=2;
 594                 else if (strcmp(*argv,"rsa1024") == 0) rsa_doit[R_RSA_1024]=2;
 595                 else if (strcmp(*argv,"rsa2048") == 0) rsa_doit[R_RSA_2048]=2;
 596                 else if (strcmp(*argv,"rsa4096") == 0) rsa_doit[R_RSA_4096]=2;
 597                 else
 598 #ifndef NO_RC2
 599                      if (strcmp(*argv,"rc2-cbc") == 0) doit[D_CBC_RC2]=1;
 600                 else if (strcmp(*argv,"rc2") == 0) doit[D_CBC_RC2]=1;
 601                 else
 602 #endif
 603 #ifndef NO_RC5
 604                      if (strcmp(*argv,"rc5-cbc") == 0) doit[D_CBC_RC5]=1;
 605                 else if (strcmp(*argv,"rc5") == 0) doit[D_CBC_RC5]=1;
 606                 else
 607 #endif
 608 #ifndef NO_IDEA
 609                      if (strcmp(*argv,"idea-cbc") == 0) doit[D_CBC_IDEA]=1;
 610                 else if (strcmp(*argv,"idea") == 0) doit[D_CBC_IDEA]=1;
 611                 else
 612 #endif
 613 #ifndef NO_BF
 614                      if (strcmp(*argv,"bf-cbc") == 0) doit[D_CBC_BF]=1;
 615                 else if (strcmp(*argv,"blowfish") == 0) doit[D_CBC_BF]=1;
 616                 else if (strcmp(*argv,"bf") == 0) doit[D_CBC_BF]=1;
 617                 else
 618 #endif
 619 #ifndef NO_CAST
 620                      if (strcmp(*argv,"cast-cbc") == 0) doit[D_CBC_CAST]=1;
 621                 else if (strcmp(*argv,"cast") == 0) doit[D_CBC_CAST]=1;
 622                 else if (strcmp(*argv,"cast5") == 0) doit[D_CBC_CAST]=1;
 623                 else
 624 #endif
 625 #ifndef NO_DES
 626                         if (strcmp(*argv,"des") == 0)
 627                         {
 628                         doit[D_CBC_DES]=1;
 629                         doit[D_EDE3_DES]=1;
 630                         }
 631                 else
 632 #endif
 633 #ifndef NO_RSA
 634                         if (strcmp(*argv,"rsa") == 0)
 635                         {
 636                         rsa_doit[R_RSA_512]=1;
 637                         rsa_doit[R_RSA_1024]=1;
 638                         rsa_doit[R_RSA_2048]=1;
 639                         rsa_doit[R_RSA_4096]=1;
 640                         }
 641                 else
 642 #endif
 643 #ifndef NO_DSA
 644                         if (strcmp(*argv,"dsa") == 0)
 645                         {
 646                         dsa_doit[R_DSA_512]=1;
 647                         dsa_doit[R_DSA_1024]=1;
 648                         }
 649                 else
 650 #endif
 651                         {
 652                         BIO_printf(bio_err,"Error: bad option or value\n");
 653                         BIO_printf(bio_err,"\n");
 654                         BIO_printf(bio_err,"Available values:\n");
 655 #ifndef NO_MD2
 656                         BIO_printf(bio_err,"md2      ");
 657 #endif
 658 #ifndef NO_MDC2
 659                         BIO_printf(bio_err,"mdc2     ");
 660 #endif
 661 #ifndef NO_MD4
 662                         BIO_printf(bio_err,"md4      ");
 663 #endif
 664 #ifndef NO_MD5
 665                         BIO_printf(bio_err,"md5      ");
 666 #ifndef NO_HMAC
 667                         BIO_printf(bio_err,"hmac     ");
 668 #endif
 669 #endif
 670 #ifndef NO_SHA1
 671                         BIO_printf(bio_err,"sha1     ");
 672 #endif
 673 #ifndef NO_RIPEMD160
 674                         BIO_printf(bio_err,"rmd160");
 675 #endif
 676 #if !defined(NO_MD2) || !defined(NO_MDC2) || !defined(NO_MD4) || !defined(NO_MD5) || !defined(NO_SHA1) || !defined(NO_RIPEMD160)
 677                         BIO_printf(bio_err,"\n");
 678 #endif
 679
 680 #ifndef NO_IDEA
 681                         BIO_printf(bio_err,"idea-cbc ");
 682 #endif
 683 #ifndef NO_RC2
 684                         BIO_printf(bio_err,"rc2-cbc  ");
 685 #endif
 686 #ifndef NO_RC5
 687                         BIO_printf(bio_err,"rc5-cbc  ");
 688 #endif
 689 #ifndef NO_BF
 690                         BIO_printf(bio_err,"bf-cbc");
 691 #endif
 692 #if !defined(NO_IDEA) || !defined(NO_RC2) || !defined(NO_BF) || !defined(NO_RC5)
 693                         BIO_printf(bio_err,"\n");
 694 #endif
 695
 696                         BIO_printf(bio_err,"des-cbc  des-ede3 ");
 697 #ifndef NO_RC4
 698                         BIO_printf(bio_err,"rc4");
 699 #endif
 700                         BIO_printf(bio_err,"\n");
 701
 702 #ifndef NO_RSA
 703                         BIO_printf(bio_err,"rsa512   rsa1024  rsa2048  rsa4096\n");
 704 #endif
 705
 706 #ifndef NO_DSA
 707                         BIO_printf(bio_err,"dsa512   dsa1024  dsa2048\n");
 708 #endif
 709
 710 #ifndef NO_IDEA
 711                         BIO_printf(bio_err,"idea     ");
 712 #endif
 713 #ifndef NO_RC2
 714                         BIO_printf(bio_err,"rc2      ");
 715 #endif
 716 #ifndef NO_DES
 717                         BIO_printf(bio_err,"des      ");
 718 #endif
 719 #ifndef NO_RSA
 720                         BIO_printf(bio_err,"rsa      ");
 721 #endif
 722 #ifndef NO_BF
 723                         BIO_printf(bio_err,"blowfish");
 724 #endif
 725 #if !defined(NO_IDEA) || !defined(NO_RC2) || !defined(NO_DES) || !defined(NO_RSA) || !defined(NO_BF)
 726                         BIO_printf(bio_err,"\n");
 727 #endif
 728
 729                         BIO_printf(bio_err,"\n");
 730                         BIO_printf(bio_err,"Available options:\n");
 731 #ifdef TIMES
 732                         BIO_printf(bio_err,"-elapsed        measure time in real time instead of CPU user time.\n");
 733 #endif
 734                         BIO_printf(bio_err,"-engine e       use engine e, possibly a hardware device.\n");
 735                         goto end;
 736                         }
 737                 argc--;
 738                 argv++;
 739                 j++;
 740                 }
 741
 742         if (j == 0)
 743                 {
 744                 for (i=0; i<ALGOR_NUM; i++)
 745                         {
 746                         if (i != D_EVP)
 747                                 doit[i]=1;
 748                         }
 749                 for (i=0; i<RSA_NUM; i++)
 750                         rsa_doit[i]=1;
 751                 for (i=0; i<DSA_NUM; i++)
 752                         dsa_doit[i]=1;
 753                 }
 754         for (i=0; i<ALGOR_NUM; i++)
 755                 if (doit[i]) pr_header++;
 756
 757         if (usertime == 0)
 758                 BIO_printf(bio_err,"You have chosen to measure elapsed time instead of user CPU time.\n");
 759         if (usertime <= 0)
 760                 {
 761                 BIO_printf(bio_err,"To get the most accurate results, try to run this\n");
 762                 BIO_printf(bio_err,"program when this computer is idle.\n");
 763                 }
 764
 765 #ifndef NO_RSA
 766         for (i=0; i<RSA_NUM; i++)
 767                 {
 768                 const unsigned char *p;
 769
 770                 p=rsa_data[i];
 771                 rsa_key[i]=d2i_RSAPrivateKey(NULL,&p,rsa_data_length[i]);
 772                 if (rsa_key[i] == NULL)
 773                         {
 774                         BIO_printf(bio_err,"internal error loading RSA key number %d\n",i);
 775                         goto end;
 776                         }
 777 #if 0
 778                 else
 779                         {
 780                         BIO_printf(bio_err,"Loaded RSA key, %d bit modulus and e= 0x",BN_num_bits(rsa_key[i]->n));
 781                         BN_print(bio_err,rsa_key[i]->e);
 782                         BIO_printf(bio_err,"\n");
 783                         }
 784 #endif
 785                 }
 786 #endif
 787
 788 #ifndef NO_DSA
 789         dsa_key[0]=get_dsa512();
 790         dsa_key[1]=get_dsa1024();
 791         dsa_key[2]=get_dsa2048();
 792 #endif
 793
 794 #ifndef NO_DES
 795         des_set_key_unchecked(&key,sch);
 796         des_set_key_unchecked(&key2,sch2);
 797         des_set_key_unchecked(&key3,sch3);
 798 #endif
 799 #ifndef NO_IDEA
 800         idea_set_encrypt_key(key16,&idea_ks);
 801 #endif
 802 #ifndef NO_RC4
 803         RC4_set_key(&rc4_ks,16,key16);
 804 #endif
 805 #ifndef NO_RC2
 806         RC2_set_key(&rc2_ks,16,key16,128);
 807 #endif
 808 #ifndef NO_RC5
 809         RC5_32_set_key(&rc5_ks,16,key16,12);
 810 #endif
 811 #ifndef NO_BF
 812         BF_set_key(&bf_ks,16,key16);
 813 #endif
 814 #ifndef NO_CAST
 815         CAST_set_key(&cast_ks,16,key16);
 816 #endif
 817 #ifndef NO_RSA
 818         memset(rsa_c,0,sizeof(rsa_c));
 819 #endif
 820 #ifndef SIGALRM
 821 #ifndef NO_DES
 822         BIO_printf(bio_err,"First we calculate the approximate speed ...\n");
 823         count=10;
 824         do      {
 825                 long i;
 826                 count*=2;
 827                 Time_F(START,usertime);
 828                 for (i=count; i; i--)
 829                         des_ecb_encrypt(buf_as_des_cblock,buf_as_des_cblock,
 830                                 &(sch[0]),DES_ENCRYPT);
 831                 d=Time_F(STOP,usertime);
 832                 } while (d <3);
 833         save_count=count;
 834         c[D_MD2][0]=count/10;
 835         c[D_MDC2][0]=count/10;
 836         c[D_MD4][0]=count;
 837         c[D_MD5][0]=count;
 838         c[D_HMAC][0]=count;
 839         c[D_SHA1][0]=count;
 840         c[D_RMD160][0]=count;
 841         c[D_RC4][0]=count*5;
 842         c[D_CBC_DES][0]=count;
 843         c[D_EDE3_DES][0]=count/3;
 844         c[D_CBC_IDEA][0]=count;
 845         c[D_CBC_RC2][0]=count;
 846         c[D_CBC_RC5][0]=count;
 847         c[D_CBC_BF][0]=count;
 848         c[D_CBC_CAST][0]=count;
 849
 850         for (i=1; i<SIZE_NUM; i++)
 851                 {
 852                 c[D_MD2][i]=c[D_MD2][0]*4*lengths[0]/lengths[i];
 853                 c[D_MDC2][i]=c[D_MDC2][0]*4*lengths[0]/lengths[i];
 854                 c[D_MD4][i]=c[D_MD4][0]*4*lengths[0]/lengths[i];
 855                 c[D_MD5][i]=c[D_MD5][0]*4*lengths[0]/lengths[i];
 856                 c[D_HMAC][i]=c[D_HMAC][0]*4*lengths[0]/lengths[i];
 857                 c[D_SHA1][i]=c[D_SHA1][0]*4*lengths[0]/lengths[i];
 858                 c[D_RMD160][i]=c[D_RMD160][0]*4*lengths[0]/lengths[i];
 859                 }
 860         for (i=1; i<SIZE_NUM; i++)
 861                 {
 862                 long l0,l1;
 863
 864                 l0=(long)lengths[i-1];
 865                 l1=(long)lengths[i];
 866                 c[D_RC4][i]=c[D_RC4][i-1]*l0/l1;
 867                 c[D_CBC_DES][i]=c[D_CBC_DES][i-1]*l0/l1;
 868                 c[D_EDE3_DES][i]=c[D_EDE3_DES][i-1]*l0/l1;
 869                 c[D_CBC_IDEA][i]=c[D_CBC_IDEA][i-1]*l0/l1;
 870                 c[D_CBC_RC2][i]=c[D_CBC_RC2][i-1]*l0/l1;
 871                 c[D_CBC_RC5][i]=c[D_CBC_RC5][i-1]*l0/l1;
 872                 c[D_CBC_BF][i]=c[D_CBC_BF][i-1]*l0/l1;
 873                 c[D_CBC_CAST][i]=c[D_CBC_CAST][i-1]*l0/l1;
 874                 }
 875 #ifndef NO_RSA
 876         rsa_c[R_RSA_512][0]=count/2000;
 877         rsa_c[R_RSA_512][1]=count/400;
 878         for (i=1; i<RSA_NUM; i++)
 879                 {
 880                 rsa_c[i][0]=rsa_c[i-1][0]/8;
 881                 rsa_c[i][1]=rsa_c[i-1][1]/4;
 882                 if ((rsa_doit[i] <= 1) && (rsa_c[i][0] == 0))
 883                         rsa_doit[i]=0;
 884                 else
 885                         {
 886                         if (rsa_c[i][0] == 0)
 887                                 {
 888                                 rsa_c[i][0]=1;
 889                                 rsa_c[i][1]=20;
 890                                 }
 891                         }
 892                 }
 893 #endif
 894
 895         dsa_c[R_DSA_512][0]=count/1000;
 896         dsa_c[R_DSA_512][1]=count/1000/2;
 897         for (i=1; i<DSA_NUM; i++)
 898                 {
 899                 dsa_c[i][0]=dsa_c[i-1][0]/4;
 900                 dsa_c[i][1]=dsa_c[i-1][1]/4;
 901                 if ((dsa_doit[i] <= 1) && (dsa_c[i][0] == 0))
 902                         dsa_doit[i]=0;
 903                 else
 904                         {
 905                         if (dsa_c[i] == 0)
 906                                 {
 907                                 dsa_c[i][0]=1;
 908                                 dsa_c[i][1]=1;
 909                                 }
 910                         }
 911                 }
 912
 913 #define COND(d) (count < (d))
 914 #define COUNT(d) (d)
 915 #else
 916 /* not worth fixing */
 917 # error "You cannot disable DES on systems without SIGALRM."
 918 #endif /* NO_DES */
 919 #else
 920 #define COND(c) (run)
 921 #define COUNT(d) (count)
 922         signal(SIGALRM,sig_done);
 923 #endif /* SIGALRM */
 924
 925 #ifndef NO_MD2
 926         if (doit[D_MD2])
 927                 {
 928                 for (j=0; j<SIZE_NUM; j++)
 929                         {
 930                         print_message(names[D_MD2],c[D_MD2][j],lengths[j]);
 931                         Time_F(START,usertime);
 932                         for (count=0,run=1; COND(c[D_MD2][j]); count++)
 933                                 MD2(buf,(unsigned long)lengths[j],&(md2[0]));
 934                         d=Time_F(STOP,usertime);
 935                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
 936                                 count,names[D_MD2],d);
 937                         results[D_MD2][j]=((double)count)/d*lengths[j];
 938                         }
 939                 }
 940 #endif
 941 #ifndef NO_MDC2
 942         if (doit[D_MDC2])
 943                 {
 944                 for (j=0; j<SIZE_NUM; j++)
 945                         {
 946                         print_message(names[D_MDC2],c[D_MDC2][j],lengths[j]);
 947                         Time_F(START,usertime);
 948                         for (count=0,run=1; COND(c[D_MDC2][j]); count++)
 949                                 MDC2(buf,(unsigned long)lengths[j],&(mdc2[0]));
 950                         d=Time_F(STOP,usertime);
 951                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
 952                                 count,names[D_MDC2],d);
 953                         results[D_MDC2][j]=((double)count)/d*lengths[j];
 954                         }
 955                 }
 956 #endif
 957
 958 #ifndef NO_MD4
 959         if (doit[D_MD4])
 960                 {
 961                 for (j=0; j<SIZE_NUM; j++)
 962                         {
 963                         print_message(names[D_MD4],c[D_MD4][j],lengths[j]);
 964                         Time_F(START,usertime);
 965                         for (count=0,run=1; COND(c[D_MD4][j]); count++)
 966                                 MD4(&(buf[0]),(unsigned long)lengths[j],&(md4[0]));
 967                         d=Time_F(STOP,usertime);
 968                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
 969                                 count,names[D_MD4],d);
 970                         results[D_MD4][j]=((double)count)/d*lengths[j];
 971                         }
 972                 }
 973 #endif
 974
 975 #ifndef NO_MD5
 976         if (doit[D_MD5])
 977                 {
 978                 for (j=0; j<SIZE_NUM; j++)
 979                         {
 980                         print_message(names[D_MD5],c[D_MD5][j],lengths[j]);
 981                         Time_F(START,usertime);
 982                         for (count=0,run=1; COND(c[D_MD5][j]); count++)
 983                                 MD5(&(buf[0]),(unsigned long)lengths[j],&(md5[0]));
 984                         d=Time_F(STOP,usertime);
 985                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
 986                                 count,names[D_MD5],d);
 987                         results[D_MD5][j]=((double)count)/d*lengths[j];
 988                         }
 989                 }
 990 #endif
 991
 992 #if !defined(NO_MD5) && !defined(NO_HMAC)
 993         if (doit[D_HMAC])
 994                 {
 995                 HMAC_CTX hctx;
 996                 HMAC_Init(&hctx,(unsigned char *)"This is a key...",
 997                         16,EVP_md5());
 998
 999                 for (j=0; j<SIZE_NUM; j++)
1000                         {
1001                         print_message(names[D_HMAC],c[D_HMAC][j],lengths[j]);
1002                         Time_F(START,usertime);
1003                         for (count=0,run=1; COND(c[D_HMAC][j]); count++)
1004                                 {
1005                                 HMAC_Init(&hctx,NULL,0,NULL);
1006                                 HMAC_Update(&hctx,buf,lengths[j]);
1007                                 HMAC_Final(&hctx,&(hmac[0]),NULL);
1008                                 }
1009                         d=Time_F(STOP,usertime);
1010                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1011                                 count,names[D_HMAC],d);
1012                         results[D_HMAC][j]=((double)count)/d*lengths[j];
1013                         }
1014                 }
1015 #endif
1016 #ifndef NO_SHA
1017         if (doit[D_SHA1])
1018                 {
1019                 for (j=0; j<SIZE_NUM; j++)
1020                         {
1021                         print_message(names[D_SHA1],c[D_SHA1][j],lengths[j]);
1022                         Time_F(START,usertime);
1023                         for (count=0,run=1; COND(c[D_SHA1][j]); count++)
1024                                 SHA1(buf,(unsigned long)lengths[j],&(sha[0]));
1025                         d=Time_F(STOP,usertime);
1026                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1027                                 count,names[D_SHA1],d);
1028                         results[D_SHA1][j]=((double)count)/d*lengths[j];
1029                         }
1030                 }
1031 #endif
1032 #ifndef NO_RIPEMD
1033         if (doit[D_RMD160])
1034                 {
1035                 for (j=0; j<SIZE_NUM; j++)
1036                         {
1037                         print_message(names[D_RMD160],c[D_RMD160][j],lengths[j]);
1038                         Time_F(START,usertime);
1039                         for (count=0,run=1; COND(c[D_RMD160][j]); count++)
1040                                 RIPEMD160(buf,(unsigned long)lengths[j],&(rmd160[0]));
1041                         d=Time_F(STOP,usertime);
1042                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1043                                 count,names[D_RMD160],d);
1044                         results[D_RMD160][j]=((double)count)/d*lengths[j];
1045                         }
1046                 }
1047 #endif
1048 #ifndef NO_RC4
1049         if (doit[D_RC4])
1050                 {
1051                 for (j=0; j<SIZE_NUM; j++)
1052                         {
1053                         print_message(names[D_RC4],c[D_RC4][j],lengths[j]);
1054                         Time_F(START,usertime);
1055                         for (count=0,run=1; COND(c[D_RC4][j]); count++)
1056                                 RC4(&rc4_ks,(unsigned int)lengths[j],
1057                                         buf,buf);
1058                         d=Time_F(STOP,usertime);
1059                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1060                                 count,names[D_RC4],d);
1061                         results[D_RC4][j]=((double)count)/d*lengths[j];
1062                         }
1063                 }
1064 #endif
1065 #ifndef NO_DES
1066         if (doit[D_CBC_DES])
1067                 {
1068                 for (j=0; j<SIZE_NUM; j++)
1069                         {
1070                         print_message(names[D_CBC_DES],c[D_CBC_DES][j],lengths[j]);
1071                         Time_F(START,usertime);
1072                         for (count=0,run=1; COND(c[D_CBC_DES][j]); count++)
1073                                 des_ncbc_encrypt(buf,buf,lengths[j],sch,
1074                                                  &iv,DES_ENCRYPT);
1075                         d=Time_F(STOP,usertime);
1076                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1077                                 count,names[D_CBC_DES],d);
1078                         results[D_CBC_DES][j]=((double)count)/d*lengths[j];
1079                         }
1080                 }
1081
1082         if (doit[D_EDE3_DES])
1083                 {
1084                 for (j=0; j<SIZE_NUM; j++)
1085                         {
1086                         print_message(names[D_EDE3_DES],c[D_EDE3_DES][j],lengths[j]);
1087                         Time_F(START,usertime);
1088                         for (count=0,run=1; COND(c[D_EDE3_DES][j]); count++)
1089                                 des_ede3_cbc_encrypt(buf,buf,lengths[j],
1090                                                      sch,sch2,sch3,
1091                                                      &iv,DES_ENCRYPT);
1092                         d=Time_F(STOP,usertime);
1093                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1094                                 count,names[D_EDE3_DES],d);
1095                         results[D_EDE3_DES][j]=((double)count)/d*lengths[j];
1096                         }
1097                 }
1098 #endif
1099 #ifndef NO_IDEA
1100         if (doit[D_CBC_IDEA])
1101                 {
1102                 for (j=0; j<SIZE_NUM; j++)
1103                         {
1104                         print_message(names[D_CBC_IDEA],c[D_CBC_IDEA][j],lengths[j]);
1105                         Time_F(START,usertime);
1106                         for (count=0,run=1; COND(c[D_CBC_IDEA][j]); count++)
1107                                 idea_cbc_encrypt(buf,buf,
1108                                         (unsigned long)lengths[j],&idea_ks,
1109                                         iv,IDEA_ENCRYPT);
1110                         d=Time_F(STOP,usertime);
1111                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1112                                 count,names[D_CBC_IDEA],d);
1113                         results[D_CBC_IDEA][j]=((double)count)/d*lengths[j];
1114                         }
1115                 }
1116 #endif
1117 #ifndef NO_RC2
1118         if (doit[D_CBC_RC2])
1119                 {
1120                 for (j=0; j<SIZE_NUM; j++)
1121                         {
1122                         print_message(names[D_CBC_RC2],c[D_CBC_RC2][j],lengths[j]);
1123                         Time_F(START,usertime);
1124                         for (count=0,run=1; COND(c[D_CBC_RC2][j]); count++)
1125                                 RC2_cbc_encrypt(buf,buf,
1126                                         (unsigned long)lengths[j],&rc2_ks,
1127                                         iv,RC2_ENCRYPT);
1128                         d=Time_F(STOP,usertime);
1129                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1130                                 count,names[D_CBC_RC2],d);
1131                         results[D_CBC_RC2][j]=((double)count)/d*lengths[j];
1132                         }
1133                 }
1134 #endif
1135 #ifndef NO_RC5
1136         if (doit[D_CBC_RC5])
1137                 {
1138                 for (j=0; j<SIZE_NUM; j++)
1139                         {
1140                         print_message(names[D_CBC_RC5],c[D_CBC_RC5][j],lengths[j]);
1141                         Time_F(START,usertime);
1142                         for (count=0,run=1; COND(c[D_CBC_RC5][j]); count++)
1143                                 RC5_32_cbc_encrypt(buf,buf,
1144                                         (unsigned long)lengths[j],&rc5_ks,
1145                                         iv,RC5_ENCRYPT);
1146                         d=Time_F(STOP,usertime);
1147                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1148                                 count,names[D_CBC_RC5],d);
1149                         results[D_CBC_RC5][j]=((double)count)/d*lengths[j];
1150                         }
1151                 }
1152 #endif
1153 #ifndef NO_BF
1154         if (doit[D_CBC_BF])
1155                 {
1156                 for (j=0; j<SIZE_NUM; j++)
1157                         {
1158                         print_message(names[D_CBC_BF],c[D_CBC_BF][j],lengths[j]);
1159                         Time_F(START,usertime);
1160                         for (count=0,run=1; COND(c[D_CBC_BF][j]); count++)
1161                                 BF_cbc_encrypt(buf,buf,
1162                                         (unsigned long)lengths[j],&bf_ks,
1163                                         iv,BF_ENCRYPT);
1164                         d=Time_F(STOP,usertime);
1165                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1166                                 count,names[D_CBC_BF],d);
1167                         results[D_CBC_BF][j]=((double)count)/d*lengths[j];
1168                         }
1169                 }
1170 #endif
1171 #ifndef NO_CAST
1172         if (doit[D_CBC_CAST])
1173                 {
1174                 for (j=0; j<SIZE_NUM; j++)
1175                         {
1176                         print_message(names[D_CBC_CAST],c[D_CBC_CAST][j],lengths[j]);
1177                         Time_F(START,usertime);
1178                         for (count=0,run=1; COND(c[D_CBC_CAST][j]); count++)
1179                                 CAST_cbc_encrypt(buf,buf,
1180                                         (unsigned long)lengths[j],&cast_ks,
1181                                         iv,CAST_ENCRYPT);
1182                         d=Time_F(STOP,usertime);
1183                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1184                                 count,names[D_CBC_CAST],d);
1185                         results[D_CBC_CAST][j]=((double)count)/d*lengths[j];
1186                         }
1187                 }
1188 #endif
1189
1190         if (doit[D_EVP])
1191                 {
1192                 for (j=0; j<SIZE_NUM; j++)
1193                         {
1194                         EVP_CIPHER_CTX ctx;
1195                         int outl;
1196
1197                         names[D_EVP]=OBJ_nid2ln(evp->nid);
1198                         print_message(names[D_EVP],save_count,
1199                                                   lengths[j]);
1200                         EVP_EncryptInit(&ctx,evp,key16,iv);
1201                         Time_F(START,usertime);
1202                         for (count=0,run=1; COND(save_count*4*lengths[0]/lengths[j]); count++)
1203                             EVP_EncryptUpdate(&ctx,buf,&outl,buf,lengths[j]);
1204                         EVP_EncryptFinal(&ctx,buf,&outl);
1205                         d=Time_F(STOP,usertime);
1206                         BIO_printf(bio_err,"%ld %s's in %.2fs\n",
1207                                            count,names[D_EVP],d);
1208                         results[D_EVP][j]=((double)count)/d*lengths[j];
1209                         }
1210                 }
1211
1212         RAND_pseudo_bytes(buf,36);
1213 #ifndef NO_RSA
1214         for (j=0; j<RSA_NUM; j++)
1215                 {
1216                 int ret;
1217                 if (!rsa_doit[j]) continue;
1218                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2, &rsa_num, rsa_key[j]);
1219                 if (ret == 0)
1220                         {
1221                         BIO_printf(bio_err,"RSA sign failure.  No RSA sign will be done.\n");
1222                         ERR_print_errors(bio_err);
1223                         rsa_count=1;
1224                         }
1225                 else
1226                         {
1227                         pkey_print_message("private","rsa",
1228                                 rsa_c[j][0],rsa_bits[j],
1229                                 RSA_SECONDS);
1230 /*                      RSA_blinding_on(rsa_key[j],NULL); */
1231                         Time_F(START,usertime);
1232                         for (count=0,run=1; COND(rsa_c[j][0]); count++)
1233                                 {
1234                                 ret=RSA_sign(NID_md5_sha1, buf,36, buf2,
1235                                         &rsa_num, rsa_key[j]);
1236                                 if (ret == 0)
1237                                         {
1238                                         BIO_printf(bio_err,
1239                                                 "RSA sign failure\n");
1240                                         ERR_print_errors(bio_err);
1241                                         count=1;
1242                                         break;
1243                                         }
1244                                 }
1245                         d=Time_F(STOP,usertime);
1246                         BIO_printf(bio_err,
1247                                 "%ld %d bit private RSA's in %.2fs\n",
1248                                 count,rsa_bits[j],d);
1249                         rsa_results[j][0]=d/(double)count;
1250                         rsa_count=count;
1251                         }
1252
1253 #if 1
1254                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2, rsa_num, rsa_key[j]);
1255                 if (ret <= 0)
1256                         {
1257                         BIO_printf(bio_err,"RSA verify failure.  No RSA verify will be done.\n");
1258                         ERR_print_errors(bio_err);
1259                         dsa_doit[j] = 0;
1260                         }
1261                 else
1262                         {
1263                         pkey_print_message("public","rsa",
1264                                 rsa_c[j][1],rsa_bits[j],
1265                                 RSA_SECONDS);
1266                         Time_F(START,usertime);
1267                         for (count=0,run=1; COND(rsa_c[j][1]); count++)
1268                                 {
1269                                 ret=RSA_verify(NID_md5_sha1, buf,36, buf2,
1270                                         rsa_num, rsa_key[j]);
1271                                 if (ret == 0)
1272                                         {
1273                                         BIO_printf(bio_err,
1274                                                 "RSA verify failure\n");
1275                                         ERR_print_errors(bio_err);
1276                                         count=1;
1277                                         break;
1278                                         }
1279                                 }
1280                         d=Time_F(STOP,usertime);
1281                         BIO_printf(bio_err,
1282                                 "%ld %d bit public RSA's in %.2fs\n",
1283                                 count,rsa_bits[j],d);
1284                         rsa_results[j][1]=d/(double)count;
1285                         }
1286 #endif
1287
1288                 if (rsa_count <= 1)
1289                         {
1290                         /* if longer than 10s, don't do any more */
1291                         for (j++; j<RSA_NUM; j++)
1292                                 rsa_doit[j]=0;
1293                         }
1294                 }
1295 #endif
1296
1297         RAND_pseudo_bytes(buf,20);
1298 #ifndef NO_DSA
1299         if (RAND_status() != 1)
1300                 {
1301                 RAND_seed(rnd_seed, sizeof rnd_seed);
1302                 rnd_fake = 1;
1303                 }
1304         for (j=0; j<DSA_NUM; j++)
1305                 {
1306                 unsigned int kk;
1307                 int ret;
1308
1309                 if (!dsa_doit[j]) continue;
1310                 DSA_generate_key(dsa_key[j]);
1311 /*              DSA_sign_setup(dsa_key[j],NULL); */
1312                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1313                         &kk,dsa_key[j]);
1314                 if (ret == 0)
1315                         {
1316                         BIO_printf(bio_err,"DSA sign failure.  No DSA sign will be done.\n");
1317                         ERR_print_errors(bio_err);
1318                         rsa_count=1;
1319                         }
1320                 else
1321                         {
1322                         pkey_print_message("sign","dsa",
1323                                 dsa_c[j][0],dsa_bits[j],
1324                                 DSA_SECONDS);
1325                         Time_F(START,usertime);
1326                         for (count=0,run=1; COND(dsa_c[j][0]); count++)
1327                                 {
1328                                 ret=DSA_sign(EVP_PKEY_DSA,buf,20,buf2,
1329                                         &kk,dsa_key[j]);
1330                                 if (ret == 0)
1331                                         {
1332                                         BIO_printf(bio_err,
1333                                                 "DSA sign failure\n");
1334                                         ERR_print_errors(bio_err);
1335                                         count=1;
1336                                         break;
1337                                         }
1338                                 }
1339                         d=Time_F(STOP,usertime);
1340                         BIO_printf(bio_err,"%ld %d bit DSA signs in %.2fs\n",
1341                                 count,dsa_bits[j],d);
1342                         dsa_results[j][0]=d/(double)count;
1343                         rsa_count=count;
1344                         }
1345
1346                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1347                         kk,dsa_key[j]);
1348                 if (ret <= 0)
1349                         {
1350                         BIO_printf(bio_err,"DSA verify failure.  No DSA verify will be done.\n");
1351                         ERR_print_errors(bio_err);
1352                         dsa_doit[j] = 0;
1353                         }
1354                 else
1355                         {
1356                         pkey_print_message("verify","dsa",
1357                                 dsa_c[j][1],dsa_bits[j],
1358                                 DSA_SECONDS);
1359                         Time_F(START,usertime);
1360                         for (count=0,run=1; COND(dsa_c[j][1]); count++)
1361                                 {
1362                                 ret=DSA_verify(EVP_PKEY_DSA,buf,20,buf2,
1363                                         kk,dsa_key[j]);
1364                                 if (ret <= 0)
1365                                         {
1366                                         BIO_printf(bio_err,
1367                                                 "DSA verify failure\n");
1368                                         ERR_print_errors(bio_err);
1369                                         count=1;
1370                                         break;
1371                                         }
1372                                 }
1373                         d=Time_F(STOP,usertime);
1374                         BIO_printf(bio_err,"%ld %d bit DSA verify in %.2fs\n",
1375                                 count,dsa_bits[j],d);
1376                         dsa_results[j][1]=d/(double)count;
1377                         }
1378
1379                 if (rsa_count <= 1)
1380                         {
1381                         /* if longer than 10s, don't do any more */
1382                         for (j++; j<DSA_NUM; j++)
1383                                 dsa_doit[j]=0;
1384                         }
1385                 }
1386         if (rnd_fake) RAND_cleanup();
1387 #endif
1388
1389         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_VERSION));
1390         fprintf(stdout,"%s\n",SSLeay_version(SSLEAY_BUILT_ON));
1391         printf("options:");
1392         printf("%s ",BN_options());
1393 #ifndef NO_MD2
1394         printf("%s ",MD2_options());
1395 #endif
1396 #ifndef NO_RC4
1397         printf("%s ",RC4_options());
1398 #endif
1399 #ifndef NO_DES
1400         printf("%s ",des_options());
1401 #endif
1402 #ifndef NO_IDEA
1403         printf("%s ",idea_options());
1404 #endif
1405 #ifndef NO_BF
1406         printf("%s ",BF_options());
1407 #endif
1408         fprintf(stdout,"\n%s\n",SSLeay_version(SSLEAY_CFLAGS));
1409
1410         if (pr_header)
1411                 {
1412                 fprintf(stdout,"The 'numbers' are in 1000s of bytes per second processed.\n");
1413                 fprintf(stdout,"type        ");
1414                 for (j=0;  j<SIZE_NUM; j++)
1415                         fprintf(stdout,"%7d bytes",lengths[j]);
1416                 fprintf(stdout,"\n");
1417                 }
1418
1419         for (k=0; k<ALGOR_NUM; k++)
1420                 {
1421                 if (!doit[k]) continue;
1422                 fprintf(stdout,"%-13s",names[k]);
1423                 for (j=0; j<SIZE_NUM; j++)
1424                         {
1425                         if (results[k][j] > 10000)
1426                                 fprintf(stdout," %11.2fk",results[k][j]/1e3);
1427                         else
1428                                 fprintf(stdout," %11.2f ",results[k][j]);
1429                         }
1430                 fprintf(stdout,"\n");
1431                 }
1432 #ifndef NO_RSA
1433         j=1;
1434         for (k=0; k<RSA_NUM; k++)
1435                 {
1436                 if (!rsa_doit[k]) continue;
1437                 if (j)
1438                         {
1439                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1440                         j=0;
1441                         }
1442                 fprintf(stdout,"rsa %4u bits %8.4fs %8.4fs %8.1f %8.1f",
1443                         rsa_bits[k],rsa_results[k][0],rsa_results[k][1],
1444                         1.0/rsa_results[k][0],1.0/rsa_results[k][1]);
1445                 fprintf(stdout,"\n");
1446                 }
1447 #endif
1448 #ifndef NO_DSA
1449         j=1;
1450         for (k=0; k<DSA_NUM; k++)
1451                 {
1452                 if (!dsa_doit[k]) continue;
1453                 if (j)  {
1454                         printf("%18ssign    verify    sign/s verify/s\n"," ");
1455                         j=0;
1456                         }
1457                 fprintf(stdout,"dsa %4u bits %8.4fs %8.4fs %8.1f %8.1f",
1458                         dsa_bits[k],dsa_results[k][0],dsa_results[k][1],
1459                         1.0/dsa_results[k][0],1.0/dsa_results[k][1]);
1460                 fprintf(stdout,"\n");
1461                 }
1462 #endif
1463         mret=0;
1464 end:
1465         ERR_print_errors(bio_err);
1466         if (buf != NULL) OPENSSL_free(buf);
1467         if (buf2 != NULL) OPENSSL_free(buf2);
1468 #ifndef NO_RSA
1469         for (i=0; i<RSA_NUM; i++)
1470                 if (rsa_key[i] != NULL)
1471                         RSA_free(rsa_key[i]);
1472 #endif
1473 #ifndef NO_DSA
1474         for (i=0; i<DSA_NUM; i++)
1475                 if (dsa_key[i] != NULL)
1476                         DSA_free(dsa_key[i]);
1477 #endif
1478         EXIT(mret);
1479         }
1480
1481 static void print_message(const char *s, long num, int length)
1482         {
1483 #ifdef SIGALRM
1484         BIO_printf(bio_err,"Doing %s for %ds on %d size blocks: ",s,SECONDS,length);
1485         (void)BIO_flush(bio_err);
1486         alarm(SECONDS);
1487 #else
1488         BIO_printf(bio_err,"Doing %s %ld times on %d size blocks: ",s,num,length);
1489         (void)BIO_flush(bio_err);
1490 #endif
1491 #ifdef LINT
1492         num=num;
1493 #endif
1494         }
1495
1496 static void pkey_print_message(char *str, char *str2, long num, int bits,
1497              int tm)
1498         {
1499 #ifdef SIGALRM
1500         BIO_printf(bio_err,"Doing %d bit %s %s's for %ds: ",bits,str,str2,tm);
1501         (void)BIO_flush(bio_err);
1502         alarm(RSA_SECONDS);
1503 #else
1504         BIO_printf(bio_err,"Doing %ld %d bit %s %s's: ",num,bits,str,str2);
1505         (void)BIO_flush(bio_err);
1506 #endif
1507 #ifdef LINT
1508         num=num;
1509 #endif
1510         }
1511