1 2277c5d7 2004-03-21 devnull #include "os.h"
  2 db6608bd 2003-11-23 devnull 
  3 db6608bd 2003-11-23 devnull void
  4 db6608bd 2003-11-23 devnull _sha1block(uchar *p, ulong len, u32int *s)
  5 db6608bd 2003-11-23 devnull {
  6 db6608bd 2003-11-23 devnull 	u32int a, b, c, d, e, x;
  7 db6608bd 2003-11-23 devnull 	uchar *end;
  8 db6608bd 2003-11-23 devnull 	u32int *wp, *wend;
  9 db6608bd 2003-11-23 devnull 	u32int w[80];
 10 db6608bd 2003-11-23 devnull 
 11 db6608bd 2003-11-23 devnull 	/* at this point, we have a multiple of 64 bytes */
 12 db6608bd 2003-11-23 devnull 	for(end = p+len; p < end;){
 13 db6608bd 2003-11-23 devnull 		a = s[0];
 14 db6608bd 2003-11-23 devnull 		b = s[1];
 15 db6608bd 2003-11-23 devnull 		c = s[2];
 16 db6608bd 2003-11-23 devnull 		d = s[3];
 17 db6608bd 2003-11-23 devnull 		e = s[4];
 18 db6608bd 2003-11-23 devnull 
 19 db6608bd 2003-11-23 devnull 		wend = w + 15;
 20 db6608bd 2003-11-23 devnull 		for(wp = w; wp < wend; wp += 5){
 21 db6608bd 2003-11-23 devnull 			wp[0] = (p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3];
 22 db6608bd 2003-11-23 devnull 			e += ((a<<5) | (a>>27)) + wp[0];
 23 db6608bd 2003-11-23 devnull 			e += 0x5a827999 + (((c^d)&b)^d);
 24 db6608bd 2003-11-23 devnull 			b = (b<<30)|(b>>2);
 25 db6608bd 2003-11-23 devnull 
 26 db6608bd 2003-11-23 devnull 			wp[1] = (p[4]<<24) | (p[5]<<16) | (p[6]<<8) | p[7];
 27 db6608bd 2003-11-23 devnull 			d += ((e<<5) | (e>>27)) + wp[1];
 28 db6608bd 2003-11-23 devnull 			d += 0x5a827999 + (((b^c)&a)^c);
 29 db6608bd 2003-11-23 devnull 			a = (a<<30)|(a>>2);
 30 db6608bd 2003-11-23 devnull 
 31 db6608bd 2003-11-23 devnull 			wp[2] = (p[8]<<24) | (p[9]<<16) | (p[10]<<8) | p[11];
 32 db6608bd 2003-11-23 devnull 			c += ((d<<5) | (d>>27)) + wp[2];
 33 db6608bd 2003-11-23 devnull 			c += 0x5a827999 + (((a^b)&e)^b);
 34 db6608bd 2003-11-23 devnull 			e = (e<<30)|(e>>2);
 35 db6608bd 2003-11-23 devnull 
 36 db6608bd 2003-11-23 devnull 			wp[3] = (p[12]<<24) | (p[13]<<16) | (p[14]<<8) | p[15];
 37 db6608bd 2003-11-23 devnull 			b += ((c<<5) | (c>>27)) + wp[3];
 38 db6608bd 2003-11-23 devnull 			b += 0x5a827999 + (((e^a)&d)^a);
 39 db6608bd 2003-11-23 devnull 			d = (d<<30)|(d>>2);
 40 db6608bd 2003-11-23 devnull 
 41 db6608bd 2003-11-23 devnull 			wp[4] = (p[16]<<24) | (p[17]<<16) | (p[18]<<8) | p[19];
 42 db6608bd 2003-11-23 devnull 			a += ((b<<5) | (b>>27)) + wp[4];
 43 db6608bd 2003-11-23 devnull 			a += 0x5a827999 + (((d^e)&c)^e);
 44 db6608bd 2003-11-23 devnull 			c = (c<<30)|(c>>2);
 45 fa325e9b 2020-01-10 cross 
 46 db6608bd 2003-11-23 devnull 			p += 20;
 47 db6608bd 2003-11-23 devnull 		}
 48 db6608bd 2003-11-23 devnull 
 49 db6608bd 2003-11-23 devnull 		wp[0] = (p[0]<<24) | (p[1]<<16) | (p[2]<<8) | p[3];
 50 db6608bd 2003-11-23 devnull 		e += ((a<<5) | (a>>27)) + wp[0];
 51 db6608bd 2003-11-23 devnull 		e += 0x5a827999 + (((c^d)&b)^d);
 52 db6608bd 2003-11-23 devnull 		b = (b<<30)|(b>>2);
 53 db6608bd 2003-11-23 devnull 
 54 db6608bd 2003-11-23 devnull 		x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
 55 db6608bd 2003-11-23 devnull 		wp[1] = (x<<1) | (x>>31);
 56 db6608bd 2003-11-23 devnull 		d += ((e<<5) | (e>>27)) + wp[1];
 57 db6608bd 2003-11-23 devnull 		d += 0x5a827999 + (((b^c)&a)^c);
 58 db6608bd 2003-11-23 devnull 		a = (a<<30)|(a>>2);
 59 db6608bd 2003-11-23 devnull 
 60 db6608bd 2003-11-23 devnull 		x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
 61 db6608bd 2003-11-23 devnull 		wp[2] = (x<<1) | (x>>31);
 62 db6608bd 2003-11-23 devnull 		c += ((d<<5) | (d>>27)) + wp[2];
 63 db6608bd 2003-11-23 devnull 		c += 0x5a827999 + (((a^b)&e)^b);
 64 db6608bd 2003-11-23 devnull 		e = (e<<30)|(e>>2);
 65 db6608bd 2003-11-23 devnull 
 66 db6608bd 2003-11-23 devnull 		x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
 67 db6608bd 2003-11-23 devnull 		wp[3] = (x<<1) | (x>>31);
 68 db6608bd 2003-11-23 devnull 		b += ((c<<5) | (c>>27)) + wp[3];
 69 db6608bd 2003-11-23 devnull 		b += 0x5a827999 + (((e^a)&d)^a);
 70 db6608bd 2003-11-23 devnull 		d = (d<<30)|(d>>2);
 71 db6608bd 2003-11-23 devnull 
 72 db6608bd 2003-11-23 devnull 		x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
 73 db6608bd 2003-11-23 devnull 		wp[4] = (x<<1) | (x>>31);
 74 db6608bd 2003-11-23 devnull 		a += ((b<<5) | (b>>27)) + wp[4];
 75 db6608bd 2003-11-23 devnull 		a += 0x5a827999 + (((d^e)&c)^e);
 76 db6608bd 2003-11-23 devnull 		c = (c<<30)|(c>>2);
 77 db6608bd 2003-11-23 devnull 
 78 db6608bd 2003-11-23 devnull 		wp += 5;
 79 db6608bd 2003-11-23 devnull 		p += 4;
 80 db6608bd 2003-11-23 devnull 
 81 db6608bd 2003-11-23 devnull 		wend = w + 40;
 82 db6608bd 2003-11-23 devnull 		for(; wp < wend; wp += 5){
 83 db6608bd 2003-11-23 devnull 			x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
 84 db6608bd 2003-11-23 devnull 			wp[0] = (x<<1) | (x>>31);
 85 db6608bd 2003-11-23 devnull 			e += ((a<<5) | (a>>27)) + wp[0];
 86 db6608bd 2003-11-23 devnull 			e += 0x6ed9eba1 + (b^c^d);
 87 db6608bd 2003-11-23 devnull 			b = (b<<30)|(b>>2);
 88 db6608bd 2003-11-23 devnull 
 89 db6608bd 2003-11-23 devnull 			x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
 90 db6608bd 2003-11-23 devnull 			wp[1] = (x<<1) | (x>>31);
 91 db6608bd 2003-11-23 devnull 			d += ((e<<5) | (e>>27)) + wp[1];
 92 db6608bd 2003-11-23 devnull 			d += 0x6ed9eba1 + (a^b^c);
 93 db6608bd 2003-11-23 devnull 			a = (a<<30)|(a>>2);
 94 db6608bd 2003-11-23 devnull 
 95 db6608bd 2003-11-23 devnull 			x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
 96 db6608bd 2003-11-23 devnull 			wp[2] = (x<<1) | (x>>31);
 97 db6608bd 2003-11-23 devnull 			c += ((d<<5) | (d>>27)) + wp[2];
 98 db6608bd 2003-11-23 devnull 			c += 0x6ed9eba1 + (e^a^b);
 99 db6608bd 2003-11-23 devnull 			e = (e<<30)|(e>>2);
100 db6608bd 2003-11-23 devnull 
101 db6608bd 2003-11-23 devnull 			x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
102 db6608bd 2003-11-23 devnull 			wp[3] = (x<<1) | (x>>31);
103 db6608bd 2003-11-23 devnull 			b += ((c<<5) | (c>>27)) + wp[3];
104 db6608bd 2003-11-23 devnull 			b += 0x6ed9eba1 + (d^e^a);
105 db6608bd 2003-11-23 devnull 			d = (d<<30)|(d>>2);
106 db6608bd 2003-11-23 devnull 
107 db6608bd 2003-11-23 devnull 			x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
108 db6608bd 2003-11-23 devnull 			wp[4] = (x<<1) | (x>>31);
109 db6608bd 2003-11-23 devnull 			a += ((b<<5) | (b>>27)) + wp[4];
110 db6608bd 2003-11-23 devnull 			a += 0x6ed9eba1 + (c^d^e);
111 db6608bd 2003-11-23 devnull 			c = (c<<30)|(c>>2);
112 db6608bd 2003-11-23 devnull 		}
113 db6608bd 2003-11-23 devnull 
114 db6608bd 2003-11-23 devnull 		wend = w + 60;
115 db6608bd 2003-11-23 devnull 		for(; wp < wend; wp += 5){
116 db6608bd 2003-11-23 devnull 			x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
117 db6608bd 2003-11-23 devnull 			wp[0] = (x<<1) | (x>>31);
118 db6608bd 2003-11-23 devnull 			e += ((a<<5) | (a>>27)) + wp[0];
119 db6608bd 2003-11-23 devnull 			e += 0x8f1bbcdc + ((b&c)|((b|c)&d));
120 db6608bd 2003-11-23 devnull 			b = (b<<30)|(b>>2);
121 db6608bd 2003-11-23 devnull 
122 db6608bd 2003-11-23 devnull 			x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
123 db6608bd 2003-11-23 devnull 			wp[1] = (x<<1) | (x>>31);
124 db6608bd 2003-11-23 devnull 			d += ((e<<5) | (e>>27)) + wp[1];
125 db6608bd 2003-11-23 devnull 			d += 0x8f1bbcdc + ((a&b)|((a|b)&c));
126 db6608bd 2003-11-23 devnull 			a = (a<<30)|(a>>2);
127 db6608bd 2003-11-23 devnull 
128 db6608bd 2003-11-23 devnull 			x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
129 db6608bd 2003-11-23 devnull 			wp[2] = (x<<1) | (x>>31);
130 db6608bd 2003-11-23 devnull 			c += ((d<<5) | (d>>27)) + wp[2];
131 db6608bd 2003-11-23 devnull 			c += 0x8f1bbcdc + ((e&a)|((e|a)&b));
132 db6608bd 2003-11-23 devnull 			e = (e<<30)|(e>>2);
133 db6608bd 2003-11-23 devnull 
134 db6608bd 2003-11-23 devnull 			x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
135 db6608bd 2003-11-23 devnull 			wp[3] = (x<<1) | (x>>31);
136 db6608bd 2003-11-23 devnull 			b += ((c<<5) | (c>>27)) + wp[3];
137 db6608bd 2003-11-23 devnull 			b += 0x8f1bbcdc + ((d&e)|((d|e)&a));
138 db6608bd 2003-11-23 devnull 			d = (d<<30)|(d>>2);
139 db6608bd 2003-11-23 devnull 
140 db6608bd 2003-11-23 devnull 			x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
141 db6608bd 2003-11-23 devnull 			wp[4] = (x<<1) | (x>>31);
142 db6608bd 2003-11-23 devnull 			a += ((b<<5) | (b>>27)) + wp[4];
143 db6608bd 2003-11-23 devnull 			a += 0x8f1bbcdc + ((c&d)|((c|d)&e));
144 db6608bd 2003-11-23 devnull 			c = (c<<30)|(c>>2);
145 db6608bd 2003-11-23 devnull 		}
146 db6608bd 2003-11-23 devnull 
147 db6608bd 2003-11-23 devnull 		wend = w + 80;
148 db6608bd 2003-11-23 devnull 		for(; wp < wend; wp += 5){
149 db6608bd 2003-11-23 devnull 			x = wp[-3] ^ wp[-8] ^ wp[-14] ^ wp[-16];
150 db6608bd 2003-11-23 devnull 			wp[0] = (x<<1) | (x>>31);
151 db6608bd 2003-11-23 devnull 			e += ((a<<5) | (a>>27)) + wp[0];
152 db6608bd 2003-11-23 devnull 			e += 0xca62c1d6 + (b^c^d);
153 db6608bd 2003-11-23 devnull 			b = (b<<30)|(b>>2);
154 db6608bd 2003-11-23 devnull 
155 db6608bd 2003-11-23 devnull 			x = wp[-2] ^ wp[-7] ^ wp[-13] ^ wp[-15];
156 db6608bd 2003-11-23 devnull 			wp[1] = (x<<1) | (x>>31);
157 db6608bd 2003-11-23 devnull 			d += ((e<<5) | (e>>27)) + wp[1];
158 db6608bd 2003-11-23 devnull 			d += 0xca62c1d6 + (a^b^c);
159 db6608bd 2003-11-23 devnull 			a = (a<<30)|(a>>2);
160 db6608bd 2003-11-23 devnull 
161 db6608bd 2003-11-23 devnull 			x = wp[-1] ^ wp[-6] ^ wp[-12] ^ wp[-14];
162 db6608bd 2003-11-23 devnull 			wp[2] = (x<<1) | (x>>31);
163 db6608bd 2003-11-23 devnull 			c += ((d<<5) | (d>>27)) + wp[2];
164 db6608bd 2003-11-23 devnull 			c += 0xca62c1d6 + (e^a^b);
165 db6608bd 2003-11-23 devnull 			e = (e<<30)|(e>>2);
166 db6608bd 2003-11-23 devnull 
167 db6608bd 2003-11-23 devnull 			x = wp[0] ^ wp[-5] ^ wp[-11] ^ wp[-13];
168 db6608bd 2003-11-23 devnull 			wp[3] = (x<<1) | (x>>31);
169 db6608bd 2003-11-23 devnull 			b += ((c<<5) | (c>>27)) + wp[3];
170 db6608bd 2003-11-23 devnull 			b += 0xca62c1d6 + (d^e^a);
171 db6608bd 2003-11-23 devnull 			d = (d<<30)|(d>>2);
172 db6608bd 2003-11-23 devnull 
173 db6608bd 2003-11-23 devnull 			x = wp[1] ^ wp[-4] ^ wp[-10] ^ wp[-12];
174 db6608bd 2003-11-23 devnull 			wp[4] = (x<<1) | (x>>31);
175 db6608bd 2003-11-23 devnull 			a += ((b<<5) | (b>>27)) + wp[4];
176 db6608bd 2003-11-23 devnull 			a += 0xca62c1d6 + (c^d^e);
177 db6608bd 2003-11-23 devnull 			c = (c<<30)|(c>>2);
178 db6608bd 2003-11-23 devnull 		}
179 db6608bd 2003-11-23 devnull 
180 db6608bd 2003-11-23 devnull 		/* save state */
181 db6608bd 2003-11-23 devnull 		s[0] += a;
182 db6608bd 2003-11-23 devnull 		s[1] += b;
183 db6608bd 2003-11-23 devnull 		s[2] += c;
184 db6608bd 2003-11-23 devnull 		s[3] += d;
185 db6608bd 2003-11-23 devnull 		s[4] += e;
186 db6608bd 2003-11-23 devnull 	}
187 db6608bd 2003-11-23 devnull }