@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_SipHash', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -11,296 +11,296 @@ discard block |
||
11 | 11 | */ |
12 | 12 | class ParagonIE_Sodium_Core_SipHash extends ParagonIE_Sodium_Core_Util |
13 | 13 | { |
14 | - /** |
|
15 | - * @internal You should not use this directly from another application |
|
16 | - * |
|
17 | - * @param int[] $v |
|
18 | - * @return int[] |
|
19 | - * |
|
20 | - */ |
|
21 | - public static function sipRound(array $v) |
|
22 | - { |
|
23 | - # v0 += v1; |
|
24 | - list($v[0], $v[1]) = self::add( |
|
25 | - array($v[0], $v[1]), |
|
26 | - array($v[2], $v[3]) |
|
27 | - ); |
|
28 | - |
|
29 | - # v1=ROTL(v1,13); |
|
30 | - list($v[2], $v[3]) = self::rotl_64((int) $v[2], (int) $v[3], 13); |
|
31 | - |
|
32 | - # v1 ^= v0; |
|
33 | - $v[2] = (int) $v[2] ^ (int) $v[0]; |
|
34 | - $v[3] = (int) $v[3] ^ (int) $v[1]; |
|
35 | - |
|
36 | - # v0=ROTL(v0,32); |
|
37 | - list($v[0], $v[1]) = self::rotl_64((int) $v[0], (int) $v[1], 32); |
|
38 | - |
|
39 | - # v2 += v3; |
|
40 | - list($v[4], $v[5]) = self::add( |
|
41 | - array((int) $v[4], (int) $v[5]), |
|
42 | - array((int) $v[6], (int) $v[7]) |
|
43 | - ); |
|
44 | - |
|
45 | - # v3=ROTL(v3,16); |
|
46 | - list($v[6], $v[7]) = self::rotl_64((int) $v[6], (int) $v[7], 16); |
|
47 | - |
|
48 | - # v3 ^= v2; |
|
49 | - $v[6] = (int) $v[6] ^ (int) $v[4]; |
|
50 | - $v[7] = (int) $v[7] ^ (int) $v[5]; |
|
51 | - |
|
52 | - # v0 += v3; |
|
53 | - list($v[0], $v[1]) = self::add( |
|
54 | - array((int) $v[0], (int) $v[1]), |
|
55 | - array((int) $v[6], (int) $v[7]) |
|
56 | - ); |
|
57 | - |
|
58 | - # v3=ROTL(v3,21); |
|
59 | - list($v[6], $v[7]) = self::rotl_64((int) $v[6], (int) $v[7], 21); |
|
60 | - |
|
61 | - # v3 ^= v0; |
|
62 | - $v[6] = (int) $v[6] ^ (int) $v[0]; |
|
63 | - $v[7] = (int) $v[7] ^ (int) $v[1]; |
|
64 | - |
|
65 | - # v2 += v1; |
|
66 | - list($v[4], $v[5]) = self::add( |
|
67 | - array((int) $v[4], (int) $v[5]), |
|
68 | - array((int) $v[2], (int) $v[3]) |
|
69 | - ); |
|
70 | - |
|
71 | - # v1=ROTL(v1,17); |
|
72 | - list($v[2], $v[3]) = self::rotl_64((int) $v[2], (int) $v[3], 17); |
|
73 | - |
|
74 | - # v1 ^= v2;; |
|
75 | - $v[2] = (int) $v[2] ^ (int) $v[4]; |
|
76 | - $v[3] = (int) $v[3] ^ (int) $v[5]; |
|
77 | - |
|
78 | - # v2=ROTL(v2,32) |
|
79 | - list($v[4], $v[5]) = self::rotl_64((int) $v[4], (int) $v[5], 32); |
|
80 | - |
|
81 | - return $v; |
|
82 | - } |
|
83 | - |
|
84 | - /** |
|
85 | - * Add two 32 bit integers representing a 64-bit integer. |
|
86 | - * |
|
87 | - * @internal You should not use this directly from another application |
|
88 | - * |
|
89 | - * @param int[] $a |
|
90 | - * @param int[] $b |
|
91 | - * @return array<int, mixed> |
|
92 | - */ |
|
93 | - public static function add(array $a, array $b) |
|
94 | - { |
|
95 | - /** @var int $x1 */ |
|
96 | - $x1 = $a[1] + $b[1]; |
|
97 | - /** @var int $c */ |
|
98 | - $c = $x1 >> 32; // Carry if ($a + $b) > 0xffffffff |
|
99 | - /** @var int $x0 */ |
|
100 | - $x0 = $a[0] + $b[0] + $c; |
|
101 | - return array( |
|
102 | - $x0 & 0xffffffff, |
|
103 | - $x1 & 0xffffffff |
|
104 | - ); |
|
105 | - } |
|
106 | - |
|
107 | - /** |
|
108 | - * @internal You should not use this directly from another application |
|
109 | - * |
|
110 | - * @param int $int0 |
|
111 | - * @param int $int1 |
|
112 | - * @param int $c |
|
113 | - * @return array<int, mixed> |
|
114 | - */ |
|
115 | - public static function rotl_64($int0, $int1, $c) |
|
116 | - { |
|
117 | - $int0 &= 0xffffffff; |
|
118 | - $int1 &= 0xffffffff; |
|
119 | - $c &= 63; |
|
120 | - if ($c === 32) { |
|
121 | - return array($int1, $int0); |
|
122 | - } |
|
123 | - if ($c > 31) { |
|
124 | - $tmp = $int1; |
|
125 | - $int1 = $int0; |
|
126 | - $int0 = $tmp; |
|
127 | - $c &= 31; |
|
128 | - } |
|
129 | - if ($c === 0) { |
|
130 | - return array($int0, $int1); |
|
131 | - } |
|
132 | - return array( |
|
133 | - 0xffffffff & ( |
|
134 | - ($int0 << $c) |
|
135 | - | |
|
136 | - ($int1 >> (32 - $c)) |
|
137 | - ), |
|
138 | - 0xffffffff & ( |
|
139 | - ($int1 << $c) |
|
140 | - | |
|
141 | - ($int0 >> (32 - $c)) |
|
142 | - ), |
|
143 | - ); |
|
144 | - } |
|
145 | - |
|
146 | - /** |
|
147 | - * Implements Siphash-2-4 using only 32-bit numbers. |
|
148 | - * |
|
149 | - * When we split an int into two, the higher bits go to the lower index. |
|
150 | - * e.g. 0xDEADBEEFAB10C92D becomes [ |
|
151 | - * 0 => 0xDEADBEEF, |
|
152 | - * 1 => 0xAB10C92D |
|
153 | - * ]. |
|
154 | - * |
|
155 | - * @internal You should not use this directly from another application |
|
156 | - * |
|
157 | - * @param string $in |
|
158 | - * @param string $key |
|
159 | - * @return string |
|
160 | - * @throws SodiumException |
|
161 | - * @throws TypeError |
|
162 | - */ |
|
163 | - public static function sipHash24($in, $key) |
|
164 | - { |
|
165 | - $inlen = self::strlen($in); |
|
166 | - |
|
167 | - # /* "somepseudorandomlygeneratedbytes" */ |
|
168 | - # u64 v0 = 0x736f6d6570736575ULL; |
|
169 | - # u64 v1 = 0x646f72616e646f6dULL; |
|
170 | - # u64 v2 = 0x6c7967656e657261ULL; |
|
171 | - # u64 v3 = 0x7465646279746573ULL; |
|
172 | - $v = array( |
|
173 | - 0x736f6d65, // 0 |
|
174 | - 0x70736575, // 1 |
|
175 | - 0x646f7261, // 2 |
|
176 | - 0x6e646f6d, // 3 |
|
177 | - 0x6c796765, // 4 |
|
178 | - 0x6e657261, // 5 |
|
179 | - 0x74656462, // 6 |
|
180 | - 0x79746573 // 7 |
|
181 | - ); |
|
182 | - // v0 => $v[0], $v[1] |
|
183 | - // v1 => $v[2], $v[3] |
|
184 | - // v2 => $v[4], $v[5] |
|
185 | - // v3 => $v[6], $v[7] |
|
186 | - |
|
187 | - # u64 k0 = LOAD64_LE( k ); |
|
188 | - # u64 k1 = LOAD64_LE( k + 8 ); |
|
189 | - $k = array( |
|
190 | - self::load_4(self::substr($key, 4, 4)), |
|
191 | - self::load_4(self::substr($key, 0, 4)), |
|
192 | - self::load_4(self::substr($key, 12, 4)), |
|
193 | - self::load_4(self::substr($key, 8, 4)) |
|
194 | - ); |
|
195 | - // k0 => $k[0], $k[1] |
|
196 | - // k1 => $k[2], $k[3] |
|
197 | - |
|
198 | - # b = ( ( u64 )inlen ) << 56; |
|
199 | - $b = array( |
|
200 | - $inlen << 24, |
|
201 | - 0 |
|
202 | - ); |
|
203 | - // See docblock for why the 0th index gets the higher bits. |
|
204 | - |
|
205 | - # v3 ^= k1; |
|
206 | - $v[6] ^= $k[2]; |
|
207 | - $v[7] ^= $k[3]; |
|
208 | - # v2 ^= k0; |
|
209 | - $v[4] ^= $k[0]; |
|
210 | - $v[5] ^= $k[1]; |
|
211 | - # v1 ^= k1; |
|
212 | - $v[2] ^= $k[2]; |
|
213 | - $v[3] ^= $k[3]; |
|
214 | - # v0 ^= k0; |
|
215 | - $v[0] ^= $k[0]; |
|
216 | - $v[1] ^= $k[1]; |
|
217 | - |
|
218 | - $left = $inlen; |
|
219 | - # for ( ; in != end; in += 8 ) |
|
220 | - while ($left >= 8) { |
|
221 | - # m = LOAD64_LE( in ); |
|
222 | - $m = array( |
|
223 | - self::load_4(self::substr($in, 4, 4)), |
|
224 | - self::load_4(self::substr($in, 0, 4)) |
|
225 | - ); |
|
226 | - |
|
227 | - # v3 ^= m; |
|
228 | - $v[6] ^= $m[0]; |
|
229 | - $v[7] ^= $m[1]; |
|
230 | - |
|
231 | - # SIPROUND; |
|
232 | - # SIPROUND; |
|
233 | - $v = self::sipRound($v); |
|
234 | - $v = self::sipRound($v); |
|
235 | - |
|
236 | - # v0 ^= m; |
|
237 | - $v[0] ^= $m[0]; |
|
238 | - $v[1] ^= $m[1]; |
|
239 | - |
|
240 | - $in = self::substr($in, 8); |
|
241 | - $left -= 8; |
|
242 | - } |
|
243 | - |
|
244 | - # switch( left ) |
|
245 | - # { |
|
246 | - # case 7: b |= ( ( u64 )in[ 6] ) << 48; |
|
247 | - # case 6: b |= ( ( u64 )in[ 5] ) << 40; |
|
248 | - # case 5: b |= ( ( u64 )in[ 4] ) << 32; |
|
249 | - # case 4: b |= ( ( u64 )in[ 3] ) << 24; |
|
250 | - # case 3: b |= ( ( u64 )in[ 2] ) << 16; |
|
251 | - # case 2: b |= ( ( u64 )in[ 1] ) << 8; |
|
252 | - # case 1: b |= ( ( u64 )in[ 0] ); break; |
|
253 | - # case 0: break; |
|
254 | - # } |
|
255 | - switch ($left) { |
|
256 | - case 7: |
|
257 | - $b[0] |= self::chrToInt($in[6]) << 16; |
|
258 | - case 6: |
|
259 | - $b[0] |= self::chrToInt($in[5]) << 8; |
|
260 | - case 5: |
|
261 | - $b[0] |= self::chrToInt($in[4]); |
|
262 | - case 4: |
|
263 | - $b[1] |= self::chrToInt($in[3]) << 24; |
|
264 | - case 3: |
|
265 | - $b[1] |= self::chrToInt($in[2]) << 16; |
|
266 | - case 2: |
|
267 | - $b[1] |= self::chrToInt($in[1]) << 8; |
|
268 | - case 1: |
|
269 | - $b[1] |= self::chrToInt($in[0]); |
|
270 | - case 0: |
|
271 | - break; |
|
272 | - } |
|
273 | - // See docblock for why the 0th index gets the higher bits. |
|
274 | - |
|
275 | - # v3 ^= b; |
|
276 | - $v[6] ^= $b[0]; |
|
277 | - $v[7] ^= $b[1]; |
|
278 | - |
|
279 | - # SIPROUND; |
|
280 | - # SIPROUND; |
|
281 | - $v = self::sipRound($v); |
|
282 | - $v = self::sipRound($v); |
|
283 | - |
|
284 | - # v0 ^= b; |
|
285 | - $v[0] ^= $b[0]; |
|
286 | - $v[1] ^= $b[1]; |
|
287 | - |
|
288 | - // Flip the lower 8 bits of v2 which is ($v[4], $v[5]) in our implementation |
|
289 | - # v2 ^= 0xff; |
|
290 | - $v[5] ^= 0xff; |
|
291 | - |
|
292 | - # SIPROUND; |
|
293 | - # SIPROUND; |
|
294 | - # SIPROUND; |
|
295 | - # SIPROUND; |
|
296 | - $v = self::sipRound($v); |
|
297 | - $v = self::sipRound($v); |
|
298 | - $v = self::sipRound($v); |
|
299 | - $v = self::sipRound($v); |
|
300 | - |
|
301 | - # b = v0 ^ v1 ^ v2 ^ v3; |
|
302 | - # STORE64_LE( out, b ); |
|
303 | - return self::store32_le($v[1] ^ $v[3] ^ $v[5] ^ $v[7]) . |
|
304 | - self::store32_le($v[0] ^ $v[2] ^ $v[4] ^ $v[6]); |
|
305 | - } |
|
14 | + /** |
|
15 | + * @internal You should not use this directly from another application |
|
16 | + * |
|
17 | + * @param int[] $v |
|
18 | + * @return int[] |
|
19 | + * |
|
20 | + */ |
|
21 | + public static function sipRound(array $v) |
|
22 | + { |
|
23 | + # v0 += v1; |
|
24 | + list($v[0], $v[1]) = self::add( |
|
25 | + array($v[0], $v[1]), |
|
26 | + array($v[2], $v[3]) |
|
27 | + ); |
|
28 | + |
|
29 | + # v1=ROTL(v1,13); |
|
30 | + list($v[2], $v[3]) = self::rotl_64((int) $v[2], (int) $v[3], 13); |
|
31 | + |
|
32 | + # v1 ^= v0; |
|
33 | + $v[2] = (int) $v[2] ^ (int) $v[0]; |
|
34 | + $v[3] = (int) $v[3] ^ (int) $v[1]; |
|
35 | + |
|
36 | + # v0=ROTL(v0,32); |
|
37 | + list($v[0], $v[1]) = self::rotl_64((int) $v[0], (int) $v[1], 32); |
|
38 | + |
|
39 | + # v2 += v3; |
|
40 | + list($v[4], $v[5]) = self::add( |
|
41 | + array((int) $v[4], (int) $v[5]), |
|
42 | + array((int) $v[6], (int) $v[7]) |
|
43 | + ); |
|
44 | + |
|
45 | + # v3=ROTL(v3,16); |
|
46 | + list($v[6], $v[7]) = self::rotl_64((int) $v[6], (int) $v[7], 16); |
|
47 | + |
|
48 | + # v3 ^= v2; |
|
49 | + $v[6] = (int) $v[6] ^ (int) $v[4]; |
|
50 | + $v[7] = (int) $v[7] ^ (int) $v[5]; |
|
51 | + |
|
52 | + # v0 += v3; |
|
53 | + list($v[0], $v[1]) = self::add( |
|
54 | + array((int) $v[0], (int) $v[1]), |
|
55 | + array((int) $v[6], (int) $v[7]) |
|
56 | + ); |
|
57 | + |
|
58 | + # v3=ROTL(v3,21); |
|
59 | + list($v[6], $v[7]) = self::rotl_64((int) $v[6], (int) $v[7], 21); |
|
60 | + |
|
61 | + # v3 ^= v0; |
|
62 | + $v[6] = (int) $v[6] ^ (int) $v[0]; |
|
63 | + $v[7] = (int) $v[7] ^ (int) $v[1]; |
|
64 | + |
|
65 | + # v2 += v1; |
|
66 | + list($v[4], $v[5]) = self::add( |
|
67 | + array((int) $v[4], (int) $v[5]), |
|
68 | + array((int) $v[2], (int) $v[3]) |
|
69 | + ); |
|
70 | + |
|
71 | + # v1=ROTL(v1,17); |
|
72 | + list($v[2], $v[3]) = self::rotl_64((int) $v[2], (int) $v[3], 17); |
|
73 | + |
|
74 | + # v1 ^= v2;; |
|
75 | + $v[2] = (int) $v[2] ^ (int) $v[4]; |
|
76 | + $v[3] = (int) $v[3] ^ (int) $v[5]; |
|
77 | + |
|
78 | + # v2=ROTL(v2,32) |
|
79 | + list($v[4], $v[5]) = self::rotl_64((int) $v[4], (int) $v[5], 32); |
|
80 | + |
|
81 | + return $v; |
|
82 | + } |
|
83 | + |
|
84 | + /** |
|
85 | + * Add two 32 bit integers representing a 64-bit integer. |
|
86 | + * |
|
87 | + * @internal You should not use this directly from another application |
|
88 | + * |
|
89 | + * @param int[] $a |
|
90 | + * @param int[] $b |
|
91 | + * @return array<int, mixed> |
|
92 | + */ |
|
93 | + public static function add(array $a, array $b) |
|
94 | + { |
|
95 | + /** @var int $x1 */ |
|
96 | + $x1 = $a[1] + $b[1]; |
|
97 | + /** @var int $c */ |
|
98 | + $c = $x1 >> 32; // Carry if ($a + $b) > 0xffffffff |
|
99 | + /** @var int $x0 */ |
|
100 | + $x0 = $a[0] + $b[0] + $c; |
|
101 | + return array( |
|
102 | + $x0 & 0xffffffff, |
|
103 | + $x1 & 0xffffffff |
|
104 | + ); |
|
105 | + } |
|
106 | + |
|
107 | + /** |
|
108 | + * @internal You should not use this directly from another application |
|
109 | + * |
|
110 | + * @param int $int0 |
|
111 | + * @param int $int1 |
|
112 | + * @param int $c |
|
113 | + * @return array<int, mixed> |
|
114 | + */ |
|
115 | + public static function rotl_64($int0, $int1, $c) |
|
116 | + { |
|
117 | + $int0 &= 0xffffffff; |
|
118 | + $int1 &= 0xffffffff; |
|
119 | + $c &= 63; |
|
120 | + if ($c === 32) { |
|
121 | + return array($int1, $int0); |
|
122 | + } |
|
123 | + if ($c > 31) { |
|
124 | + $tmp = $int1; |
|
125 | + $int1 = $int0; |
|
126 | + $int0 = $tmp; |
|
127 | + $c &= 31; |
|
128 | + } |
|
129 | + if ($c === 0) { |
|
130 | + return array($int0, $int1); |
|
131 | + } |
|
132 | + return array( |
|
133 | + 0xffffffff & ( |
|
134 | + ($int0 << $c) |
|
135 | + | |
|
136 | + ($int1 >> (32 - $c)) |
|
137 | + ), |
|
138 | + 0xffffffff & ( |
|
139 | + ($int1 << $c) |
|
140 | + | |
|
141 | + ($int0 >> (32 - $c)) |
|
142 | + ), |
|
143 | + ); |
|
144 | + } |
|
145 | + |
|
146 | + /** |
|
147 | + * Implements Siphash-2-4 using only 32-bit numbers. |
|
148 | + * |
|
149 | + * When we split an int into two, the higher bits go to the lower index. |
|
150 | + * e.g. 0xDEADBEEFAB10C92D becomes [ |
|
151 | + * 0 => 0xDEADBEEF, |
|
152 | + * 1 => 0xAB10C92D |
|
153 | + * ]. |
|
154 | + * |
|
155 | + * @internal You should not use this directly from another application |
|
156 | + * |
|
157 | + * @param string $in |
|
158 | + * @param string $key |
|
159 | + * @return string |
|
160 | + * @throws SodiumException |
|
161 | + * @throws TypeError |
|
162 | + */ |
|
163 | + public static function sipHash24($in, $key) |
|
164 | + { |
|
165 | + $inlen = self::strlen($in); |
|
166 | + |
|
167 | + # /* "somepseudorandomlygeneratedbytes" */ |
|
168 | + # u64 v0 = 0x736f6d6570736575ULL; |
|
169 | + # u64 v1 = 0x646f72616e646f6dULL; |
|
170 | + # u64 v2 = 0x6c7967656e657261ULL; |
|
171 | + # u64 v3 = 0x7465646279746573ULL; |
|
172 | + $v = array( |
|
173 | + 0x736f6d65, // 0 |
|
174 | + 0x70736575, // 1 |
|
175 | + 0x646f7261, // 2 |
|
176 | + 0x6e646f6d, // 3 |
|
177 | + 0x6c796765, // 4 |
|
178 | + 0x6e657261, // 5 |
|
179 | + 0x74656462, // 6 |
|
180 | + 0x79746573 // 7 |
|
181 | + ); |
|
182 | + // v0 => $v[0], $v[1] |
|
183 | + // v1 => $v[2], $v[3] |
|
184 | + // v2 => $v[4], $v[5] |
|
185 | + // v3 => $v[6], $v[7] |
|
186 | + |
|
187 | + # u64 k0 = LOAD64_LE( k ); |
|
188 | + # u64 k1 = LOAD64_LE( k + 8 ); |
|
189 | + $k = array( |
|
190 | + self::load_4(self::substr($key, 4, 4)), |
|
191 | + self::load_4(self::substr($key, 0, 4)), |
|
192 | + self::load_4(self::substr($key, 12, 4)), |
|
193 | + self::load_4(self::substr($key, 8, 4)) |
|
194 | + ); |
|
195 | + // k0 => $k[0], $k[1] |
|
196 | + // k1 => $k[2], $k[3] |
|
197 | + |
|
198 | + # b = ( ( u64 )inlen ) << 56; |
|
199 | + $b = array( |
|
200 | + $inlen << 24, |
|
201 | + 0 |
|
202 | + ); |
|
203 | + // See docblock for why the 0th index gets the higher bits. |
|
204 | + |
|
205 | + # v3 ^= k1; |
|
206 | + $v[6] ^= $k[2]; |
|
207 | + $v[7] ^= $k[3]; |
|
208 | + # v2 ^= k0; |
|
209 | + $v[4] ^= $k[0]; |
|
210 | + $v[5] ^= $k[1]; |
|
211 | + # v1 ^= k1; |
|
212 | + $v[2] ^= $k[2]; |
|
213 | + $v[3] ^= $k[3]; |
|
214 | + # v0 ^= k0; |
|
215 | + $v[0] ^= $k[0]; |
|
216 | + $v[1] ^= $k[1]; |
|
217 | + |
|
218 | + $left = $inlen; |
|
219 | + # for ( ; in != end; in += 8 ) |
|
220 | + while ($left >= 8) { |
|
221 | + # m = LOAD64_LE( in ); |
|
222 | + $m = array( |
|
223 | + self::load_4(self::substr($in, 4, 4)), |
|
224 | + self::load_4(self::substr($in, 0, 4)) |
|
225 | + ); |
|
226 | + |
|
227 | + # v3 ^= m; |
|
228 | + $v[6] ^= $m[0]; |
|
229 | + $v[7] ^= $m[1]; |
|
230 | + |
|
231 | + # SIPROUND; |
|
232 | + # SIPROUND; |
|
233 | + $v = self::sipRound($v); |
|
234 | + $v = self::sipRound($v); |
|
235 | + |
|
236 | + # v0 ^= m; |
|
237 | + $v[0] ^= $m[0]; |
|
238 | + $v[1] ^= $m[1]; |
|
239 | + |
|
240 | + $in = self::substr($in, 8); |
|
241 | + $left -= 8; |
|
242 | + } |
|
243 | + |
|
244 | + # switch( left ) |
|
245 | + # { |
|
246 | + # case 7: b |= ( ( u64 )in[ 6] ) << 48; |
|
247 | + # case 6: b |= ( ( u64 )in[ 5] ) << 40; |
|
248 | + # case 5: b |= ( ( u64 )in[ 4] ) << 32; |
|
249 | + # case 4: b |= ( ( u64 )in[ 3] ) << 24; |
|
250 | + # case 3: b |= ( ( u64 )in[ 2] ) << 16; |
|
251 | + # case 2: b |= ( ( u64 )in[ 1] ) << 8; |
|
252 | + # case 1: b |= ( ( u64 )in[ 0] ); break; |
|
253 | + # case 0: break; |
|
254 | + # } |
|
255 | + switch ($left) { |
|
256 | + case 7: |
|
257 | + $b[0] |= self::chrToInt($in[6]) << 16; |
|
258 | + case 6: |
|
259 | + $b[0] |= self::chrToInt($in[5]) << 8; |
|
260 | + case 5: |
|
261 | + $b[0] |= self::chrToInt($in[4]); |
|
262 | + case 4: |
|
263 | + $b[1] |= self::chrToInt($in[3]) << 24; |
|
264 | + case 3: |
|
265 | + $b[1] |= self::chrToInt($in[2]) << 16; |
|
266 | + case 2: |
|
267 | + $b[1] |= self::chrToInt($in[1]) << 8; |
|
268 | + case 1: |
|
269 | + $b[1] |= self::chrToInt($in[0]); |
|
270 | + case 0: |
|
271 | + break; |
|
272 | + } |
|
273 | + // See docblock for why the 0th index gets the higher bits. |
|
274 | + |
|
275 | + # v3 ^= b; |
|
276 | + $v[6] ^= $b[0]; |
|
277 | + $v[7] ^= $b[1]; |
|
278 | + |
|
279 | + # SIPROUND; |
|
280 | + # SIPROUND; |
|
281 | + $v = self::sipRound($v); |
|
282 | + $v = self::sipRound($v); |
|
283 | + |
|
284 | + # v0 ^= b; |
|
285 | + $v[0] ^= $b[0]; |
|
286 | + $v[1] ^= $b[1]; |
|
287 | + |
|
288 | + // Flip the lower 8 bits of v2 which is ($v[4], $v[5]) in our implementation |
|
289 | + # v2 ^= 0xff; |
|
290 | + $v[5] ^= 0xff; |
|
291 | + |
|
292 | + # SIPROUND; |
|
293 | + # SIPROUND; |
|
294 | + # SIPROUND; |
|
295 | + # SIPROUND; |
|
296 | + $v = self::sipRound($v); |
|
297 | + $v = self::sipRound($v); |
|
298 | + $v = self::sipRound($v); |
|
299 | + $v = self::sipRound($v); |
|
300 | + |
|
301 | + # b = v0 ^ v1 ^ v2 ^ v3; |
|
302 | + # STORE64_LE( out, b ); |
|
303 | + return self::store32_le($v[1] ^ $v[3] ^ $v[5] ^ $v[7]) . |
|
304 | + self::store32_le($v[0] ^ $v[2] ^ $v[4] ^ $v[6]); |
|
305 | + } |
|
306 | 306 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_XChaCha20', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,109 +9,109 @@ discard block |
||
9 | 9 | */ |
10 | 10 | class ParagonIE_Sodium_Core_XChaCha20 extends ParagonIE_Sodium_Core_HChaCha20 |
11 | 11 | { |
12 | - /** |
|
13 | - * @internal You should not use this directly from another application |
|
14 | - * |
|
15 | - * @param int $len |
|
16 | - * @param string $nonce |
|
17 | - * @param string $key |
|
18 | - * @return string |
|
19 | - * @throws SodiumException |
|
20 | - * @throws TypeError |
|
21 | - */ |
|
22 | - public static function stream($len = 64, $nonce = '', $key = '') |
|
23 | - { |
|
24 | - if (self::strlen($nonce) !== 24) { |
|
25 | - throw new SodiumException('Nonce must be 24 bytes long'); |
|
26 | - } |
|
27 | - return self::encryptBytes( |
|
28 | - new ParagonIE_Sodium_Core_ChaCha20_Ctx( |
|
29 | - self::hChaCha20( |
|
30 | - self::substr($nonce, 0, 16), |
|
31 | - $key |
|
32 | - ), |
|
33 | - self::substr($nonce, 16, 8) |
|
34 | - ), |
|
35 | - str_repeat("\x00", $len) |
|
36 | - ); |
|
37 | - } |
|
12 | + /** |
|
13 | + * @internal You should not use this directly from another application |
|
14 | + * |
|
15 | + * @param int $len |
|
16 | + * @param string $nonce |
|
17 | + * @param string $key |
|
18 | + * @return string |
|
19 | + * @throws SodiumException |
|
20 | + * @throws TypeError |
|
21 | + */ |
|
22 | + public static function stream($len = 64, $nonce = '', $key = '') |
|
23 | + { |
|
24 | + if (self::strlen($nonce) !== 24) { |
|
25 | + throw new SodiumException('Nonce must be 24 bytes long'); |
|
26 | + } |
|
27 | + return self::encryptBytes( |
|
28 | + new ParagonIE_Sodium_Core_ChaCha20_Ctx( |
|
29 | + self::hChaCha20( |
|
30 | + self::substr($nonce, 0, 16), |
|
31 | + $key |
|
32 | + ), |
|
33 | + self::substr($nonce, 16, 8) |
|
34 | + ), |
|
35 | + str_repeat("\x00", $len) |
|
36 | + ); |
|
37 | + } |
|
38 | 38 | |
39 | - /** |
|
40 | - * @internal You should not use this directly from another application |
|
41 | - * |
|
42 | - * @param int $len |
|
43 | - * @param string $nonce |
|
44 | - * @param string $key |
|
45 | - * @return string |
|
46 | - * @throws SodiumException |
|
47 | - * @throws TypeError |
|
48 | - */ |
|
49 | - public static function ietfStream($len = 64, $nonce = '', $key = '') |
|
50 | - { |
|
51 | - if (self::strlen($nonce) !== 24) { |
|
52 | - throw new SodiumException('Nonce must be 24 bytes long'); |
|
53 | - } |
|
54 | - return self::encryptBytes( |
|
55 | - new ParagonIE_Sodium_Core_ChaCha20_IetfCtx( |
|
56 | - self::hChaCha20( |
|
57 | - self::substr($nonce, 0, 16), |
|
58 | - $key |
|
59 | - ), |
|
60 | - "\x00\x00\x00\x00" . self::substr($nonce, 16, 8) |
|
61 | - ), |
|
62 | - str_repeat("\x00", $len) |
|
63 | - ); |
|
64 | - } |
|
39 | + /** |
|
40 | + * @internal You should not use this directly from another application |
|
41 | + * |
|
42 | + * @param int $len |
|
43 | + * @param string $nonce |
|
44 | + * @param string $key |
|
45 | + * @return string |
|
46 | + * @throws SodiumException |
|
47 | + * @throws TypeError |
|
48 | + */ |
|
49 | + public static function ietfStream($len = 64, $nonce = '', $key = '') |
|
50 | + { |
|
51 | + if (self::strlen($nonce) !== 24) { |
|
52 | + throw new SodiumException('Nonce must be 24 bytes long'); |
|
53 | + } |
|
54 | + return self::encryptBytes( |
|
55 | + new ParagonIE_Sodium_Core_ChaCha20_IetfCtx( |
|
56 | + self::hChaCha20( |
|
57 | + self::substr($nonce, 0, 16), |
|
58 | + $key |
|
59 | + ), |
|
60 | + "\x00\x00\x00\x00" . self::substr($nonce, 16, 8) |
|
61 | + ), |
|
62 | + str_repeat("\x00", $len) |
|
63 | + ); |
|
64 | + } |
|
65 | 65 | |
66 | - /** |
|
67 | - * @internal You should not use this directly from another application |
|
68 | - * |
|
69 | - * @param string $message |
|
70 | - * @param string $nonce |
|
71 | - * @param string $key |
|
72 | - * @param string $ic |
|
73 | - * @return string |
|
74 | - * @throws SodiumException |
|
75 | - * @throws TypeError |
|
76 | - */ |
|
77 | - public static function streamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
78 | - { |
|
79 | - if (self::strlen($nonce) !== 24) { |
|
80 | - throw new SodiumException('Nonce must be 24 bytes long'); |
|
81 | - } |
|
82 | - return self::encryptBytes( |
|
83 | - new ParagonIE_Sodium_Core_ChaCha20_Ctx( |
|
84 | - self::hChaCha20(self::substr($nonce, 0, 16), $key), |
|
85 | - self::substr($nonce, 16, 8), |
|
86 | - $ic |
|
87 | - ), |
|
88 | - $message |
|
89 | - ); |
|
90 | - } |
|
66 | + /** |
|
67 | + * @internal You should not use this directly from another application |
|
68 | + * |
|
69 | + * @param string $message |
|
70 | + * @param string $nonce |
|
71 | + * @param string $key |
|
72 | + * @param string $ic |
|
73 | + * @return string |
|
74 | + * @throws SodiumException |
|
75 | + * @throws TypeError |
|
76 | + */ |
|
77 | + public static function streamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
78 | + { |
|
79 | + if (self::strlen($nonce) !== 24) { |
|
80 | + throw new SodiumException('Nonce must be 24 bytes long'); |
|
81 | + } |
|
82 | + return self::encryptBytes( |
|
83 | + new ParagonIE_Sodium_Core_ChaCha20_Ctx( |
|
84 | + self::hChaCha20(self::substr($nonce, 0, 16), $key), |
|
85 | + self::substr($nonce, 16, 8), |
|
86 | + $ic |
|
87 | + ), |
|
88 | + $message |
|
89 | + ); |
|
90 | + } |
|
91 | 91 | |
92 | - /** |
|
93 | - * @internal You should not use this directly from another application |
|
94 | - * |
|
95 | - * @param string $message |
|
96 | - * @param string $nonce |
|
97 | - * @param string $key |
|
98 | - * @param string $ic |
|
99 | - * @return string |
|
100 | - * @throws SodiumException |
|
101 | - * @throws TypeError |
|
102 | - */ |
|
103 | - public static function ietfStreamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
104 | - { |
|
105 | - if (self::strlen($nonce) !== 24) { |
|
106 | - throw new SodiumException('Nonce must be 24 bytes long'); |
|
107 | - } |
|
108 | - return self::encryptBytes( |
|
109 | - new ParagonIE_Sodium_Core_ChaCha20_IetfCtx( |
|
110 | - self::hChaCha20(self::substr($nonce, 0, 16), $key), |
|
111 | - "\x00\x00\x00\x00" . self::substr($nonce, 16, 8), |
|
112 | - $ic |
|
113 | - ), |
|
114 | - $message |
|
115 | - ); |
|
116 | - } |
|
92 | + /** |
|
93 | + * @internal You should not use this directly from another application |
|
94 | + * |
|
95 | + * @param string $message |
|
96 | + * @param string $nonce |
|
97 | + * @param string $key |
|
98 | + * @param string $ic |
|
99 | + * @return string |
|
100 | + * @throws SodiumException |
|
101 | + * @throws TypeError |
|
102 | + */ |
|
103 | + public static function ietfStreamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
104 | + { |
|
105 | + if (self::strlen($nonce) !== 24) { |
|
106 | + throw new SodiumException('Nonce must be 24 bytes long'); |
|
107 | + } |
|
108 | + return self::encryptBytes( |
|
109 | + new ParagonIE_Sodium_Core_ChaCha20_IetfCtx( |
|
110 | + self::hChaCha20(self::substr($nonce, 0, 16), $key), |
|
111 | + "\x00\x00\x00\x00" . self::substr($nonce, 16, 8), |
|
112 | + $ic |
|
113 | + ), |
|
114 | + $message |
|
115 | + ); |
|
116 | + } |
|
117 | 117 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_X25519', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,319 +9,319 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_X25519 extends ParagonIE_Sodium_Core_Curve25519 |
11 | 11 | { |
12 | - /** |
|
13 | - * Alters the objects passed to this method in place. |
|
14 | - * |
|
15 | - * @internal You should not use this directly from another application |
|
16 | - * |
|
17 | - * @param ParagonIE_Sodium_Core_Curve25519_Fe $f |
|
18 | - * @param ParagonIE_Sodium_Core_Curve25519_Fe $g |
|
19 | - * @param int $b |
|
20 | - * @return void |
|
21 | - * @psalm-suppress MixedAssignment |
|
22 | - */ |
|
23 | - public static function fe_cswap( |
|
24 | - ParagonIE_Sodium_Core_Curve25519_Fe $f, |
|
25 | - ParagonIE_Sodium_Core_Curve25519_Fe $g, |
|
26 | - $b = 0 |
|
27 | - ) { |
|
28 | - $f0 = (int) $f[0]; |
|
29 | - $f1 = (int) $f[1]; |
|
30 | - $f2 = (int) $f[2]; |
|
31 | - $f3 = (int) $f[3]; |
|
32 | - $f4 = (int) $f[4]; |
|
33 | - $f5 = (int) $f[5]; |
|
34 | - $f6 = (int) $f[6]; |
|
35 | - $f7 = (int) $f[7]; |
|
36 | - $f8 = (int) $f[8]; |
|
37 | - $f9 = (int) $f[9]; |
|
38 | - $g0 = (int) $g[0]; |
|
39 | - $g1 = (int) $g[1]; |
|
40 | - $g2 = (int) $g[2]; |
|
41 | - $g3 = (int) $g[3]; |
|
42 | - $g4 = (int) $g[4]; |
|
43 | - $g5 = (int) $g[5]; |
|
44 | - $g6 = (int) $g[6]; |
|
45 | - $g7 = (int) $g[7]; |
|
46 | - $g8 = (int) $g[8]; |
|
47 | - $g9 = (int) $g[9]; |
|
48 | - $b = -$b; |
|
49 | - $x0 = ($f0 ^ $g0) & $b; |
|
50 | - $x1 = ($f1 ^ $g1) & $b; |
|
51 | - $x2 = ($f2 ^ $g2) & $b; |
|
52 | - $x3 = ($f3 ^ $g3) & $b; |
|
53 | - $x4 = ($f4 ^ $g4) & $b; |
|
54 | - $x5 = ($f5 ^ $g5) & $b; |
|
55 | - $x6 = ($f6 ^ $g6) & $b; |
|
56 | - $x7 = ($f7 ^ $g7) & $b; |
|
57 | - $x8 = ($f8 ^ $g8) & $b; |
|
58 | - $x9 = ($f9 ^ $g9) & $b; |
|
59 | - $f[0] = $f0 ^ $x0; |
|
60 | - $f[1] = $f1 ^ $x1; |
|
61 | - $f[2] = $f2 ^ $x2; |
|
62 | - $f[3] = $f3 ^ $x3; |
|
63 | - $f[4] = $f4 ^ $x4; |
|
64 | - $f[5] = $f5 ^ $x5; |
|
65 | - $f[6] = $f6 ^ $x6; |
|
66 | - $f[7] = $f7 ^ $x7; |
|
67 | - $f[8] = $f8 ^ $x8; |
|
68 | - $f[9] = $f9 ^ $x9; |
|
69 | - $g[0] = $g0 ^ $x0; |
|
70 | - $g[1] = $g1 ^ $x1; |
|
71 | - $g[2] = $g2 ^ $x2; |
|
72 | - $g[3] = $g3 ^ $x3; |
|
73 | - $g[4] = $g4 ^ $x4; |
|
74 | - $g[5] = $g5 ^ $x5; |
|
75 | - $g[6] = $g6 ^ $x6; |
|
76 | - $g[7] = $g7 ^ $x7; |
|
77 | - $g[8] = $g8 ^ $x8; |
|
78 | - $g[9] = $g9 ^ $x9; |
|
79 | - } |
|
80 | - |
|
81 | - /** |
|
82 | - * @internal You should not use this directly from another application |
|
83 | - * |
|
84 | - * @param ParagonIE_Sodium_Core_Curve25519_Fe $f |
|
85 | - * @return ParagonIE_Sodium_Core_Curve25519_Fe |
|
86 | - */ |
|
87 | - public static function fe_mul121666(ParagonIE_Sodium_Core_Curve25519_Fe $f) |
|
88 | - { |
|
89 | - $h = array( |
|
90 | - self::mul((int) $f[0], 121666, 17), |
|
91 | - self::mul((int) $f[1], 121666, 17), |
|
92 | - self::mul((int) $f[2], 121666, 17), |
|
93 | - self::mul((int) $f[3], 121666, 17), |
|
94 | - self::mul((int) $f[4], 121666, 17), |
|
95 | - self::mul((int) $f[5], 121666, 17), |
|
96 | - self::mul((int) $f[6], 121666, 17), |
|
97 | - self::mul((int) $f[7], 121666, 17), |
|
98 | - self::mul((int) $f[8], 121666, 17), |
|
99 | - self::mul((int) $f[9], 121666, 17) |
|
100 | - ); |
|
101 | - |
|
102 | - /** @var int $carry9 */ |
|
103 | - $carry9 = ($h[9] + (1 << 24)) >> 25; |
|
104 | - $h[0] += self::mul($carry9, 19, 5); |
|
105 | - $h[9] -= $carry9 << 25; |
|
106 | - /** @var int $carry1 */ |
|
107 | - $carry1 = ($h[1] + (1 << 24)) >> 25; |
|
108 | - $h[2] += $carry1; |
|
109 | - $h[1] -= $carry1 << 25; |
|
110 | - /** @var int $carry3 */ |
|
111 | - $carry3 = ($h[3] + (1 << 24)) >> 25; |
|
112 | - $h[4] += $carry3; |
|
113 | - $h[3] -= $carry3 << 25; |
|
114 | - /** @var int $carry5 */ |
|
115 | - $carry5 = ($h[5] + (1 << 24)) >> 25; |
|
116 | - $h[6] += $carry5; |
|
117 | - $h[5] -= $carry5 << 25; |
|
118 | - /** @var int $carry7 */ |
|
119 | - $carry7 = ($h[7] + (1 << 24)) >> 25; |
|
120 | - $h[8] += $carry7; |
|
121 | - $h[7] -= $carry7 << 25; |
|
122 | - |
|
123 | - /** @var int $carry0 */ |
|
124 | - $carry0 = ($h[0] + (1 << 25)) >> 26; |
|
125 | - $h[1] += $carry0; |
|
126 | - $h[0] -= $carry0 << 26; |
|
127 | - /** @var int $carry2 */ |
|
128 | - $carry2 = ($h[2] + (1 << 25)) >> 26; |
|
129 | - $h[3] += $carry2; |
|
130 | - $h[2] -= $carry2 << 26; |
|
131 | - /** @var int $carry4 */ |
|
132 | - $carry4 = ($h[4] + (1 << 25)) >> 26; |
|
133 | - $h[5] += $carry4; |
|
134 | - $h[4] -= $carry4 << 26; |
|
135 | - /** @var int $carry6 */ |
|
136 | - $carry6 = ($h[6] + (1 << 25)) >> 26; |
|
137 | - $h[7] += $carry6; |
|
138 | - $h[6] -= $carry6 << 26; |
|
139 | - /** @var int $carry8 */ |
|
140 | - $carry8 = ($h[8] + (1 << 25)) >> 26; |
|
141 | - $h[9] += $carry8; |
|
142 | - $h[8] -= $carry8 << 26; |
|
143 | - |
|
144 | - foreach ($h as $i => $value) { |
|
145 | - $h[$i] = (int) $value; |
|
146 | - } |
|
147 | - return ParagonIE_Sodium_Core_Curve25519_Fe::fromArray($h); |
|
148 | - } |
|
149 | - |
|
150 | - /** |
|
151 | - * @internal You should not use this directly from another application |
|
152 | - * |
|
153 | - * Inline comments preceded by # are from libsodium's ref10 code. |
|
154 | - * |
|
155 | - * @param string $n |
|
156 | - * @param string $p |
|
157 | - * @return string |
|
158 | - * @throws SodiumException |
|
159 | - * @throws TypeError |
|
160 | - */ |
|
161 | - public static function crypto_scalarmult_curve25519_ref10($n, $p) |
|
162 | - { |
|
163 | - # for (i = 0;i < 32;++i) e[i] = n[i]; |
|
164 | - $e = '' . $n; |
|
165 | - # e[0] &= 248; |
|
166 | - $e[0] = self::intToChr( |
|
167 | - self::chrToInt($e[0]) & 248 |
|
168 | - ); |
|
169 | - # e[31] &= 127; |
|
170 | - # e[31] |= 64; |
|
171 | - $e[31] = self::intToChr( |
|
172 | - (self::chrToInt($e[31]) & 127) | 64 |
|
173 | - ); |
|
174 | - # fe_frombytes(x1,p); |
|
175 | - $x1 = self::fe_frombytes($p); |
|
176 | - # fe_1(x2); |
|
177 | - $x2 = self::fe_1(); |
|
178 | - # fe_0(z2); |
|
179 | - $z2 = self::fe_0(); |
|
180 | - # fe_copy(x3,x1); |
|
181 | - $x3 = self::fe_copy($x1); |
|
182 | - # fe_1(z3); |
|
183 | - $z3 = self::fe_1(); |
|
184 | - |
|
185 | - # swap = 0; |
|
186 | - /** @var int $swap */ |
|
187 | - $swap = 0; |
|
188 | - |
|
189 | - # for (pos = 254;pos >= 0;--pos) { |
|
190 | - for ($pos = 254; $pos >= 0; --$pos) { |
|
191 | - # b = e[pos / 8] >> (pos & 7); |
|
192 | - /** @var int $b */ |
|
193 | - $b = self::chrToInt( |
|
194 | - $e[(int) floor($pos / 8)] |
|
195 | - ) >> ($pos & 7); |
|
196 | - # b &= 1; |
|
197 | - $b &= 1; |
|
198 | - # swap ^= b; |
|
199 | - $swap ^= $b; |
|
200 | - # fe_cswap(x2,x3,swap); |
|
201 | - self::fe_cswap($x2, $x3, $swap); |
|
202 | - # fe_cswap(z2,z3,swap); |
|
203 | - self::fe_cswap($z2, $z3, $swap); |
|
204 | - # swap = b; |
|
205 | - $swap = $b; |
|
206 | - # fe_sub(tmp0,x3,z3); |
|
207 | - $tmp0 = self::fe_sub($x3, $z3); |
|
208 | - # fe_sub(tmp1,x2,z2); |
|
209 | - $tmp1 = self::fe_sub($x2, $z2); |
|
210 | - |
|
211 | - # fe_add(x2,x2,z2); |
|
212 | - $x2 = self::fe_add($x2, $z2); |
|
213 | - |
|
214 | - # fe_add(z2,x3,z3); |
|
215 | - $z2 = self::fe_add($x3, $z3); |
|
216 | - |
|
217 | - # fe_mul(z3,tmp0,x2); |
|
218 | - $z3 = self::fe_mul($tmp0, $x2); |
|
219 | - |
|
220 | - # fe_mul(z2,z2,tmp1); |
|
221 | - $z2 = self::fe_mul($z2, $tmp1); |
|
222 | - |
|
223 | - # fe_sq(tmp0,tmp1); |
|
224 | - $tmp0 = self::fe_sq($tmp1); |
|
225 | - |
|
226 | - # fe_sq(tmp1,x2); |
|
227 | - $tmp1 = self::fe_sq($x2); |
|
228 | - |
|
229 | - # fe_add(x3,z3,z2); |
|
230 | - $x3 = self::fe_add($z3, $z2); |
|
231 | - |
|
232 | - # fe_sub(z2,z3,z2); |
|
233 | - $z2 = self::fe_sub($z3, $z2); |
|
234 | - |
|
235 | - # fe_mul(x2,tmp1,tmp0); |
|
236 | - $x2 = self::fe_mul($tmp1, $tmp0); |
|
237 | - |
|
238 | - # fe_sub(tmp1,tmp1,tmp0); |
|
239 | - $tmp1 = self::fe_sub($tmp1, $tmp0); |
|
240 | - |
|
241 | - # fe_sq(z2,z2); |
|
242 | - $z2 = self::fe_sq($z2); |
|
243 | - |
|
244 | - # fe_mul121666(z3,tmp1); |
|
245 | - $z3 = self::fe_mul121666($tmp1); |
|
246 | - |
|
247 | - # fe_sq(x3,x3); |
|
248 | - $x3 = self::fe_sq($x3); |
|
249 | - |
|
250 | - # fe_add(tmp0,tmp0,z3); |
|
251 | - $tmp0 = self::fe_add($tmp0, $z3); |
|
252 | - |
|
253 | - # fe_mul(z3,x1,z2); |
|
254 | - $z3 = self::fe_mul($x1, $z2); |
|
255 | - |
|
256 | - # fe_mul(z2,tmp1,tmp0); |
|
257 | - $z2 = self::fe_mul($tmp1, $tmp0); |
|
258 | - } |
|
259 | - |
|
260 | - # fe_cswap(x2,x3,swap); |
|
261 | - self::fe_cswap($x2, $x3, $swap); |
|
262 | - |
|
263 | - # fe_cswap(z2,z3,swap); |
|
264 | - self::fe_cswap($z2, $z3, $swap); |
|
265 | - |
|
266 | - # fe_invert(z2,z2); |
|
267 | - $z2 = self::fe_invert($z2); |
|
268 | - |
|
269 | - # fe_mul(x2,x2,z2); |
|
270 | - $x2 = self::fe_mul($x2, $z2); |
|
271 | - # fe_tobytes(q,x2); |
|
272 | - return self::fe_tobytes($x2); |
|
273 | - } |
|
274 | - |
|
275 | - /** |
|
276 | - * @internal You should not use this directly from another application |
|
277 | - * |
|
278 | - * @param ParagonIE_Sodium_Core_Curve25519_Fe $edwardsY |
|
279 | - * @param ParagonIE_Sodium_Core_Curve25519_Fe $edwardsZ |
|
280 | - * @return ParagonIE_Sodium_Core_Curve25519_Fe |
|
281 | - */ |
|
282 | - public static function edwards_to_montgomery( |
|
283 | - ParagonIE_Sodium_Core_Curve25519_Fe $edwardsY, |
|
284 | - ParagonIE_Sodium_Core_Curve25519_Fe $edwardsZ |
|
285 | - ) { |
|
286 | - $tempX = self::fe_add($edwardsZ, $edwardsY); |
|
287 | - $tempZ = self::fe_sub($edwardsZ, $edwardsY); |
|
288 | - $tempZ = self::fe_invert($tempZ); |
|
289 | - return self::fe_mul($tempX, $tempZ); |
|
290 | - } |
|
291 | - |
|
292 | - /** |
|
293 | - * @internal You should not use this directly from another application |
|
294 | - * |
|
295 | - * @param string $n |
|
296 | - * @return string |
|
297 | - * @throws SodiumException |
|
298 | - * @throws TypeError |
|
299 | - */ |
|
300 | - public static function crypto_scalarmult_curve25519_ref10_base($n) |
|
301 | - { |
|
302 | - # for (i = 0;i < 32;++i) e[i] = n[i]; |
|
303 | - $e = '' . $n; |
|
304 | - |
|
305 | - # e[0] &= 248; |
|
306 | - $e[0] = self::intToChr( |
|
307 | - self::chrToInt($e[0]) & 248 |
|
308 | - ); |
|
309 | - |
|
310 | - # e[31] &= 127; |
|
311 | - # e[31] |= 64; |
|
312 | - $e[31] = self::intToChr( |
|
313 | - (self::chrToInt($e[31]) & 127) | 64 |
|
314 | - ); |
|
315 | - |
|
316 | - $A = self::ge_scalarmult_base($e); |
|
317 | - if ( |
|
318 | - !($A->Y instanceof ParagonIE_Sodium_Core_Curve25519_Fe) |
|
319 | - || |
|
320 | - !($A->Z instanceof ParagonIE_Sodium_Core_Curve25519_Fe) |
|
321 | - ) { |
|
322 | - throw new TypeError('Null points encountered'); |
|
323 | - } |
|
324 | - $pk = self::edwards_to_montgomery($A->Y, $A->Z); |
|
325 | - return self::fe_tobytes($pk); |
|
326 | - } |
|
12 | + /** |
|
13 | + * Alters the objects passed to this method in place. |
|
14 | + * |
|
15 | + * @internal You should not use this directly from another application |
|
16 | + * |
|
17 | + * @param ParagonIE_Sodium_Core_Curve25519_Fe $f |
|
18 | + * @param ParagonIE_Sodium_Core_Curve25519_Fe $g |
|
19 | + * @param int $b |
|
20 | + * @return void |
|
21 | + * @psalm-suppress MixedAssignment |
|
22 | + */ |
|
23 | + public static function fe_cswap( |
|
24 | + ParagonIE_Sodium_Core_Curve25519_Fe $f, |
|
25 | + ParagonIE_Sodium_Core_Curve25519_Fe $g, |
|
26 | + $b = 0 |
|
27 | + ) { |
|
28 | + $f0 = (int) $f[0]; |
|
29 | + $f1 = (int) $f[1]; |
|
30 | + $f2 = (int) $f[2]; |
|
31 | + $f3 = (int) $f[3]; |
|
32 | + $f4 = (int) $f[4]; |
|
33 | + $f5 = (int) $f[5]; |
|
34 | + $f6 = (int) $f[6]; |
|
35 | + $f7 = (int) $f[7]; |
|
36 | + $f8 = (int) $f[8]; |
|
37 | + $f9 = (int) $f[9]; |
|
38 | + $g0 = (int) $g[0]; |
|
39 | + $g1 = (int) $g[1]; |
|
40 | + $g2 = (int) $g[2]; |
|
41 | + $g3 = (int) $g[3]; |
|
42 | + $g4 = (int) $g[4]; |
|
43 | + $g5 = (int) $g[5]; |
|
44 | + $g6 = (int) $g[6]; |
|
45 | + $g7 = (int) $g[7]; |
|
46 | + $g8 = (int) $g[8]; |
|
47 | + $g9 = (int) $g[9]; |
|
48 | + $b = -$b; |
|
49 | + $x0 = ($f0 ^ $g0) & $b; |
|
50 | + $x1 = ($f1 ^ $g1) & $b; |
|
51 | + $x2 = ($f2 ^ $g2) & $b; |
|
52 | + $x3 = ($f3 ^ $g3) & $b; |
|
53 | + $x4 = ($f4 ^ $g4) & $b; |
|
54 | + $x5 = ($f5 ^ $g5) & $b; |
|
55 | + $x6 = ($f6 ^ $g6) & $b; |
|
56 | + $x7 = ($f7 ^ $g7) & $b; |
|
57 | + $x8 = ($f8 ^ $g8) & $b; |
|
58 | + $x9 = ($f9 ^ $g9) & $b; |
|
59 | + $f[0] = $f0 ^ $x0; |
|
60 | + $f[1] = $f1 ^ $x1; |
|
61 | + $f[2] = $f2 ^ $x2; |
|
62 | + $f[3] = $f3 ^ $x3; |
|
63 | + $f[4] = $f4 ^ $x4; |
|
64 | + $f[5] = $f5 ^ $x5; |
|
65 | + $f[6] = $f6 ^ $x6; |
|
66 | + $f[7] = $f7 ^ $x7; |
|
67 | + $f[8] = $f8 ^ $x8; |
|
68 | + $f[9] = $f9 ^ $x9; |
|
69 | + $g[0] = $g0 ^ $x0; |
|
70 | + $g[1] = $g1 ^ $x1; |
|
71 | + $g[2] = $g2 ^ $x2; |
|
72 | + $g[3] = $g3 ^ $x3; |
|
73 | + $g[4] = $g4 ^ $x4; |
|
74 | + $g[5] = $g5 ^ $x5; |
|
75 | + $g[6] = $g6 ^ $x6; |
|
76 | + $g[7] = $g7 ^ $x7; |
|
77 | + $g[8] = $g8 ^ $x8; |
|
78 | + $g[9] = $g9 ^ $x9; |
|
79 | + } |
|
80 | + |
|
81 | + /** |
|
82 | + * @internal You should not use this directly from another application |
|
83 | + * |
|
84 | + * @param ParagonIE_Sodium_Core_Curve25519_Fe $f |
|
85 | + * @return ParagonIE_Sodium_Core_Curve25519_Fe |
|
86 | + */ |
|
87 | + public static function fe_mul121666(ParagonIE_Sodium_Core_Curve25519_Fe $f) |
|
88 | + { |
|
89 | + $h = array( |
|
90 | + self::mul((int) $f[0], 121666, 17), |
|
91 | + self::mul((int) $f[1], 121666, 17), |
|
92 | + self::mul((int) $f[2], 121666, 17), |
|
93 | + self::mul((int) $f[3], 121666, 17), |
|
94 | + self::mul((int) $f[4], 121666, 17), |
|
95 | + self::mul((int) $f[5], 121666, 17), |
|
96 | + self::mul((int) $f[6], 121666, 17), |
|
97 | + self::mul((int) $f[7], 121666, 17), |
|
98 | + self::mul((int) $f[8], 121666, 17), |
|
99 | + self::mul((int) $f[9], 121666, 17) |
|
100 | + ); |
|
101 | + |
|
102 | + /** @var int $carry9 */ |
|
103 | + $carry9 = ($h[9] + (1 << 24)) >> 25; |
|
104 | + $h[0] += self::mul($carry9, 19, 5); |
|
105 | + $h[9] -= $carry9 << 25; |
|
106 | + /** @var int $carry1 */ |
|
107 | + $carry1 = ($h[1] + (1 << 24)) >> 25; |
|
108 | + $h[2] += $carry1; |
|
109 | + $h[1] -= $carry1 << 25; |
|
110 | + /** @var int $carry3 */ |
|
111 | + $carry3 = ($h[3] + (1 << 24)) >> 25; |
|
112 | + $h[4] += $carry3; |
|
113 | + $h[3] -= $carry3 << 25; |
|
114 | + /** @var int $carry5 */ |
|
115 | + $carry5 = ($h[5] + (1 << 24)) >> 25; |
|
116 | + $h[6] += $carry5; |
|
117 | + $h[5] -= $carry5 << 25; |
|
118 | + /** @var int $carry7 */ |
|
119 | + $carry7 = ($h[7] + (1 << 24)) >> 25; |
|
120 | + $h[8] += $carry7; |
|
121 | + $h[7] -= $carry7 << 25; |
|
122 | + |
|
123 | + /** @var int $carry0 */ |
|
124 | + $carry0 = ($h[0] + (1 << 25)) >> 26; |
|
125 | + $h[1] += $carry0; |
|
126 | + $h[0] -= $carry0 << 26; |
|
127 | + /** @var int $carry2 */ |
|
128 | + $carry2 = ($h[2] + (1 << 25)) >> 26; |
|
129 | + $h[3] += $carry2; |
|
130 | + $h[2] -= $carry2 << 26; |
|
131 | + /** @var int $carry4 */ |
|
132 | + $carry4 = ($h[4] + (1 << 25)) >> 26; |
|
133 | + $h[5] += $carry4; |
|
134 | + $h[4] -= $carry4 << 26; |
|
135 | + /** @var int $carry6 */ |
|
136 | + $carry6 = ($h[6] + (1 << 25)) >> 26; |
|
137 | + $h[7] += $carry6; |
|
138 | + $h[6] -= $carry6 << 26; |
|
139 | + /** @var int $carry8 */ |
|
140 | + $carry8 = ($h[8] + (1 << 25)) >> 26; |
|
141 | + $h[9] += $carry8; |
|
142 | + $h[8] -= $carry8 << 26; |
|
143 | + |
|
144 | + foreach ($h as $i => $value) { |
|
145 | + $h[$i] = (int) $value; |
|
146 | + } |
|
147 | + return ParagonIE_Sodium_Core_Curve25519_Fe::fromArray($h); |
|
148 | + } |
|
149 | + |
|
150 | + /** |
|
151 | + * @internal You should not use this directly from another application |
|
152 | + * |
|
153 | + * Inline comments preceded by # are from libsodium's ref10 code. |
|
154 | + * |
|
155 | + * @param string $n |
|
156 | + * @param string $p |
|
157 | + * @return string |
|
158 | + * @throws SodiumException |
|
159 | + * @throws TypeError |
|
160 | + */ |
|
161 | + public static function crypto_scalarmult_curve25519_ref10($n, $p) |
|
162 | + { |
|
163 | + # for (i = 0;i < 32;++i) e[i] = n[i]; |
|
164 | + $e = '' . $n; |
|
165 | + # e[0] &= 248; |
|
166 | + $e[0] = self::intToChr( |
|
167 | + self::chrToInt($e[0]) & 248 |
|
168 | + ); |
|
169 | + # e[31] &= 127; |
|
170 | + # e[31] |= 64; |
|
171 | + $e[31] = self::intToChr( |
|
172 | + (self::chrToInt($e[31]) & 127) | 64 |
|
173 | + ); |
|
174 | + # fe_frombytes(x1,p); |
|
175 | + $x1 = self::fe_frombytes($p); |
|
176 | + # fe_1(x2); |
|
177 | + $x2 = self::fe_1(); |
|
178 | + # fe_0(z2); |
|
179 | + $z2 = self::fe_0(); |
|
180 | + # fe_copy(x3,x1); |
|
181 | + $x3 = self::fe_copy($x1); |
|
182 | + # fe_1(z3); |
|
183 | + $z3 = self::fe_1(); |
|
184 | + |
|
185 | + # swap = 0; |
|
186 | + /** @var int $swap */ |
|
187 | + $swap = 0; |
|
188 | + |
|
189 | + # for (pos = 254;pos >= 0;--pos) { |
|
190 | + for ($pos = 254; $pos >= 0; --$pos) { |
|
191 | + # b = e[pos / 8] >> (pos & 7); |
|
192 | + /** @var int $b */ |
|
193 | + $b = self::chrToInt( |
|
194 | + $e[(int) floor($pos / 8)] |
|
195 | + ) >> ($pos & 7); |
|
196 | + # b &= 1; |
|
197 | + $b &= 1; |
|
198 | + # swap ^= b; |
|
199 | + $swap ^= $b; |
|
200 | + # fe_cswap(x2,x3,swap); |
|
201 | + self::fe_cswap($x2, $x3, $swap); |
|
202 | + # fe_cswap(z2,z3,swap); |
|
203 | + self::fe_cswap($z2, $z3, $swap); |
|
204 | + # swap = b; |
|
205 | + $swap = $b; |
|
206 | + # fe_sub(tmp0,x3,z3); |
|
207 | + $tmp0 = self::fe_sub($x3, $z3); |
|
208 | + # fe_sub(tmp1,x2,z2); |
|
209 | + $tmp1 = self::fe_sub($x2, $z2); |
|
210 | + |
|
211 | + # fe_add(x2,x2,z2); |
|
212 | + $x2 = self::fe_add($x2, $z2); |
|
213 | + |
|
214 | + # fe_add(z2,x3,z3); |
|
215 | + $z2 = self::fe_add($x3, $z3); |
|
216 | + |
|
217 | + # fe_mul(z3,tmp0,x2); |
|
218 | + $z3 = self::fe_mul($tmp0, $x2); |
|
219 | + |
|
220 | + # fe_mul(z2,z2,tmp1); |
|
221 | + $z2 = self::fe_mul($z2, $tmp1); |
|
222 | + |
|
223 | + # fe_sq(tmp0,tmp1); |
|
224 | + $tmp0 = self::fe_sq($tmp1); |
|
225 | + |
|
226 | + # fe_sq(tmp1,x2); |
|
227 | + $tmp1 = self::fe_sq($x2); |
|
228 | + |
|
229 | + # fe_add(x3,z3,z2); |
|
230 | + $x3 = self::fe_add($z3, $z2); |
|
231 | + |
|
232 | + # fe_sub(z2,z3,z2); |
|
233 | + $z2 = self::fe_sub($z3, $z2); |
|
234 | + |
|
235 | + # fe_mul(x2,tmp1,tmp0); |
|
236 | + $x2 = self::fe_mul($tmp1, $tmp0); |
|
237 | + |
|
238 | + # fe_sub(tmp1,tmp1,tmp0); |
|
239 | + $tmp1 = self::fe_sub($tmp1, $tmp0); |
|
240 | + |
|
241 | + # fe_sq(z2,z2); |
|
242 | + $z2 = self::fe_sq($z2); |
|
243 | + |
|
244 | + # fe_mul121666(z3,tmp1); |
|
245 | + $z3 = self::fe_mul121666($tmp1); |
|
246 | + |
|
247 | + # fe_sq(x3,x3); |
|
248 | + $x3 = self::fe_sq($x3); |
|
249 | + |
|
250 | + # fe_add(tmp0,tmp0,z3); |
|
251 | + $tmp0 = self::fe_add($tmp0, $z3); |
|
252 | + |
|
253 | + # fe_mul(z3,x1,z2); |
|
254 | + $z3 = self::fe_mul($x1, $z2); |
|
255 | + |
|
256 | + # fe_mul(z2,tmp1,tmp0); |
|
257 | + $z2 = self::fe_mul($tmp1, $tmp0); |
|
258 | + } |
|
259 | + |
|
260 | + # fe_cswap(x2,x3,swap); |
|
261 | + self::fe_cswap($x2, $x3, $swap); |
|
262 | + |
|
263 | + # fe_cswap(z2,z3,swap); |
|
264 | + self::fe_cswap($z2, $z3, $swap); |
|
265 | + |
|
266 | + # fe_invert(z2,z2); |
|
267 | + $z2 = self::fe_invert($z2); |
|
268 | + |
|
269 | + # fe_mul(x2,x2,z2); |
|
270 | + $x2 = self::fe_mul($x2, $z2); |
|
271 | + # fe_tobytes(q,x2); |
|
272 | + return self::fe_tobytes($x2); |
|
273 | + } |
|
274 | + |
|
275 | + /** |
|
276 | + * @internal You should not use this directly from another application |
|
277 | + * |
|
278 | + * @param ParagonIE_Sodium_Core_Curve25519_Fe $edwardsY |
|
279 | + * @param ParagonIE_Sodium_Core_Curve25519_Fe $edwardsZ |
|
280 | + * @return ParagonIE_Sodium_Core_Curve25519_Fe |
|
281 | + */ |
|
282 | + public static function edwards_to_montgomery( |
|
283 | + ParagonIE_Sodium_Core_Curve25519_Fe $edwardsY, |
|
284 | + ParagonIE_Sodium_Core_Curve25519_Fe $edwardsZ |
|
285 | + ) { |
|
286 | + $tempX = self::fe_add($edwardsZ, $edwardsY); |
|
287 | + $tempZ = self::fe_sub($edwardsZ, $edwardsY); |
|
288 | + $tempZ = self::fe_invert($tempZ); |
|
289 | + return self::fe_mul($tempX, $tempZ); |
|
290 | + } |
|
291 | + |
|
292 | + /** |
|
293 | + * @internal You should not use this directly from another application |
|
294 | + * |
|
295 | + * @param string $n |
|
296 | + * @return string |
|
297 | + * @throws SodiumException |
|
298 | + * @throws TypeError |
|
299 | + */ |
|
300 | + public static function crypto_scalarmult_curve25519_ref10_base($n) |
|
301 | + { |
|
302 | + # for (i = 0;i < 32;++i) e[i] = n[i]; |
|
303 | + $e = '' . $n; |
|
304 | + |
|
305 | + # e[0] &= 248; |
|
306 | + $e[0] = self::intToChr( |
|
307 | + self::chrToInt($e[0]) & 248 |
|
308 | + ); |
|
309 | + |
|
310 | + # e[31] &= 127; |
|
311 | + # e[31] |= 64; |
|
312 | + $e[31] = self::intToChr( |
|
313 | + (self::chrToInt($e[31]) & 127) | 64 |
|
314 | + ); |
|
315 | + |
|
316 | + $A = self::ge_scalarmult_base($e); |
|
317 | + if ( |
|
318 | + !($A->Y instanceof ParagonIE_Sodium_Core_Curve25519_Fe) |
|
319 | + || |
|
320 | + !($A->Z instanceof ParagonIE_Sodium_Core_Curve25519_Fe) |
|
321 | + ) { |
|
322 | + throw new TypeError('Null points encountered'); |
|
323 | + } |
|
324 | + $pk = self::edwards_to_montgomery($A->Y, $A->Z); |
|
325 | + return self::fe_tobytes($pk); |
|
326 | + } |
|
327 | 327 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_Poly1305', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,55 +9,55 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_Poly1305 extends ParagonIE_Sodium_Core_Util |
11 | 11 | { |
12 | - const BLOCK_SIZE = 16; |
|
12 | + const BLOCK_SIZE = 16; |
|
13 | 13 | |
14 | - /** |
|
15 | - * @internal You should not use this directly from another application |
|
16 | - * |
|
17 | - * @param string $m |
|
18 | - * @param string $key |
|
19 | - * @return string |
|
20 | - * @throws SodiumException |
|
21 | - * @throws TypeError |
|
22 | - */ |
|
23 | - public static function onetimeauth($m, $key) |
|
24 | - { |
|
25 | - if (self::strlen($key) < 32) { |
|
26 | - throw new InvalidArgumentException( |
|
27 | - 'Key must be 32 bytes long.' |
|
28 | - ); |
|
29 | - } |
|
30 | - $state = new ParagonIE_Sodium_Core_Poly1305_State( |
|
31 | - self::substr($key, 0, 32) |
|
32 | - ); |
|
33 | - return $state |
|
34 | - ->update($m) |
|
35 | - ->finish(); |
|
36 | - } |
|
14 | + /** |
|
15 | + * @internal You should not use this directly from another application |
|
16 | + * |
|
17 | + * @param string $m |
|
18 | + * @param string $key |
|
19 | + * @return string |
|
20 | + * @throws SodiumException |
|
21 | + * @throws TypeError |
|
22 | + */ |
|
23 | + public static function onetimeauth($m, $key) |
|
24 | + { |
|
25 | + if (self::strlen($key) < 32) { |
|
26 | + throw new InvalidArgumentException( |
|
27 | + 'Key must be 32 bytes long.' |
|
28 | + ); |
|
29 | + } |
|
30 | + $state = new ParagonIE_Sodium_Core_Poly1305_State( |
|
31 | + self::substr($key, 0, 32) |
|
32 | + ); |
|
33 | + return $state |
|
34 | + ->update($m) |
|
35 | + ->finish(); |
|
36 | + } |
|
37 | 37 | |
38 | - /** |
|
39 | - * @internal You should not use this directly from another application |
|
40 | - * |
|
41 | - * @param string $mac |
|
42 | - * @param string $m |
|
43 | - * @param string $key |
|
44 | - * @return bool |
|
45 | - * @throws SodiumException |
|
46 | - * @throws TypeError |
|
47 | - */ |
|
48 | - public static function onetimeauth_verify($mac, $m, $key) |
|
49 | - { |
|
50 | - if (self::strlen($key) < 32) { |
|
51 | - throw new InvalidArgumentException( |
|
52 | - 'Key must be 32 bytes long.' |
|
53 | - ); |
|
54 | - } |
|
55 | - $state = new ParagonIE_Sodium_Core_Poly1305_State( |
|
56 | - self::substr($key, 0, 32) |
|
57 | - ); |
|
58 | - $calc = $state |
|
59 | - ->update($m) |
|
60 | - ->finish(); |
|
61 | - return self::verify_16($calc, $mac); |
|
62 | - } |
|
38 | + /** |
|
39 | + * @internal You should not use this directly from another application |
|
40 | + * |
|
41 | + * @param string $mac |
|
42 | + * @param string $m |
|
43 | + * @param string $key |
|
44 | + * @return bool |
|
45 | + * @throws SodiumException |
|
46 | + * @throws TypeError |
|
47 | + */ |
|
48 | + public static function onetimeauth_verify($mac, $m, $key) |
|
49 | + { |
|
50 | + if (self::strlen($key) < 32) { |
|
51 | + throw new InvalidArgumentException( |
|
52 | + 'Key must be 32 bytes long.' |
|
53 | + ); |
|
54 | + } |
|
55 | + $state = new ParagonIE_Sodium_Core_Poly1305_State( |
|
56 | + self::substr($key, 0, 32) |
|
57 | + ); |
|
58 | + $calc = $state |
|
59 | + ->update($m) |
|
60 | + ->finish(); |
|
61 | + return self::verify_16($calc, $mac); |
|
62 | + } |
|
63 | 63 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_XSalsa20', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,49 +9,49 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_XSalsa20 extends ParagonIE_Sodium_Core_HSalsa20 |
11 | 11 | { |
12 | - /** |
|
13 | - * Expand a key and nonce into an xsalsa20 keystream. |
|
14 | - * |
|
15 | - * @internal You should not use this directly from another application |
|
16 | - * |
|
17 | - * @param int $len |
|
18 | - * @param string $nonce |
|
19 | - * @param string $key |
|
20 | - * @return string |
|
21 | - * @throws SodiumException |
|
22 | - * @throws TypeError |
|
23 | - */ |
|
24 | - public static function xsalsa20($len, $nonce, $key) |
|
25 | - { |
|
26 | - $ret = self::salsa20( |
|
27 | - $len, |
|
28 | - self::substr($nonce, 16, 8), |
|
29 | - self::hsalsa20($nonce, $key) |
|
30 | - ); |
|
31 | - return $ret; |
|
32 | - } |
|
12 | + /** |
|
13 | + * Expand a key and nonce into an xsalsa20 keystream. |
|
14 | + * |
|
15 | + * @internal You should not use this directly from another application |
|
16 | + * |
|
17 | + * @param int $len |
|
18 | + * @param string $nonce |
|
19 | + * @param string $key |
|
20 | + * @return string |
|
21 | + * @throws SodiumException |
|
22 | + * @throws TypeError |
|
23 | + */ |
|
24 | + public static function xsalsa20($len, $nonce, $key) |
|
25 | + { |
|
26 | + $ret = self::salsa20( |
|
27 | + $len, |
|
28 | + self::substr($nonce, 16, 8), |
|
29 | + self::hsalsa20($nonce, $key) |
|
30 | + ); |
|
31 | + return $ret; |
|
32 | + } |
|
33 | 33 | |
34 | - /** |
|
35 | - * Encrypt a string with XSalsa20. Doesn't provide integrity. |
|
36 | - * |
|
37 | - * @internal You should not use this directly from another application |
|
38 | - * |
|
39 | - * @param string $message |
|
40 | - * @param string $nonce |
|
41 | - * @param string $key |
|
42 | - * @return string |
|
43 | - * @throws SodiumException |
|
44 | - * @throws TypeError |
|
45 | - */ |
|
46 | - public static function xsalsa20_xor($message, $nonce, $key) |
|
47 | - { |
|
48 | - return self::xorStrings( |
|
49 | - $message, |
|
50 | - self::xsalsa20( |
|
51 | - self::strlen($message), |
|
52 | - $nonce, |
|
53 | - $key |
|
54 | - ) |
|
55 | - ); |
|
56 | - } |
|
34 | + /** |
|
35 | + * Encrypt a string with XSalsa20. Doesn't provide integrity. |
|
36 | + * |
|
37 | + * @internal You should not use this directly from another application |
|
38 | + * |
|
39 | + * @param string $message |
|
40 | + * @param string $nonce |
|
41 | + * @param string $key |
|
42 | + * @return string |
|
43 | + * @throws SodiumException |
|
44 | + * @throws TypeError |
|
45 | + */ |
|
46 | + public static function xsalsa20_xor($message, $nonce, $key) |
|
47 | + { |
|
48 | + return self::xorStrings( |
|
49 | + $message, |
|
50 | + self::xsalsa20( |
|
51 | + self::strlen($message), |
|
52 | + $nonce, |
|
53 | + $key |
|
54 | + ) |
|
55 | + ); |
|
56 | + } |
|
57 | 57 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_ChaCha20', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,80 +9,80 @@ discard block |
||
9 | 9 | */ |
10 | 10 | class ParagonIE_Sodium_Core_ChaCha20 extends ParagonIE_Sodium_Core_Util |
11 | 11 | { |
12 | - /** |
|
13 | - * Bitwise left rotation |
|
14 | - * |
|
15 | - * @internal You should not use this directly from another application |
|
16 | - * |
|
17 | - * @param int $v |
|
18 | - * @param int $n |
|
19 | - * @return int |
|
20 | - */ |
|
21 | - public static function rotate($v, $n) |
|
22 | - { |
|
23 | - $v &= 0xffffffff; |
|
24 | - $n &= 31; |
|
25 | - return (int) ( |
|
26 | - 0xffffffff & ( |
|
27 | - ($v << $n) |
|
28 | - | |
|
29 | - ($v >> (32 - $n)) |
|
30 | - ) |
|
31 | - ); |
|
32 | - } |
|
12 | + /** |
|
13 | + * Bitwise left rotation |
|
14 | + * |
|
15 | + * @internal You should not use this directly from another application |
|
16 | + * |
|
17 | + * @param int $v |
|
18 | + * @param int $n |
|
19 | + * @return int |
|
20 | + */ |
|
21 | + public static function rotate($v, $n) |
|
22 | + { |
|
23 | + $v &= 0xffffffff; |
|
24 | + $n &= 31; |
|
25 | + return (int) ( |
|
26 | + 0xffffffff & ( |
|
27 | + ($v << $n) |
|
28 | + | |
|
29 | + ($v >> (32 - $n)) |
|
30 | + ) |
|
31 | + ); |
|
32 | + } |
|
33 | 33 | |
34 | - /** |
|
35 | - * The ChaCha20 quarter round function. Works on four 32-bit integers. |
|
36 | - * |
|
37 | - * @internal You should not use this directly from another application |
|
38 | - * |
|
39 | - * @param int $a |
|
40 | - * @param int $b |
|
41 | - * @param int $c |
|
42 | - * @param int $d |
|
43 | - * @return array<int, int> |
|
44 | - */ |
|
45 | - protected static function quarterRound($a, $b, $c, $d) |
|
46 | - { |
|
47 | - # a = PLUS(a,b); d = ROTATE(XOR(d,a),16); |
|
48 | - /** @var int $a */ |
|
49 | - $a = ($a + $b) & 0xffffffff; |
|
50 | - $d = self::rotate($d ^ $a, 16); |
|
34 | + /** |
|
35 | + * The ChaCha20 quarter round function. Works on four 32-bit integers. |
|
36 | + * |
|
37 | + * @internal You should not use this directly from another application |
|
38 | + * |
|
39 | + * @param int $a |
|
40 | + * @param int $b |
|
41 | + * @param int $c |
|
42 | + * @param int $d |
|
43 | + * @return array<int, int> |
|
44 | + */ |
|
45 | + protected static function quarterRound($a, $b, $c, $d) |
|
46 | + { |
|
47 | + # a = PLUS(a,b); d = ROTATE(XOR(d,a),16); |
|
48 | + /** @var int $a */ |
|
49 | + $a = ($a + $b) & 0xffffffff; |
|
50 | + $d = self::rotate($d ^ $a, 16); |
|
51 | 51 | |
52 | - # c = PLUS(c,d); b = ROTATE(XOR(b,c),12); |
|
53 | - /** @var int $c */ |
|
54 | - $c = ($c + $d) & 0xffffffff; |
|
55 | - $b = self::rotate($b ^ $c, 12); |
|
52 | + # c = PLUS(c,d); b = ROTATE(XOR(b,c),12); |
|
53 | + /** @var int $c */ |
|
54 | + $c = ($c + $d) & 0xffffffff; |
|
55 | + $b = self::rotate($b ^ $c, 12); |
|
56 | 56 | |
57 | - # a = PLUS(a,b); d = ROTATE(XOR(d,a), 8); |
|
58 | - /** @var int $a */ |
|
59 | - $a = ($a + $b) & 0xffffffff; |
|
60 | - $d = self::rotate($d ^ $a, 8); |
|
57 | + # a = PLUS(a,b); d = ROTATE(XOR(d,a), 8); |
|
58 | + /** @var int $a */ |
|
59 | + $a = ($a + $b) & 0xffffffff; |
|
60 | + $d = self::rotate($d ^ $a, 8); |
|
61 | 61 | |
62 | - # c = PLUS(c,d); b = ROTATE(XOR(b,c), 7); |
|
63 | - /** @var int $c */ |
|
64 | - $c = ($c + $d) & 0xffffffff; |
|
65 | - $b = self::rotate($b ^ $c, 7); |
|
66 | - return array((int) $a, (int) $b, (int) $c, (int) $d); |
|
67 | - } |
|
62 | + # c = PLUS(c,d); b = ROTATE(XOR(b,c), 7); |
|
63 | + /** @var int $c */ |
|
64 | + $c = ($c + $d) & 0xffffffff; |
|
65 | + $b = self::rotate($b ^ $c, 7); |
|
66 | + return array((int) $a, (int) $b, (int) $c, (int) $d); |
|
67 | + } |
|
68 | 68 | |
69 | - /** |
|
70 | - * @internal You should not use this directly from another application |
|
71 | - * |
|
72 | - * @param ParagonIE_Sodium_Core_ChaCha20_Ctx $ctx |
|
73 | - * @param string $message |
|
74 | - * |
|
75 | - * @return string |
|
76 | - * @throws TypeError |
|
77 | - * @throws SodiumException |
|
78 | - */ |
|
79 | - public static function encryptBytes( |
|
80 | - ParagonIE_Sodium_Core_ChaCha20_Ctx $ctx, |
|
81 | - $message = '' |
|
82 | - ) { |
|
83 | - $bytes = self::strlen($message); |
|
69 | + /** |
|
70 | + * @internal You should not use this directly from another application |
|
71 | + * |
|
72 | + * @param ParagonIE_Sodium_Core_ChaCha20_Ctx $ctx |
|
73 | + * @param string $message |
|
74 | + * |
|
75 | + * @return string |
|
76 | + * @throws TypeError |
|
77 | + * @throws SodiumException |
|
78 | + */ |
|
79 | + public static function encryptBytes( |
|
80 | + ParagonIE_Sodium_Core_ChaCha20_Ctx $ctx, |
|
81 | + $message = '' |
|
82 | + ) { |
|
83 | + $bytes = self::strlen($message); |
|
84 | 84 | |
85 | - /* |
|
85 | + /* |
|
86 | 86 | j0 = ctx->input[0]; |
87 | 87 | j1 = ctx->input[1]; |
88 | 88 | j2 = ctx->input[2]; |
@@ -100,73 +100,73 @@ discard block |
||
100 | 100 | j14 = ctx->input[14]; |
101 | 101 | j15 = ctx->input[15]; |
102 | 102 | */ |
103 | - $j0 = (int) $ctx[0]; |
|
104 | - $j1 = (int) $ctx[1]; |
|
105 | - $j2 = (int) $ctx[2]; |
|
106 | - $j3 = (int) $ctx[3]; |
|
107 | - $j4 = (int) $ctx[4]; |
|
108 | - $j5 = (int) $ctx[5]; |
|
109 | - $j6 = (int) $ctx[6]; |
|
110 | - $j7 = (int) $ctx[7]; |
|
111 | - $j8 = (int) $ctx[8]; |
|
112 | - $j9 = (int) $ctx[9]; |
|
113 | - $j10 = (int) $ctx[10]; |
|
114 | - $j11 = (int) $ctx[11]; |
|
115 | - $j12 = (int) $ctx[12]; |
|
116 | - $j13 = (int) $ctx[13]; |
|
117 | - $j14 = (int) $ctx[14]; |
|
118 | - $j15 = (int) $ctx[15]; |
|
103 | + $j0 = (int) $ctx[0]; |
|
104 | + $j1 = (int) $ctx[1]; |
|
105 | + $j2 = (int) $ctx[2]; |
|
106 | + $j3 = (int) $ctx[3]; |
|
107 | + $j4 = (int) $ctx[4]; |
|
108 | + $j5 = (int) $ctx[5]; |
|
109 | + $j6 = (int) $ctx[6]; |
|
110 | + $j7 = (int) $ctx[7]; |
|
111 | + $j8 = (int) $ctx[8]; |
|
112 | + $j9 = (int) $ctx[9]; |
|
113 | + $j10 = (int) $ctx[10]; |
|
114 | + $j11 = (int) $ctx[11]; |
|
115 | + $j12 = (int) $ctx[12]; |
|
116 | + $j13 = (int) $ctx[13]; |
|
117 | + $j14 = (int) $ctx[14]; |
|
118 | + $j15 = (int) $ctx[15]; |
|
119 | 119 | |
120 | - $c = ''; |
|
121 | - for (;;) { |
|
122 | - if ($bytes < 64) { |
|
123 | - $message .= str_repeat("\x00", 64 - $bytes); |
|
124 | - } |
|
120 | + $c = ''; |
|
121 | + for (;;) { |
|
122 | + if ($bytes < 64) { |
|
123 | + $message .= str_repeat("\x00", 64 - $bytes); |
|
124 | + } |
|
125 | 125 | |
126 | - $x0 = (int) $j0; |
|
127 | - $x1 = (int) $j1; |
|
128 | - $x2 = (int) $j2; |
|
129 | - $x3 = (int) $j3; |
|
130 | - $x4 = (int) $j4; |
|
131 | - $x5 = (int) $j5; |
|
132 | - $x6 = (int) $j6; |
|
133 | - $x7 = (int) $j7; |
|
134 | - $x8 = (int) $j8; |
|
135 | - $x9 = (int) $j9; |
|
136 | - $x10 = (int) $j10; |
|
137 | - $x11 = (int) $j11; |
|
138 | - $x12 = (int) $j12; |
|
139 | - $x13 = (int) $j13; |
|
140 | - $x14 = (int) $j14; |
|
141 | - $x15 = (int) $j15; |
|
126 | + $x0 = (int) $j0; |
|
127 | + $x1 = (int) $j1; |
|
128 | + $x2 = (int) $j2; |
|
129 | + $x3 = (int) $j3; |
|
130 | + $x4 = (int) $j4; |
|
131 | + $x5 = (int) $j5; |
|
132 | + $x6 = (int) $j6; |
|
133 | + $x7 = (int) $j7; |
|
134 | + $x8 = (int) $j8; |
|
135 | + $x9 = (int) $j9; |
|
136 | + $x10 = (int) $j10; |
|
137 | + $x11 = (int) $j11; |
|
138 | + $x12 = (int) $j12; |
|
139 | + $x13 = (int) $j13; |
|
140 | + $x14 = (int) $j14; |
|
141 | + $x15 = (int) $j15; |
|
142 | 142 | |
143 | - # for (i = 20; i > 0; i -= 2) { |
|
144 | - for ($i = 20; $i > 0; $i -= 2) { |
|
145 | - # QUARTERROUND( x0, x4, x8, x12) |
|
146 | - list($x0, $x4, $x8, $x12) = self::quarterRound($x0, $x4, $x8, $x12); |
|
143 | + # for (i = 20; i > 0; i -= 2) { |
|
144 | + for ($i = 20; $i > 0; $i -= 2) { |
|
145 | + # QUARTERROUND( x0, x4, x8, x12) |
|
146 | + list($x0, $x4, $x8, $x12) = self::quarterRound($x0, $x4, $x8, $x12); |
|
147 | 147 | |
148 | - # QUARTERROUND( x1, x5, x9, x13) |
|
149 | - list($x1, $x5, $x9, $x13) = self::quarterRound($x1, $x5, $x9, $x13); |
|
148 | + # QUARTERROUND( x1, x5, x9, x13) |
|
149 | + list($x1, $x5, $x9, $x13) = self::quarterRound($x1, $x5, $x9, $x13); |
|
150 | 150 | |
151 | - # QUARTERROUND( x2, x6, x10, x14) |
|
152 | - list($x2, $x6, $x10, $x14) = self::quarterRound($x2, $x6, $x10, $x14); |
|
151 | + # QUARTERROUND( x2, x6, x10, x14) |
|
152 | + list($x2, $x6, $x10, $x14) = self::quarterRound($x2, $x6, $x10, $x14); |
|
153 | 153 | |
154 | - # QUARTERROUND( x3, x7, x11, x15) |
|
155 | - list($x3, $x7, $x11, $x15) = self::quarterRound($x3, $x7, $x11, $x15); |
|
154 | + # QUARTERROUND( x3, x7, x11, x15) |
|
155 | + list($x3, $x7, $x11, $x15) = self::quarterRound($x3, $x7, $x11, $x15); |
|
156 | 156 | |
157 | - # QUARTERROUND( x0, x5, x10, x15) |
|
158 | - list($x0, $x5, $x10, $x15) = self::quarterRound($x0, $x5, $x10, $x15); |
|
157 | + # QUARTERROUND( x0, x5, x10, x15) |
|
158 | + list($x0, $x5, $x10, $x15) = self::quarterRound($x0, $x5, $x10, $x15); |
|
159 | 159 | |
160 | - # QUARTERROUND( x1, x6, x11, x12) |
|
161 | - list($x1, $x6, $x11, $x12) = self::quarterRound($x1, $x6, $x11, $x12); |
|
160 | + # QUARTERROUND( x1, x6, x11, x12) |
|
161 | + list($x1, $x6, $x11, $x12) = self::quarterRound($x1, $x6, $x11, $x12); |
|
162 | 162 | |
163 | - # QUARTERROUND( x2, x7, x8, x13) |
|
164 | - list($x2, $x7, $x8, $x13) = self::quarterRound($x2, $x7, $x8, $x13); |
|
163 | + # QUARTERROUND( x2, x7, x8, x13) |
|
164 | + list($x2, $x7, $x8, $x13) = self::quarterRound($x2, $x7, $x8, $x13); |
|
165 | 165 | |
166 | - # QUARTERROUND( x3, x4, x9, x14) |
|
167 | - list($x3, $x4, $x9, $x14) = self::quarterRound($x3, $x4, $x9, $x14); |
|
168 | - } |
|
169 | - /* |
|
166 | + # QUARTERROUND( x3, x4, x9, x14) |
|
167 | + list($x3, $x4, $x9, $x14) = self::quarterRound($x3, $x4, $x9, $x14); |
|
168 | + } |
|
169 | + /* |
|
170 | 170 | x0 = PLUS(x0, j0); |
171 | 171 | x1 = PLUS(x1, j1); |
172 | 172 | x2 = PLUS(x2, j2); |
@@ -184,40 +184,40 @@ discard block |
||
184 | 184 | x14 = PLUS(x14, j14); |
185 | 185 | x15 = PLUS(x15, j15); |
186 | 186 | */ |
187 | - /** @var int $x0 */ |
|
188 | - $x0 = ($x0 & 0xffffffff) + $j0; |
|
189 | - /** @var int $x1 */ |
|
190 | - $x1 = ($x1 & 0xffffffff) + $j1; |
|
191 | - /** @var int $x2 */ |
|
192 | - $x2 = ($x2 & 0xffffffff) + $j2; |
|
193 | - /** @var int $x3 */ |
|
194 | - $x3 = ($x3 & 0xffffffff) + $j3; |
|
195 | - /** @var int $x4 */ |
|
196 | - $x4 = ($x4 & 0xffffffff) + $j4; |
|
197 | - /** @var int $x5 */ |
|
198 | - $x5 = ($x5 & 0xffffffff) + $j5; |
|
199 | - /** @var int $x6 */ |
|
200 | - $x6 = ($x6 & 0xffffffff) + $j6; |
|
201 | - /** @var int $x7 */ |
|
202 | - $x7 = ($x7 & 0xffffffff) + $j7; |
|
203 | - /** @var int $x8 */ |
|
204 | - $x8 = ($x8 & 0xffffffff) + $j8; |
|
205 | - /** @var int $x9 */ |
|
206 | - $x9 = ($x9 & 0xffffffff) + $j9; |
|
207 | - /** @var int $x10 */ |
|
208 | - $x10 = ($x10 & 0xffffffff) + $j10; |
|
209 | - /** @var int $x11 */ |
|
210 | - $x11 = ($x11 & 0xffffffff) + $j11; |
|
211 | - /** @var int $x12 */ |
|
212 | - $x12 = ($x12 & 0xffffffff) + $j12; |
|
213 | - /** @var int $x13 */ |
|
214 | - $x13 = ($x13 & 0xffffffff) + $j13; |
|
215 | - /** @var int $x14 */ |
|
216 | - $x14 = ($x14 & 0xffffffff) + $j14; |
|
217 | - /** @var int $x15 */ |
|
218 | - $x15 = ($x15 & 0xffffffff) + $j15; |
|
187 | + /** @var int $x0 */ |
|
188 | + $x0 = ($x0 & 0xffffffff) + $j0; |
|
189 | + /** @var int $x1 */ |
|
190 | + $x1 = ($x1 & 0xffffffff) + $j1; |
|
191 | + /** @var int $x2 */ |
|
192 | + $x2 = ($x2 & 0xffffffff) + $j2; |
|
193 | + /** @var int $x3 */ |
|
194 | + $x3 = ($x3 & 0xffffffff) + $j3; |
|
195 | + /** @var int $x4 */ |
|
196 | + $x4 = ($x4 & 0xffffffff) + $j4; |
|
197 | + /** @var int $x5 */ |
|
198 | + $x5 = ($x5 & 0xffffffff) + $j5; |
|
199 | + /** @var int $x6 */ |
|
200 | + $x6 = ($x6 & 0xffffffff) + $j6; |
|
201 | + /** @var int $x7 */ |
|
202 | + $x7 = ($x7 & 0xffffffff) + $j7; |
|
203 | + /** @var int $x8 */ |
|
204 | + $x8 = ($x8 & 0xffffffff) + $j8; |
|
205 | + /** @var int $x9 */ |
|
206 | + $x9 = ($x9 & 0xffffffff) + $j9; |
|
207 | + /** @var int $x10 */ |
|
208 | + $x10 = ($x10 & 0xffffffff) + $j10; |
|
209 | + /** @var int $x11 */ |
|
210 | + $x11 = ($x11 & 0xffffffff) + $j11; |
|
211 | + /** @var int $x12 */ |
|
212 | + $x12 = ($x12 & 0xffffffff) + $j12; |
|
213 | + /** @var int $x13 */ |
|
214 | + $x13 = ($x13 & 0xffffffff) + $j13; |
|
215 | + /** @var int $x14 */ |
|
216 | + $x14 = ($x14 & 0xffffffff) + $j14; |
|
217 | + /** @var int $x15 */ |
|
218 | + $x15 = ($x15 & 0xffffffff) + $j15; |
|
219 | 219 | |
220 | - /* |
|
220 | + /* |
|
221 | 221 | x0 = XOR(x0, LOAD32_LE(m + 0)); |
222 | 222 | x1 = XOR(x1, LOAD32_LE(m + 4)); |
223 | 223 | x2 = XOR(x2, LOAD32_LE(m + 8)); |
@@ -235,35 +235,35 @@ discard block |
||
235 | 235 | x14 = XOR(x14, LOAD32_LE(m + 56)); |
236 | 236 | x15 = XOR(x15, LOAD32_LE(m + 60)); |
237 | 237 | */ |
238 | - $x0 ^= self::load_4(self::substr($message, 0, 4)); |
|
239 | - $x1 ^= self::load_4(self::substr($message, 4, 4)); |
|
240 | - $x2 ^= self::load_4(self::substr($message, 8, 4)); |
|
241 | - $x3 ^= self::load_4(self::substr($message, 12, 4)); |
|
242 | - $x4 ^= self::load_4(self::substr($message, 16, 4)); |
|
243 | - $x5 ^= self::load_4(self::substr($message, 20, 4)); |
|
244 | - $x6 ^= self::load_4(self::substr($message, 24, 4)); |
|
245 | - $x7 ^= self::load_4(self::substr($message, 28, 4)); |
|
246 | - $x8 ^= self::load_4(self::substr($message, 32, 4)); |
|
247 | - $x9 ^= self::load_4(self::substr($message, 36, 4)); |
|
248 | - $x10 ^= self::load_4(self::substr($message, 40, 4)); |
|
249 | - $x11 ^= self::load_4(self::substr($message, 44, 4)); |
|
250 | - $x12 ^= self::load_4(self::substr($message, 48, 4)); |
|
251 | - $x13 ^= self::load_4(self::substr($message, 52, 4)); |
|
252 | - $x14 ^= self::load_4(self::substr($message, 56, 4)); |
|
253 | - $x15 ^= self::load_4(self::substr($message, 60, 4)); |
|
238 | + $x0 ^= self::load_4(self::substr($message, 0, 4)); |
|
239 | + $x1 ^= self::load_4(self::substr($message, 4, 4)); |
|
240 | + $x2 ^= self::load_4(self::substr($message, 8, 4)); |
|
241 | + $x3 ^= self::load_4(self::substr($message, 12, 4)); |
|
242 | + $x4 ^= self::load_4(self::substr($message, 16, 4)); |
|
243 | + $x5 ^= self::load_4(self::substr($message, 20, 4)); |
|
244 | + $x6 ^= self::load_4(self::substr($message, 24, 4)); |
|
245 | + $x7 ^= self::load_4(self::substr($message, 28, 4)); |
|
246 | + $x8 ^= self::load_4(self::substr($message, 32, 4)); |
|
247 | + $x9 ^= self::load_4(self::substr($message, 36, 4)); |
|
248 | + $x10 ^= self::load_4(self::substr($message, 40, 4)); |
|
249 | + $x11 ^= self::load_4(self::substr($message, 44, 4)); |
|
250 | + $x12 ^= self::load_4(self::substr($message, 48, 4)); |
|
251 | + $x13 ^= self::load_4(self::substr($message, 52, 4)); |
|
252 | + $x14 ^= self::load_4(self::substr($message, 56, 4)); |
|
253 | + $x15 ^= self::load_4(self::substr($message, 60, 4)); |
|
254 | 254 | |
255 | - /* |
|
255 | + /* |
|
256 | 256 | j12 = PLUSONE(j12); |
257 | 257 | if (!j12) { |
258 | 258 | j13 = PLUSONE(j13); |
259 | 259 | } |
260 | 260 | */ |
261 | - ++$j12; |
|
262 | - if ($j12 & 0xf0000000) { |
|
263 | - throw new SodiumException('Overflow'); |
|
264 | - } |
|
261 | + ++$j12; |
|
262 | + if ($j12 & 0xf0000000) { |
|
263 | + throw new SodiumException('Overflow'); |
|
264 | + } |
|
265 | 265 | |
266 | - /* |
|
266 | + /* |
|
267 | 267 | STORE32_LE(c + 0, x0); |
268 | 268 | STORE32_LE(c + 4, x1); |
269 | 269 | STORE32_LE(c + 8, x2); |
@@ -281,115 +281,115 @@ discard block |
||
281 | 281 | STORE32_LE(c + 56, x14); |
282 | 282 | STORE32_LE(c + 60, x15); |
283 | 283 | */ |
284 | - $block = self::store32_le((int) ($x0 & 0xffffffff)) . |
|
285 | - self::store32_le((int) ($x1 & 0xffffffff)) . |
|
286 | - self::store32_le((int) ($x2 & 0xffffffff)) . |
|
287 | - self::store32_le((int) ($x3 & 0xffffffff)) . |
|
288 | - self::store32_le((int) ($x4 & 0xffffffff)) . |
|
289 | - self::store32_le((int) ($x5 & 0xffffffff)) . |
|
290 | - self::store32_le((int) ($x6 & 0xffffffff)) . |
|
291 | - self::store32_le((int) ($x7 & 0xffffffff)) . |
|
292 | - self::store32_le((int) ($x8 & 0xffffffff)) . |
|
293 | - self::store32_le((int) ($x9 & 0xffffffff)) . |
|
294 | - self::store32_le((int) ($x10 & 0xffffffff)) . |
|
295 | - self::store32_le((int) ($x11 & 0xffffffff)) . |
|
296 | - self::store32_le((int) ($x12 & 0xffffffff)) . |
|
297 | - self::store32_le((int) ($x13 & 0xffffffff)) . |
|
298 | - self::store32_le((int) ($x14 & 0xffffffff)) . |
|
299 | - self::store32_le((int) ($x15 & 0xffffffff)); |
|
284 | + $block = self::store32_le((int) ($x0 & 0xffffffff)) . |
|
285 | + self::store32_le((int) ($x1 & 0xffffffff)) . |
|
286 | + self::store32_le((int) ($x2 & 0xffffffff)) . |
|
287 | + self::store32_le((int) ($x3 & 0xffffffff)) . |
|
288 | + self::store32_le((int) ($x4 & 0xffffffff)) . |
|
289 | + self::store32_le((int) ($x5 & 0xffffffff)) . |
|
290 | + self::store32_le((int) ($x6 & 0xffffffff)) . |
|
291 | + self::store32_le((int) ($x7 & 0xffffffff)) . |
|
292 | + self::store32_le((int) ($x8 & 0xffffffff)) . |
|
293 | + self::store32_le((int) ($x9 & 0xffffffff)) . |
|
294 | + self::store32_le((int) ($x10 & 0xffffffff)) . |
|
295 | + self::store32_le((int) ($x11 & 0xffffffff)) . |
|
296 | + self::store32_le((int) ($x12 & 0xffffffff)) . |
|
297 | + self::store32_le((int) ($x13 & 0xffffffff)) . |
|
298 | + self::store32_le((int) ($x14 & 0xffffffff)) . |
|
299 | + self::store32_le((int) ($x15 & 0xffffffff)); |
|
300 | 300 | |
301 | - /* Partial block */ |
|
302 | - if ($bytes < 64) { |
|
303 | - $c .= self::substr($block, 0, $bytes); |
|
304 | - break; |
|
305 | - } |
|
301 | + /* Partial block */ |
|
302 | + if ($bytes < 64) { |
|
303 | + $c .= self::substr($block, 0, $bytes); |
|
304 | + break; |
|
305 | + } |
|
306 | 306 | |
307 | - /* Full block */ |
|
308 | - $c .= $block; |
|
309 | - $bytes -= 64; |
|
310 | - if ($bytes <= 0) { |
|
311 | - break; |
|
312 | - } |
|
313 | - $message = self::substr($message, 64); |
|
314 | - } |
|
315 | - /* end for(;;) loop */ |
|
307 | + /* Full block */ |
|
308 | + $c .= $block; |
|
309 | + $bytes -= 64; |
|
310 | + if ($bytes <= 0) { |
|
311 | + break; |
|
312 | + } |
|
313 | + $message = self::substr($message, 64); |
|
314 | + } |
|
315 | + /* end for(;;) loop */ |
|
316 | 316 | |
317 | - $ctx[12] = $j12; |
|
318 | - $ctx[13] = $j13; |
|
319 | - return $c; |
|
320 | - } |
|
317 | + $ctx[12] = $j12; |
|
318 | + $ctx[13] = $j13; |
|
319 | + return $c; |
|
320 | + } |
|
321 | 321 | |
322 | - /** |
|
323 | - * @internal You should not use this directly from another application |
|
324 | - * |
|
325 | - * @param int $len |
|
326 | - * @param string $nonce |
|
327 | - * @param string $key |
|
328 | - * @return string |
|
329 | - * @throws SodiumException |
|
330 | - * @throws TypeError |
|
331 | - */ |
|
332 | - public static function stream($len = 64, $nonce = '', $key = '') |
|
333 | - { |
|
334 | - return self::encryptBytes( |
|
335 | - new ParagonIE_Sodium_Core_ChaCha20_Ctx($key, $nonce), |
|
336 | - str_repeat("\x00", $len) |
|
337 | - ); |
|
338 | - } |
|
322 | + /** |
|
323 | + * @internal You should not use this directly from another application |
|
324 | + * |
|
325 | + * @param int $len |
|
326 | + * @param string $nonce |
|
327 | + * @param string $key |
|
328 | + * @return string |
|
329 | + * @throws SodiumException |
|
330 | + * @throws TypeError |
|
331 | + */ |
|
332 | + public static function stream($len = 64, $nonce = '', $key = '') |
|
333 | + { |
|
334 | + return self::encryptBytes( |
|
335 | + new ParagonIE_Sodium_Core_ChaCha20_Ctx($key, $nonce), |
|
336 | + str_repeat("\x00", $len) |
|
337 | + ); |
|
338 | + } |
|
339 | 339 | |
340 | - /** |
|
341 | - * @internal You should not use this directly from another application |
|
342 | - * |
|
343 | - * @param int $len |
|
344 | - * @param string $nonce |
|
345 | - * @param string $key |
|
346 | - * @return string |
|
347 | - * @throws SodiumException |
|
348 | - * @throws TypeError |
|
349 | - */ |
|
350 | - public static function ietfStream($len, $nonce = '', $key = '') |
|
351 | - { |
|
352 | - return self::encryptBytes( |
|
353 | - new ParagonIE_Sodium_Core_ChaCha20_IetfCtx($key, $nonce), |
|
354 | - str_repeat("\x00", $len) |
|
355 | - ); |
|
356 | - } |
|
340 | + /** |
|
341 | + * @internal You should not use this directly from another application |
|
342 | + * |
|
343 | + * @param int $len |
|
344 | + * @param string $nonce |
|
345 | + * @param string $key |
|
346 | + * @return string |
|
347 | + * @throws SodiumException |
|
348 | + * @throws TypeError |
|
349 | + */ |
|
350 | + public static function ietfStream($len, $nonce = '', $key = '') |
|
351 | + { |
|
352 | + return self::encryptBytes( |
|
353 | + new ParagonIE_Sodium_Core_ChaCha20_IetfCtx($key, $nonce), |
|
354 | + str_repeat("\x00", $len) |
|
355 | + ); |
|
356 | + } |
|
357 | 357 | |
358 | - /** |
|
359 | - * @internal You should not use this directly from another application |
|
360 | - * |
|
361 | - * @param string $message |
|
362 | - * @param string $nonce |
|
363 | - * @param string $key |
|
364 | - * @param string $ic |
|
365 | - * @return string |
|
366 | - * @throws SodiumException |
|
367 | - * @throws TypeError |
|
368 | - */ |
|
369 | - public static function ietfStreamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
370 | - { |
|
371 | - return self::encryptBytes( |
|
372 | - new ParagonIE_Sodium_Core_ChaCha20_IetfCtx($key, $nonce, $ic), |
|
373 | - $message |
|
374 | - ); |
|
375 | - } |
|
358 | + /** |
|
359 | + * @internal You should not use this directly from another application |
|
360 | + * |
|
361 | + * @param string $message |
|
362 | + * @param string $nonce |
|
363 | + * @param string $key |
|
364 | + * @param string $ic |
|
365 | + * @return string |
|
366 | + * @throws SodiumException |
|
367 | + * @throws TypeError |
|
368 | + */ |
|
369 | + public static function ietfStreamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
370 | + { |
|
371 | + return self::encryptBytes( |
|
372 | + new ParagonIE_Sodium_Core_ChaCha20_IetfCtx($key, $nonce, $ic), |
|
373 | + $message |
|
374 | + ); |
|
375 | + } |
|
376 | 376 | |
377 | - /** |
|
378 | - * @internal You should not use this directly from another application |
|
379 | - * |
|
380 | - * @param string $message |
|
381 | - * @param string $nonce |
|
382 | - * @param string $key |
|
383 | - * @param string $ic |
|
384 | - * @return string |
|
385 | - * @throws SodiumException |
|
386 | - * @throws TypeError |
|
387 | - */ |
|
388 | - public static function streamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
389 | - { |
|
390 | - return self::encryptBytes( |
|
391 | - new ParagonIE_Sodium_Core_ChaCha20_Ctx($key, $nonce, $ic), |
|
392 | - $message |
|
393 | - ); |
|
394 | - } |
|
377 | + /** |
|
378 | + * @internal You should not use this directly from another application |
|
379 | + * |
|
380 | + * @param string $message |
|
381 | + * @param string $nonce |
|
382 | + * @param string $key |
|
383 | + * @param string $ic |
|
384 | + * @return string |
|
385 | + * @throws SodiumException |
|
386 | + * @throws TypeError |
|
387 | + */ |
|
388 | + public static function streamXorIc($message, $nonce = '', $key = '', $ic = '') |
|
389 | + { |
|
390 | + return self::encryptBytes( |
|
391 | + new ParagonIE_Sodium_Core_ChaCha20_Ctx($key, $nonce, $ic), |
|
392 | + $message |
|
393 | + ); |
|
394 | + } |
|
395 | 395 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_HChaCha20', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,100 +9,100 @@ discard block |
||
9 | 9 | */ |
10 | 10 | class ParagonIE_Sodium_Core_HChaCha20 extends ParagonIE_Sodium_Core_ChaCha20 |
11 | 11 | { |
12 | - /** |
|
13 | - * @param string $in |
|
14 | - * @param string $key |
|
15 | - * @param string|null $c |
|
16 | - * @return string |
|
17 | - * @throws TypeError |
|
18 | - */ |
|
19 | - public static function hChaCha20($in = '', $key = '', $c = null) |
|
20 | - { |
|
21 | - $ctx = array(); |
|
12 | + /** |
|
13 | + * @param string $in |
|
14 | + * @param string $key |
|
15 | + * @param string|null $c |
|
16 | + * @return string |
|
17 | + * @throws TypeError |
|
18 | + */ |
|
19 | + public static function hChaCha20($in = '', $key = '', $c = null) |
|
20 | + { |
|
21 | + $ctx = array(); |
|
22 | 22 | |
23 | - if ($c === null) { |
|
24 | - $ctx[0] = 0x61707865; |
|
25 | - $ctx[1] = 0x3320646e; |
|
26 | - $ctx[2] = 0x79622d32; |
|
27 | - $ctx[3] = 0x6b206574; |
|
28 | - } else { |
|
29 | - $ctx[0] = self::load_4(self::substr($c, 0, 4)); |
|
30 | - $ctx[1] = self::load_4(self::substr($c, 4, 4)); |
|
31 | - $ctx[2] = self::load_4(self::substr($c, 8, 4)); |
|
32 | - $ctx[3] = self::load_4(self::substr($c, 12, 4)); |
|
33 | - } |
|
34 | - $ctx[4] = self::load_4(self::substr($key, 0, 4)); |
|
35 | - $ctx[5] = self::load_4(self::substr($key, 4, 4)); |
|
36 | - $ctx[6] = self::load_4(self::substr($key, 8, 4)); |
|
37 | - $ctx[7] = self::load_4(self::substr($key, 12, 4)); |
|
38 | - $ctx[8] = self::load_4(self::substr($key, 16, 4)); |
|
39 | - $ctx[9] = self::load_4(self::substr($key, 20, 4)); |
|
40 | - $ctx[10] = self::load_4(self::substr($key, 24, 4)); |
|
41 | - $ctx[11] = self::load_4(self::substr($key, 28, 4)); |
|
42 | - $ctx[12] = self::load_4(self::substr($in, 0, 4)); |
|
43 | - $ctx[13] = self::load_4(self::substr($in, 4, 4)); |
|
44 | - $ctx[14] = self::load_4(self::substr($in, 8, 4)); |
|
45 | - $ctx[15] = self::load_4(self::substr($in, 12, 4)); |
|
46 | - return self::hChaCha20Bytes($ctx); |
|
47 | - } |
|
23 | + if ($c === null) { |
|
24 | + $ctx[0] = 0x61707865; |
|
25 | + $ctx[1] = 0x3320646e; |
|
26 | + $ctx[2] = 0x79622d32; |
|
27 | + $ctx[3] = 0x6b206574; |
|
28 | + } else { |
|
29 | + $ctx[0] = self::load_4(self::substr($c, 0, 4)); |
|
30 | + $ctx[1] = self::load_4(self::substr($c, 4, 4)); |
|
31 | + $ctx[2] = self::load_4(self::substr($c, 8, 4)); |
|
32 | + $ctx[3] = self::load_4(self::substr($c, 12, 4)); |
|
33 | + } |
|
34 | + $ctx[4] = self::load_4(self::substr($key, 0, 4)); |
|
35 | + $ctx[5] = self::load_4(self::substr($key, 4, 4)); |
|
36 | + $ctx[6] = self::load_4(self::substr($key, 8, 4)); |
|
37 | + $ctx[7] = self::load_4(self::substr($key, 12, 4)); |
|
38 | + $ctx[8] = self::load_4(self::substr($key, 16, 4)); |
|
39 | + $ctx[9] = self::load_4(self::substr($key, 20, 4)); |
|
40 | + $ctx[10] = self::load_4(self::substr($key, 24, 4)); |
|
41 | + $ctx[11] = self::load_4(self::substr($key, 28, 4)); |
|
42 | + $ctx[12] = self::load_4(self::substr($in, 0, 4)); |
|
43 | + $ctx[13] = self::load_4(self::substr($in, 4, 4)); |
|
44 | + $ctx[14] = self::load_4(self::substr($in, 8, 4)); |
|
45 | + $ctx[15] = self::load_4(self::substr($in, 12, 4)); |
|
46 | + return self::hChaCha20Bytes($ctx); |
|
47 | + } |
|
48 | 48 | |
49 | - /** |
|
50 | - * @param array $ctx |
|
51 | - * @return string |
|
52 | - * @throws TypeError |
|
53 | - */ |
|
54 | - protected static function hChaCha20Bytes(array $ctx) |
|
55 | - { |
|
56 | - $x0 = (int) $ctx[0]; |
|
57 | - $x1 = (int) $ctx[1]; |
|
58 | - $x2 = (int) $ctx[2]; |
|
59 | - $x3 = (int) $ctx[3]; |
|
60 | - $x4 = (int) $ctx[4]; |
|
61 | - $x5 = (int) $ctx[5]; |
|
62 | - $x6 = (int) $ctx[6]; |
|
63 | - $x7 = (int) $ctx[7]; |
|
64 | - $x8 = (int) $ctx[8]; |
|
65 | - $x9 = (int) $ctx[9]; |
|
66 | - $x10 = (int) $ctx[10]; |
|
67 | - $x11 = (int) $ctx[11]; |
|
68 | - $x12 = (int) $ctx[12]; |
|
69 | - $x13 = (int) $ctx[13]; |
|
70 | - $x14 = (int) $ctx[14]; |
|
71 | - $x15 = (int) $ctx[15]; |
|
49 | + /** |
|
50 | + * @param array $ctx |
|
51 | + * @return string |
|
52 | + * @throws TypeError |
|
53 | + */ |
|
54 | + protected static function hChaCha20Bytes(array $ctx) |
|
55 | + { |
|
56 | + $x0 = (int) $ctx[0]; |
|
57 | + $x1 = (int) $ctx[1]; |
|
58 | + $x2 = (int) $ctx[2]; |
|
59 | + $x3 = (int) $ctx[3]; |
|
60 | + $x4 = (int) $ctx[4]; |
|
61 | + $x5 = (int) $ctx[5]; |
|
62 | + $x6 = (int) $ctx[6]; |
|
63 | + $x7 = (int) $ctx[7]; |
|
64 | + $x8 = (int) $ctx[8]; |
|
65 | + $x9 = (int) $ctx[9]; |
|
66 | + $x10 = (int) $ctx[10]; |
|
67 | + $x11 = (int) $ctx[11]; |
|
68 | + $x12 = (int) $ctx[12]; |
|
69 | + $x13 = (int) $ctx[13]; |
|
70 | + $x14 = (int) $ctx[14]; |
|
71 | + $x15 = (int) $ctx[15]; |
|
72 | 72 | |
73 | - for ($i = 0; $i < 10; ++$i) { |
|
74 | - # QUARTERROUND( x0, x4, x8, x12) |
|
75 | - list($x0, $x4, $x8, $x12) = self::quarterRound($x0, $x4, $x8, $x12); |
|
73 | + for ($i = 0; $i < 10; ++$i) { |
|
74 | + # QUARTERROUND( x0, x4, x8, x12) |
|
75 | + list($x0, $x4, $x8, $x12) = self::quarterRound($x0, $x4, $x8, $x12); |
|
76 | 76 | |
77 | - # QUARTERROUND( x1, x5, x9, x13) |
|
78 | - list($x1, $x5, $x9, $x13) = self::quarterRound($x1, $x5, $x9, $x13); |
|
77 | + # QUARTERROUND( x1, x5, x9, x13) |
|
78 | + list($x1, $x5, $x9, $x13) = self::quarterRound($x1, $x5, $x9, $x13); |
|
79 | 79 | |
80 | - # QUARTERROUND( x2, x6, x10, x14) |
|
81 | - list($x2, $x6, $x10, $x14) = self::quarterRound($x2, $x6, $x10, $x14); |
|
80 | + # QUARTERROUND( x2, x6, x10, x14) |
|
81 | + list($x2, $x6, $x10, $x14) = self::quarterRound($x2, $x6, $x10, $x14); |
|
82 | 82 | |
83 | - # QUARTERROUND( x3, x7, x11, x15) |
|
84 | - list($x3, $x7, $x11, $x15) = self::quarterRound($x3, $x7, $x11, $x15); |
|
83 | + # QUARTERROUND( x3, x7, x11, x15) |
|
84 | + list($x3, $x7, $x11, $x15) = self::quarterRound($x3, $x7, $x11, $x15); |
|
85 | 85 | |
86 | - # QUARTERROUND( x0, x5, x10, x15) |
|
87 | - list($x0, $x5, $x10, $x15) = self::quarterRound($x0, $x5, $x10, $x15); |
|
86 | + # QUARTERROUND( x0, x5, x10, x15) |
|
87 | + list($x0, $x5, $x10, $x15) = self::quarterRound($x0, $x5, $x10, $x15); |
|
88 | 88 | |
89 | - # QUARTERROUND( x1, x6, x11, x12) |
|
90 | - list($x1, $x6, $x11, $x12) = self::quarterRound($x1, $x6, $x11, $x12); |
|
89 | + # QUARTERROUND( x1, x6, x11, x12) |
|
90 | + list($x1, $x6, $x11, $x12) = self::quarterRound($x1, $x6, $x11, $x12); |
|
91 | 91 | |
92 | - # QUARTERROUND( x2, x7, x8, x13) |
|
93 | - list($x2, $x7, $x8, $x13) = self::quarterRound($x2, $x7, $x8, $x13); |
|
92 | + # QUARTERROUND( x2, x7, x8, x13) |
|
93 | + list($x2, $x7, $x8, $x13) = self::quarterRound($x2, $x7, $x8, $x13); |
|
94 | 94 | |
95 | - # QUARTERROUND( x3, x4, x9, x14) |
|
96 | - list($x3, $x4, $x9, $x14) = self::quarterRound($x3, $x4, $x9, $x14); |
|
97 | - } |
|
95 | + # QUARTERROUND( x3, x4, x9, x14) |
|
96 | + list($x3, $x4, $x9, $x14) = self::quarterRound($x3, $x4, $x9, $x14); |
|
97 | + } |
|
98 | 98 | |
99 | - return self::store32_le((int) ($x0 & 0xffffffff)) . |
|
100 | - self::store32_le((int) ($x1 & 0xffffffff)) . |
|
101 | - self::store32_le((int) ($x2 & 0xffffffff)) . |
|
102 | - self::store32_le((int) ($x3 & 0xffffffff)) . |
|
103 | - self::store32_le((int) ($x12 & 0xffffffff)) . |
|
104 | - self::store32_le((int) ($x13 & 0xffffffff)) . |
|
105 | - self::store32_le((int) ($x14 & 0xffffffff)) . |
|
106 | - self::store32_le((int) ($x15 & 0xffffffff)); |
|
107 | - } |
|
99 | + return self::store32_le((int) ($x0 & 0xffffffff)) . |
|
100 | + self::store32_le((int) ($x1 & 0xffffffff)) . |
|
101 | + self::store32_le((int) ($x2 & 0xffffffff)) . |
|
102 | + self::store32_le((int) ($x3 & 0xffffffff)) . |
|
103 | + self::store32_le((int) ($x12 & 0xffffffff)) . |
|
104 | + self::store32_le((int) ($x13 & 0xffffffff)) . |
|
105 | + self::store32_le((int) ($x14 & 0xffffffff)) . |
|
106 | + self::store32_le((int) ($x15 & 0xffffffff)); |
|
107 | + } |
|
108 | 108 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_HSalsa20', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,88 +9,88 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_HSalsa20 extends ParagonIE_Sodium_Core_Salsa20 |
11 | 11 | { |
12 | - /** |
|
13 | - * Calculate an hsalsa20 hash of a single block |
|
14 | - * |
|
15 | - * HSalsa20 doesn't have a counter and will never be used for more than |
|
16 | - * one block (used to derive a subkey for xsalsa20). |
|
17 | - * |
|
18 | - * @internal You should not use this directly from another application |
|
19 | - * |
|
20 | - * @param string $in |
|
21 | - * @param string $k |
|
22 | - * @param string|null $c |
|
23 | - * @return string |
|
24 | - * @throws TypeError |
|
25 | - */ |
|
26 | - public static function hsalsa20($in, $k, $c = null) |
|
27 | - { |
|
28 | - if ($c === null) { |
|
29 | - $x0 = 0x61707865; |
|
30 | - $x5 = 0x3320646e; |
|
31 | - $x10 = 0x79622d32; |
|
32 | - $x15 = 0x6b206574; |
|
33 | - } else { |
|
34 | - $x0 = self::load_4(self::substr($c, 0, 4)); |
|
35 | - $x5 = self::load_4(self::substr($c, 4, 4)); |
|
36 | - $x10 = self::load_4(self::substr($c, 8, 4)); |
|
37 | - $x15 = self::load_4(self::substr($c, 12, 4)); |
|
38 | - } |
|
39 | - $x1 = self::load_4(self::substr($k, 0, 4)); |
|
40 | - $x2 = self::load_4(self::substr($k, 4, 4)); |
|
41 | - $x3 = self::load_4(self::substr($k, 8, 4)); |
|
42 | - $x4 = self::load_4(self::substr($k, 12, 4)); |
|
43 | - $x11 = self::load_4(self::substr($k, 16, 4)); |
|
44 | - $x12 = self::load_4(self::substr($k, 20, 4)); |
|
45 | - $x13 = self::load_4(self::substr($k, 24, 4)); |
|
46 | - $x14 = self::load_4(self::substr($k, 28, 4)); |
|
47 | - $x6 = self::load_4(self::substr($in, 0, 4)); |
|
48 | - $x7 = self::load_4(self::substr($in, 4, 4)); |
|
49 | - $x8 = self::load_4(self::substr($in, 8, 4)); |
|
50 | - $x9 = self::load_4(self::substr($in, 12, 4)); |
|
12 | + /** |
|
13 | + * Calculate an hsalsa20 hash of a single block |
|
14 | + * |
|
15 | + * HSalsa20 doesn't have a counter and will never be used for more than |
|
16 | + * one block (used to derive a subkey for xsalsa20). |
|
17 | + * |
|
18 | + * @internal You should not use this directly from another application |
|
19 | + * |
|
20 | + * @param string $in |
|
21 | + * @param string $k |
|
22 | + * @param string|null $c |
|
23 | + * @return string |
|
24 | + * @throws TypeError |
|
25 | + */ |
|
26 | + public static function hsalsa20($in, $k, $c = null) |
|
27 | + { |
|
28 | + if ($c === null) { |
|
29 | + $x0 = 0x61707865; |
|
30 | + $x5 = 0x3320646e; |
|
31 | + $x10 = 0x79622d32; |
|
32 | + $x15 = 0x6b206574; |
|
33 | + } else { |
|
34 | + $x0 = self::load_4(self::substr($c, 0, 4)); |
|
35 | + $x5 = self::load_4(self::substr($c, 4, 4)); |
|
36 | + $x10 = self::load_4(self::substr($c, 8, 4)); |
|
37 | + $x15 = self::load_4(self::substr($c, 12, 4)); |
|
38 | + } |
|
39 | + $x1 = self::load_4(self::substr($k, 0, 4)); |
|
40 | + $x2 = self::load_4(self::substr($k, 4, 4)); |
|
41 | + $x3 = self::load_4(self::substr($k, 8, 4)); |
|
42 | + $x4 = self::load_4(self::substr($k, 12, 4)); |
|
43 | + $x11 = self::load_4(self::substr($k, 16, 4)); |
|
44 | + $x12 = self::load_4(self::substr($k, 20, 4)); |
|
45 | + $x13 = self::load_4(self::substr($k, 24, 4)); |
|
46 | + $x14 = self::load_4(self::substr($k, 28, 4)); |
|
47 | + $x6 = self::load_4(self::substr($in, 0, 4)); |
|
48 | + $x7 = self::load_4(self::substr($in, 4, 4)); |
|
49 | + $x8 = self::load_4(self::substr($in, 8, 4)); |
|
50 | + $x9 = self::load_4(self::substr($in, 12, 4)); |
|
51 | 51 | |
52 | - for ($i = self::ROUNDS; $i > 0; $i -= 2) { |
|
53 | - $x4 ^= self::rotate($x0 + $x12, 7); |
|
54 | - $x8 ^= self::rotate($x4 + $x0, 9); |
|
55 | - $x12 ^= self::rotate($x8 + $x4, 13); |
|
56 | - $x0 ^= self::rotate($x12 + $x8, 18); |
|
57 | - $x9 ^= self::rotate($x5 + $x1, 7); |
|
58 | - $x13 ^= self::rotate($x9 + $x5, 9); |
|
59 | - $x1 ^= self::rotate($x13 + $x9, 13); |
|
60 | - $x5 ^= self::rotate($x1 + $x13, 18); |
|
61 | - $x14 ^= self::rotate($x10 + $x6, 7); |
|
62 | - $x2 ^= self::rotate($x14 + $x10, 9); |
|
63 | - $x6 ^= self::rotate($x2 + $x14, 13); |
|
64 | - $x10 ^= self::rotate($x6 + $x2, 18); |
|
65 | - $x3 ^= self::rotate($x15 + $x11, 7); |
|
66 | - $x7 ^= self::rotate($x3 + $x15, 9); |
|
67 | - $x11 ^= self::rotate($x7 + $x3, 13); |
|
68 | - $x15 ^= self::rotate($x11 + $x7, 18); |
|
69 | - $x1 ^= self::rotate($x0 + $x3, 7); |
|
70 | - $x2 ^= self::rotate($x1 + $x0, 9); |
|
71 | - $x3 ^= self::rotate($x2 + $x1, 13); |
|
72 | - $x0 ^= self::rotate($x3 + $x2, 18); |
|
73 | - $x6 ^= self::rotate($x5 + $x4, 7); |
|
74 | - $x7 ^= self::rotate($x6 + $x5, 9); |
|
75 | - $x4 ^= self::rotate($x7 + $x6, 13); |
|
76 | - $x5 ^= self::rotate($x4 + $x7, 18); |
|
77 | - $x11 ^= self::rotate($x10 + $x9, 7); |
|
78 | - $x8 ^= self::rotate($x11 + $x10, 9); |
|
79 | - $x9 ^= self::rotate($x8 + $x11, 13); |
|
80 | - $x10 ^= self::rotate($x9 + $x8, 18); |
|
81 | - $x12 ^= self::rotate($x15 + $x14, 7); |
|
82 | - $x13 ^= self::rotate($x12 + $x15, 9); |
|
83 | - $x14 ^= self::rotate($x13 + $x12, 13); |
|
84 | - $x15 ^= self::rotate($x14 + $x13, 18); |
|
85 | - } |
|
52 | + for ($i = self::ROUNDS; $i > 0; $i -= 2) { |
|
53 | + $x4 ^= self::rotate($x0 + $x12, 7); |
|
54 | + $x8 ^= self::rotate($x4 + $x0, 9); |
|
55 | + $x12 ^= self::rotate($x8 + $x4, 13); |
|
56 | + $x0 ^= self::rotate($x12 + $x8, 18); |
|
57 | + $x9 ^= self::rotate($x5 + $x1, 7); |
|
58 | + $x13 ^= self::rotate($x9 + $x5, 9); |
|
59 | + $x1 ^= self::rotate($x13 + $x9, 13); |
|
60 | + $x5 ^= self::rotate($x1 + $x13, 18); |
|
61 | + $x14 ^= self::rotate($x10 + $x6, 7); |
|
62 | + $x2 ^= self::rotate($x14 + $x10, 9); |
|
63 | + $x6 ^= self::rotate($x2 + $x14, 13); |
|
64 | + $x10 ^= self::rotate($x6 + $x2, 18); |
|
65 | + $x3 ^= self::rotate($x15 + $x11, 7); |
|
66 | + $x7 ^= self::rotate($x3 + $x15, 9); |
|
67 | + $x11 ^= self::rotate($x7 + $x3, 13); |
|
68 | + $x15 ^= self::rotate($x11 + $x7, 18); |
|
69 | + $x1 ^= self::rotate($x0 + $x3, 7); |
|
70 | + $x2 ^= self::rotate($x1 + $x0, 9); |
|
71 | + $x3 ^= self::rotate($x2 + $x1, 13); |
|
72 | + $x0 ^= self::rotate($x3 + $x2, 18); |
|
73 | + $x6 ^= self::rotate($x5 + $x4, 7); |
|
74 | + $x7 ^= self::rotate($x6 + $x5, 9); |
|
75 | + $x4 ^= self::rotate($x7 + $x6, 13); |
|
76 | + $x5 ^= self::rotate($x4 + $x7, 18); |
|
77 | + $x11 ^= self::rotate($x10 + $x9, 7); |
|
78 | + $x8 ^= self::rotate($x11 + $x10, 9); |
|
79 | + $x9 ^= self::rotate($x8 + $x11, 13); |
|
80 | + $x10 ^= self::rotate($x9 + $x8, 18); |
|
81 | + $x12 ^= self::rotate($x15 + $x14, 7); |
|
82 | + $x13 ^= self::rotate($x12 + $x15, 9); |
|
83 | + $x14 ^= self::rotate($x13 + $x12, 13); |
|
84 | + $x15 ^= self::rotate($x14 + $x13, 18); |
|
85 | + } |
|
86 | 86 | |
87 | - return self::store32_le($x0) . |
|
88 | - self::store32_le($x5) . |
|
89 | - self::store32_le($x10) . |
|
90 | - self::store32_le($x15) . |
|
91 | - self::store32_le($x6) . |
|
92 | - self::store32_le($x7) . |
|
93 | - self::store32_le($x8) . |
|
94 | - self::store32_le($x9); |
|
95 | - } |
|
87 | + return self::store32_le($x0) . |
|
88 | + self::store32_le($x5) . |
|
89 | + self::store32_le($x10) . |
|
90 | + self::store32_le($x15) . |
|
91 | + self::store32_le($x6) . |
|
92 | + self::store32_le($x7) . |
|
93 | + self::store32_le($x8) . |
|
94 | + self::store32_le($x9); |
|
95 | + } |
|
96 | 96 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_Poly1305_State', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,437 +9,437 @@ discard block |
||
9 | 9 | */ |
10 | 10 | class ParagonIE_Sodium_Core_Poly1305_State extends ParagonIE_Sodium_Core_Util |
11 | 11 | { |
12 | - /** |
|
13 | - * @var array<int, int> |
|
14 | - */ |
|
15 | - protected $buffer = array(); |
|
16 | - |
|
17 | - /** |
|
18 | - * @var bool |
|
19 | - */ |
|
20 | - protected $final = false; |
|
21 | - |
|
22 | - /** |
|
23 | - * @var array<int, int> |
|
24 | - */ |
|
25 | - public $h; |
|
26 | - |
|
27 | - /** |
|
28 | - * @var int |
|
29 | - */ |
|
30 | - protected $leftover = 0; |
|
31 | - |
|
32 | - /** |
|
33 | - * @var int[] |
|
34 | - */ |
|
35 | - public $r; |
|
36 | - |
|
37 | - /** |
|
38 | - * @var int[] |
|
39 | - */ |
|
40 | - public $pad; |
|
41 | - |
|
42 | - /** |
|
43 | - * ParagonIE_Sodium_Core_Poly1305_State constructor. |
|
44 | - * |
|
45 | - * @internal You should not use this directly from another application |
|
46 | - * |
|
47 | - * @param string $key |
|
48 | - * @throws InvalidArgumentException |
|
49 | - * @throws TypeError |
|
50 | - */ |
|
51 | - public function __construct($key = '') |
|
52 | - { |
|
53 | - if (self::strlen($key) < 32) { |
|
54 | - throw new InvalidArgumentException( |
|
55 | - 'Poly1305 requires a 32-byte key' |
|
56 | - ); |
|
57 | - } |
|
58 | - /* r &= 0xffffffc0ffffffc0ffffffc0fffffff */ |
|
59 | - $this->r = array( |
|
60 | - (int) ((self::load_4(self::substr($key, 0, 4))) & 0x3ffffff), |
|
61 | - (int) ((self::load_4(self::substr($key, 3, 4)) >> 2) & 0x3ffff03), |
|
62 | - (int) ((self::load_4(self::substr($key, 6, 4)) >> 4) & 0x3ffc0ff), |
|
63 | - (int) ((self::load_4(self::substr($key, 9, 4)) >> 6) & 0x3f03fff), |
|
64 | - (int) ((self::load_4(self::substr($key, 12, 4)) >> 8) & 0x00fffff) |
|
65 | - ); |
|
66 | - |
|
67 | - /* h = 0 */ |
|
68 | - $this->h = array(0, 0, 0, 0, 0); |
|
69 | - |
|
70 | - /* save pad for later */ |
|
71 | - $this->pad = array( |
|
72 | - self::load_4(self::substr($key, 16, 4)), |
|
73 | - self::load_4(self::substr($key, 20, 4)), |
|
74 | - self::load_4(self::substr($key, 24, 4)), |
|
75 | - self::load_4(self::substr($key, 28, 4)), |
|
76 | - ); |
|
77 | - |
|
78 | - $this->leftover = 0; |
|
79 | - $this->final = false; |
|
80 | - } |
|
81 | - |
|
82 | - /** |
|
83 | - * Zero internal buffer upon destruction |
|
84 | - */ |
|
85 | - public function __destruct() |
|
86 | - { |
|
87 | - $this->r[0] ^= $this->r[0]; |
|
88 | - $this->r[1] ^= $this->r[1]; |
|
89 | - $this->r[2] ^= $this->r[2]; |
|
90 | - $this->r[3] ^= $this->r[3]; |
|
91 | - $this->r[4] ^= $this->r[4]; |
|
92 | - $this->h[0] ^= $this->h[0]; |
|
93 | - $this->h[1] ^= $this->h[1]; |
|
94 | - $this->h[2] ^= $this->h[2]; |
|
95 | - $this->h[3] ^= $this->h[3]; |
|
96 | - $this->h[4] ^= $this->h[4]; |
|
97 | - $this->pad[0] ^= $this->pad[0]; |
|
98 | - $this->pad[1] ^= $this->pad[1]; |
|
99 | - $this->pad[2] ^= $this->pad[2]; |
|
100 | - $this->pad[3] ^= $this->pad[3]; |
|
101 | - $this->leftover = 0; |
|
102 | - $this->final = true; |
|
103 | - } |
|
104 | - |
|
105 | - /** |
|
106 | - * @internal You should not use this directly from another application |
|
107 | - * |
|
108 | - * @param string $message |
|
109 | - * @return self |
|
110 | - * @throws SodiumException |
|
111 | - * @throws TypeError |
|
112 | - */ |
|
113 | - public function update($message = '') |
|
114 | - { |
|
115 | - $bytes = self::strlen($message); |
|
116 | - if ($bytes < 1) { |
|
117 | - return $this; |
|
118 | - } |
|
119 | - |
|
120 | - /* handle leftover */ |
|
121 | - if ($this->leftover) { |
|
122 | - $want = ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE - $this->leftover; |
|
123 | - if ($want > $bytes) { |
|
124 | - $want = $bytes; |
|
125 | - } |
|
126 | - for ($i = 0; $i < $want; ++$i) { |
|
127 | - $mi = self::chrToInt($message[$i]); |
|
128 | - $this->buffer[$this->leftover + $i] = $mi; |
|
129 | - } |
|
130 | - // We snip off the leftmost bytes. |
|
131 | - $message = self::substr($message, $want); |
|
132 | - $bytes = self::strlen($message); |
|
133 | - $this->leftover += $want; |
|
134 | - if ($this->leftover < ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
135 | - // We still don't have enough to run $this->blocks() |
|
136 | - return $this; |
|
137 | - } |
|
138 | - |
|
139 | - $this->blocks( |
|
140 | - self::intArrayToString($this->buffer), |
|
141 | - ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
142 | - ); |
|
143 | - $this->leftover = 0; |
|
144 | - } |
|
145 | - |
|
146 | - /* process full blocks */ |
|
147 | - if ($bytes >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
148 | - /** @var int $want */ |
|
149 | - $want = $bytes & ~(ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE - 1); |
|
150 | - if ($want >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
151 | - $block = self::substr($message, 0, $want); |
|
152 | - if (self::strlen($block) >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
153 | - $this->blocks($block, $want); |
|
154 | - $message = self::substr($message, $want); |
|
155 | - $bytes = self::strlen($message); |
|
156 | - } |
|
157 | - } |
|
158 | - } |
|
159 | - |
|
160 | - /* store leftover */ |
|
161 | - if ($bytes) { |
|
162 | - for ($i = 0; $i < $bytes; ++$i) { |
|
163 | - $mi = self::chrToInt($message[$i]); |
|
164 | - $this->buffer[$this->leftover + $i] = $mi; |
|
165 | - } |
|
166 | - $this->leftover = (int) $this->leftover + $bytes; |
|
167 | - } |
|
168 | - return $this; |
|
169 | - } |
|
170 | - |
|
171 | - /** |
|
172 | - * @internal You should not use this directly from another application |
|
173 | - * |
|
174 | - * @param string $message |
|
175 | - * @param int $bytes |
|
176 | - * @return self |
|
177 | - * @throws TypeError |
|
178 | - */ |
|
179 | - public function blocks($message, $bytes) |
|
180 | - { |
|
181 | - if (self::strlen($message) < 16) { |
|
182 | - $message = str_pad($message, 16, "\x00", STR_PAD_RIGHT); |
|
183 | - } |
|
184 | - /** @var int $hibit */ |
|
185 | - $hibit = $this->final ? 0 : 1 << 24; /* 1 << 128 */ |
|
186 | - $r0 = (int) $this->r[0]; |
|
187 | - $r1 = (int) $this->r[1]; |
|
188 | - $r2 = (int) $this->r[2]; |
|
189 | - $r3 = (int) $this->r[3]; |
|
190 | - $r4 = (int) $this->r[4]; |
|
191 | - |
|
192 | - $s1 = self::mul($r1, 5, 3); |
|
193 | - $s2 = self::mul($r2, 5, 3); |
|
194 | - $s3 = self::mul($r3, 5, 3); |
|
195 | - $s4 = self::mul($r4, 5, 3); |
|
196 | - |
|
197 | - $h0 = $this->h[0]; |
|
198 | - $h1 = $this->h[1]; |
|
199 | - $h2 = $this->h[2]; |
|
200 | - $h3 = $this->h[3]; |
|
201 | - $h4 = $this->h[4]; |
|
202 | - |
|
203 | - while ($bytes >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
204 | - /* h += m[i] */ |
|
205 | - $h0 += self::load_4(self::substr($message, 0, 4)) & 0x3ffffff; |
|
206 | - $h1 += (self::load_4(self::substr($message, 3, 4)) >> 2) & 0x3ffffff; |
|
207 | - $h2 += (self::load_4(self::substr($message, 6, 4)) >> 4) & 0x3ffffff; |
|
208 | - $h3 += (self::load_4(self::substr($message, 9, 4)) >> 6) & 0x3ffffff; |
|
209 | - $h4 += (self::load_4(self::substr($message, 12, 4)) >> 8) | $hibit; |
|
210 | - |
|
211 | - /* h *= r */ |
|
212 | - $d0 = ( |
|
213 | - self::mul($h0, $r0, 25) + |
|
214 | - self::mul($s4, $h1, 26) + |
|
215 | - self::mul($s3, $h2, 26) + |
|
216 | - self::mul($s2, $h3, 26) + |
|
217 | - self::mul($s1, $h4, 26) |
|
218 | - ); |
|
219 | - |
|
220 | - $d1 = ( |
|
221 | - self::mul($h0, $r1, 25) + |
|
222 | - self::mul($h1, $r0, 25) + |
|
223 | - self::mul($s4, $h2, 26) + |
|
224 | - self::mul($s3, $h3, 26) + |
|
225 | - self::mul($s2, $h4, 26) |
|
226 | - ); |
|
227 | - |
|
228 | - $d2 = ( |
|
229 | - self::mul($h0, $r2, 25) + |
|
230 | - self::mul($h1, $r1, 25) + |
|
231 | - self::mul($h2, $r0, 25) + |
|
232 | - self::mul($s4, $h3, 26) + |
|
233 | - self::mul($s3, $h4, 26) |
|
234 | - ); |
|
235 | - |
|
236 | - $d3 = ( |
|
237 | - self::mul($h0, $r3, 25) + |
|
238 | - self::mul($h1, $r2, 25) + |
|
239 | - self::mul($h2, $r1, 25) + |
|
240 | - self::mul($h3, $r0, 25) + |
|
241 | - self::mul($s4, $h4, 26) |
|
242 | - ); |
|
243 | - |
|
244 | - $d4 = ( |
|
245 | - self::mul($h0, $r4, 25) + |
|
246 | - self::mul($h1, $r3, 25) + |
|
247 | - self::mul($h2, $r2, 25) + |
|
248 | - self::mul($h3, $r1, 25) + |
|
249 | - self::mul($h4, $r0, 25) |
|
250 | - ); |
|
251 | - |
|
252 | - /* (partial) h %= p */ |
|
253 | - /** @var int $c */ |
|
254 | - $c = $d0 >> 26; |
|
255 | - /** @var int $h0 */ |
|
256 | - $h0 = $d0 & 0x3ffffff; |
|
257 | - $d1 += $c; |
|
258 | - |
|
259 | - /** @var int $c */ |
|
260 | - $c = $d1 >> 26; |
|
261 | - /** @var int $h1 */ |
|
262 | - $h1 = $d1 & 0x3ffffff; |
|
263 | - $d2 += $c; |
|
264 | - |
|
265 | - /** @var int $c */ |
|
266 | - $c = $d2 >> 26; |
|
267 | - /** @var int $h2 */ |
|
268 | - $h2 = $d2 & 0x3ffffff; |
|
269 | - $d3 += $c; |
|
270 | - |
|
271 | - /** @var int $c */ |
|
272 | - $c = $d3 >> 26; |
|
273 | - /** @var int $h3 */ |
|
274 | - $h3 = $d3 & 0x3ffffff; |
|
275 | - $d4 += $c; |
|
276 | - |
|
277 | - /** @var int $c */ |
|
278 | - $c = $d4 >> 26; |
|
279 | - /** @var int $h4 */ |
|
280 | - $h4 = $d4 & 0x3ffffff; |
|
281 | - $h0 += (int) self::mul($c, 5, 3); |
|
282 | - |
|
283 | - /** @var int $c */ |
|
284 | - $c = $h0 >> 26; |
|
285 | - /** @var int $h0 */ |
|
286 | - $h0 &= 0x3ffffff; |
|
287 | - $h1 += $c; |
|
288 | - |
|
289 | - // Chop off the left 32 bytes. |
|
290 | - $message = self::substr( |
|
291 | - $message, |
|
292 | - ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
293 | - ); |
|
294 | - $bytes -= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE; |
|
295 | - } |
|
296 | - |
|
297 | - $this->h = array( |
|
298 | - (int) ($h0 & 0xffffffff), |
|
299 | - (int) ($h1 & 0xffffffff), |
|
300 | - (int) ($h2 & 0xffffffff), |
|
301 | - (int) ($h3 & 0xffffffff), |
|
302 | - (int) ($h4 & 0xffffffff) |
|
303 | - ); |
|
304 | - return $this; |
|
305 | - } |
|
306 | - |
|
307 | - /** |
|
308 | - * @internal You should not use this directly from another application |
|
309 | - * |
|
310 | - * @return string |
|
311 | - * @throws TypeError |
|
312 | - */ |
|
313 | - public function finish() |
|
314 | - { |
|
315 | - /* process the remaining block */ |
|
316 | - if ($this->leftover) { |
|
317 | - $i = $this->leftover; |
|
318 | - $this->buffer[$i++] = 1; |
|
319 | - for (; $i < ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE; ++$i) { |
|
320 | - $this->buffer[$i] = 0; |
|
321 | - } |
|
322 | - $this->final = true; |
|
323 | - $this->blocks( |
|
324 | - self::substr( |
|
325 | - self::intArrayToString($this->buffer), |
|
326 | - 0, |
|
327 | - ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
328 | - ), |
|
329 | - ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
330 | - ); |
|
331 | - } |
|
332 | - |
|
333 | - $h0 = (int) $this->h[0]; |
|
334 | - $h1 = (int) $this->h[1]; |
|
335 | - $h2 = (int) $this->h[2]; |
|
336 | - $h3 = (int) $this->h[3]; |
|
337 | - $h4 = (int) $this->h[4]; |
|
338 | - |
|
339 | - /** @var int $c */ |
|
340 | - $c = $h1 >> 26; |
|
341 | - /** @var int $h1 */ |
|
342 | - $h1 &= 0x3ffffff; |
|
343 | - /** @var int $h2 */ |
|
344 | - $h2 += $c; |
|
345 | - /** @var int $c */ |
|
346 | - $c = $h2 >> 26; |
|
347 | - /** @var int $h2 */ |
|
348 | - $h2 &= 0x3ffffff; |
|
349 | - $h3 += $c; |
|
350 | - /** @var int $c */ |
|
351 | - $c = $h3 >> 26; |
|
352 | - $h3 &= 0x3ffffff; |
|
353 | - $h4 += $c; |
|
354 | - /** @var int $c */ |
|
355 | - $c = $h4 >> 26; |
|
356 | - $h4 &= 0x3ffffff; |
|
357 | - /** @var int $h0 */ |
|
358 | - $h0 += self::mul($c, 5, 3); |
|
359 | - /** @var int $c */ |
|
360 | - $c = $h0 >> 26; |
|
361 | - /** @var int $h0 */ |
|
362 | - $h0 &= 0x3ffffff; |
|
363 | - /** @var int $h1 */ |
|
364 | - $h1 += $c; |
|
365 | - |
|
366 | - /* compute h + -p */ |
|
367 | - /** @var int $g0 */ |
|
368 | - $g0 = $h0 + 5; |
|
369 | - /** @var int $c */ |
|
370 | - $c = $g0 >> 26; |
|
371 | - /** @var int $g0 */ |
|
372 | - $g0 &= 0x3ffffff; |
|
373 | - |
|
374 | - /** @var int $g1 */ |
|
375 | - $g1 = $h1 + $c; |
|
376 | - /** @var int $c */ |
|
377 | - $c = $g1 >> 26; |
|
378 | - $g1 &= 0x3ffffff; |
|
379 | - |
|
380 | - /** @var int $g2 */ |
|
381 | - $g2 = $h2 + $c; |
|
382 | - /** @var int $c */ |
|
383 | - $c = $g2 >> 26; |
|
384 | - /** @var int $g2 */ |
|
385 | - $g2 &= 0x3ffffff; |
|
386 | - |
|
387 | - /** @var int $g3 */ |
|
388 | - $g3 = $h3 + $c; |
|
389 | - /** @var int $c */ |
|
390 | - $c = $g3 >> 26; |
|
391 | - /** @var int $g3 */ |
|
392 | - $g3 &= 0x3ffffff; |
|
393 | - |
|
394 | - /** @var int $g4 */ |
|
395 | - $g4 = ($h4 + $c - (1 << 26)) & 0xffffffff; |
|
396 | - |
|
397 | - /* select h if h < p, or h + -p if h >= p */ |
|
398 | - /** @var int $mask */ |
|
399 | - $mask = ($g4 >> 31) - 1; |
|
400 | - |
|
401 | - $g0 &= $mask; |
|
402 | - $g1 &= $mask; |
|
403 | - $g2 &= $mask; |
|
404 | - $g3 &= $mask; |
|
405 | - $g4 &= $mask; |
|
406 | - |
|
407 | - /** @var int $mask */ |
|
408 | - $mask = ~$mask & 0xffffffff; |
|
409 | - /** @var int $h0 */ |
|
410 | - $h0 = ($h0 & $mask) | $g0; |
|
411 | - /** @var int $h1 */ |
|
412 | - $h1 = ($h1 & $mask) | $g1; |
|
413 | - /** @var int $h2 */ |
|
414 | - $h2 = ($h2 & $mask) | $g2; |
|
415 | - /** @var int $h3 */ |
|
416 | - $h3 = ($h3 & $mask) | $g3; |
|
417 | - /** @var int $h4 */ |
|
418 | - $h4 = ($h4 & $mask) | $g4; |
|
419 | - |
|
420 | - /* h = h % (2^128) */ |
|
421 | - /** @var int $h0 */ |
|
422 | - $h0 = (($h0) | ($h1 << 26)) & 0xffffffff; |
|
423 | - /** @var int $h1 */ |
|
424 | - $h1 = (($h1 >> 6) | ($h2 << 20)) & 0xffffffff; |
|
425 | - /** @var int $h2 */ |
|
426 | - $h2 = (($h2 >> 12) | ($h3 << 14)) & 0xffffffff; |
|
427 | - /** @var int $h3 */ |
|
428 | - $h3 = (($h3 >> 18) | ($h4 << 8)) & 0xffffffff; |
|
429 | - |
|
430 | - /* mac = (h + pad) % (2^128) */ |
|
431 | - $f = (int) ($h0 + $this->pad[0]); |
|
432 | - $h0 = (int) $f; |
|
433 | - $f = (int) ($h1 + $this->pad[1] + ($f >> 32)); |
|
434 | - $h1 = (int) $f; |
|
435 | - $f = (int) ($h2 + $this->pad[2] + ($f >> 32)); |
|
436 | - $h2 = (int) $f; |
|
437 | - $f = (int) ($h3 + $this->pad[3] + ($f >> 32)); |
|
438 | - $h3 = (int) $f; |
|
439 | - |
|
440 | - return self::store32_le($h0 & 0xffffffff) . |
|
441 | - self::store32_le($h1 & 0xffffffff) . |
|
442 | - self::store32_le($h2 & 0xffffffff) . |
|
443 | - self::store32_le($h3 & 0xffffffff); |
|
444 | - } |
|
12 | + /** |
|
13 | + * @var array<int, int> |
|
14 | + */ |
|
15 | + protected $buffer = array(); |
|
16 | + |
|
17 | + /** |
|
18 | + * @var bool |
|
19 | + */ |
|
20 | + protected $final = false; |
|
21 | + |
|
22 | + /** |
|
23 | + * @var array<int, int> |
|
24 | + */ |
|
25 | + public $h; |
|
26 | + |
|
27 | + /** |
|
28 | + * @var int |
|
29 | + */ |
|
30 | + protected $leftover = 0; |
|
31 | + |
|
32 | + /** |
|
33 | + * @var int[] |
|
34 | + */ |
|
35 | + public $r; |
|
36 | + |
|
37 | + /** |
|
38 | + * @var int[] |
|
39 | + */ |
|
40 | + public $pad; |
|
41 | + |
|
42 | + /** |
|
43 | + * ParagonIE_Sodium_Core_Poly1305_State constructor. |
|
44 | + * |
|
45 | + * @internal You should not use this directly from another application |
|
46 | + * |
|
47 | + * @param string $key |
|
48 | + * @throws InvalidArgumentException |
|
49 | + * @throws TypeError |
|
50 | + */ |
|
51 | + public function __construct($key = '') |
|
52 | + { |
|
53 | + if (self::strlen($key) < 32) { |
|
54 | + throw new InvalidArgumentException( |
|
55 | + 'Poly1305 requires a 32-byte key' |
|
56 | + ); |
|
57 | + } |
|
58 | + /* r &= 0xffffffc0ffffffc0ffffffc0fffffff */ |
|
59 | + $this->r = array( |
|
60 | + (int) ((self::load_4(self::substr($key, 0, 4))) & 0x3ffffff), |
|
61 | + (int) ((self::load_4(self::substr($key, 3, 4)) >> 2) & 0x3ffff03), |
|
62 | + (int) ((self::load_4(self::substr($key, 6, 4)) >> 4) & 0x3ffc0ff), |
|
63 | + (int) ((self::load_4(self::substr($key, 9, 4)) >> 6) & 0x3f03fff), |
|
64 | + (int) ((self::load_4(self::substr($key, 12, 4)) >> 8) & 0x00fffff) |
|
65 | + ); |
|
66 | + |
|
67 | + /* h = 0 */ |
|
68 | + $this->h = array(0, 0, 0, 0, 0); |
|
69 | + |
|
70 | + /* save pad for later */ |
|
71 | + $this->pad = array( |
|
72 | + self::load_4(self::substr($key, 16, 4)), |
|
73 | + self::load_4(self::substr($key, 20, 4)), |
|
74 | + self::load_4(self::substr($key, 24, 4)), |
|
75 | + self::load_4(self::substr($key, 28, 4)), |
|
76 | + ); |
|
77 | + |
|
78 | + $this->leftover = 0; |
|
79 | + $this->final = false; |
|
80 | + } |
|
81 | + |
|
82 | + /** |
|
83 | + * Zero internal buffer upon destruction |
|
84 | + */ |
|
85 | + public function __destruct() |
|
86 | + { |
|
87 | + $this->r[0] ^= $this->r[0]; |
|
88 | + $this->r[1] ^= $this->r[1]; |
|
89 | + $this->r[2] ^= $this->r[2]; |
|
90 | + $this->r[3] ^= $this->r[3]; |
|
91 | + $this->r[4] ^= $this->r[4]; |
|
92 | + $this->h[0] ^= $this->h[0]; |
|
93 | + $this->h[1] ^= $this->h[1]; |
|
94 | + $this->h[2] ^= $this->h[2]; |
|
95 | + $this->h[3] ^= $this->h[3]; |
|
96 | + $this->h[4] ^= $this->h[4]; |
|
97 | + $this->pad[0] ^= $this->pad[0]; |
|
98 | + $this->pad[1] ^= $this->pad[1]; |
|
99 | + $this->pad[2] ^= $this->pad[2]; |
|
100 | + $this->pad[3] ^= $this->pad[3]; |
|
101 | + $this->leftover = 0; |
|
102 | + $this->final = true; |
|
103 | + } |
|
104 | + |
|
105 | + /** |
|
106 | + * @internal You should not use this directly from another application |
|
107 | + * |
|
108 | + * @param string $message |
|
109 | + * @return self |
|
110 | + * @throws SodiumException |
|
111 | + * @throws TypeError |
|
112 | + */ |
|
113 | + public function update($message = '') |
|
114 | + { |
|
115 | + $bytes = self::strlen($message); |
|
116 | + if ($bytes < 1) { |
|
117 | + return $this; |
|
118 | + } |
|
119 | + |
|
120 | + /* handle leftover */ |
|
121 | + if ($this->leftover) { |
|
122 | + $want = ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE - $this->leftover; |
|
123 | + if ($want > $bytes) { |
|
124 | + $want = $bytes; |
|
125 | + } |
|
126 | + for ($i = 0; $i < $want; ++$i) { |
|
127 | + $mi = self::chrToInt($message[$i]); |
|
128 | + $this->buffer[$this->leftover + $i] = $mi; |
|
129 | + } |
|
130 | + // We snip off the leftmost bytes. |
|
131 | + $message = self::substr($message, $want); |
|
132 | + $bytes = self::strlen($message); |
|
133 | + $this->leftover += $want; |
|
134 | + if ($this->leftover < ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
135 | + // We still don't have enough to run $this->blocks() |
|
136 | + return $this; |
|
137 | + } |
|
138 | + |
|
139 | + $this->blocks( |
|
140 | + self::intArrayToString($this->buffer), |
|
141 | + ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
142 | + ); |
|
143 | + $this->leftover = 0; |
|
144 | + } |
|
145 | + |
|
146 | + /* process full blocks */ |
|
147 | + if ($bytes >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
148 | + /** @var int $want */ |
|
149 | + $want = $bytes & ~(ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE - 1); |
|
150 | + if ($want >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
151 | + $block = self::substr($message, 0, $want); |
|
152 | + if (self::strlen($block) >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
153 | + $this->blocks($block, $want); |
|
154 | + $message = self::substr($message, $want); |
|
155 | + $bytes = self::strlen($message); |
|
156 | + } |
|
157 | + } |
|
158 | + } |
|
159 | + |
|
160 | + /* store leftover */ |
|
161 | + if ($bytes) { |
|
162 | + for ($i = 0; $i < $bytes; ++$i) { |
|
163 | + $mi = self::chrToInt($message[$i]); |
|
164 | + $this->buffer[$this->leftover + $i] = $mi; |
|
165 | + } |
|
166 | + $this->leftover = (int) $this->leftover + $bytes; |
|
167 | + } |
|
168 | + return $this; |
|
169 | + } |
|
170 | + |
|
171 | + /** |
|
172 | + * @internal You should not use this directly from another application |
|
173 | + * |
|
174 | + * @param string $message |
|
175 | + * @param int $bytes |
|
176 | + * @return self |
|
177 | + * @throws TypeError |
|
178 | + */ |
|
179 | + public function blocks($message, $bytes) |
|
180 | + { |
|
181 | + if (self::strlen($message) < 16) { |
|
182 | + $message = str_pad($message, 16, "\x00", STR_PAD_RIGHT); |
|
183 | + } |
|
184 | + /** @var int $hibit */ |
|
185 | + $hibit = $this->final ? 0 : 1 << 24; /* 1 << 128 */ |
|
186 | + $r0 = (int) $this->r[0]; |
|
187 | + $r1 = (int) $this->r[1]; |
|
188 | + $r2 = (int) $this->r[2]; |
|
189 | + $r3 = (int) $this->r[3]; |
|
190 | + $r4 = (int) $this->r[4]; |
|
191 | + |
|
192 | + $s1 = self::mul($r1, 5, 3); |
|
193 | + $s2 = self::mul($r2, 5, 3); |
|
194 | + $s3 = self::mul($r3, 5, 3); |
|
195 | + $s4 = self::mul($r4, 5, 3); |
|
196 | + |
|
197 | + $h0 = $this->h[0]; |
|
198 | + $h1 = $this->h[1]; |
|
199 | + $h2 = $this->h[2]; |
|
200 | + $h3 = $this->h[3]; |
|
201 | + $h4 = $this->h[4]; |
|
202 | + |
|
203 | + while ($bytes >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) { |
|
204 | + /* h += m[i] */ |
|
205 | + $h0 += self::load_4(self::substr($message, 0, 4)) & 0x3ffffff; |
|
206 | + $h1 += (self::load_4(self::substr($message, 3, 4)) >> 2) & 0x3ffffff; |
|
207 | + $h2 += (self::load_4(self::substr($message, 6, 4)) >> 4) & 0x3ffffff; |
|
208 | + $h3 += (self::load_4(self::substr($message, 9, 4)) >> 6) & 0x3ffffff; |
|
209 | + $h4 += (self::load_4(self::substr($message, 12, 4)) >> 8) | $hibit; |
|
210 | + |
|
211 | + /* h *= r */ |
|
212 | + $d0 = ( |
|
213 | + self::mul($h0, $r0, 25) + |
|
214 | + self::mul($s4, $h1, 26) + |
|
215 | + self::mul($s3, $h2, 26) + |
|
216 | + self::mul($s2, $h3, 26) + |
|
217 | + self::mul($s1, $h4, 26) |
|
218 | + ); |
|
219 | + |
|
220 | + $d1 = ( |
|
221 | + self::mul($h0, $r1, 25) + |
|
222 | + self::mul($h1, $r0, 25) + |
|
223 | + self::mul($s4, $h2, 26) + |
|
224 | + self::mul($s3, $h3, 26) + |
|
225 | + self::mul($s2, $h4, 26) |
|
226 | + ); |
|
227 | + |
|
228 | + $d2 = ( |
|
229 | + self::mul($h0, $r2, 25) + |
|
230 | + self::mul($h1, $r1, 25) + |
|
231 | + self::mul($h2, $r0, 25) + |
|
232 | + self::mul($s4, $h3, 26) + |
|
233 | + self::mul($s3, $h4, 26) |
|
234 | + ); |
|
235 | + |
|
236 | + $d3 = ( |
|
237 | + self::mul($h0, $r3, 25) + |
|
238 | + self::mul($h1, $r2, 25) + |
|
239 | + self::mul($h2, $r1, 25) + |
|
240 | + self::mul($h3, $r0, 25) + |
|
241 | + self::mul($s4, $h4, 26) |
|
242 | + ); |
|
243 | + |
|
244 | + $d4 = ( |
|
245 | + self::mul($h0, $r4, 25) + |
|
246 | + self::mul($h1, $r3, 25) + |
|
247 | + self::mul($h2, $r2, 25) + |
|
248 | + self::mul($h3, $r1, 25) + |
|
249 | + self::mul($h4, $r0, 25) |
|
250 | + ); |
|
251 | + |
|
252 | + /* (partial) h %= p */ |
|
253 | + /** @var int $c */ |
|
254 | + $c = $d0 >> 26; |
|
255 | + /** @var int $h0 */ |
|
256 | + $h0 = $d0 & 0x3ffffff; |
|
257 | + $d1 += $c; |
|
258 | + |
|
259 | + /** @var int $c */ |
|
260 | + $c = $d1 >> 26; |
|
261 | + /** @var int $h1 */ |
|
262 | + $h1 = $d1 & 0x3ffffff; |
|
263 | + $d2 += $c; |
|
264 | + |
|
265 | + /** @var int $c */ |
|
266 | + $c = $d2 >> 26; |
|
267 | + /** @var int $h2 */ |
|
268 | + $h2 = $d2 & 0x3ffffff; |
|
269 | + $d3 += $c; |
|
270 | + |
|
271 | + /** @var int $c */ |
|
272 | + $c = $d3 >> 26; |
|
273 | + /** @var int $h3 */ |
|
274 | + $h3 = $d3 & 0x3ffffff; |
|
275 | + $d4 += $c; |
|
276 | + |
|
277 | + /** @var int $c */ |
|
278 | + $c = $d4 >> 26; |
|
279 | + /** @var int $h4 */ |
|
280 | + $h4 = $d4 & 0x3ffffff; |
|
281 | + $h0 += (int) self::mul($c, 5, 3); |
|
282 | + |
|
283 | + /** @var int $c */ |
|
284 | + $c = $h0 >> 26; |
|
285 | + /** @var int $h0 */ |
|
286 | + $h0 &= 0x3ffffff; |
|
287 | + $h1 += $c; |
|
288 | + |
|
289 | + // Chop off the left 32 bytes. |
|
290 | + $message = self::substr( |
|
291 | + $message, |
|
292 | + ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
293 | + ); |
|
294 | + $bytes -= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE; |
|
295 | + } |
|
296 | + |
|
297 | + $this->h = array( |
|
298 | + (int) ($h0 & 0xffffffff), |
|
299 | + (int) ($h1 & 0xffffffff), |
|
300 | + (int) ($h2 & 0xffffffff), |
|
301 | + (int) ($h3 & 0xffffffff), |
|
302 | + (int) ($h4 & 0xffffffff) |
|
303 | + ); |
|
304 | + return $this; |
|
305 | + } |
|
306 | + |
|
307 | + /** |
|
308 | + * @internal You should not use this directly from another application |
|
309 | + * |
|
310 | + * @return string |
|
311 | + * @throws TypeError |
|
312 | + */ |
|
313 | + public function finish() |
|
314 | + { |
|
315 | + /* process the remaining block */ |
|
316 | + if ($this->leftover) { |
|
317 | + $i = $this->leftover; |
|
318 | + $this->buffer[$i++] = 1; |
|
319 | + for (; $i < ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE; ++$i) { |
|
320 | + $this->buffer[$i] = 0; |
|
321 | + } |
|
322 | + $this->final = true; |
|
323 | + $this->blocks( |
|
324 | + self::substr( |
|
325 | + self::intArrayToString($this->buffer), |
|
326 | + 0, |
|
327 | + ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
328 | + ), |
|
329 | + ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE |
|
330 | + ); |
|
331 | + } |
|
332 | + |
|
333 | + $h0 = (int) $this->h[0]; |
|
334 | + $h1 = (int) $this->h[1]; |
|
335 | + $h2 = (int) $this->h[2]; |
|
336 | + $h3 = (int) $this->h[3]; |
|
337 | + $h4 = (int) $this->h[4]; |
|
338 | + |
|
339 | + /** @var int $c */ |
|
340 | + $c = $h1 >> 26; |
|
341 | + /** @var int $h1 */ |
|
342 | + $h1 &= 0x3ffffff; |
|
343 | + /** @var int $h2 */ |
|
344 | + $h2 += $c; |
|
345 | + /** @var int $c */ |
|
346 | + $c = $h2 >> 26; |
|
347 | + /** @var int $h2 */ |
|
348 | + $h2 &= 0x3ffffff; |
|
349 | + $h3 += $c; |
|
350 | + /** @var int $c */ |
|
351 | + $c = $h3 >> 26; |
|
352 | + $h3 &= 0x3ffffff; |
|
353 | + $h4 += $c; |
|
354 | + /** @var int $c */ |
|
355 | + $c = $h4 >> 26; |
|
356 | + $h4 &= 0x3ffffff; |
|
357 | + /** @var int $h0 */ |
|
358 | + $h0 += self::mul($c, 5, 3); |
|
359 | + /** @var int $c */ |
|
360 | + $c = $h0 >> 26; |
|
361 | + /** @var int $h0 */ |
|
362 | + $h0 &= 0x3ffffff; |
|
363 | + /** @var int $h1 */ |
|
364 | + $h1 += $c; |
|
365 | + |
|
366 | + /* compute h + -p */ |
|
367 | + /** @var int $g0 */ |
|
368 | + $g0 = $h0 + 5; |
|
369 | + /** @var int $c */ |
|
370 | + $c = $g0 >> 26; |
|
371 | + /** @var int $g0 */ |
|
372 | + $g0 &= 0x3ffffff; |
|
373 | + |
|
374 | + /** @var int $g1 */ |
|
375 | + $g1 = $h1 + $c; |
|
376 | + /** @var int $c */ |
|
377 | + $c = $g1 >> 26; |
|
378 | + $g1 &= 0x3ffffff; |
|
379 | + |
|
380 | + /** @var int $g2 */ |
|
381 | + $g2 = $h2 + $c; |
|
382 | + /** @var int $c */ |
|
383 | + $c = $g2 >> 26; |
|
384 | + /** @var int $g2 */ |
|
385 | + $g2 &= 0x3ffffff; |
|
386 | + |
|
387 | + /** @var int $g3 */ |
|
388 | + $g3 = $h3 + $c; |
|
389 | + /** @var int $c */ |
|
390 | + $c = $g3 >> 26; |
|
391 | + /** @var int $g3 */ |
|
392 | + $g3 &= 0x3ffffff; |
|
393 | + |
|
394 | + /** @var int $g4 */ |
|
395 | + $g4 = ($h4 + $c - (1 << 26)) & 0xffffffff; |
|
396 | + |
|
397 | + /* select h if h < p, or h + -p if h >= p */ |
|
398 | + /** @var int $mask */ |
|
399 | + $mask = ($g4 >> 31) - 1; |
|
400 | + |
|
401 | + $g0 &= $mask; |
|
402 | + $g1 &= $mask; |
|
403 | + $g2 &= $mask; |
|
404 | + $g3 &= $mask; |
|
405 | + $g4 &= $mask; |
|
406 | + |
|
407 | + /** @var int $mask */ |
|
408 | + $mask = ~$mask & 0xffffffff; |
|
409 | + /** @var int $h0 */ |
|
410 | + $h0 = ($h0 & $mask) | $g0; |
|
411 | + /** @var int $h1 */ |
|
412 | + $h1 = ($h1 & $mask) | $g1; |
|
413 | + /** @var int $h2 */ |
|
414 | + $h2 = ($h2 & $mask) | $g2; |
|
415 | + /** @var int $h3 */ |
|
416 | + $h3 = ($h3 & $mask) | $g3; |
|
417 | + /** @var int $h4 */ |
|
418 | + $h4 = ($h4 & $mask) | $g4; |
|
419 | + |
|
420 | + /* h = h % (2^128) */ |
|
421 | + /** @var int $h0 */ |
|
422 | + $h0 = (($h0) | ($h1 << 26)) & 0xffffffff; |
|
423 | + /** @var int $h1 */ |
|
424 | + $h1 = (($h1 >> 6) | ($h2 << 20)) & 0xffffffff; |
|
425 | + /** @var int $h2 */ |
|
426 | + $h2 = (($h2 >> 12) | ($h3 << 14)) & 0xffffffff; |
|
427 | + /** @var int $h3 */ |
|
428 | + $h3 = (($h3 >> 18) | ($h4 << 8)) & 0xffffffff; |
|
429 | + |
|
430 | + /* mac = (h + pad) % (2^128) */ |
|
431 | + $f = (int) ($h0 + $this->pad[0]); |
|
432 | + $h0 = (int) $f; |
|
433 | + $f = (int) ($h1 + $this->pad[1] + ($f >> 32)); |
|
434 | + $h1 = (int) $f; |
|
435 | + $f = (int) ($h2 + $this->pad[2] + ($f >> 32)); |
|
436 | + $h2 = (int) $f; |
|
437 | + $f = (int) ($h3 + $this->pad[3] + ($f >> 32)); |
|
438 | + $h3 = (int) $f; |
|
439 | + |
|
440 | + return self::store32_le($h0 & 0xffffffff) . |
|
441 | + self::store32_le($h1 & 0xffffffff) . |
|
442 | + self::store32_le($h2 & 0xffffffff) . |
|
443 | + self::store32_le($h3 & 0xffffffff); |
|
444 | + } |
|
445 | 445 | } |