1/*
2 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
3 *
4 * The contents of this file constitute Original Code as defined in and are
5 * subject to the Apple Public Source License Version 1.2 (the 'License').
6 * You may not use this file except in compliance with the License. Please obtain
7 * a copy of the License at http://www.apple.com/publicsource and read it before
8 * using this file.
9 *
10 * This Original Code and all software distributed under the License are
11 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
12 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
13 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
14 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
15 * specific language governing rights and limitations under the License.
16 */
17
18
19/* unused */
20
21/* crypto/bn/expspeed.c */
22/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
23 * All rights reserved.
24 *
25 * This package is an SSL implementation written
26 * by Eric Young (eay@cryptsoft.com).
27 * The implementation was written so as to conform with Netscapes SSL.
28 *
29 * This library is free for commercial and non-commercial use as long as
30 * the following conditions are aheared to.  The following conditions
31 * apply to all code found in this distribution, be it the RC4, RSA,
32 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
33 * included with this distribution is covered by the same copyright terms
34 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
35 *
36 * Copyright remains Eric Young's, and as such any Copyright notices in
37 * the code are not to be removed.
38 * If this package is used in a product, Eric Young should be given attribution
39 * as the author of the parts of the library used.
40 * This can be in the form of a textual message at program startup or
41 * in documentation (online or textual) provided with the package.
42 *
43 * Redistribution and use in source and binary forms, with or without
44 * modification, are permitted provided that the following conditions
45 * are met:
46 * 1. Redistributions of source code must retain the copyright
47 *    notice, this list of conditions and the following disclaimer.
48 * 2. Redistributions in binary form must reproduce the above copyright
49 *    notice, this list of conditions and the following disclaimer in the
50 *    documentation and/or other materials provided with the distribution.
51 * 3. All advertising materials mentioning features or use of this software
52 *    must display the following acknowledgement:
53 *    "This product includes cryptographic software written by
54 *     Eric Young (eay@cryptsoft.com)"
55 *    The word 'cryptographic' can be left out if the rouines from the library
56 *    being used are not cryptographic related :-).
57 * 4. If you include any Windows specific code (or a derivative thereof) from
58 *    the apps directory (application code) you must include an acknowledgement:
59 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
60 *
61 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
62 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
63 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
64 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
65 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
66 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
67 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
68 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
69 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
70 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
71 * SUCH DAMAGE.
72 *
73 * The licence and distribution terms for any publically available version or
74 * derivative of this code cannot be changed.  i.e. this code cannot simply be
75 * copied and put under another distribution licence
76 * [including the GNU Public Licence.]
77 */
78
79/* most of this code has been pilfered from my libdes speed.c program */
80
81#define BASENUM	5000
82#undef PROG
83#define PROG bnspeed_main
84
85#include <stdio.h>
86#include <stdlib.h>
87#include <signal.h>
88#include <string.h>
89#include <openssl/crypto.h>
90#include <openssl/err.h>
91
92#if !defined(MSDOS) && (!defined(VMS) || defined(__DECC))
93#define TIMES
94#endif
95
96#ifndef _IRIX
97#include <time.h>
98#endif
99#ifdef TIMES
100#include <sys/types.h>
101#include <sys/times.h>
102#endif
103
104/* Depending on the VMS version, the tms structure is perhaps defined.
105   The __TMS macro will show if it was.  If it wasn't defined, we should
106   undefine TIMES, since that tells the rest of the program how things
107   should be handled.				-- Richard Levitte */
108#if defined(VMS) && defined(__DECC) && !defined(__TMS)
109#undef TIMES
110#endif
111
112#ifndef TIMES
113#include <sys/timeb.h>
114#endif
115
116#if defined(sun) || defined(__ultrix)
117#define _POSIX_SOURCE
118#include <limits.h>
119#include <sys/param.h>
120#endif
121
122#include <openssl/bn.h>
123#include <openssl/x509.h>
124
125/* The following if from times(3) man page.  It may need to be changed */
126#ifndef HZ
127# ifndef CLK_TCK
128#  ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
129#   define HZ	100.0
130#  else /* _BSD_CLK_TCK_ */
131#   define HZ ((double)_BSD_CLK_TCK_)
132#  endif
133# else /* CLK_TCK */
134#  define HZ ((double)CLK_TCK)
135# endif
136#endif
137
138#undef BUFSIZE
139#define BUFSIZE	((long)1024*8)
140int run=0;
141
142static double Time_F(int s);
143#define START	0
144#define STOP	1
145
146static double Time_F(int s)
147	{
148	double ret;
149#ifdef TIMES
150	static struct tms tstart,tend;
151
152	if (s == START)
153		{
154		times(&tstart);
155		return(0);
156		}
157	else
158		{
159		times(&tend);
160		ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
161		return((ret < 1e-3)?1e-3:ret);
162		}
163#else /* !times() */
164	static struct timeb tstart,tend;
165	long i;
166
167	if (s == START)
168		{
169		ftime(&tstart);
170		return(0);
171		}
172	else
173		{
174		ftime(&tend);
175		i=(long)tend.millitm-(long)tstart.millitm;
176		ret=((double)(tend.time-tstart.time))+((double)i)/1000.0;
177		return((ret < 0.001)?0.001:ret);
178		}
179#endif
180	}
181
182#define NUM_SIZES	6
183static int sizes[NUM_SIZES]={256,512,1024,2048,4096,8192};
184static int mul_c[NUM_SIZES]={8*8*8*8*8,8*8*8*8,8*8*8,8*8,8,1};
185/*static int sizes[NUM_SIZES]={59,179,299,419,539}; */
186
187void do_mul_exp(BIGNUM *r,BIGNUM *a,BIGNUM *b,BIGNUM *c,BN_CTX *ctx);
188
189int main(int argc, char **argv)
190	{
191	BN_CTX *ctx;
192	BIGNUM *a,*b,*c,*r;
193
194	ctx=BN_CTX_new();
195	a=BN_new();
196	b=BN_new();
197	c=BN_new();
198	r=BN_new();
199
200	do_mul_exp(r,a,b,c,ctx);
201	}
202
203void do_mul_exp(BIGNUM *r, BIGNUM *a, BIGNUM *b, BIGNUM *c, BN_CTX *ctx)
204	{
205	int i,k;
206	double tm;
207	long num;
208	BN_MONT_CTX m;
209
210	memset(&m,0,sizeof(m));
211
212	num=BASENUM;
213	for (i=0; i<NUM_SIZES; i++)
214		{
215		BN_rand(a,sizes[i],1,0);
216		BN_rand(b,sizes[i],1,0);
217		BN_rand(c,sizes[i],1,1);
218		BN_mod(a,a,c,ctx);
219		BN_mod(b,b,c,ctx);
220
221		BN_MONT_CTX_set(&m,c,ctx);
222
223		Time_F(START);
224		for (k=0; k<num; k++)
225			BN_mod_exp_mont(r,a,b,c,ctx,&m);
226		tm=Time_F(STOP);
227		printf("mul %4d ^ %4d %% %d -> %8.3fms %5.1f\n",sizes[i],sizes[i],sizes[i],tm*1000.0/num,tm*mul_c[i]/num);
228		num/=7;
229		if (num <= 0) num=1;
230		}
231
232	}
233
234