1*de0e0e4dSAntonio Huete Jimenez /* $OpenBSD: sha_locl.h,v 1.24 2021/11/09 18:40:21 bcook Exp $ */
2f5b1c8a1SJohn Marino /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3f5b1c8a1SJohn Marino * All rights reserved.
4f5b1c8a1SJohn Marino *
5f5b1c8a1SJohn Marino * This package is an SSL implementation written
6f5b1c8a1SJohn Marino * by Eric Young (eay@cryptsoft.com).
7f5b1c8a1SJohn Marino * The implementation was written so as to conform with Netscapes SSL.
8f5b1c8a1SJohn Marino *
9f5b1c8a1SJohn Marino * This library is free for commercial and non-commercial use as long as
10f5b1c8a1SJohn Marino * the following conditions are aheared to. The following conditions
11f5b1c8a1SJohn Marino * apply to all code found in this distribution, be it the RC4, RSA,
12f5b1c8a1SJohn Marino * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13f5b1c8a1SJohn Marino * included with this distribution is covered by the same copyright terms
14f5b1c8a1SJohn Marino * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15f5b1c8a1SJohn Marino *
16f5b1c8a1SJohn Marino * Copyright remains Eric Young's, and as such any Copyright notices in
17f5b1c8a1SJohn Marino * the code are not to be removed.
18f5b1c8a1SJohn Marino * If this package is used in a product, Eric Young should be given attribution
19f5b1c8a1SJohn Marino * as the author of the parts of the library used.
20f5b1c8a1SJohn Marino * This can be in the form of a textual message at program startup or
21f5b1c8a1SJohn Marino * in documentation (online or textual) provided with the package.
22f5b1c8a1SJohn Marino *
23f5b1c8a1SJohn Marino * Redistribution and use in source and binary forms, with or without
24f5b1c8a1SJohn Marino * modification, are permitted provided that the following conditions
25f5b1c8a1SJohn Marino * are met:
26f5b1c8a1SJohn Marino * 1. Redistributions of source code must retain the copyright
27f5b1c8a1SJohn Marino * notice, this list of conditions and the following disclaimer.
28f5b1c8a1SJohn Marino * 2. Redistributions in binary form must reproduce the above copyright
29f5b1c8a1SJohn Marino * notice, this list of conditions and the following disclaimer in the
30f5b1c8a1SJohn Marino * documentation and/or other materials provided with the distribution.
31f5b1c8a1SJohn Marino * 3. All advertising materials mentioning features or use of this software
32f5b1c8a1SJohn Marino * must display the following acknowledgement:
33f5b1c8a1SJohn Marino * "This product includes cryptographic software written by
34f5b1c8a1SJohn Marino * Eric Young (eay@cryptsoft.com)"
35f5b1c8a1SJohn Marino * The word 'cryptographic' can be left out if the rouines from the library
36f5b1c8a1SJohn Marino * being used are not cryptographic related :-).
37f5b1c8a1SJohn Marino * 4. If you include any Windows specific code (or a derivative thereof) from
38f5b1c8a1SJohn Marino * the apps directory (application code) you must include an acknowledgement:
39f5b1c8a1SJohn Marino * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40f5b1c8a1SJohn Marino *
41f5b1c8a1SJohn Marino * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42f5b1c8a1SJohn Marino * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43f5b1c8a1SJohn Marino * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44f5b1c8a1SJohn Marino * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45f5b1c8a1SJohn Marino * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46f5b1c8a1SJohn Marino * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47f5b1c8a1SJohn Marino * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48f5b1c8a1SJohn Marino * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49f5b1c8a1SJohn Marino * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50f5b1c8a1SJohn Marino * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51f5b1c8a1SJohn Marino * SUCH DAMAGE.
52f5b1c8a1SJohn Marino *
53f5b1c8a1SJohn Marino * The licence and distribution terms for any publically available version or
54f5b1c8a1SJohn Marino * derivative of this code cannot be changed. i.e. this code cannot simply be
55f5b1c8a1SJohn Marino * copied and put under another distribution licence
56f5b1c8a1SJohn Marino * [including the GNU Public Licence.]
57f5b1c8a1SJohn Marino */
58f5b1c8a1SJohn Marino
59f5b1c8a1SJohn Marino #include <stdlib.h>
60f5b1c8a1SJohn Marino #include <string.h>
61f5b1c8a1SJohn Marino
62f5b1c8a1SJohn Marino #include <openssl/opensslconf.h>
63f5b1c8a1SJohn Marino #include <openssl/sha.h>
64f5b1c8a1SJohn Marino
65f5b1c8a1SJohn Marino #define DATA_ORDER_IS_BIG_ENDIAN
66f5b1c8a1SJohn Marino
67f5b1c8a1SJohn Marino #define HASH_LONG SHA_LONG
68f5b1c8a1SJohn Marino #define HASH_CTX SHA_CTX
69f5b1c8a1SJohn Marino #define HASH_CBLOCK SHA_CBLOCK
70f5b1c8a1SJohn Marino #define HASH_MAKE_STRING(c,s) do { \
71f5b1c8a1SJohn Marino unsigned long ll; \
72f5b1c8a1SJohn Marino ll=(c)->h0; HOST_l2c(ll,(s)); \
73f5b1c8a1SJohn Marino ll=(c)->h1; HOST_l2c(ll,(s)); \
74f5b1c8a1SJohn Marino ll=(c)->h2; HOST_l2c(ll,(s)); \
75f5b1c8a1SJohn Marino ll=(c)->h3; HOST_l2c(ll,(s)); \
76f5b1c8a1SJohn Marino ll=(c)->h4; HOST_l2c(ll,(s)); \
77f5b1c8a1SJohn Marino } while (0)
78f5b1c8a1SJohn Marino
79f5b1c8a1SJohn Marino # define HASH_UPDATE SHA1_Update
80f5b1c8a1SJohn Marino # define HASH_TRANSFORM SHA1_Transform
81f5b1c8a1SJohn Marino # define HASH_FINAL SHA1_Final
82f5b1c8a1SJohn Marino # define HASH_INIT SHA1_Init
83f5b1c8a1SJohn Marino # define HASH_BLOCK_DATA_ORDER sha1_block_data_order
84f5b1c8a1SJohn Marino # define Xupdate(a,ix,ia,ib,ic,id) ( (a)=(ia^ib^ic^id), \
85f5b1c8a1SJohn Marino ix=(a)=ROTATE((a),1) \
86f5b1c8a1SJohn Marino )
87f5b1c8a1SJohn Marino
8872c33676SMaxim Ag __BEGIN_HIDDEN_DECLS
8972c33676SMaxim Ag
90f5b1c8a1SJohn Marino #ifndef SHA1_ASM
91f5b1c8a1SJohn Marino static
92f5b1c8a1SJohn Marino #endif
9372c33676SMaxim Ag
94f5b1c8a1SJohn Marino void sha1_block_data_order (SHA_CTX *c, const void *p,size_t num);
95f5b1c8a1SJohn Marino
9672c33676SMaxim Ag __END_HIDDEN_DECLS
9772c33676SMaxim Ag
98f5b1c8a1SJohn Marino #include "md32_common.h"
99f5b1c8a1SJohn Marino
100f5b1c8a1SJohn Marino #define INIT_DATA_h0 0x67452301UL
101f5b1c8a1SJohn Marino #define INIT_DATA_h1 0xefcdab89UL
102f5b1c8a1SJohn Marino #define INIT_DATA_h2 0x98badcfeUL
103f5b1c8a1SJohn Marino #define INIT_DATA_h3 0x10325476UL
104f5b1c8a1SJohn Marino #define INIT_DATA_h4 0xc3d2e1f0UL
105f5b1c8a1SJohn Marino
SHA1_Init(SHA_CTX * c)106f5b1c8a1SJohn Marino int SHA1_Init(SHA_CTX *c)
107f5b1c8a1SJohn Marino {
108f5b1c8a1SJohn Marino memset (c,0,sizeof(*c));
109f5b1c8a1SJohn Marino c->h0=INIT_DATA_h0;
110f5b1c8a1SJohn Marino c->h1=INIT_DATA_h1;
111f5b1c8a1SJohn Marino c->h2=INIT_DATA_h2;
112f5b1c8a1SJohn Marino c->h3=INIT_DATA_h3;
113f5b1c8a1SJohn Marino c->h4=INIT_DATA_h4;
114f5b1c8a1SJohn Marino return 1;
115f5b1c8a1SJohn Marino }
116f5b1c8a1SJohn Marino
117f5b1c8a1SJohn Marino #define K_00_19 0x5a827999UL
118f5b1c8a1SJohn Marino #define K_20_39 0x6ed9eba1UL
119f5b1c8a1SJohn Marino #define K_40_59 0x8f1bbcdcUL
120f5b1c8a1SJohn Marino #define K_60_79 0xca62c1d6UL
121f5b1c8a1SJohn Marino
122f5b1c8a1SJohn Marino /* As pointed out by Wei Dai <weidai@eskimo.com>, F() below can be
123f5b1c8a1SJohn Marino * simplified to the code in F_00_19. Wei attributes these optimisations
124f5b1c8a1SJohn Marino * to Peter Gutmann's SHS code, and he attributes it to Rich Schroeppel.
125f5b1c8a1SJohn Marino * #define F(x,y,z) (((x) & (y)) | ((~(x)) & (z)))
126f5b1c8a1SJohn Marino * I've just become aware of another tweak to be made, again from Wei Dai,
127f5b1c8a1SJohn Marino * in F_40_59, (x&a)|(y&a) -> (x|y)&a
128f5b1c8a1SJohn Marino */
129f5b1c8a1SJohn Marino #define F_00_19(b,c,d) ((((c) ^ (d)) & (b)) ^ (d))
130f5b1c8a1SJohn Marino #define F_20_39(b,c,d) ((b) ^ (c) ^ (d))
131f5b1c8a1SJohn Marino #define F_40_59(b,c,d) (((b) & (c)) | (((b)|(c)) & (d)))
132f5b1c8a1SJohn Marino #define F_60_79(b,c,d) F_20_39(b,c,d)
133f5b1c8a1SJohn Marino
134f5b1c8a1SJohn Marino #ifndef OPENSSL_SMALL_FOOTPRINT
135f5b1c8a1SJohn Marino
136f5b1c8a1SJohn Marino #define BODY_00_15(i,a,b,c,d,e,f,xi) \
137f5b1c8a1SJohn Marino (f)=xi+(e)+K_00_19+ROTATE((a),5)+F_00_19((b),(c),(d)); \
138f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
139f5b1c8a1SJohn Marino
140f5b1c8a1SJohn Marino #define BODY_16_19(i,a,b,c,d,e,f,xi,xa,xb,xc,xd) \
141f5b1c8a1SJohn Marino Xupdate(f,xi,xa,xb,xc,xd); \
142f5b1c8a1SJohn Marino (f)+=(e)+K_00_19+ROTATE((a),5)+F_00_19((b),(c),(d)); \
143f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
144f5b1c8a1SJohn Marino
145f5b1c8a1SJohn Marino #define BODY_20_31(i,a,b,c,d,e,f,xi,xa,xb,xc,xd) \
146f5b1c8a1SJohn Marino Xupdate(f,xi,xa,xb,xc,xd); \
147f5b1c8a1SJohn Marino (f)+=(e)+K_20_39+ROTATE((a),5)+F_20_39((b),(c),(d)); \
148f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
149f5b1c8a1SJohn Marino
150f5b1c8a1SJohn Marino #define BODY_32_39(i,a,b,c,d,e,f,xa,xb,xc,xd) \
151f5b1c8a1SJohn Marino Xupdate(f,xa,xa,xb,xc,xd); \
152f5b1c8a1SJohn Marino (f)+=(e)+K_20_39+ROTATE((a),5)+F_20_39((b),(c),(d)); \
153f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
154f5b1c8a1SJohn Marino
155f5b1c8a1SJohn Marino #define BODY_40_59(i,a,b,c,d,e,f,xa,xb,xc,xd) \
156f5b1c8a1SJohn Marino Xupdate(f,xa,xa,xb,xc,xd); \
157f5b1c8a1SJohn Marino (f)+=(e)+K_40_59+ROTATE((a),5)+F_40_59((b),(c),(d)); \
158f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
159f5b1c8a1SJohn Marino
160f5b1c8a1SJohn Marino #define BODY_60_79(i,a,b,c,d,e,f,xa,xb,xc,xd) \
161f5b1c8a1SJohn Marino Xupdate(f,xa,xa,xb,xc,xd); \
162f5b1c8a1SJohn Marino (f)=xa+(e)+K_60_79+ROTATE((a),5)+F_60_79((b),(c),(d)); \
163f5b1c8a1SJohn Marino (b)=ROTATE((b),30);
164f5b1c8a1SJohn Marino
165f5b1c8a1SJohn Marino #ifdef X
166f5b1c8a1SJohn Marino #undef X
167f5b1c8a1SJohn Marino #endif
168f5b1c8a1SJohn Marino #ifndef MD32_XARRAY
169f5b1c8a1SJohn Marino /*
170f5b1c8a1SJohn Marino * Originally X was an array. As it's automatic it's natural
171f5b1c8a1SJohn Marino * to expect RISC compiler to accommodate at least part of it in
172f5b1c8a1SJohn Marino * the register bank, isn't it? Unfortunately not all compilers
173f5b1c8a1SJohn Marino * "find" this expectation reasonable:-( On order to make such
174f5b1c8a1SJohn Marino * compilers generate better code I replace X[] with a bunch of
175f5b1c8a1SJohn Marino * X0, X1, etc. See the function body below...
176f5b1c8a1SJohn Marino * <appro@fy.chalmers.se>
177f5b1c8a1SJohn Marino */
178f5b1c8a1SJohn Marino # define X(i) XX##i
179f5b1c8a1SJohn Marino #else
180f5b1c8a1SJohn Marino /*
181f5b1c8a1SJohn Marino * However! Some compilers (most notably HP C) get overwhelmed by
182f5b1c8a1SJohn Marino * that many local variables so that we have to have the way to
183f5b1c8a1SJohn Marino * fall down to the original behavior.
184f5b1c8a1SJohn Marino */
185f5b1c8a1SJohn Marino # define X(i) XX[i]
186f5b1c8a1SJohn Marino #endif
187f5b1c8a1SJohn Marino
188f5b1c8a1SJohn Marino #if !defined(SHA1_ASM)
189*de0e0e4dSAntonio Huete Jimenez #include <endian.h>
HASH_BLOCK_DATA_ORDER(SHA_CTX * c,const void * p,size_t num)190f5b1c8a1SJohn Marino static void HASH_BLOCK_DATA_ORDER (SHA_CTX *c, const void *p, size_t num)
191f5b1c8a1SJohn Marino {
192f5b1c8a1SJohn Marino const unsigned char *data=p;
193f5b1c8a1SJohn Marino unsigned MD32_REG_T A,B,C,D,E,T,l;
194f5b1c8a1SJohn Marino #ifndef MD32_XARRAY
195f5b1c8a1SJohn Marino unsigned MD32_REG_T XX0, XX1, XX2, XX3, XX4, XX5, XX6, XX7,
196f5b1c8a1SJohn Marino XX8, XX9,XX10,XX11,XX12,XX13,XX14,XX15;
197f5b1c8a1SJohn Marino #else
198f5b1c8a1SJohn Marino SHA_LONG XX[16];
199f5b1c8a1SJohn Marino #endif
200f5b1c8a1SJohn Marino
201f5b1c8a1SJohn Marino A=c->h0;
202f5b1c8a1SJohn Marino B=c->h1;
203f5b1c8a1SJohn Marino C=c->h2;
204f5b1c8a1SJohn Marino D=c->h3;
205f5b1c8a1SJohn Marino E=c->h4;
206f5b1c8a1SJohn Marino
207f5b1c8a1SJohn Marino for (;;)
208f5b1c8a1SJohn Marino {
209f5b1c8a1SJohn Marino
210f5b1c8a1SJohn Marino if (BYTE_ORDER != LITTLE_ENDIAN &&
211f5b1c8a1SJohn Marino sizeof(SHA_LONG)==4 && ((size_t)p%4)==0)
212f5b1c8a1SJohn Marino {
213f5b1c8a1SJohn Marino const SHA_LONG *W=(const SHA_LONG *)data;
214f5b1c8a1SJohn Marino
215f5b1c8a1SJohn Marino X( 0) = W[0]; X( 1) = W[ 1];
216f5b1c8a1SJohn Marino BODY_00_15( 0,A,B,C,D,E,T,X( 0)); X( 2) = W[ 2];
217f5b1c8a1SJohn Marino BODY_00_15( 1,T,A,B,C,D,E,X( 1)); X( 3) = W[ 3];
218f5b1c8a1SJohn Marino BODY_00_15( 2,E,T,A,B,C,D,X( 2)); X( 4) = W[ 4];
219f5b1c8a1SJohn Marino BODY_00_15( 3,D,E,T,A,B,C,X( 3)); X( 5) = W[ 5];
220f5b1c8a1SJohn Marino BODY_00_15( 4,C,D,E,T,A,B,X( 4)); X( 6) = W[ 6];
221f5b1c8a1SJohn Marino BODY_00_15( 5,B,C,D,E,T,A,X( 5)); X( 7) = W[ 7];
222f5b1c8a1SJohn Marino BODY_00_15( 6,A,B,C,D,E,T,X( 6)); X( 8) = W[ 8];
223f5b1c8a1SJohn Marino BODY_00_15( 7,T,A,B,C,D,E,X( 7)); X( 9) = W[ 9];
224f5b1c8a1SJohn Marino BODY_00_15( 8,E,T,A,B,C,D,X( 8)); X(10) = W[10];
225f5b1c8a1SJohn Marino BODY_00_15( 9,D,E,T,A,B,C,X( 9)); X(11) = W[11];
226f5b1c8a1SJohn Marino BODY_00_15(10,C,D,E,T,A,B,X(10)); X(12) = W[12];
227f5b1c8a1SJohn Marino BODY_00_15(11,B,C,D,E,T,A,X(11)); X(13) = W[13];
228f5b1c8a1SJohn Marino BODY_00_15(12,A,B,C,D,E,T,X(12)); X(14) = W[14];
229f5b1c8a1SJohn Marino BODY_00_15(13,T,A,B,C,D,E,X(13)); X(15) = W[15];
230f5b1c8a1SJohn Marino BODY_00_15(14,E,T,A,B,C,D,X(14));
231f5b1c8a1SJohn Marino BODY_00_15(15,D,E,T,A,B,C,X(15));
232f5b1c8a1SJohn Marino
233f5b1c8a1SJohn Marino data += SHA_CBLOCK;
234f5b1c8a1SJohn Marino }
235f5b1c8a1SJohn Marino else
236f5b1c8a1SJohn Marino {
237f5b1c8a1SJohn Marino HOST_c2l(data,l); X( 0)=l; HOST_c2l(data,l); X( 1)=l;
238f5b1c8a1SJohn Marino BODY_00_15( 0,A,B,C,D,E,T,X( 0)); HOST_c2l(data,l); X( 2)=l;
239f5b1c8a1SJohn Marino BODY_00_15( 1,T,A,B,C,D,E,X( 1)); HOST_c2l(data,l); X( 3)=l;
240f5b1c8a1SJohn Marino BODY_00_15( 2,E,T,A,B,C,D,X( 2)); HOST_c2l(data,l); X( 4)=l;
241f5b1c8a1SJohn Marino BODY_00_15( 3,D,E,T,A,B,C,X( 3)); HOST_c2l(data,l); X( 5)=l;
242f5b1c8a1SJohn Marino BODY_00_15( 4,C,D,E,T,A,B,X( 4)); HOST_c2l(data,l); X( 6)=l;
243f5b1c8a1SJohn Marino BODY_00_15( 5,B,C,D,E,T,A,X( 5)); HOST_c2l(data,l); X( 7)=l;
244f5b1c8a1SJohn Marino BODY_00_15( 6,A,B,C,D,E,T,X( 6)); HOST_c2l(data,l); X( 8)=l;
245f5b1c8a1SJohn Marino BODY_00_15( 7,T,A,B,C,D,E,X( 7)); HOST_c2l(data,l); X( 9)=l;
246f5b1c8a1SJohn Marino BODY_00_15( 8,E,T,A,B,C,D,X( 8)); HOST_c2l(data,l); X(10)=l;
247f5b1c8a1SJohn Marino BODY_00_15( 9,D,E,T,A,B,C,X( 9)); HOST_c2l(data,l); X(11)=l;
248f5b1c8a1SJohn Marino BODY_00_15(10,C,D,E,T,A,B,X(10)); HOST_c2l(data,l); X(12)=l;
249f5b1c8a1SJohn Marino BODY_00_15(11,B,C,D,E,T,A,X(11)); HOST_c2l(data,l); X(13)=l;
250f5b1c8a1SJohn Marino BODY_00_15(12,A,B,C,D,E,T,X(12)); HOST_c2l(data,l); X(14)=l;
251f5b1c8a1SJohn Marino BODY_00_15(13,T,A,B,C,D,E,X(13)); HOST_c2l(data,l); X(15)=l;
252f5b1c8a1SJohn Marino BODY_00_15(14,E,T,A,B,C,D,X(14));
253f5b1c8a1SJohn Marino BODY_00_15(15,D,E,T,A,B,C,X(15));
254f5b1c8a1SJohn Marino }
255f5b1c8a1SJohn Marino
256f5b1c8a1SJohn Marino BODY_16_19(16,C,D,E,T,A,B,X( 0),X( 0),X( 2),X( 8),X(13));
257f5b1c8a1SJohn Marino BODY_16_19(17,B,C,D,E,T,A,X( 1),X( 1),X( 3),X( 9),X(14));
258f5b1c8a1SJohn Marino BODY_16_19(18,A,B,C,D,E,T,X( 2),X( 2),X( 4),X(10),X(15));
259f5b1c8a1SJohn Marino BODY_16_19(19,T,A,B,C,D,E,X( 3),X( 3),X( 5),X(11),X( 0));
260f5b1c8a1SJohn Marino
261f5b1c8a1SJohn Marino BODY_20_31(20,E,T,A,B,C,D,X( 4),X( 4),X( 6),X(12),X( 1));
262f5b1c8a1SJohn Marino BODY_20_31(21,D,E,T,A,B,C,X( 5),X( 5),X( 7),X(13),X( 2));
263f5b1c8a1SJohn Marino BODY_20_31(22,C,D,E,T,A,B,X( 6),X( 6),X( 8),X(14),X( 3));
264f5b1c8a1SJohn Marino BODY_20_31(23,B,C,D,E,T,A,X( 7),X( 7),X( 9),X(15),X( 4));
265f5b1c8a1SJohn Marino BODY_20_31(24,A,B,C,D,E,T,X( 8),X( 8),X(10),X( 0),X( 5));
266f5b1c8a1SJohn Marino BODY_20_31(25,T,A,B,C,D,E,X( 9),X( 9),X(11),X( 1),X( 6));
267f5b1c8a1SJohn Marino BODY_20_31(26,E,T,A,B,C,D,X(10),X(10),X(12),X( 2),X( 7));
268f5b1c8a1SJohn Marino BODY_20_31(27,D,E,T,A,B,C,X(11),X(11),X(13),X( 3),X( 8));
269f5b1c8a1SJohn Marino BODY_20_31(28,C,D,E,T,A,B,X(12),X(12),X(14),X( 4),X( 9));
270f5b1c8a1SJohn Marino BODY_20_31(29,B,C,D,E,T,A,X(13),X(13),X(15),X( 5),X(10));
271f5b1c8a1SJohn Marino BODY_20_31(30,A,B,C,D,E,T,X(14),X(14),X( 0),X( 6),X(11));
272f5b1c8a1SJohn Marino BODY_20_31(31,T,A,B,C,D,E,X(15),X(15),X( 1),X( 7),X(12));
273f5b1c8a1SJohn Marino
274f5b1c8a1SJohn Marino BODY_32_39(32,E,T,A,B,C,D,X( 0),X( 2),X( 8),X(13));
275f5b1c8a1SJohn Marino BODY_32_39(33,D,E,T,A,B,C,X( 1),X( 3),X( 9),X(14));
276f5b1c8a1SJohn Marino BODY_32_39(34,C,D,E,T,A,B,X( 2),X( 4),X(10),X(15));
277f5b1c8a1SJohn Marino BODY_32_39(35,B,C,D,E,T,A,X( 3),X( 5),X(11),X( 0));
278f5b1c8a1SJohn Marino BODY_32_39(36,A,B,C,D,E,T,X( 4),X( 6),X(12),X( 1));
279f5b1c8a1SJohn Marino BODY_32_39(37,T,A,B,C,D,E,X( 5),X( 7),X(13),X( 2));
280f5b1c8a1SJohn Marino BODY_32_39(38,E,T,A,B,C,D,X( 6),X( 8),X(14),X( 3));
281f5b1c8a1SJohn Marino BODY_32_39(39,D,E,T,A,B,C,X( 7),X( 9),X(15),X( 4));
282f5b1c8a1SJohn Marino
283f5b1c8a1SJohn Marino BODY_40_59(40,C,D,E,T,A,B,X( 8),X(10),X( 0),X( 5));
284f5b1c8a1SJohn Marino BODY_40_59(41,B,C,D,E,T,A,X( 9),X(11),X( 1),X( 6));
285f5b1c8a1SJohn Marino BODY_40_59(42,A,B,C,D,E,T,X(10),X(12),X( 2),X( 7));
286f5b1c8a1SJohn Marino BODY_40_59(43,T,A,B,C,D,E,X(11),X(13),X( 3),X( 8));
287f5b1c8a1SJohn Marino BODY_40_59(44,E,T,A,B,C,D,X(12),X(14),X( 4),X( 9));
288f5b1c8a1SJohn Marino BODY_40_59(45,D,E,T,A,B,C,X(13),X(15),X( 5),X(10));
289f5b1c8a1SJohn Marino BODY_40_59(46,C,D,E,T,A,B,X(14),X( 0),X( 6),X(11));
290f5b1c8a1SJohn Marino BODY_40_59(47,B,C,D,E,T,A,X(15),X( 1),X( 7),X(12));
291f5b1c8a1SJohn Marino BODY_40_59(48,A,B,C,D,E,T,X( 0),X( 2),X( 8),X(13));
292f5b1c8a1SJohn Marino BODY_40_59(49,T,A,B,C,D,E,X( 1),X( 3),X( 9),X(14));
293f5b1c8a1SJohn Marino BODY_40_59(50,E,T,A,B,C,D,X( 2),X( 4),X(10),X(15));
294f5b1c8a1SJohn Marino BODY_40_59(51,D,E,T,A,B,C,X( 3),X( 5),X(11),X( 0));
295f5b1c8a1SJohn Marino BODY_40_59(52,C,D,E,T,A,B,X( 4),X( 6),X(12),X( 1));
296f5b1c8a1SJohn Marino BODY_40_59(53,B,C,D,E,T,A,X( 5),X( 7),X(13),X( 2));
297f5b1c8a1SJohn Marino BODY_40_59(54,A,B,C,D,E,T,X( 6),X( 8),X(14),X( 3));
298f5b1c8a1SJohn Marino BODY_40_59(55,T,A,B,C,D,E,X( 7),X( 9),X(15),X( 4));
299f5b1c8a1SJohn Marino BODY_40_59(56,E,T,A,B,C,D,X( 8),X(10),X( 0),X( 5));
300f5b1c8a1SJohn Marino BODY_40_59(57,D,E,T,A,B,C,X( 9),X(11),X( 1),X( 6));
301f5b1c8a1SJohn Marino BODY_40_59(58,C,D,E,T,A,B,X(10),X(12),X( 2),X( 7));
302f5b1c8a1SJohn Marino BODY_40_59(59,B,C,D,E,T,A,X(11),X(13),X( 3),X( 8));
303f5b1c8a1SJohn Marino
304f5b1c8a1SJohn Marino BODY_60_79(60,A,B,C,D,E,T,X(12),X(14),X( 4),X( 9));
305f5b1c8a1SJohn Marino BODY_60_79(61,T,A,B,C,D,E,X(13),X(15),X( 5),X(10));
306f5b1c8a1SJohn Marino BODY_60_79(62,E,T,A,B,C,D,X(14),X( 0),X( 6),X(11));
307f5b1c8a1SJohn Marino BODY_60_79(63,D,E,T,A,B,C,X(15),X( 1),X( 7),X(12));
308f5b1c8a1SJohn Marino BODY_60_79(64,C,D,E,T,A,B,X( 0),X( 2),X( 8),X(13));
309f5b1c8a1SJohn Marino BODY_60_79(65,B,C,D,E,T,A,X( 1),X( 3),X( 9),X(14));
310f5b1c8a1SJohn Marino BODY_60_79(66,A,B,C,D,E,T,X( 2),X( 4),X(10),X(15));
311f5b1c8a1SJohn Marino BODY_60_79(67,T,A,B,C,D,E,X( 3),X( 5),X(11),X( 0));
312f5b1c8a1SJohn Marino BODY_60_79(68,E,T,A,B,C,D,X( 4),X( 6),X(12),X( 1));
313f5b1c8a1SJohn Marino BODY_60_79(69,D,E,T,A,B,C,X( 5),X( 7),X(13),X( 2));
314f5b1c8a1SJohn Marino BODY_60_79(70,C,D,E,T,A,B,X( 6),X( 8),X(14),X( 3));
315f5b1c8a1SJohn Marino BODY_60_79(71,B,C,D,E,T,A,X( 7),X( 9),X(15),X( 4));
316f5b1c8a1SJohn Marino BODY_60_79(72,A,B,C,D,E,T,X( 8),X(10),X( 0),X( 5));
317f5b1c8a1SJohn Marino BODY_60_79(73,T,A,B,C,D,E,X( 9),X(11),X( 1),X( 6));
318f5b1c8a1SJohn Marino BODY_60_79(74,E,T,A,B,C,D,X(10),X(12),X( 2),X( 7));
319f5b1c8a1SJohn Marino BODY_60_79(75,D,E,T,A,B,C,X(11),X(13),X( 3),X( 8));
320f5b1c8a1SJohn Marino BODY_60_79(76,C,D,E,T,A,B,X(12),X(14),X( 4),X( 9));
321f5b1c8a1SJohn Marino BODY_60_79(77,B,C,D,E,T,A,X(13),X(15),X( 5),X(10));
322f5b1c8a1SJohn Marino BODY_60_79(78,A,B,C,D,E,T,X(14),X( 0),X( 6),X(11));
323f5b1c8a1SJohn Marino BODY_60_79(79,T,A,B,C,D,E,X(15),X( 1),X( 7),X(12));
324f5b1c8a1SJohn Marino
325f5b1c8a1SJohn Marino c->h0=(c->h0+E)&0xffffffffL;
326f5b1c8a1SJohn Marino c->h1=(c->h1+T)&0xffffffffL;
327f5b1c8a1SJohn Marino c->h2=(c->h2+A)&0xffffffffL;
328f5b1c8a1SJohn Marino c->h3=(c->h3+B)&0xffffffffL;
329f5b1c8a1SJohn Marino c->h4=(c->h4+C)&0xffffffffL;
330f5b1c8a1SJohn Marino
331f5b1c8a1SJohn Marino if (--num == 0) break;
332f5b1c8a1SJohn Marino
333f5b1c8a1SJohn Marino A=c->h0;
334f5b1c8a1SJohn Marino B=c->h1;
335f5b1c8a1SJohn Marino C=c->h2;
336f5b1c8a1SJohn Marino D=c->h3;
337f5b1c8a1SJohn Marino E=c->h4;
338f5b1c8a1SJohn Marino
339f5b1c8a1SJohn Marino }
340f5b1c8a1SJohn Marino }
341f5b1c8a1SJohn Marino #endif
342f5b1c8a1SJohn Marino
343f5b1c8a1SJohn Marino #else /* OPENSSL_SMALL_FOOTPRINT */
344f5b1c8a1SJohn Marino
345f5b1c8a1SJohn Marino #define BODY_00_15(xi) do { \
346f5b1c8a1SJohn Marino T=E+K_00_19+F_00_19(B,C,D); \
347f5b1c8a1SJohn Marino E=D, D=C, C=ROTATE(B,30), B=A; \
348f5b1c8a1SJohn Marino A=ROTATE(A,5)+T+xi; } while(0)
349f5b1c8a1SJohn Marino
350f5b1c8a1SJohn Marino #define BODY_16_19(xa,xb,xc,xd) do { \
351f5b1c8a1SJohn Marino Xupdate(T,xa,xa,xb,xc,xd); \
352f5b1c8a1SJohn Marino T+=E+K_00_19+F_00_19(B,C,D); \
353f5b1c8a1SJohn Marino E=D, D=C, C=ROTATE(B,30), B=A; \
354f5b1c8a1SJohn Marino A=ROTATE(A,5)+T; } while(0)
355f5b1c8a1SJohn Marino
356f5b1c8a1SJohn Marino #define BODY_20_39(xa,xb,xc,xd) do { \
357f5b1c8a1SJohn Marino Xupdate(T,xa,xa,xb,xc,xd); \
358f5b1c8a1SJohn Marino T+=E+K_20_39+F_20_39(B,C,D); \
359f5b1c8a1SJohn Marino E=D, D=C, C=ROTATE(B,30), B=A; \
360f5b1c8a1SJohn Marino A=ROTATE(A,5)+T; } while(0)
361f5b1c8a1SJohn Marino
362f5b1c8a1SJohn Marino #define BODY_40_59(xa,xb,xc,xd) do { \
363f5b1c8a1SJohn Marino Xupdate(T,xa,xa,xb,xc,xd); \
364f5b1c8a1SJohn Marino T+=E+K_40_59+F_40_59(B,C,D); \
365f5b1c8a1SJohn Marino E=D, D=C, C=ROTATE(B,30), B=A; \
366f5b1c8a1SJohn Marino A=ROTATE(A,5)+T; } while(0)
367f5b1c8a1SJohn Marino
368f5b1c8a1SJohn Marino #define BODY_60_79(xa,xb,xc,xd) do { \
369f5b1c8a1SJohn Marino Xupdate(T,xa,xa,xb,xc,xd); \
370f5b1c8a1SJohn Marino T=E+K_60_79+F_60_79(B,C,D); \
371f5b1c8a1SJohn Marino E=D, D=C, C=ROTATE(B,30), B=A; \
372f5b1c8a1SJohn Marino A=ROTATE(A,5)+T+xa; } while(0)
373f5b1c8a1SJohn Marino
374f5b1c8a1SJohn Marino #if !defined(SHA1_ASM)
HASH_BLOCK_DATA_ORDER(SHA_CTX * c,const void * p,size_t num)375f5b1c8a1SJohn Marino static void HASH_BLOCK_DATA_ORDER (SHA_CTX *c, const void *p, size_t num)
376f5b1c8a1SJohn Marino {
377f5b1c8a1SJohn Marino const unsigned char *data=p;
378f5b1c8a1SJohn Marino unsigned MD32_REG_T A,B,C,D,E,T,l;
379f5b1c8a1SJohn Marino int i;
380f5b1c8a1SJohn Marino SHA_LONG X[16];
381f5b1c8a1SJohn Marino
382f5b1c8a1SJohn Marino A=c->h0;
383f5b1c8a1SJohn Marino B=c->h1;
384f5b1c8a1SJohn Marino C=c->h2;
385f5b1c8a1SJohn Marino D=c->h3;
386f5b1c8a1SJohn Marino E=c->h4;
387f5b1c8a1SJohn Marino
388f5b1c8a1SJohn Marino for (;;)
389f5b1c8a1SJohn Marino {
390f5b1c8a1SJohn Marino for (i=0;i<16;i++)
391f5b1c8a1SJohn Marino { HOST_c2l(data,l); X[i]=l; BODY_00_15(X[i]); }
392f5b1c8a1SJohn Marino for (i=0;i<4;i++)
393f5b1c8a1SJohn Marino { BODY_16_19(X[i], X[i+2], X[i+8], X[(i+13)&15]); }
394f5b1c8a1SJohn Marino for (;i<24;i++)
395f5b1c8a1SJohn Marino { BODY_20_39(X[i&15], X[(i+2)&15], X[(i+8)&15],X[(i+13)&15]); }
396f5b1c8a1SJohn Marino for (i=0;i<20;i++)
397f5b1c8a1SJohn Marino { BODY_40_59(X[(i+8)&15],X[(i+10)&15],X[i&15], X[(i+5)&15]); }
398f5b1c8a1SJohn Marino for (i=4;i<24;i++)
399f5b1c8a1SJohn Marino { BODY_60_79(X[(i+8)&15],X[(i+10)&15],X[i&15], X[(i+5)&15]); }
400f5b1c8a1SJohn Marino
401f5b1c8a1SJohn Marino c->h0=(c->h0+A)&0xffffffffL;
402f5b1c8a1SJohn Marino c->h1=(c->h1+B)&0xffffffffL;
403f5b1c8a1SJohn Marino c->h2=(c->h2+C)&0xffffffffL;
404f5b1c8a1SJohn Marino c->h3=(c->h3+D)&0xffffffffL;
405f5b1c8a1SJohn Marino c->h4=(c->h4+E)&0xffffffffL;
406f5b1c8a1SJohn Marino
407f5b1c8a1SJohn Marino if (--num == 0) break;
408f5b1c8a1SJohn Marino
409f5b1c8a1SJohn Marino A=c->h0;
410f5b1c8a1SJohn Marino B=c->h1;
411f5b1c8a1SJohn Marino C=c->h2;
412f5b1c8a1SJohn Marino D=c->h3;
413f5b1c8a1SJohn Marino E=c->h4;
414f5b1c8a1SJohn Marino
415f5b1c8a1SJohn Marino }
416f5b1c8a1SJohn Marino }
417f5b1c8a1SJohn Marino #endif
418f5b1c8a1SJohn Marino
419f5b1c8a1SJohn Marino #endif
420