Harden ASN.1 BIO handling of large amounts of data.
[openssl.git] / 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 }