crypto/openssl/crypto/des/speed.c

   1 /* crypto/des/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 /* 11-Sep-92 Andrew Daviel   Support for Silicon Graphics IRIX added */
  60 /* 06-Apr-92 Luke Brennan    Support for VMS and add extra signal calls */
  61
  62 #if !defined(OPENSSL_SYS_MSDOS) && (!defined(OPENSSL_SYS_VMS) || defined(__DECC)) && !defined(OPENSSL_SYS_MACOSX)
  63 # define TIMES
  64 #endif
  65
  66 #include <stdio.h>
  67
  68 #include <openssl/e_os2.h>
  69 #include OPENSSL_UNISTD_IO
  70 OPENSSL_DECLARE_EXIT
  71 #ifndef OPENSSL_SYS_NETWARE
  72 # include <signal.h>
  73 # define crypt(c,s) (des_crypt((c),(s)))
  74 #endif
  75 #ifndef _IRIX
  76 # include <time.h>
  77 #endif
  78 #ifdef TIMES
  79 # include <sys/types.h>
  80 # include <sys/times.h>
  81 #endif
  82     /*
  83      * Depending on the VMS version, the tms structure is perhaps defined.
  84      * The __TMS macro will show if it was.  If it wasn't defined, we should
  85      * undefine TIMES, since that tells the rest of the program how things
  86      * should be handled.  -- Richard Levitte
  87      */
  88 #if defined(OPENSSL_SYS_VMS_DECC) && !defined(__TMS)
  89 # undef TIMES
  90 #endif
  91 #ifndef TIMES
  92 # include <sys/timeb.h>
  93 #endif
  94 #if defined(sun) || defined(__ultrix)
  95 # define _POSIX_SOURCE
  96 # include <limits.h>
  97 # include <sys/param.h>
  98 #endif
  99 #include <openssl/des.h>
 100 /* The following if from times(3) man page.  It may need to be changed */
 101 #ifndef HZ
 102 # ifndef CLK_TCK
 103 #  ifndef _BSD_CLK_TCK_         /* FreeBSD fix */
 104 #   define HZ   100.0
 105 #  else                         /* _BSD_CLK_TCK_ */
 106 #   define HZ ((double)_BSD_CLK_TCK_)
 107 #  endif
 108 # else                          /* CLK_TCK */
 109 #  define HZ ((double)CLK_TCK)
 110 # endif
 111 #endif
 112 #define BUFSIZE ((long)1024)
 113 long run = 0;
 114
 115 double Time_F(int s);
 116 #ifdef SIGALRM
 117 # if defined(__STDC__) || defined(sgi) || defined(_AIX)
 118 #  define SIGRETTYPE void
 119 # else
 120 #  define SIGRETTYPE int
 121 # endif
 122
 123 SIGRETTYPE sig_done(int sig);
 124 SIGRETTYPE sig_done(int sig)
 125 {
 126     signal(SIGALRM, sig_done);
 127     run = 0;
 128 # ifdef LINT
 129     sig = sig;
 130 # endif
 131 }
 132 #endif
 133
 134 #define START   0
 135 #define STOP    1
 136
 137 double Time_F(int s)
 138 {
 139     double ret;
 140 #ifdef TIMES
 141     static struct tms tstart, tend;
 142
 143     if (s == START) {
 144         times(&tstart);
 145         return (0);
 146     } else {
 147         times(&tend);
 148         ret = ((double)(tend.tms_utime - tstart.tms_utime)) / HZ;
 149         return ((ret == 0.0) ? 1e-6 : ret);
 150     }
 151 #else                           /* !times() */
 152     static struct timeb tstart, tend;
 153     long i;
 154
 155     if (s == START) {
 156         ftime(&tstart);
 157         return (0);
 158     } else {
 159         ftime(&tend);
 160         i = (long)tend.millitm - (long)tstart.millitm;
 161         ret = ((double)(tend.time - tstart.time)) + ((double)i) / 1e3;
 162         return ((ret == 0.0) ? 1e-6 : ret);
 163     }
 164 #endif
 165 }
 166
 167 int main(int argc, char **argv)
 168 {
 169     long count;
 170     static unsigned char buf[BUFSIZE];
 171     static DES_cblock key =
 172         { 0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0 };
 173     static DES_cblock key2 =
 174         { 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12 };
 175     static DES_cblock key3 =
 176         { 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34 };
 177     DES_key_schedule sch, sch2, sch3;
 178     double a, b, c, d, e;
 179 #ifndef SIGALRM
 180     long ca, cb, cc, cd, ce;
 181 #endif
 182
 183 #ifndef TIMES
 184     printf("To get the most accurate results, try to run this\n");
 185     printf("program when this computer is idle.\n");
 186 #endif
 187
 188     DES_set_key_unchecked(&key2, &sch2);
 189     DES_set_key_unchecked(&key3, &sch3);
 190
 191 #ifndef SIGALRM
 192     printf("First we calculate the approximate speed ...\n");
 193     DES_set_key_unchecked(&key, &sch);
 194     count = 10;
 195     do {
 196         long i;
 197         DES_LONG data[2];
 198
 199         count *= 2;
 200         Time_F(START);
 201         for (i = count; i; i--)
 202             DES_encrypt1(data, &sch, DES_ENCRYPT);
 203         d = Time_F(STOP);
 204     } while (d < 3.0);
 205     ca = count;
 206     cb = count * 3;
 207     cc = count * 3 * 8 / BUFSIZE + 1;
 208     cd = count * 8 / BUFSIZE + 1;
 209     ce = count / 20 + 1;
 210     printf("Doing set_key %ld times\n", ca);
 211 # define COND(d) (count != (d))
 212 # define COUNT(d) (d)
 213 #else
 214 # define COND(c) (run)
 215 # define COUNT(d) (count)
 216     signal(SIGALRM, sig_done);
 217     printf("Doing set_key for 10 seconds\n");
 218     alarm(10);
 219 #endif
 220
 221     Time_F(START);
 222     for (count = 0, run = 1; COND(ca); count++)
 223         DES_set_key_unchecked(&key, &sch);
 224     d = Time_F(STOP);
 225     printf("%ld set_key's in %.2f seconds\n", count, d);
 226     a = ((double)COUNT(ca)) / d;
 227
 228 #ifdef SIGALRM
 229     printf("Doing DES_encrypt's for 10 seconds\n");
 230     alarm(10);
 231 #else
 232     printf("Doing DES_encrypt %ld times\n", cb);
 233 #endif
 234     Time_F(START);
 235     for (count = 0, run = 1; COND(cb); count++) {
 236         DES_LONG data[2];
 237
 238         DES_encrypt1(data, &sch, DES_ENCRYPT);
 239     }
 240     d = Time_F(STOP);
 241     printf("%ld DES_encrypt's in %.2f second\n", count, d);
 242     b = ((double)COUNT(cb) * 8) / d;
 243
 244 #ifdef SIGALRM
 245     printf("Doing DES_cbc_encrypt on %ld byte blocks for 10 seconds\n",
 246            BUFSIZE);
 247     alarm(10);
 248 #else
 249     printf("Doing DES_cbc_encrypt %ld times on %ld byte blocks\n", cc,
 250            BUFSIZE);
 251 #endif
 252     Time_F(START);
 253     for (count = 0, run = 1; COND(cc); count++)
 254         DES_ncbc_encrypt(buf, buf, BUFSIZE, &sch, &key, DES_ENCRYPT);
 255     d = Time_F(STOP);
 256     printf("%ld DES_cbc_encrypt's of %ld byte blocks in %.2f second\n",
 257            count, BUFSIZE, d);
 258     c = ((double)COUNT(cc) * BUFSIZE) / d;
 259
 260 #ifdef SIGALRM
 261     printf("Doing DES_ede_cbc_encrypt on %ld byte blocks for 10 seconds\n",
 262            BUFSIZE);
 263     alarm(10);
 264 #else
 265     printf("Doing DES_ede_cbc_encrypt %ld times on %ld byte blocks\n", cd,
 266            BUFSIZE);
 267 #endif
 268     Time_F(START);
 269     for (count = 0, run = 1; COND(cd); count++)
 270         DES_ede3_cbc_encrypt(buf, buf, BUFSIZE,
 271                              &sch, &sch2, &sch3, &key, DES_ENCRYPT);
 272     d = Time_F(STOP);
 273     printf("%ld DES_ede_cbc_encrypt's of %ld byte blocks in %.2f second\n",
 274            count, BUFSIZE, d);
 275     d = ((double)COUNT(cd) * BUFSIZE) / d;
 276
 277 #ifdef SIGALRM
 278     printf("Doing crypt for 10 seconds\n");
 279     alarm(10);
 280 #else
 281     printf("Doing crypt %ld times\n", ce);
 282 #endif
 283     Time_F(START);
 284     for (count = 0, run = 1; COND(ce); count++)
 285         crypt("testing1", "ef");
 286     e = Time_F(STOP);
 287     printf("%ld crypts in %.2f second\n", count, e);
 288     e = ((double)COUNT(ce)) / e;
 289
 290     printf("set_key            per sec = %12.2f (%9.3fuS)\n", a, 1.0e6 / a);
 291     printf("DES raw ecb bytes  per sec = %12.2f (%9.3fuS)\n", b, 8.0e6 / b);
 292     printf("DES cbc bytes      per sec = %12.2f (%9.3fuS)\n", c, 8.0e6 / c);
 293     printf("DES ede cbc bytes  per sec = %12.2f (%9.3fuS)\n", d, 8.0e6 / d);
 294     printf("crypt              per sec = %12.2f (%9.3fuS)\n", e, 1.0e6 / e);
 295     exit(0);
 296 #if defined(LINT) || defined(OPENSSL_SYS_MSDOS)
 297     return (0);
 298 #endif
 299 }