@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Crypto32', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -14,1641 +14,1641 @@ discard block |
||
14 | 14 | */ |
15 | 15 | abstract class ParagonIE_Sodium_Crypto32 |
16 | 16 | { |
17 | - const aead_chacha20poly1305_KEYBYTES = 32; |
|
18 | - const aead_chacha20poly1305_NSECBYTES = 0; |
|
19 | - const aead_chacha20poly1305_NPUBBYTES = 8; |
|
20 | - const aead_chacha20poly1305_ABYTES = 16; |
|
21 | - |
|
22 | - const aead_chacha20poly1305_IETF_KEYBYTES = 32; |
|
23 | - const aead_chacha20poly1305_IETF_NSECBYTES = 0; |
|
24 | - const aead_chacha20poly1305_IETF_NPUBBYTES = 12; |
|
25 | - const aead_chacha20poly1305_IETF_ABYTES = 16; |
|
26 | - |
|
27 | - const aead_xchacha20poly1305_IETF_KEYBYTES = 32; |
|
28 | - const aead_xchacha20poly1305_IETF_NSECBYTES = 0; |
|
29 | - const aead_xchacha20poly1305_IETF_NPUBBYTES = 24; |
|
30 | - const aead_xchacha20poly1305_IETF_ABYTES = 16; |
|
31 | - |
|
32 | - const box_curve25519xsalsa20poly1305_SEEDBYTES = 32; |
|
33 | - const box_curve25519xsalsa20poly1305_PUBLICKEYBYTES = 32; |
|
34 | - const box_curve25519xsalsa20poly1305_SECRETKEYBYTES = 32; |
|
35 | - const box_curve25519xsalsa20poly1305_BEFORENMBYTES = 32; |
|
36 | - const box_curve25519xsalsa20poly1305_NONCEBYTES = 24; |
|
37 | - const box_curve25519xsalsa20poly1305_MACBYTES = 16; |
|
38 | - const box_curve25519xsalsa20poly1305_BOXZEROBYTES = 16; |
|
39 | - const box_curve25519xsalsa20poly1305_ZEROBYTES = 32; |
|
40 | - |
|
41 | - const onetimeauth_poly1305_BYTES = 16; |
|
42 | - const onetimeauth_poly1305_KEYBYTES = 32; |
|
43 | - |
|
44 | - const secretbox_xsalsa20poly1305_KEYBYTES = 32; |
|
45 | - const secretbox_xsalsa20poly1305_NONCEBYTES = 24; |
|
46 | - const secretbox_xsalsa20poly1305_MACBYTES = 16; |
|
47 | - const secretbox_xsalsa20poly1305_BOXZEROBYTES = 16; |
|
48 | - const secretbox_xsalsa20poly1305_ZEROBYTES = 32; |
|
49 | - |
|
50 | - const secretbox_xchacha20poly1305_KEYBYTES = 32; |
|
51 | - const secretbox_xchacha20poly1305_NONCEBYTES = 24; |
|
52 | - const secretbox_xchacha20poly1305_MACBYTES = 16; |
|
53 | - const secretbox_xchacha20poly1305_BOXZEROBYTES = 16; |
|
54 | - const secretbox_xchacha20poly1305_ZEROBYTES = 32; |
|
55 | - |
|
56 | - const stream_salsa20_KEYBYTES = 32; |
|
57 | - |
|
58 | - /** |
|
59 | - * AEAD Decryption with ChaCha20-Poly1305 |
|
60 | - * |
|
61 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
62 | - * |
|
63 | - * @param string $message |
|
64 | - * @param string $ad |
|
65 | - * @param string $nonce |
|
66 | - * @param string $key |
|
67 | - * @return string |
|
68 | - * @throws SodiumException |
|
69 | - * @throws TypeError |
|
70 | - */ |
|
71 | - public static function aead_chacha20poly1305_decrypt( |
|
72 | - $message = '', |
|
73 | - $ad = '', |
|
74 | - $nonce = '', |
|
75 | - $key = '' |
|
76 | - ) { |
|
77 | - /** @var int $len - Length of message (ciphertext + MAC) */ |
|
78 | - $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
79 | - |
|
80 | - /** @var int $clen - Length of ciphertext */ |
|
81 | - $clen = $len - self::aead_chacha20poly1305_ABYTES; |
|
82 | - |
|
83 | - /** @var int $adlen - Length of associated data */ |
|
84 | - $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
85 | - |
|
86 | - /** @var string $mac - Message authentication code */ |
|
87 | - $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
88 | - $message, |
|
89 | - $clen, |
|
90 | - self::aead_chacha20poly1305_ABYTES |
|
91 | - ); |
|
92 | - |
|
93 | - /** @var string $ciphertext - The encrypted message (sans MAC) */ |
|
94 | - $ciphertext = ParagonIE_Sodium_Core32_Util::substr($message, 0, $clen); |
|
95 | - |
|
96 | - /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
97 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
98 | - 32, |
|
99 | - $nonce, |
|
100 | - $key |
|
101 | - ); |
|
102 | - |
|
103 | - /* Recalculate the Poly1305 authentication tag (MAC): */ |
|
104 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
105 | - try { |
|
106 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
107 | - } catch (SodiumException $ex) { |
|
108 | - $block0 = null; |
|
109 | - } |
|
110 | - $state->update($ad); |
|
111 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
112 | - $state->update($ciphertext); |
|
113 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($clen)); |
|
114 | - $computed_mac = $state->finish(); |
|
115 | - |
|
116 | - /* Compare the given MAC with the recalculated MAC: */ |
|
117 | - if (!ParagonIE_Sodium_Core32_Util::verify_16($computed_mac, $mac)) { |
|
118 | - throw new SodiumException('Invalid MAC'); |
|
119 | - } |
|
120 | - |
|
121 | - // Here, we know that the MAC is valid, so we decrypt and return the plaintext |
|
122 | - return ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
123 | - $ciphertext, |
|
124 | - $nonce, |
|
125 | - $key, |
|
126 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
127 | - ); |
|
128 | - } |
|
129 | - |
|
130 | - /** |
|
131 | - * AEAD Encryption with ChaCha20-Poly1305 |
|
132 | - * |
|
133 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
134 | - * |
|
135 | - * @param string $message |
|
136 | - * @param string $ad |
|
137 | - * @param string $nonce |
|
138 | - * @param string $key |
|
139 | - * @return string |
|
140 | - * @throws SodiumException |
|
141 | - * @throws TypeError |
|
142 | - */ |
|
143 | - public static function aead_chacha20poly1305_encrypt( |
|
144 | - $message = '', |
|
145 | - $ad = '', |
|
146 | - $nonce = '', |
|
147 | - $key = '' |
|
148 | - ) { |
|
149 | - /** @var int $len - Length of the plaintext message */ |
|
150 | - $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
151 | - |
|
152 | - /** @var int $adlen - Length of the associated data */ |
|
153 | - $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
154 | - |
|
155 | - /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
156 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
157 | - 32, |
|
158 | - $nonce, |
|
159 | - $key |
|
160 | - ); |
|
161 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
162 | - try { |
|
163 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
164 | - } catch (SodiumException $ex) { |
|
165 | - $block0 = null; |
|
166 | - } |
|
167 | - |
|
168 | - /** @var string $ciphertext - Raw encrypted data */ |
|
169 | - $ciphertext = ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
170 | - $message, |
|
171 | - $nonce, |
|
172 | - $key, |
|
173 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
174 | - ); |
|
175 | - |
|
176 | - $state->update($ad); |
|
177 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
178 | - $state->update($ciphertext); |
|
179 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($len)); |
|
180 | - return $ciphertext . $state->finish(); |
|
181 | - } |
|
182 | - |
|
183 | - /** |
|
184 | - * AEAD Decryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
185 | - * |
|
186 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
187 | - * |
|
188 | - * @param string $message |
|
189 | - * @param string $ad |
|
190 | - * @param string $nonce |
|
191 | - * @param string $key |
|
192 | - * @return string |
|
193 | - * @throws SodiumException |
|
194 | - * @throws TypeError |
|
195 | - */ |
|
196 | - public static function aead_chacha20poly1305_ietf_decrypt( |
|
197 | - $message = '', |
|
198 | - $ad = '', |
|
199 | - $nonce = '', |
|
200 | - $key = '' |
|
201 | - ) { |
|
202 | - /** @var int $adlen - Length of associated data */ |
|
203 | - $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
204 | - |
|
205 | - /** @var int $len - Length of message (ciphertext + MAC) */ |
|
206 | - $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
207 | - |
|
208 | - /** @var int $clen - Length of ciphertext */ |
|
209 | - $clen = $len - self::aead_chacha20poly1305_IETF_ABYTES; |
|
210 | - |
|
211 | - /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
212 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::ietfStream( |
|
213 | - 32, |
|
214 | - $nonce, |
|
215 | - $key |
|
216 | - ); |
|
217 | - |
|
218 | - /** @var string $mac - Message authentication code */ |
|
219 | - $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
220 | - $message, |
|
221 | - $len - self::aead_chacha20poly1305_IETF_ABYTES, |
|
222 | - self::aead_chacha20poly1305_IETF_ABYTES |
|
223 | - ); |
|
224 | - |
|
225 | - /** @var string $ciphertext - The encrypted message (sans MAC) */ |
|
226 | - $ciphertext = ParagonIE_Sodium_Core32_Util::substr( |
|
227 | - $message, |
|
228 | - 0, |
|
229 | - $len - self::aead_chacha20poly1305_IETF_ABYTES |
|
230 | - ); |
|
231 | - |
|
232 | - /* Recalculate the Poly1305 authentication tag (MAC): */ |
|
233 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
234 | - try { |
|
235 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
236 | - } catch (SodiumException $ex) { |
|
237 | - $block0 = null; |
|
238 | - } |
|
239 | - $state->update($ad); |
|
240 | - $state->update(str_repeat("\x00", ((0x10 - $adlen) & 0xf))); |
|
241 | - $state->update($ciphertext); |
|
242 | - $state->update(str_repeat("\x00", (0x10 - $clen) & 0xf)); |
|
243 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
244 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($clen)); |
|
245 | - $computed_mac = $state->finish(); |
|
246 | - |
|
247 | - /* Compare the given MAC with the recalculated MAC: */ |
|
248 | - if (!ParagonIE_Sodium_Core32_Util::verify_16($computed_mac, $mac)) { |
|
249 | - throw new SodiumException('Invalid MAC'); |
|
250 | - } |
|
251 | - |
|
252 | - // Here, we know that the MAC is valid, so we decrypt and return the plaintext |
|
253 | - return ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
254 | - $ciphertext, |
|
255 | - $nonce, |
|
256 | - $key, |
|
257 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
258 | - ); |
|
259 | - } |
|
260 | - |
|
261 | - /** |
|
262 | - * AEAD Encryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
263 | - * |
|
264 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
265 | - * |
|
266 | - * @param string $message |
|
267 | - * @param string $ad |
|
268 | - * @param string $nonce |
|
269 | - * @param string $key |
|
270 | - * @return string |
|
271 | - * @throws SodiumException |
|
272 | - * @throws TypeError |
|
273 | - */ |
|
274 | - public static function aead_chacha20poly1305_ietf_encrypt( |
|
275 | - $message = '', |
|
276 | - $ad = '', |
|
277 | - $nonce = '', |
|
278 | - $key = '' |
|
279 | - ) { |
|
280 | - /** @var int $len - Length of the plaintext message */ |
|
281 | - $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
282 | - |
|
283 | - /** @var int $adlen - Length of the associated data */ |
|
284 | - $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
285 | - |
|
286 | - /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
287 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::ietfStream( |
|
288 | - 32, |
|
289 | - $nonce, |
|
290 | - $key |
|
291 | - ); |
|
292 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
293 | - try { |
|
294 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
295 | - } catch (SodiumException $ex) { |
|
296 | - $block0 = null; |
|
297 | - } |
|
298 | - |
|
299 | - /** @var string $ciphertext - Raw encrypted data */ |
|
300 | - $ciphertext = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
301 | - $message, |
|
302 | - $nonce, |
|
303 | - $key, |
|
304 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
305 | - ); |
|
306 | - |
|
307 | - $state->update($ad); |
|
308 | - $state->update(str_repeat("\x00", ((0x10 - $adlen) & 0xf))); |
|
309 | - $state->update($ciphertext); |
|
310 | - $state->update(str_repeat("\x00", ((0x10 - $len) & 0xf))); |
|
311 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
312 | - $state->update(ParagonIE_Sodium_Core32_Util::store64_le($len)); |
|
313 | - return $ciphertext . $state->finish(); |
|
314 | - } |
|
315 | - |
|
316 | - /** |
|
317 | - * AEAD Decryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
318 | - * |
|
319 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
320 | - * |
|
321 | - * @param string $message |
|
322 | - * @param string $ad |
|
323 | - * @param string $nonce |
|
324 | - * @param string $key |
|
325 | - * @return string |
|
326 | - * @throws SodiumException |
|
327 | - * @throws TypeError |
|
328 | - */ |
|
329 | - public static function aead_xchacha20poly1305_ietf_decrypt( |
|
330 | - $message = '', |
|
331 | - $ad = '', |
|
332 | - $nonce = '', |
|
333 | - $key = '' |
|
334 | - ) { |
|
335 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
336 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
337 | - $key |
|
338 | - ); |
|
339 | - $nonceLast = "\x00\x00\x00\x00" . |
|
340 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
341 | - |
|
342 | - return self::aead_chacha20poly1305_ietf_decrypt($message, $ad, $nonceLast, $subkey); |
|
343 | - } |
|
344 | - |
|
345 | - /** |
|
346 | - * AEAD Encryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
347 | - * |
|
348 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
349 | - * |
|
350 | - * @param string $message |
|
351 | - * @param string $ad |
|
352 | - * @param string $nonce |
|
353 | - * @param string $key |
|
354 | - * @return string |
|
355 | - * @throws SodiumException |
|
356 | - * @throws TypeError |
|
357 | - */ |
|
358 | - public static function aead_xchacha20poly1305_ietf_encrypt( |
|
359 | - $message = '', |
|
360 | - $ad = '', |
|
361 | - $nonce = '', |
|
362 | - $key = '' |
|
363 | - ) { |
|
364 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
365 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
366 | - $key |
|
367 | - ); |
|
368 | - $nonceLast = "\x00\x00\x00\x00" . |
|
369 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
370 | - |
|
371 | - return self::aead_chacha20poly1305_ietf_encrypt($message, $ad, $nonceLast, $subkey); |
|
372 | - } |
|
373 | - |
|
374 | - /** |
|
375 | - * HMAC-SHA-512-256 (a.k.a. the leftmost 256 bits of HMAC-SHA-512) |
|
376 | - * |
|
377 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
378 | - * |
|
379 | - * @param string $message |
|
380 | - * @param string $key |
|
381 | - * @return string |
|
382 | - * @throws TypeError |
|
383 | - */ |
|
384 | - public static function auth($message, $key) |
|
385 | - { |
|
386 | - return ParagonIE_Sodium_Core32_Util::substr( |
|
387 | - hash_hmac('sha512', $message, $key, true), |
|
388 | - 0, |
|
389 | - 32 |
|
390 | - ); |
|
391 | - } |
|
392 | - |
|
393 | - /** |
|
394 | - * HMAC-SHA-512-256 validation. Constant-time via hash_equals(). |
|
395 | - * |
|
396 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
397 | - * |
|
398 | - * @param string $mac |
|
399 | - * @param string $message |
|
400 | - * @param string $key |
|
401 | - * @return bool |
|
402 | - * @throws SodiumException |
|
403 | - * @throws TypeError |
|
404 | - */ |
|
405 | - public static function auth_verify($mac, $message, $key) |
|
406 | - { |
|
407 | - return ParagonIE_Sodium_Core32_Util::hashEquals( |
|
408 | - $mac, |
|
409 | - self::auth($message, $key) |
|
410 | - ); |
|
411 | - } |
|
412 | - |
|
413 | - /** |
|
414 | - * X25519 key exchange followed by XSalsa20Poly1305 symmetric encryption |
|
415 | - * |
|
416 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
417 | - * |
|
418 | - * @param string $plaintext |
|
419 | - * @param string $nonce |
|
420 | - * @param string $keypair |
|
421 | - * @return string |
|
422 | - * @throws SodiumException |
|
423 | - * @throws TypeError |
|
424 | - */ |
|
425 | - public static function box($plaintext, $nonce, $keypair) |
|
426 | - { |
|
427 | - return self::secretbox( |
|
428 | - $plaintext, |
|
429 | - $nonce, |
|
430 | - self::box_beforenm( |
|
431 | - self::box_secretkey($keypair), |
|
432 | - self::box_publickey($keypair) |
|
433 | - ) |
|
434 | - ); |
|
435 | - } |
|
436 | - |
|
437 | - /** |
|
438 | - * X25519-XSalsa20-Poly1305 with one ephemeral X25519 keypair. |
|
439 | - * |
|
440 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
441 | - * |
|
442 | - * @param string $message |
|
443 | - * @param string $publicKey |
|
444 | - * @return string |
|
445 | - * @throws SodiumException |
|
446 | - * @throws TypeError |
|
447 | - */ |
|
448 | - public static function box_seal($message, $publicKey) |
|
449 | - { |
|
450 | - /** @var string $ephemeralKeypair */ |
|
451 | - $ephemeralKeypair = self::box_keypair(); |
|
452 | - |
|
453 | - /** @var string $ephemeralSK */ |
|
454 | - $ephemeralSK = self::box_secretkey($ephemeralKeypair); |
|
455 | - |
|
456 | - /** @var string $ephemeralPK */ |
|
457 | - $ephemeralPK = self::box_publickey($ephemeralKeypair); |
|
458 | - |
|
459 | - /** @var string $nonce */ |
|
460 | - $nonce = self::generichash( |
|
461 | - $ephemeralPK . $publicKey, |
|
462 | - '', |
|
463 | - 24 |
|
464 | - ); |
|
465 | - |
|
466 | - /** @var string $keypair - The combined keypair used in crypto_box() */ |
|
467 | - $keypair = self::box_keypair_from_secretkey_and_publickey($ephemeralSK, $publicKey); |
|
468 | - |
|
469 | - /** @var string $ciphertext Ciphertext + MAC from crypto_box */ |
|
470 | - $ciphertext = self::box($message, $nonce, $keypair); |
|
471 | - try { |
|
472 | - ParagonIE_Sodium_Compat::memzero($ephemeralKeypair); |
|
473 | - ParagonIE_Sodium_Compat::memzero($ephemeralSK); |
|
474 | - ParagonIE_Sodium_Compat::memzero($nonce); |
|
475 | - } catch (SodiumException $ex) { |
|
476 | - $ephemeralKeypair = null; |
|
477 | - $ephemeralSK = null; |
|
478 | - $nonce = null; |
|
479 | - } |
|
480 | - return $ephemeralPK . $ciphertext; |
|
481 | - } |
|
482 | - |
|
483 | - /** |
|
484 | - * Opens a message encrypted via box_seal(). |
|
485 | - * |
|
486 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
487 | - * |
|
488 | - * @param string $message |
|
489 | - * @param string $keypair |
|
490 | - * @return string |
|
491 | - * @throws SodiumException |
|
492 | - * @throws TypeError |
|
493 | - */ |
|
494 | - public static function box_seal_open($message, $keypair) |
|
495 | - { |
|
496 | - /** @var string $ephemeralPK */ |
|
497 | - $ephemeralPK = ParagonIE_Sodium_Core32_Util::substr($message, 0, 32); |
|
498 | - |
|
499 | - /** @var string $ciphertext (ciphertext + MAC) */ |
|
500 | - $ciphertext = ParagonIE_Sodium_Core32_Util::substr($message, 32); |
|
501 | - |
|
502 | - /** @var string $secretKey */ |
|
503 | - $secretKey = self::box_secretkey($keypair); |
|
504 | - |
|
505 | - /** @var string $publicKey */ |
|
506 | - $publicKey = self::box_publickey($keypair); |
|
507 | - |
|
508 | - /** @var string $nonce */ |
|
509 | - $nonce = self::generichash( |
|
510 | - $ephemeralPK . $publicKey, |
|
511 | - '', |
|
512 | - 24 |
|
513 | - ); |
|
514 | - |
|
515 | - /** @var string $keypair */ |
|
516 | - $keypair = self::box_keypair_from_secretkey_and_publickey($secretKey, $ephemeralPK); |
|
517 | - |
|
518 | - /** @var string $m */ |
|
519 | - $m = self::box_open($ciphertext, $nonce, $keypair); |
|
520 | - try { |
|
521 | - ParagonIE_Sodium_Compat::memzero($secretKey); |
|
522 | - ParagonIE_Sodium_Compat::memzero($ephemeralPK); |
|
523 | - ParagonIE_Sodium_Compat::memzero($nonce); |
|
524 | - } catch (SodiumException $ex) { |
|
525 | - $secretKey = null; |
|
526 | - $ephemeralPK = null; |
|
527 | - $nonce = null; |
|
528 | - } |
|
529 | - return $m; |
|
530 | - } |
|
531 | - |
|
532 | - /** |
|
533 | - * Used by crypto_box() to get the crypto_secretbox() key. |
|
534 | - * |
|
535 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
536 | - * |
|
537 | - * @param string $sk |
|
538 | - * @param string $pk |
|
539 | - * @return string |
|
540 | - * @throws SodiumException |
|
541 | - * @throws TypeError |
|
542 | - */ |
|
543 | - public static function box_beforenm($sk, $pk) |
|
544 | - { |
|
545 | - return ParagonIE_Sodium_Core32_HSalsa20::hsalsa20( |
|
546 | - str_repeat("\x00", 16), |
|
547 | - self::scalarmult($sk, $pk) |
|
548 | - ); |
|
549 | - } |
|
550 | - |
|
551 | - /** |
|
552 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
553 | - * |
|
554 | - * @return string |
|
555 | - * @throws Exception |
|
556 | - * @throws SodiumException |
|
557 | - * @throws TypeError |
|
558 | - */ |
|
559 | - public static function box_keypair() |
|
560 | - { |
|
561 | - $sKey = random_bytes(32); |
|
562 | - $pKey = self::scalarmult_base($sKey); |
|
563 | - return $sKey . $pKey; |
|
564 | - } |
|
565 | - |
|
566 | - /** |
|
567 | - * @param string $seed |
|
568 | - * @return string |
|
569 | - * @throws SodiumException |
|
570 | - * @throws TypeError |
|
571 | - */ |
|
572 | - public static function box_seed_keypair($seed) |
|
573 | - { |
|
574 | - $sKey = ParagonIE_Sodium_Core32_Util::substr( |
|
575 | - hash('sha512', $seed, true), |
|
576 | - 0, |
|
577 | - 32 |
|
578 | - ); |
|
579 | - $pKey = self::scalarmult_base($sKey); |
|
580 | - return $sKey . $pKey; |
|
581 | - } |
|
582 | - |
|
583 | - /** |
|
584 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
585 | - * |
|
586 | - * @param string $sKey |
|
587 | - * @param string $pKey |
|
588 | - * @return string |
|
589 | - * @throws TypeError |
|
590 | - */ |
|
591 | - public static function box_keypair_from_secretkey_and_publickey($sKey, $pKey) |
|
592 | - { |
|
593 | - return ParagonIE_Sodium_Core32_Util::substr($sKey, 0, 32) . |
|
594 | - ParagonIE_Sodium_Core32_Util::substr($pKey, 0, 32); |
|
595 | - } |
|
596 | - |
|
597 | - /** |
|
598 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
599 | - * |
|
600 | - * @param string $keypair |
|
601 | - * @return string |
|
602 | - * @throws RangeException |
|
603 | - * @throws TypeError |
|
604 | - */ |
|
605 | - public static function box_secretkey($keypair) |
|
606 | - { |
|
607 | - if (ParagonIE_Sodium_Core32_Util::strlen($keypair) !== 64) { |
|
608 | - throw new RangeException( |
|
609 | - 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES bytes long.' |
|
610 | - ); |
|
611 | - } |
|
612 | - return ParagonIE_Sodium_Core32_Util::substr($keypair, 0, 32); |
|
613 | - } |
|
614 | - |
|
615 | - /** |
|
616 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
617 | - * |
|
618 | - * @param string $keypair |
|
619 | - * @return string |
|
620 | - * @throws RangeException |
|
621 | - * @throws TypeError |
|
622 | - */ |
|
623 | - public static function box_publickey($keypair) |
|
624 | - { |
|
625 | - if (ParagonIE_Sodium_Core32_Util::strlen($keypair) !== ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES) { |
|
626 | - throw new RangeException( |
|
627 | - 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES bytes long.' |
|
628 | - ); |
|
629 | - } |
|
630 | - return ParagonIE_Sodium_Core32_Util::substr($keypair, 32, 32); |
|
631 | - } |
|
632 | - |
|
633 | - /** |
|
634 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
635 | - * |
|
636 | - * @param string $sKey |
|
637 | - * @return string |
|
638 | - * @throws RangeException |
|
639 | - * @throws SodiumException |
|
640 | - * @throws TypeError |
|
641 | - */ |
|
642 | - public static function box_publickey_from_secretkey($sKey) |
|
643 | - { |
|
644 | - if (ParagonIE_Sodium_Core32_Util::strlen($sKey) !== ParagonIE_Sodium_Compat::CRYPTO_BOX_SECRETKEYBYTES) { |
|
645 | - throw new RangeException( |
|
646 | - 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_SECRETKEYBYTES bytes long.' |
|
647 | - ); |
|
648 | - } |
|
649 | - return self::scalarmult_base($sKey); |
|
650 | - } |
|
651 | - |
|
652 | - /** |
|
653 | - * Decrypt a message encrypted with box(). |
|
654 | - * |
|
655 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
656 | - * |
|
657 | - * @param string $ciphertext |
|
658 | - * @param string $nonce |
|
659 | - * @param string $keypair |
|
660 | - * @return string |
|
661 | - * @throws SodiumException |
|
662 | - * @throws TypeError |
|
663 | - */ |
|
664 | - public static function box_open($ciphertext, $nonce, $keypair) |
|
665 | - { |
|
666 | - return self::secretbox_open( |
|
667 | - $ciphertext, |
|
668 | - $nonce, |
|
669 | - self::box_beforenm( |
|
670 | - self::box_secretkey($keypair), |
|
671 | - self::box_publickey($keypair) |
|
672 | - ) |
|
673 | - ); |
|
674 | - } |
|
675 | - |
|
676 | - /** |
|
677 | - * Calculate a BLAKE2b hash. |
|
678 | - * |
|
679 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
680 | - * |
|
681 | - * @param string $message |
|
682 | - * @param string|null $key |
|
683 | - * @param int $outlen |
|
684 | - * @return string |
|
685 | - * @throws RangeException |
|
686 | - * @throws SodiumException |
|
687 | - * @throws TypeError |
|
688 | - */ |
|
689 | - public static function generichash($message, $key = '', $outlen = 32) |
|
690 | - { |
|
691 | - // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
692 | - ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
693 | - |
|
694 | - $k = null; |
|
695 | - if (!empty($key)) { |
|
696 | - /** @var SplFixedArray $k */ |
|
697 | - $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
698 | - if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
699 | - throw new RangeException('Invalid key size'); |
|
700 | - } |
|
701 | - } |
|
702 | - |
|
703 | - /** @var SplFixedArray $in */ |
|
704 | - $in = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($message); |
|
705 | - |
|
706 | - /** @var SplFixedArray $ctx */ |
|
707 | - $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outlen); |
|
708 | - ParagonIE_Sodium_Core32_BLAKE2b::update($ctx, $in, $in->count()); |
|
709 | - |
|
710 | - /** @var SplFixedArray $out */ |
|
711 | - $out = new SplFixedArray($outlen); |
|
712 | - $out = ParagonIE_Sodium_Core32_BLAKE2b::finish($ctx, $out); |
|
713 | - |
|
714 | - /** @var array<int, int> */ |
|
715 | - $outArray = $out->toArray(); |
|
716 | - return ParagonIE_Sodium_Core32_Util::intArrayToString($outArray); |
|
717 | - } |
|
718 | - |
|
719 | - /** |
|
720 | - * Finalize a BLAKE2b hashing context, returning the hash. |
|
721 | - * |
|
722 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
723 | - * |
|
724 | - * @param string $ctx |
|
725 | - * @param int $outlen |
|
726 | - * @return string |
|
727 | - * @throws SodiumException |
|
728 | - * @throws TypeError |
|
729 | - */ |
|
730 | - public static function generichash_final($ctx, $outlen = 32) |
|
731 | - { |
|
732 | - if (!is_string($ctx)) { |
|
733 | - throw new TypeError('Context must be a string'); |
|
734 | - } |
|
735 | - $out = new SplFixedArray($outlen); |
|
736 | - |
|
737 | - /** @var SplFixedArray $context */ |
|
738 | - $context = ParagonIE_Sodium_Core32_BLAKE2b::stringToContext($ctx); |
|
739 | - |
|
740 | - /** @var SplFixedArray $out */ |
|
741 | - $out = ParagonIE_Sodium_Core32_BLAKE2b::finish($context, $out); |
|
742 | - |
|
743 | - /** @var array<int, int> */ |
|
744 | - $outArray = $out->toArray(); |
|
745 | - return ParagonIE_Sodium_Core32_Util::intArrayToString($outArray); |
|
746 | - } |
|
747 | - |
|
748 | - /** |
|
749 | - * Initialize a hashing context for BLAKE2b. |
|
750 | - * |
|
751 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
752 | - * |
|
753 | - * @param string $key |
|
754 | - * @param int $outputLength |
|
755 | - * @return string |
|
756 | - * @throws RangeException |
|
757 | - * @throws SodiumException |
|
758 | - * @throws TypeError |
|
759 | - */ |
|
760 | - public static function generichash_init($key = '', $outputLength = 32) |
|
761 | - { |
|
762 | - // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
763 | - ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
764 | - |
|
765 | - $k = null; |
|
766 | - if (!empty($key)) { |
|
767 | - $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
768 | - if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
769 | - throw new RangeException('Invalid key size'); |
|
770 | - } |
|
771 | - } |
|
772 | - |
|
773 | - /** @var SplFixedArray $ctx */ |
|
774 | - $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outputLength); |
|
775 | - |
|
776 | - return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($ctx); |
|
777 | - } |
|
778 | - |
|
779 | - /** |
|
780 | - * Initialize a hashing context for BLAKE2b. |
|
781 | - * |
|
782 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
783 | - * |
|
784 | - * @param string $key |
|
785 | - * @param int $outputLength |
|
786 | - * @param string $salt |
|
787 | - * @param string $personal |
|
788 | - * @return string |
|
789 | - * @throws RangeException |
|
790 | - * @throws SodiumException |
|
791 | - * @throws TypeError |
|
792 | - */ |
|
793 | - public static function generichash_init_salt_personal( |
|
794 | - $key = '', |
|
795 | - $outputLength = 32, |
|
796 | - $salt = '', |
|
797 | - $personal = '' |
|
798 | - ) { |
|
799 | - // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
800 | - ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
801 | - |
|
802 | - $k = null; |
|
803 | - if (!empty($key)) { |
|
804 | - $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
805 | - if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
806 | - throw new RangeException('Invalid key size'); |
|
807 | - } |
|
808 | - } |
|
809 | - if (!empty($salt)) { |
|
810 | - $s = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($salt); |
|
811 | - } else { |
|
812 | - $s = null; |
|
813 | - } |
|
814 | - if (!empty($salt)) { |
|
815 | - $p = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($personal); |
|
816 | - } else { |
|
817 | - $p = null; |
|
818 | - } |
|
819 | - |
|
820 | - /** @var SplFixedArray $ctx */ |
|
821 | - $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outputLength, $s, $p); |
|
822 | - |
|
823 | - return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($ctx); |
|
824 | - } |
|
825 | - |
|
826 | - /** |
|
827 | - * Update a hashing context for BLAKE2b with $message |
|
828 | - * |
|
829 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
830 | - * |
|
831 | - * @param string $ctx |
|
832 | - * @param string $message |
|
833 | - * @return string |
|
834 | - * @throws SodiumException |
|
835 | - * @throws TypeError |
|
836 | - */ |
|
837 | - public static function generichash_update($ctx, $message) |
|
838 | - { |
|
839 | - // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
840 | - ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
841 | - |
|
842 | - /** @var SplFixedArray $context */ |
|
843 | - $context = ParagonIE_Sodium_Core32_BLAKE2b::stringToContext($ctx); |
|
844 | - |
|
845 | - /** @var SplFixedArray $in */ |
|
846 | - $in = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($message); |
|
847 | - |
|
848 | - ParagonIE_Sodium_Core32_BLAKE2b::update($context, $in, $in->count()); |
|
849 | - |
|
850 | - return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($context); |
|
851 | - } |
|
852 | - |
|
853 | - /** |
|
854 | - * Libsodium's crypto_kx(). |
|
855 | - * |
|
856 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
857 | - * |
|
858 | - * @param string $my_sk |
|
859 | - * @param string $their_pk |
|
860 | - * @param string $client_pk |
|
861 | - * @param string $server_pk |
|
862 | - * @return string |
|
863 | - * @throws SodiumException |
|
864 | - * @throws TypeError |
|
865 | - */ |
|
866 | - public static function keyExchange($my_sk, $their_pk, $client_pk, $server_pk) |
|
867 | - { |
|
868 | - return self::generichash( |
|
869 | - self::scalarmult($my_sk, $their_pk) . |
|
870 | - $client_pk . |
|
871 | - $server_pk |
|
872 | - ); |
|
873 | - } |
|
874 | - |
|
875 | - /** |
|
876 | - * ECDH over Curve25519 |
|
877 | - * |
|
878 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
879 | - * |
|
880 | - * @param string $sKey |
|
881 | - * @param string $pKey |
|
882 | - * @return string |
|
883 | - * |
|
884 | - * @throws SodiumException |
|
885 | - * @throws TypeError |
|
886 | - */ |
|
887 | - public static function scalarmult($sKey, $pKey) |
|
888 | - { |
|
889 | - $q = ParagonIE_Sodium_Core32_X25519::crypto_scalarmult_curve25519_ref10($sKey, $pKey); |
|
890 | - self::scalarmult_throw_if_zero($q); |
|
891 | - return $q; |
|
892 | - } |
|
893 | - |
|
894 | - /** |
|
895 | - * ECDH over Curve25519, using the basepoint. |
|
896 | - * Used to get a secret key from a public key. |
|
897 | - * |
|
898 | - * @param string $secret |
|
899 | - * @return string |
|
900 | - * |
|
901 | - * @throws SodiumException |
|
902 | - * @throws TypeError |
|
903 | - */ |
|
904 | - public static function scalarmult_base($secret) |
|
905 | - { |
|
906 | - $q = ParagonIE_Sodium_Core32_X25519::crypto_scalarmult_curve25519_ref10_base($secret); |
|
907 | - self::scalarmult_throw_if_zero($q); |
|
908 | - return $q; |
|
909 | - } |
|
910 | - |
|
911 | - /** |
|
912 | - * This throws an Error if a zero public key was passed to the function. |
|
913 | - * |
|
914 | - * @param string $q |
|
915 | - * @return void |
|
916 | - * @throws SodiumException |
|
917 | - * @throws TypeError |
|
918 | - */ |
|
919 | - protected static function scalarmult_throw_if_zero($q) |
|
920 | - { |
|
921 | - $d = 0; |
|
922 | - for ($i = 0; $i < self::box_curve25519xsalsa20poly1305_SECRETKEYBYTES; ++$i) { |
|
923 | - $d |= ParagonIE_Sodium_Core32_Util::chrToInt($q[$i]); |
|
924 | - } |
|
925 | - |
|
926 | - /* branch-free variant of === 0 */ |
|
927 | - if (-(1 & (($d - 1) >> 8))) { |
|
928 | - throw new SodiumException('Zero public key is not allowed'); |
|
929 | - } |
|
930 | - } |
|
931 | - |
|
932 | - /** |
|
933 | - * XSalsa20-Poly1305 authenticated symmetric-key encryption. |
|
934 | - * |
|
935 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
936 | - * |
|
937 | - * @param string $plaintext |
|
938 | - * @param string $nonce |
|
939 | - * @param string $key |
|
940 | - * @return string |
|
941 | - * @throws SodiumException |
|
942 | - * @throws TypeError |
|
943 | - */ |
|
944 | - public static function secretbox($plaintext, $nonce, $key) |
|
945 | - { |
|
946 | - /** @var string $subkey */ |
|
947 | - $subkey = ParagonIE_Sodium_Core32_HSalsa20::hsalsa20($nonce, $key); |
|
948 | - |
|
949 | - /** @var string $block0 */ |
|
950 | - $block0 = str_repeat("\x00", 32); |
|
951 | - |
|
952 | - /** @var int $mlen - Length of the plaintext message */ |
|
953 | - $mlen = ParagonIE_Sodium_Core32_Util::strlen($plaintext); |
|
954 | - $mlen0 = $mlen; |
|
955 | - if ($mlen0 > 64 - self::secretbox_xsalsa20poly1305_ZEROBYTES) { |
|
956 | - $mlen0 = 64 - self::secretbox_xsalsa20poly1305_ZEROBYTES; |
|
957 | - } |
|
958 | - $block0 .= ParagonIE_Sodium_Core32_Util::substr($plaintext, 0, $mlen0); |
|
959 | - |
|
960 | - /** @var string $block0 */ |
|
961 | - $block0 = ParagonIE_Sodium_Core32_Salsa20::salsa20_xor( |
|
962 | - $block0, |
|
963 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
964 | - $subkey |
|
965 | - ); |
|
966 | - |
|
967 | - /** @var string $c */ |
|
968 | - $c = ParagonIE_Sodium_Core32_Util::substr( |
|
969 | - $block0, |
|
970 | - self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
971 | - ); |
|
972 | - if ($mlen > $mlen0) { |
|
973 | - $c .= ParagonIE_Sodium_Core32_Salsa20::salsa20_xor_ic( |
|
974 | - ParagonIE_Sodium_Core32_Util::substr( |
|
975 | - $plaintext, |
|
976 | - self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
977 | - ), |
|
978 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
979 | - 1, |
|
980 | - $subkey |
|
981 | - ); |
|
982 | - } |
|
983 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
984 | - ParagonIE_Sodium_Core32_Util::substr( |
|
985 | - $block0, |
|
986 | - 0, |
|
987 | - self::onetimeauth_poly1305_KEYBYTES |
|
988 | - ) |
|
989 | - ); |
|
990 | - try { |
|
991 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
992 | - ParagonIE_Sodium_Compat::memzero($subkey); |
|
993 | - } catch (SodiumException $ex) { |
|
994 | - $block0 = null; |
|
995 | - $subkey = null; |
|
996 | - } |
|
997 | - |
|
998 | - $state->update($c); |
|
999 | - |
|
1000 | - /** @var string $c - MAC || ciphertext */ |
|
1001 | - $c = $state->finish() . $c; |
|
1002 | - unset($state); |
|
1003 | - |
|
1004 | - return $c; |
|
1005 | - } |
|
1006 | - |
|
1007 | - /** |
|
1008 | - * Decrypt a ciphertext generated via secretbox(). |
|
1009 | - * |
|
1010 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1011 | - * |
|
1012 | - * @param string $ciphertext |
|
1013 | - * @param string $nonce |
|
1014 | - * @param string $key |
|
1015 | - * @return string |
|
1016 | - * @throws SodiumException |
|
1017 | - * @throws TypeError |
|
1018 | - */ |
|
1019 | - public static function secretbox_open($ciphertext, $nonce, $key) |
|
1020 | - { |
|
1021 | - /** @var string $mac */ |
|
1022 | - $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
1023 | - $ciphertext, |
|
1024 | - 0, |
|
1025 | - self::secretbox_xsalsa20poly1305_MACBYTES |
|
1026 | - ); |
|
1027 | - |
|
1028 | - /** @var string $c */ |
|
1029 | - $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1030 | - $ciphertext, |
|
1031 | - self::secretbox_xsalsa20poly1305_MACBYTES |
|
1032 | - ); |
|
1033 | - |
|
1034 | - /** @var int $clen */ |
|
1035 | - $clen = ParagonIE_Sodium_Core32_Util::strlen($c); |
|
1036 | - |
|
1037 | - /** @var string $subkey */ |
|
1038 | - $subkey = ParagonIE_Sodium_Core32_HSalsa20::hsalsa20($nonce, $key); |
|
1039 | - |
|
1040 | - /** @var string $block0 */ |
|
1041 | - $block0 = ParagonIE_Sodium_Core32_Salsa20::salsa20( |
|
1042 | - 64, |
|
1043 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1044 | - $subkey |
|
1045 | - ); |
|
1046 | - $verified = ParagonIE_Sodium_Core32_Poly1305::onetimeauth_verify( |
|
1047 | - $mac, |
|
1048 | - $c, |
|
1049 | - ParagonIE_Sodium_Core32_Util::substr($block0, 0, 32) |
|
1050 | - ); |
|
1051 | - if (!$verified) { |
|
1052 | - try { |
|
1053 | - ParagonIE_Sodium_Compat::memzero($subkey); |
|
1054 | - } catch (SodiumException $ex) { |
|
1055 | - $subkey = null; |
|
1056 | - } |
|
1057 | - throw new SodiumException('Invalid MAC'); |
|
1058 | - } |
|
1059 | - |
|
1060 | - /** @var string $m - Decrypted message */ |
|
1061 | - $m = ParagonIE_Sodium_Core32_Util::xorStrings( |
|
1062 | - ParagonIE_Sodium_Core32_Util::substr($block0, self::secretbox_xsalsa20poly1305_ZEROBYTES), |
|
1063 | - ParagonIE_Sodium_Core32_Util::substr($c, 0, self::secretbox_xsalsa20poly1305_ZEROBYTES) |
|
1064 | - ); |
|
1065 | - if ($clen > self::secretbox_xsalsa20poly1305_ZEROBYTES) { |
|
1066 | - // We had more than 1 block, so let's continue to decrypt the rest. |
|
1067 | - $m .= ParagonIE_Sodium_Core32_Salsa20::salsa20_xor_ic( |
|
1068 | - ParagonIE_Sodium_Core32_Util::substr( |
|
1069 | - $c, |
|
1070 | - self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
1071 | - ), |
|
1072 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1073 | - 1, |
|
1074 | - (string) $subkey |
|
1075 | - ); |
|
1076 | - } |
|
1077 | - return $m; |
|
1078 | - } |
|
1079 | - |
|
1080 | - /** |
|
1081 | - * XChaCha20-Poly1305 authenticated symmetric-key encryption. |
|
1082 | - * |
|
1083 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1084 | - * |
|
1085 | - * @param string $plaintext |
|
1086 | - * @param string $nonce |
|
1087 | - * @param string $key |
|
1088 | - * @return string |
|
1089 | - * @throws SodiumException |
|
1090 | - * @throws TypeError |
|
1091 | - */ |
|
1092 | - public static function secretbox_xchacha20poly1305($plaintext, $nonce, $key) |
|
1093 | - { |
|
1094 | - /** @var string $subkey */ |
|
1095 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
1096 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
1097 | - $key |
|
1098 | - ); |
|
1099 | - $nonceLast = ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
1100 | - |
|
1101 | - /** @var string $block0 */ |
|
1102 | - $block0 = str_repeat("\x00", 32); |
|
1103 | - |
|
1104 | - /** @var int $mlen - Length of the plaintext message */ |
|
1105 | - $mlen = ParagonIE_Sodium_Core32_Util::strlen($plaintext); |
|
1106 | - $mlen0 = $mlen; |
|
1107 | - if ($mlen0 > 64 - self::secretbox_xchacha20poly1305_ZEROBYTES) { |
|
1108 | - $mlen0 = 64 - self::secretbox_xchacha20poly1305_ZEROBYTES; |
|
1109 | - } |
|
1110 | - $block0 .= ParagonIE_Sodium_Core32_Util::substr($plaintext, 0, $mlen0); |
|
1111 | - |
|
1112 | - /** @var string $block0 */ |
|
1113 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1114 | - $block0, |
|
1115 | - $nonceLast, |
|
1116 | - $subkey |
|
1117 | - ); |
|
1118 | - |
|
1119 | - /** @var string $c */ |
|
1120 | - $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1121 | - $block0, |
|
1122 | - self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1123 | - ); |
|
1124 | - if ($mlen > $mlen0) { |
|
1125 | - $c .= ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1126 | - ParagonIE_Sodium_Core32_Util::substr( |
|
1127 | - $plaintext, |
|
1128 | - self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1129 | - ), |
|
1130 | - $nonceLast, |
|
1131 | - $subkey, |
|
1132 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1133 | - ); |
|
1134 | - } |
|
1135 | - $state = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1136 | - ParagonIE_Sodium_Core32_Util::substr( |
|
1137 | - $block0, |
|
1138 | - 0, |
|
1139 | - self::onetimeauth_poly1305_KEYBYTES |
|
1140 | - ) |
|
1141 | - ); |
|
1142 | - try { |
|
1143 | - ParagonIE_Sodium_Compat::memzero($block0); |
|
1144 | - ParagonIE_Sodium_Compat::memzero($subkey); |
|
1145 | - } catch (SodiumException $ex) { |
|
1146 | - $block0 = null; |
|
1147 | - $subkey = null; |
|
1148 | - } |
|
1149 | - |
|
1150 | - $state->update($c); |
|
1151 | - |
|
1152 | - /** @var string $c - MAC || ciphertext */ |
|
1153 | - $c = $state->finish() . $c; |
|
1154 | - unset($state); |
|
1155 | - |
|
1156 | - return $c; |
|
1157 | - } |
|
1158 | - |
|
1159 | - /** |
|
1160 | - * Decrypt a ciphertext generated via secretbox_xchacha20poly1305(). |
|
1161 | - * |
|
1162 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1163 | - * |
|
1164 | - * @param string $ciphertext |
|
1165 | - * @param string $nonce |
|
1166 | - * @param string $key |
|
1167 | - * @return string |
|
1168 | - * @throws SodiumException |
|
1169 | - * @throws TypeError |
|
1170 | - */ |
|
1171 | - public static function secretbox_xchacha20poly1305_open($ciphertext, $nonce, $key) |
|
1172 | - { |
|
1173 | - /** @var string $mac */ |
|
1174 | - $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
1175 | - $ciphertext, |
|
1176 | - 0, |
|
1177 | - self::secretbox_xchacha20poly1305_MACBYTES |
|
1178 | - ); |
|
1179 | - |
|
1180 | - /** @var string $c */ |
|
1181 | - $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1182 | - $ciphertext, |
|
1183 | - self::secretbox_xchacha20poly1305_MACBYTES |
|
1184 | - ); |
|
1185 | - |
|
1186 | - /** @var int $clen */ |
|
1187 | - $clen = ParagonIE_Sodium_Core32_Util::strlen($c); |
|
1188 | - |
|
1189 | - /** @var string $subkey */ |
|
1190 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hchacha20($nonce, $key); |
|
1191 | - |
|
1192 | - /** @var string $block0 */ |
|
1193 | - $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
1194 | - 64, |
|
1195 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1196 | - $subkey |
|
1197 | - ); |
|
1198 | - $verified = ParagonIE_Sodium_Core32_Poly1305::onetimeauth_verify( |
|
1199 | - $mac, |
|
1200 | - $c, |
|
1201 | - ParagonIE_Sodium_Core32_Util::substr($block0, 0, 32) |
|
1202 | - ); |
|
1203 | - |
|
1204 | - if (!$verified) { |
|
1205 | - try { |
|
1206 | - ParagonIE_Sodium_Compat::memzero($subkey); |
|
1207 | - } catch (SodiumException $ex) { |
|
1208 | - $subkey = null; |
|
1209 | - } |
|
1210 | - throw new SodiumException('Invalid MAC'); |
|
1211 | - } |
|
1212 | - |
|
1213 | - /** @var string $m - Decrypted message */ |
|
1214 | - $m = ParagonIE_Sodium_Core32_Util::xorStrings( |
|
1215 | - ParagonIE_Sodium_Core32_Util::substr($block0, self::secretbox_xchacha20poly1305_ZEROBYTES), |
|
1216 | - ParagonIE_Sodium_Core32_Util::substr($c, 0, self::secretbox_xchacha20poly1305_ZEROBYTES) |
|
1217 | - ); |
|
1218 | - |
|
1219 | - if ($clen > self::secretbox_xchacha20poly1305_ZEROBYTES) { |
|
1220 | - // We had more than 1 block, so let's continue to decrypt the rest. |
|
1221 | - $m .= ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1222 | - ParagonIE_Sodium_Core32_Util::substr( |
|
1223 | - $c, |
|
1224 | - self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1225 | - ), |
|
1226 | - ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1227 | - (string) $subkey, |
|
1228 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1229 | - ); |
|
1230 | - } |
|
1231 | - return $m; |
|
1232 | - } |
|
1233 | - |
|
1234 | - /** |
|
1235 | - * @param string $key |
|
1236 | - * @return array<int, string> Returns a state and a header. |
|
1237 | - * @throws Exception |
|
1238 | - * @throws SodiumException |
|
1239 | - */ |
|
1240 | - public static function secretstream_xchacha20poly1305_init_push($key) |
|
1241 | - { |
|
1242 | - # randombytes_buf(out, crypto_secretstream_xchacha20poly1305_HEADERBYTES); |
|
1243 | - $out = random_bytes(24); |
|
1244 | - |
|
1245 | - # crypto_core_hchacha20(state->k, out, k, NULL); |
|
1246 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20($out, $key); |
|
1247 | - $state = new ParagonIE_Sodium_Core32_SecretStream_State( |
|
1248 | - $subkey, |
|
1249 | - ParagonIE_Sodium_Core32_Util::substr($out, 16, 8) . str_repeat("\0", 4) |
|
1250 | - ); |
|
1251 | - |
|
1252 | - # _crypto_secretstream_xchacha20poly1305_counter_reset(state); |
|
1253 | - $state->counterReset(); |
|
1254 | - |
|
1255 | - # memcpy(STATE_INONCE(state), out + crypto_core_hchacha20_INPUTBYTES, |
|
1256 | - # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1257 | - # memset(state->_pad, 0, sizeof state->_pad); |
|
1258 | - return array( |
|
1259 | - $state->toString(), |
|
1260 | - $out |
|
1261 | - ); |
|
1262 | - } |
|
1263 | - |
|
1264 | - /** |
|
1265 | - * @param string $key |
|
1266 | - * @param string $header |
|
1267 | - * @return string Returns a state. |
|
1268 | - * @throws Exception |
|
1269 | - */ |
|
1270 | - public static function secretstream_xchacha20poly1305_init_pull($key, $header) |
|
1271 | - { |
|
1272 | - # crypto_core_hchacha20(state->k, in, k, NULL); |
|
1273 | - $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
1274 | - ParagonIE_Sodium_Core32_Util::substr($header, 0, 16), |
|
1275 | - $key |
|
1276 | - ); |
|
1277 | - $state = new ParagonIE_Sodium_Core32_SecretStream_State( |
|
1278 | - $subkey, |
|
1279 | - ParagonIE_Sodium_Core32_Util::substr($header, 16) |
|
1280 | - ); |
|
1281 | - $state->counterReset(); |
|
1282 | - # memcpy(STATE_INONCE(state), in + crypto_core_hchacha20_INPUTBYTES, |
|
1283 | - # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1284 | - # memset(state->_pad, 0, sizeof state->_pad); |
|
1285 | - # return 0; |
|
1286 | - return $state->toString(); |
|
1287 | - } |
|
1288 | - |
|
1289 | - /** |
|
1290 | - * @param string $state |
|
1291 | - * @param string $msg |
|
1292 | - * @param string $aad |
|
1293 | - * @param int $tag |
|
1294 | - * @return string |
|
1295 | - * @throws SodiumException |
|
1296 | - */ |
|
1297 | - public static function secretstream_xchacha20poly1305_push(&$state, $msg, $aad = '', $tag = 0) |
|
1298 | - { |
|
1299 | - $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1300 | - # crypto_onetimeauth_poly1305_state poly1305_state; |
|
1301 | - # unsigned char block[64U]; |
|
1302 | - # unsigned char slen[8U]; |
|
1303 | - # unsigned char *c; |
|
1304 | - # unsigned char *mac; |
|
1305 | - |
|
1306 | - $msglen = ParagonIE_Sodium_Core32_Util::strlen($msg); |
|
1307 | - $aadlen = ParagonIE_Sodium_Core32_Util::strlen($aad); |
|
1308 | - |
|
1309 | - if ((($msglen + 63) >> 6) > 0xfffffffe) { |
|
1310 | - throw new SodiumException( |
|
1311 | - 'message cannot be larger than SODIUM_CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_MESSAGEBYTES_MAX bytes' |
|
1312 | - ); |
|
1313 | - } |
|
1314 | - |
|
1315 | - # if (outlen_p != NULL) { |
|
1316 | - # *outlen_p = 0U; |
|
1317 | - # } |
|
1318 | - # if (mlen > crypto_secretstream_xchacha20poly1305_MESSAGEBYTES_MAX) { |
|
1319 | - # sodium_misuse(); |
|
1320 | - # } |
|
1321 | - |
|
1322 | - # crypto_stream_chacha20_ietf(block, sizeof block, state->nonce, state->k); |
|
1323 | - # crypto_onetimeauth_poly1305_init(&poly1305_state, block); |
|
1324 | - # sodium_memzero(block, sizeof block); |
|
1325 | - $auth = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1326 | - ParagonIE_Sodium_Core32_ChaCha20::ietfStream(32, $st->getCombinedNonce(), $st->getKey()) |
|
1327 | - ); |
|
1328 | - |
|
1329 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, ad, adlen); |
|
1330 | - $auth->update($aad); |
|
1331 | - |
|
1332 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, _pad0, |
|
1333 | - # (0x10 - adlen) & 0xf); |
|
1334 | - $auth->update(str_repeat("\0", ((0x10 - $aadlen) & 0xf))); |
|
1335 | - |
|
1336 | - # memset(block, 0, sizeof block); |
|
1337 | - # block[0] = tag; |
|
1338 | - # crypto_stream_chacha20_ietf_xor_ic(block, block, sizeof block, |
|
1339 | - # state->nonce, 1U, state->k); |
|
1340 | - $block = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1341 | - ParagonIE_Sodium_Core32_Util::intToChr($tag) . str_repeat("\0", 63), |
|
1342 | - $st->getCombinedNonce(), |
|
1343 | - $st->getKey(), |
|
1344 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1345 | - ); |
|
1346 | - |
|
1347 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, block, sizeof block); |
|
1348 | - $auth->update($block); |
|
1349 | - |
|
1350 | - # out[0] = block[0]; |
|
1351 | - $out = $block[0]; |
|
1352 | - # c = out + (sizeof tag); |
|
1353 | - # crypto_stream_chacha20_ietf_xor_ic(c, m, mlen, state->nonce, 2U, state->k); |
|
1354 | - $cipher = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1355 | - $msg, |
|
1356 | - $st->getCombinedNonce(), |
|
1357 | - $st->getKey(), |
|
1358 | - ParagonIE_Sodium_Core32_Util::store64_le(2) |
|
1359 | - ); |
|
1360 | - |
|
1361 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, c, mlen); |
|
1362 | - $auth->update($cipher); |
|
1363 | - |
|
1364 | - $out .= $cipher; |
|
1365 | - unset($cipher); |
|
1366 | - |
|
1367 | - # crypto_onetimeauth_poly1305_update |
|
1368 | - # (&poly1305_state, _pad0, (0x10 - (sizeof block) + mlen) & 0xf); |
|
1369 | - $auth->update(str_repeat("\0", ((0x10 - 64 + $msglen) & 0xf))); |
|
1370 | - |
|
1371 | - # STORE64_LE(slen, (uint64_t) adlen); |
|
1372 | - $slen = ParagonIE_Sodium_Core32_Util::store64_le($aadlen); |
|
1373 | - |
|
1374 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1375 | - $auth->update($slen); |
|
1376 | - |
|
1377 | - # STORE64_LE(slen, (sizeof block) + mlen); |
|
1378 | - $slen = ParagonIE_Sodium_Core32_Util::store64_le(64 + $msglen); |
|
1379 | - |
|
1380 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1381 | - $auth->update($slen); |
|
1382 | - |
|
1383 | - # mac = c + mlen; |
|
1384 | - # crypto_onetimeauth_poly1305_final(&poly1305_state, mac); |
|
1385 | - $mac = $auth->finish(); |
|
1386 | - $out .= $mac; |
|
1387 | - |
|
1388 | - # sodium_memzero(&poly1305_state, sizeof poly1305_state); |
|
1389 | - unset($auth); |
|
1390 | - |
|
1391 | - |
|
1392 | - # XOR_BUF(STATE_INONCE(state), mac, |
|
1393 | - # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1394 | - $st->xorNonce($mac); |
|
1395 | - |
|
1396 | - # sodium_increment(STATE_COUNTER(state), |
|
1397 | - # crypto_secretstream_xchacha20poly1305_COUNTERBYTES); |
|
1398 | - $st->incrementCounter(); |
|
1399 | - // Overwrite by reference: |
|
1400 | - $state = $st->toString(); |
|
1401 | - |
|
1402 | - /** @var bool $rekey */ |
|
1403 | - $rekey = ($tag & ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_TAG_REKEY) !== 0; |
|
1404 | - # if ((tag & crypto_secretstream_xchacha20poly1305_TAG_REKEY) != 0 || |
|
1405 | - # sodium_is_zero(STATE_COUNTER(state), |
|
1406 | - # crypto_secretstream_xchacha20poly1305_COUNTERBYTES)) { |
|
1407 | - # crypto_secretstream_xchacha20poly1305_rekey(state); |
|
1408 | - # } |
|
1409 | - if ($rekey || $st->needsRekey()) { |
|
1410 | - // DO REKEY |
|
1411 | - self::secretstream_xchacha20poly1305_rekey($state); |
|
1412 | - } |
|
1413 | - # if (outlen_p != NULL) { |
|
1414 | - # *outlen_p = crypto_secretstream_xchacha20poly1305_ABYTES + mlen; |
|
1415 | - # } |
|
1416 | - return $out; |
|
1417 | - } |
|
1418 | - |
|
1419 | - /** |
|
1420 | - * @param string $state |
|
1421 | - * @param string $cipher |
|
1422 | - * @param string $aad |
|
1423 | - * @return bool|array{0: string, 1: int} |
|
1424 | - * @throws SodiumException |
|
1425 | - */ |
|
1426 | - public static function secretstream_xchacha20poly1305_pull(&$state, $cipher, $aad = '') |
|
1427 | - { |
|
1428 | - $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1429 | - |
|
1430 | - $cipherlen = ParagonIE_Sodium_Core32_Util::strlen($cipher); |
|
1431 | - # mlen = inlen - crypto_secretstream_xchacha20poly1305_ABYTES; |
|
1432 | - $msglen = $cipherlen - ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_ABYTES; |
|
1433 | - $aadlen = ParagonIE_Sodium_Core32_Util::strlen($aad); |
|
1434 | - |
|
1435 | - # if (mlen > crypto_secretstream_xchacha20poly1305_MESSAGEBYTES_MAX) { |
|
1436 | - # sodium_misuse(); |
|
1437 | - # } |
|
1438 | - if ((($msglen + 63) >> 6) > 0xfffffffe) { |
|
1439 | - throw new SodiumException( |
|
1440 | - 'message cannot be larger than SODIUM_CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_MESSAGEBYTES_MAX bytes' |
|
1441 | - ); |
|
1442 | - } |
|
1443 | - |
|
1444 | - # crypto_stream_chacha20_ietf(block, sizeof block, state->nonce, state->k); |
|
1445 | - # crypto_onetimeauth_poly1305_init(&poly1305_state, block); |
|
1446 | - # sodium_memzero(block, sizeof block); |
|
1447 | - $auth = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1448 | - ParagonIE_Sodium_Core32_ChaCha20::ietfStream(32, $st->getCombinedNonce(), $st->getKey()) |
|
1449 | - ); |
|
1450 | - |
|
1451 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, ad, adlen); |
|
1452 | - $auth->update($aad); |
|
1453 | - |
|
1454 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, _pad0, |
|
1455 | - # (0x10 - adlen) & 0xf); |
|
1456 | - $auth->update(str_repeat("\0", ((0x10 - $aadlen) & 0xf))); |
|
1457 | - |
|
1458 | - |
|
1459 | - # memset(block, 0, sizeof block); |
|
1460 | - # block[0] = in[0]; |
|
1461 | - # crypto_stream_chacha20_ietf_xor_ic(block, block, sizeof block, |
|
1462 | - # state->nonce, 1U, state->k); |
|
1463 | - $block = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1464 | - $cipher[0] . str_repeat("\0", 63), |
|
1465 | - $st->getCombinedNonce(), |
|
1466 | - $st->getKey(), |
|
1467 | - ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1468 | - ); |
|
1469 | - # tag = block[0]; |
|
1470 | - # block[0] = in[0]; |
|
1471 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, block, sizeof block); |
|
1472 | - $tag = ParagonIE_Sodium_Core32_Util::chrToInt($block[0]); |
|
1473 | - $block[0] = $cipher[0]; |
|
1474 | - $auth->update($block); |
|
1475 | - |
|
1476 | - |
|
1477 | - # c = in + (sizeof tag); |
|
1478 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, c, mlen); |
|
1479 | - $auth->update(ParagonIE_Sodium_Core32_Util::substr($cipher, 1, $msglen)); |
|
1480 | - |
|
1481 | - # crypto_onetimeauth_poly1305_update |
|
1482 | - # (&poly1305_state, _pad0, (0x10 - (sizeof block) + mlen) & 0xf); |
|
1483 | - $auth->update(str_repeat("\0", ((0x10 - 64 + $msglen) & 0xf))); |
|
1484 | - |
|
1485 | - # STORE64_LE(slen, (uint64_t) adlen); |
|
1486 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1487 | - $slen = ParagonIE_Sodium_Core32_Util::store64_le($aadlen); |
|
1488 | - $auth->update($slen); |
|
1489 | - |
|
1490 | - # STORE64_LE(slen, (sizeof block) + mlen); |
|
1491 | - # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1492 | - $slen = ParagonIE_Sodium_Core32_Util::store64_le(64 + $msglen); |
|
1493 | - $auth->update($slen); |
|
1494 | - |
|
1495 | - # crypto_onetimeauth_poly1305_final(&poly1305_state, mac); |
|
1496 | - # sodium_memzero(&poly1305_state, sizeof poly1305_state); |
|
1497 | - $mac = $auth->finish(); |
|
1498 | - |
|
1499 | - # stored_mac = c + mlen; |
|
1500 | - # if (sodium_memcmp(mac, stored_mac, sizeof mac) != 0) { |
|
1501 | - # sodium_memzero(mac, sizeof mac); |
|
1502 | - # return -1; |
|
1503 | - # } |
|
1504 | - |
|
1505 | - $stored = ParagonIE_Sodium_Core32_Util::substr($cipher, $msglen + 1, 16); |
|
1506 | - if (!ParagonIE_Sodium_Core32_Util::hashEquals($mac, $stored)) { |
|
1507 | - return false; |
|
1508 | - } |
|
1509 | - |
|
1510 | - # crypto_stream_chacha20_ietf_xor_ic(m, c, mlen, state->nonce, 2U, state->k); |
|
1511 | - $out = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1512 | - ParagonIE_Sodium_Core32_Util::substr($cipher, 1, $msglen), |
|
1513 | - $st->getCombinedNonce(), |
|
1514 | - $st->getKey(), |
|
1515 | - ParagonIE_Sodium_Core32_Util::store64_le(2) |
|
1516 | - ); |
|
1517 | - |
|
1518 | - # XOR_BUF(STATE_INONCE(state), mac, |
|
1519 | - # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1520 | - $st->xorNonce($mac); |
|
1521 | - |
|
1522 | - # sodium_increment(STATE_COUNTER(state), |
|
1523 | - # crypto_secretstream_xchacha20poly1305_COUNTERBYTES); |
|
1524 | - $st->incrementCounter(); |
|
1525 | - |
|
1526 | - # if ((tag & crypto_secretstream_xchacha20poly1305_TAG_REKEY) != 0 || |
|
1527 | - # sodium_is_zero(STATE_COUNTER(state), |
|
1528 | - # crypto_secretstream_xchacha20poly1305_COUNTERBYTES)) { |
|
1529 | - # crypto_secretstream_xchacha20poly1305_rekey(state); |
|
1530 | - # } |
|
1531 | - |
|
1532 | - // Overwrite by reference: |
|
1533 | - $state = $st->toString(); |
|
1534 | - |
|
1535 | - /** @var bool $rekey */ |
|
1536 | - $rekey = ($tag & ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_TAG_REKEY) !== 0; |
|
1537 | - if ($rekey || $st->needsRekey()) { |
|
1538 | - // DO REKEY |
|
1539 | - self::secretstream_xchacha20poly1305_rekey($state); |
|
1540 | - } |
|
1541 | - return array($out, $tag); |
|
1542 | - } |
|
1543 | - |
|
1544 | - /** |
|
1545 | - * @param string $state |
|
1546 | - * @return void |
|
1547 | - * @throws SodiumException |
|
1548 | - */ |
|
1549 | - public static function secretstream_xchacha20poly1305_rekey(&$state) |
|
1550 | - { |
|
1551 | - $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1552 | - # unsigned char new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + |
|
1553 | - # crypto_secretstream_xchacha20poly1305_INONCEBYTES]; |
|
1554 | - # size_t i; |
|
1555 | - # for (i = 0U; i < crypto_stream_chacha20_ietf_KEYBYTES; i++) { |
|
1556 | - # new_key_and_inonce[i] = state->k[i]; |
|
1557 | - # } |
|
1558 | - $new_key_and_inonce = $st->getKey(); |
|
1559 | - |
|
1560 | - # for (i = 0U; i < crypto_secretstream_xchacha20poly1305_INONCEBYTES; i++) { |
|
1561 | - # new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + i] = |
|
1562 | - # STATE_INONCE(state)[i]; |
|
1563 | - # } |
|
1564 | - $new_key_and_inonce .= ParagonIE_Sodium_Core32_Util::substR($st->getNonce(), 0, 8); |
|
1565 | - |
|
1566 | - # crypto_stream_chacha20_ietf_xor(new_key_and_inonce, new_key_and_inonce, |
|
1567 | - # sizeof new_key_and_inonce, |
|
1568 | - # state->nonce, state->k); |
|
1569 | - |
|
1570 | - $st->rekey(ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1571 | - $new_key_and_inonce, |
|
1572 | - $st->getCombinedNonce(), |
|
1573 | - $st->getKey(), |
|
1574 | - ParagonIE_Sodium_Core32_Util::store64_le(0) |
|
1575 | - )); |
|
1576 | - |
|
1577 | - # for (i = 0U; i < crypto_stream_chacha20_ietf_KEYBYTES; i++) { |
|
1578 | - # state->k[i] = new_key_and_inonce[i]; |
|
1579 | - # } |
|
1580 | - # for (i = 0U; i < crypto_secretstream_xchacha20poly1305_INONCEBYTES; i++) { |
|
1581 | - # STATE_INONCE(state)[i] = |
|
1582 | - # new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + i]; |
|
1583 | - # } |
|
1584 | - # _crypto_secretstream_xchacha20poly1305_counter_reset(state); |
|
1585 | - $st->counterReset(); |
|
1586 | - |
|
1587 | - $state = $st->toString(); |
|
1588 | - } |
|
1589 | - |
|
1590 | - /** |
|
1591 | - * Detached Ed25519 signature. |
|
1592 | - * |
|
1593 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1594 | - * |
|
1595 | - * @param string $message |
|
1596 | - * @param string $sk |
|
1597 | - * @return string |
|
1598 | - * @throws SodiumException |
|
1599 | - * @throws TypeError |
|
1600 | - */ |
|
1601 | - public static function sign_detached($message, $sk) |
|
1602 | - { |
|
1603 | - return ParagonIE_Sodium_Core32_Ed25519::sign_detached($message, $sk); |
|
1604 | - } |
|
1605 | - |
|
1606 | - /** |
|
1607 | - * Attached Ed25519 signature. (Returns a signed message.) |
|
1608 | - * |
|
1609 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1610 | - * |
|
1611 | - * @param string $message |
|
1612 | - * @param string $sk |
|
1613 | - * @return string |
|
1614 | - * @throws SodiumException |
|
1615 | - * @throws TypeError |
|
1616 | - */ |
|
1617 | - public static function sign($message, $sk) |
|
1618 | - { |
|
1619 | - return ParagonIE_Sodium_Core32_Ed25519::sign($message, $sk); |
|
1620 | - } |
|
1621 | - |
|
1622 | - /** |
|
1623 | - * Opens a signed message. If valid, returns the message. |
|
1624 | - * |
|
1625 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1626 | - * |
|
1627 | - * @param string $signedMessage |
|
1628 | - * @param string $pk |
|
1629 | - * @return string |
|
1630 | - * @throws SodiumException |
|
1631 | - * @throws TypeError |
|
1632 | - */ |
|
1633 | - public static function sign_open($signedMessage, $pk) |
|
1634 | - { |
|
1635 | - return ParagonIE_Sodium_Core32_Ed25519::sign_open($signedMessage, $pk); |
|
1636 | - } |
|
1637 | - |
|
1638 | - /** |
|
1639 | - * Verify a detached signature of a given message and public key. |
|
1640 | - * |
|
1641 | - * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1642 | - * |
|
1643 | - * @param string $signature |
|
1644 | - * @param string $message |
|
1645 | - * @param string $pk |
|
1646 | - * @return bool |
|
1647 | - * @throws SodiumException |
|
1648 | - * @throws TypeError |
|
1649 | - */ |
|
1650 | - public static function sign_verify_detached($signature, $message, $pk) |
|
1651 | - { |
|
1652 | - return ParagonIE_Sodium_Core32_Ed25519::verify_detached($signature, $message, $pk); |
|
1653 | - } |
|
17 | + const aead_chacha20poly1305_KEYBYTES = 32; |
|
18 | + const aead_chacha20poly1305_NSECBYTES = 0; |
|
19 | + const aead_chacha20poly1305_NPUBBYTES = 8; |
|
20 | + const aead_chacha20poly1305_ABYTES = 16; |
|
21 | + |
|
22 | + const aead_chacha20poly1305_IETF_KEYBYTES = 32; |
|
23 | + const aead_chacha20poly1305_IETF_NSECBYTES = 0; |
|
24 | + const aead_chacha20poly1305_IETF_NPUBBYTES = 12; |
|
25 | + const aead_chacha20poly1305_IETF_ABYTES = 16; |
|
26 | + |
|
27 | + const aead_xchacha20poly1305_IETF_KEYBYTES = 32; |
|
28 | + const aead_xchacha20poly1305_IETF_NSECBYTES = 0; |
|
29 | + const aead_xchacha20poly1305_IETF_NPUBBYTES = 24; |
|
30 | + const aead_xchacha20poly1305_IETF_ABYTES = 16; |
|
31 | + |
|
32 | + const box_curve25519xsalsa20poly1305_SEEDBYTES = 32; |
|
33 | + const box_curve25519xsalsa20poly1305_PUBLICKEYBYTES = 32; |
|
34 | + const box_curve25519xsalsa20poly1305_SECRETKEYBYTES = 32; |
|
35 | + const box_curve25519xsalsa20poly1305_BEFORENMBYTES = 32; |
|
36 | + const box_curve25519xsalsa20poly1305_NONCEBYTES = 24; |
|
37 | + const box_curve25519xsalsa20poly1305_MACBYTES = 16; |
|
38 | + const box_curve25519xsalsa20poly1305_BOXZEROBYTES = 16; |
|
39 | + const box_curve25519xsalsa20poly1305_ZEROBYTES = 32; |
|
40 | + |
|
41 | + const onetimeauth_poly1305_BYTES = 16; |
|
42 | + const onetimeauth_poly1305_KEYBYTES = 32; |
|
43 | + |
|
44 | + const secretbox_xsalsa20poly1305_KEYBYTES = 32; |
|
45 | + const secretbox_xsalsa20poly1305_NONCEBYTES = 24; |
|
46 | + const secretbox_xsalsa20poly1305_MACBYTES = 16; |
|
47 | + const secretbox_xsalsa20poly1305_BOXZEROBYTES = 16; |
|
48 | + const secretbox_xsalsa20poly1305_ZEROBYTES = 32; |
|
49 | + |
|
50 | + const secretbox_xchacha20poly1305_KEYBYTES = 32; |
|
51 | + const secretbox_xchacha20poly1305_NONCEBYTES = 24; |
|
52 | + const secretbox_xchacha20poly1305_MACBYTES = 16; |
|
53 | + const secretbox_xchacha20poly1305_BOXZEROBYTES = 16; |
|
54 | + const secretbox_xchacha20poly1305_ZEROBYTES = 32; |
|
55 | + |
|
56 | + const stream_salsa20_KEYBYTES = 32; |
|
57 | + |
|
58 | + /** |
|
59 | + * AEAD Decryption with ChaCha20-Poly1305 |
|
60 | + * |
|
61 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
62 | + * |
|
63 | + * @param string $message |
|
64 | + * @param string $ad |
|
65 | + * @param string $nonce |
|
66 | + * @param string $key |
|
67 | + * @return string |
|
68 | + * @throws SodiumException |
|
69 | + * @throws TypeError |
|
70 | + */ |
|
71 | + public static function aead_chacha20poly1305_decrypt( |
|
72 | + $message = '', |
|
73 | + $ad = '', |
|
74 | + $nonce = '', |
|
75 | + $key = '' |
|
76 | + ) { |
|
77 | + /** @var int $len - Length of message (ciphertext + MAC) */ |
|
78 | + $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
79 | + |
|
80 | + /** @var int $clen - Length of ciphertext */ |
|
81 | + $clen = $len - self::aead_chacha20poly1305_ABYTES; |
|
82 | + |
|
83 | + /** @var int $adlen - Length of associated data */ |
|
84 | + $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
85 | + |
|
86 | + /** @var string $mac - Message authentication code */ |
|
87 | + $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
88 | + $message, |
|
89 | + $clen, |
|
90 | + self::aead_chacha20poly1305_ABYTES |
|
91 | + ); |
|
92 | + |
|
93 | + /** @var string $ciphertext - The encrypted message (sans MAC) */ |
|
94 | + $ciphertext = ParagonIE_Sodium_Core32_Util::substr($message, 0, $clen); |
|
95 | + |
|
96 | + /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
97 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
98 | + 32, |
|
99 | + $nonce, |
|
100 | + $key |
|
101 | + ); |
|
102 | + |
|
103 | + /* Recalculate the Poly1305 authentication tag (MAC): */ |
|
104 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
105 | + try { |
|
106 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
107 | + } catch (SodiumException $ex) { |
|
108 | + $block0 = null; |
|
109 | + } |
|
110 | + $state->update($ad); |
|
111 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
112 | + $state->update($ciphertext); |
|
113 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($clen)); |
|
114 | + $computed_mac = $state->finish(); |
|
115 | + |
|
116 | + /* Compare the given MAC with the recalculated MAC: */ |
|
117 | + if (!ParagonIE_Sodium_Core32_Util::verify_16($computed_mac, $mac)) { |
|
118 | + throw new SodiumException('Invalid MAC'); |
|
119 | + } |
|
120 | + |
|
121 | + // Here, we know that the MAC is valid, so we decrypt and return the plaintext |
|
122 | + return ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
123 | + $ciphertext, |
|
124 | + $nonce, |
|
125 | + $key, |
|
126 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
127 | + ); |
|
128 | + } |
|
129 | + |
|
130 | + /** |
|
131 | + * AEAD Encryption with ChaCha20-Poly1305 |
|
132 | + * |
|
133 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
134 | + * |
|
135 | + * @param string $message |
|
136 | + * @param string $ad |
|
137 | + * @param string $nonce |
|
138 | + * @param string $key |
|
139 | + * @return string |
|
140 | + * @throws SodiumException |
|
141 | + * @throws TypeError |
|
142 | + */ |
|
143 | + public static function aead_chacha20poly1305_encrypt( |
|
144 | + $message = '', |
|
145 | + $ad = '', |
|
146 | + $nonce = '', |
|
147 | + $key = '' |
|
148 | + ) { |
|
149 | + /** @var int $len - Length of the plaintext message */ |
|
150 | + $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
151 | + |
|
152 | + /** @var int $adlen - Length of the associated data */ |
|
153 | + $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
154 | + |
|
155 | + /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
156 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
157 | + 32, |
|
158 | + $nonce, |
|
159 | + $key |
|
160 | + ); |
|
161 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
162 | + try { |
|
163 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
164 | + } catch (SodiumException $ex) { |
|
165 | + $block0 = null; |
|
166 | + } |
|
167 | + |
|
168 | + /** @var string $ciphertext - Raw encrypted data */ |
|
169 | + $ciphertext = ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
170 | + $message, |
|
171 | + $nonce, |
|
172 | + $key, |
|
173 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
174 | + ); |
|
175 | + |
|
176 | + $state->update($ad); |
|
177 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
178 | + $state->update($ciphertext); |
|
179 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($len)); |
|
180 | + return $ciphertext . $state->finish(); |
|
181 | + } |
|
182 | + |
|
183 | + /** |
|
184 | + * AEAD Decryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
185 | + * |
|
186 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
187 | + * |
|
188 | + * @param string $message |
|
189 | + * @param string $ad |
|
190 | + * @param string $nonce |
|
191 | + * @param string $key |
|
192 | + * @return string |
|
193 | + * @throws SodiumException |
|
194 | + * @throws TypeError |
|
195 | + */ |
|
196 | + public static function aead_chacha20poly1305_ietf_decrypt( |
|
197 | + $message = '', |
|
198 | + $ad = '', |
|
199 | + $nonce = '', |
|
200 | + $key = '' |
|
201 | + ) { |
|
202 | + /** @var int $adlen - Length of associated data */ |
|
203 | + $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
204 | + |
|
205 | + /** @var int $len - Length of message (ciphertext + MAC) */ |
|
206 | + $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
207 | + |
|
208 | + /** @var int $clen - Length of ciphertext */ |
|
209 | + $clen = $len - self::aead_chacha20poly1305_IETF_ABYTES; |
|
210 | + |
|
211 | + /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
212 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::ietfStream( |
|
213 | + 32, |
|
214 | + $nonce, |
|
215 | + $key |
|
216 | + ); |
|
217 | + |
|
218 | + /** @var string $mac - Message authentication code */ |
|
219 | + $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
220 | + $message, |
|
221 | + $len - self::aead_chacha20poly1305_IETF_ABYTES, |
|
222 | + self::aead_chacha20poly1305_IETF_ABYTES |
|
223 | + ); |
|
224 | + |
|
225 | + /** @var string $ciphertext - The encrypted message (sans MAC) */ |
|
226 | + $ciphertext = ParagonIE_Sodium_Core32_Util::substr( |
|
227 | + $message, |
|
228 | + 0, |
|
229 | + $len - self::aead_chacha20poly1305_IETF_ABYTES |
|
230 | + ); |
|
231 | + |
|
232 | + /* Recalculate the Poly1305 authentication tag (MAC): */ |
|
233 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
234 | + try { |
|
235 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
236 | + } catch (SodiumException $ex) { |
|
237 | + $block0 = null; |
|
238 | + } |
|
239 | + $state->update($ad); |
|
240 | + $state->update(str_repeat("\x00", ((0x10 - $adlen) & 0xf))); |
|
241 | + $state->update($ciphertext); |
|
242 | + $state->update(str_repeat("\x00", (0x10 - $clen) & 0xf)); |
|
243 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
244 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($clen)); |
|
245 | + $computed_mac = $state->finish(); |
|
246 | + |
|
247 | + /* Compare the given MAC with the recalculated MAC: */ |
|
248 | + if (!ParagonIE_Sodium_Core32_Util::verify_16($computed_mac, $mac)) { |
|
249 | + throw new SodiumException('Invalid MAC'); |
|
250 | + } |
|
251 | + |
|
252 | + // Here, we know that the MAC is valid, so we decrypt and return the plaintext |
|
253 | + return ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
254 | + $ciphertext, |
|
255 | + $nonce, |
|
256 | + $key, |
|
257 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
258 | + ); |
|
259 | + } |
|
260 | + |
|
261 | + /** |
|
262 | + * AEAD Encryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
263 | + * |
|
264 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
265 | + * |
|
266 | + * @param string $message |
|
267 | + * @param string $ad |
|
268 | + * @param string $nonce |
|
269 | + * @param string $key |
|
270 | + * @return string |
|
271 | + * @throws SodiumException |
|
272 | + * @throws TypeError |
|
273 | + */ |
|
274 | + public static function aead_chacha20poly1305_ietf_encrypt( |
|
275 | + $message = '', |
|
276 | + $ad = '', |
|
277 | + $nonce = '', |
|
278 | + $key = '' |
|
279 | + ) { |
|
280 | + /** @var int $len - Length of the plaintext message */ |
|
281 | + $len = ParagonIE_Sodium_Core32_Util::strlen($message); |
|
282 | + |
|
283 | + /** @var int $adlen - Length of the associated data */ |
|
284 | + $adlen = ParagonIE_Sodium_Core32_Util::strlen($ad); |
|
285 | + |
|
286 | + /** @var string The first block of the chacha20 keystream, used as a poly1305 key */ |
|
287 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::ietfStream( |
|
288 | + 32, |
|
289 | + $nonce, |
|
290 | + $key |
|
291 | + ); |
|
292 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State($block0); |
|
293 | + try { |
|
294 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
295 | + } catch (SodiumException $ex) { |
|
296 | + $block0 = null; |
|
297 | + } |
|
298 | + |
|
299 | + /** @var string $ciphertext - Raw encrypted data */ |
|
300 | + $ciphertext = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
301 | + $message, |
|
302 | + $nonce, |
|
303 | + $key, |
|
304 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
305 | + ); |
|
306 | + |
|
307 | + $state->update($ad); |
|
308 | + $state->update(str_repeat("\x00", ((0x10 - $adlen) & 0xf))); |
|
309 | + $state->update($ciphertext); |
|
310 | + $state->update(str_repeat("\x00", ((0x10 - $len) & 0xf))); |
|
311 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($adlen)); |
|
312 | + $state->update(ParagonIE_Sodium_Core32_Util::store64_le($len)); |
|
313 | + return $ciphertext . $state->finish(); |
|
314 | + } |
|
315 | + |
|
316 | + /** |
|
317 | + * AEAD Decryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
318 | + * |
|
319 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
320 | + * |
|
321 | + * @param string $message |
|
322 | + * @param string $ad |
|
323 | + * @param string $nonce |
|
324 | + * @param string $key |
|
325 | + * @return string |
|
326 | + * @throws SodiumException |
|
327 | + * @throws TypeError |
|
328 | + */ |
|
329 | + public static function aead_xchacha20poly1305_ietf_decrypt( |
|
330 | + $message = '', |
|
331 | + $ad = '', |
|
332 | + $nonce = '', |
|
333 | + $key = '' |
|
334 | + ) { |
|
335 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
336 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
337 | + $key |
|
338 | + ); |
|
339 | + $nonceLast = "\x00\x00\x00\x00" . |
|
340 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
341 | + |
|
342 | + return self::aead_chacha20poly1305_ietf_decrypt($message, $ad, $nonceLast, $subkey); |
|
343 | + } |
|
344 | + |
|
345 | + /** |
|
346 | + * AEAD Encryption with ChaCha20-Poly1305, IETF mode (96-bit nonce) |
|
347 | + * |
|
348 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
349 | + * |
|
350 | + * @param string $message |
|
351 | + * @param string $ad |
|
352 | + * @param string $nonce |
|
353 | + * @param string $key |
|
354 | + * @return string |
|
355 | + * @throws SodiumException |
|
356 | + * @throws TypeError |
|
357 | + */ |
|
358 | + public static function aead_xchacha20poly1305_ietf_encrypt( |
|
359 | + $message = '', |
|
360 | + $ad = '', |
|
361 | + $nonce = '', |
|
362 | + $key = '' |
|
363 | + ) { |
|
364 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
365 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
366 | + $key |
|
367 | + ); |
|
368 | + $nonceLast = "\x00\x00\x00\x00" . |
|
369 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
370 | + |
|
371 | + return self::aead_chacha20poly1305_ietf_encrypt($message, $ad, $nonceLast, $subkey); |
|
372 | + } |
|
373 | + |
|
374 | + /** |
|
375 | + * HMAC-SHA-512-256 (a.k.a. the leftmost 256 bits of HMAC-SHA-512) |
|
376 | + * |
|
377 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
378 | + * |
|
379 | + * @param string $message |
|
380 | + * @param string $key |
|
381 | + * @return string |
|
382 | + * @throws TypeError |
|
383 | + */ |
|
384 | + public static function auth($message, $key) |
|
385 | + { |
|
386 | + return ParagonIE_Sodium_Core32_Util::substr( |
|
387 | + hash_hmac('sha512', $message, $key, true), |
|
388 | + 0, |
|
389 | + 32 |
|
390 | + ); |
|
391 | + } |
|
392 | + |
|
393 | + /** |
|
394 | + * HMAC-SHA-512-256 validation. Constant-time via hash_equals(). |
|
395 | + * |
|
396 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
397 | + * |
|
398 | + * @param string $mac |
|
399 | + * @param string $message |
|
400 | + * @param string $key |
|
401 | + * @return bool |
|
402 | + * @throws SodiumException |
|
403 | + * @throws TypeError |
|
404 | + */ |
|
405 | + public static function auth_verify($mac, $message, $key) |
|
406 | + { |
|
407 | + return ParagonIE_Sodium_Core32_Util::hashEquals( |
|
408 | + $mac, |
|
409 | + self::auth($message, $key) |
|
410 | + ); |
|
411 | + } |
|
412 | + |
|
413 | + /** |
|
414 | + * X25519 key exchange followed by XSalsa20Poly1305 symmetric encryption |
|
415 | + * |
|
416 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
417 | + * |
|
418 | + * @param string $plaintext |
|
419 | + * @param string $nonce |
|
420 | + * @param string $keypair |
|
421 | + * @return string |
|
422 | + * @throws SodiumException |
|
423 | + * @throws TypeError |
|
424 | + */ |
|
425 | + public static function box($plaintext, $nonce, $keypair) |
|
426 | + { |
|
427 | + return self::secretbox( |
|
428 | + $plaintext, |
|
429 | + $nonce, |
|
430 | + self::box_beforenm( |
|
431 | + self::box_secretkey($keypair), |
|
432 | + self::box_publickey($keypair) |
|
433 | + ) |
|
434 | + ); |
|
435 | + } |
|
436 | + |
|
437 | + /** |
|
438 | + * X25519-XSalsa20-Poly1305 with one ephemeral X25519 keypair. |
|
439 | + * |
|
440 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
441 | + * |
|
442 | + * @param string $message |
|
443 | + * @param string $publicKey |
|
444 | + * @return string |
|
445 | + * @throws SodiumException |
|
446 | + * @throws TypeError |
|
447 | + */ |
|
448 | + public static function box_seal($message, $publicKey) |
|
449 | + { |
|
450 | + /** @var string $ephemeralKeypair */ |
|
451 | + $ephemeralKeypair = self::box_keypair(); |
|
452 | + |
|
453 | + /** @var string $ephemeralSK */ |
|
454 | + $ephemeralSK = self::box_secretkey($ephemeralKeypair); |
|
455 | + |
|
456 | + /** @var string $ephemeralPK */ |
|
457 | + $ephemeralPK = self::box_publickey($ephemeralKeypair); |
|
458 | + |
|
459 | + /** @var string $nonce */ |
|
460 | + $nonce = self::generichash( |
|
461 | + $ephemeralPK . $publicKey, |
|
462 | + '', |
|
463 | + 24 |
|
464 | + ); |
|
465 | + |
|
466 | + /** @var string $keypair - The combined keypair used in crypto_box() */ |
|
467 | + $keypair = self::box_keypair_from_secretkey_and_publickey($ephemeralSK, $publicKey); |
|
468 | + |
|
469 | + /** @var string $ciphertext Ciphertext + MAC from crypto_box */ |
|
470 | + $ciphertext = self::box($message, $nonce, $keypair); |
|
471 | + try { |
|
472 | + ParagonIE_Sodium_Compat::memzero($ephemeralKeypair); |
|
473 | + ParagonIE_Sodium_Compat::memzero($ephemeralSK); |
|
474 | + ParagonIE_Sodium_Compat::memzero($nonce); |
|
475 | + } catch (SodiumException $ex) { |
|
476 | + $ephemeralKeypair = null; |
|
477 | + $ephemeralSK = null; |
|
478 | + $nonce = null; |
|
479 | + } |
|
480 | + return $ephemeralPK . $ciphertext; |
|
481 | + } |
|
482 | + |
|
483 | + /** |
|
484 | + * Opens a message encrypted via box_seal(). |
|
485 | + * |
|
486 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
487 | + * |
|
488 | + * @param string $message |
|
489 | + * @param string $keypair |
|
490 | + * @return string |
|
491 | + * @throws SodiumException |
|
492 | + * @throws TypeError |
|
493 | + */ |
|
494 | + public static function box_seal_open($message, $keypair) |
|
495 | + { |
|
496 | + /** @var string $ephemeralPK */ |
|
497 | + $ephemeralPK = ParagonIE_Sodium_Core32_Util::substr($message, 0, 32); |
|
498 | + |
|
499 | + /** @var string $ciphertext (ciphertext + MAC) */ |
|
500 | + $ciphertext = ParagonIE_Sodium_Core32_Util::substr($message, 32); |
|
501 | + |
|
502 | + /** @var string $secretKey */ |
|
503 | + $secretKey = self::box_secretkey($keypair); |
|
504 | + |
|
505 | + /** @var string $publicKey */ |
|
506 | + $publicKey = self::box_publickey($keypair); |
|
507 | + |
|
508 | + /** @var string $nonce */ |
|
509 | + $nonce = self::generichash( |
|
510 | + $ephemeralPK . $publicKey, |
|
511 | + '', |
|
512 | + 24 |
|
513 | + ); |
|
514 | + |
|
515 | + /** @var string $keypair */ |
|
516 | + $keypair = self::box_keypair_from_secretkey_and_publickey($secretKey, $ephemeralPK); |
|
517 | + |
|
518 | + /** @var string $m */ |
|
519 | + $m = self::box_open($ciphertext, $nonce, $keypair); |
|
520 | + try { |
|
521 | + ParagonIE_Sodium_Compat::memzero($secretKey); |
|
522 | + ParagonIE_Sodium_Compat::memzero($ephemeralPK); |
|
523 | + ParagonIE_Sodium_Compat::memzero($nonce); |
|
524 | + } catch (SodiumException $ex) { |
|
525 | + $secretKey = null; |
|
526 | + $ephemeralPK = null; |
|
527 | + $nonce = null; |
|
528 | + } |
|
529 | + return $m; |
|
530 | + } |
|
531 | + |
|
532 | + /** |
|
533 | + * Used by crypto_box() to get the crypto_secretbox() key. |
|
534 | + * |
|
535 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
536 | + * |
|
537 | + * @param string $sk |
|
538 | + * @param string $pk |
|
539 | + * @return string |
|
540 | + * @throws SodiumException |
|
541 | + * @throws TypeError |
|
542 | + */ |
|
543 | + public static function box_beforenm($sk, $pk) |
|
544 | + { |
|
545 | + return ParagonIE_Sodium_Core32_HSalsa20::hsalsa20( |
|
546 | + str_repeat("\x00", 16), |
|
547 | + self::scalarmult($sk, $pk) |
|
548 | + ); |
|
549 | + } |
|
550 | + |
|
551 | + /** |
|
552 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
553 | + * |
|
554 | + * @return string |
|
555 | + * @throws Exception |
|
556 | + * @throws SodiumException |
|
557 | + * @throws TypeError |
|
558 | + */ |
|
559 | + public static function box_keypair() |
|
560 | + { |
|
561 | + $sKey = random_bytes(32); |
|
562 | + $pKey = self::scalarmult_base($sKey); |
|
563 | + return $sKey . $pKey; |
|
564 | + } |
|
565 | + |
|
566 | + /** |
|
567 | + * @param string $seed |
|
568 | + * @return string |
|
569 | + * @throws SodiumException |
|
570 | + * @throws TypeError |
|
571 | + */ |
|
572 | + public static function box_seed_keypair($seed) |
|
573 | + { |
|
574 | + $sKey = ParagonIE_Sodium_Core32_Util::substr( |
|
575 | + hash('sha512', $seed, true), |
|
576 | + 0, |
|
577 | + 32 |
|
578 | + ); |
|
579 | + $pKey = self::scalarmult_base($sKey); |
|
580 | + return $sKey . $pKey; |
|
581 | + } |
|
582 | + |
|
583 | + /** |
|
584 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
585 | + * |
|
586 | + * @param string $sKey |
|
587 | + * @param string $pKey |
|
588 | + * @return string |
|
589 | + * @throws TypeError |
|
590 | + */ |
|
591 | + public static function box_keypair_from_secretkey_and_publickey($sKey, $pKey) |
|
592 | + { |
|
593 | + return ParagonIE_Sodium_Core32_Util::substr($sKey, 0, 32) . |
|
594 | + ParagonIE_Sodium_Core32_Util::substr($pKey, 0, 32); |
|
595 | + } |
|
596 | + |
|
597 | + /** |
|
598 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
599 | + * |
|
600 | + * @param string $keypair |
|
601 | + * @return string |
|
602 | + * @throws RangeException |
|
603 | + * @throws TypeError |
|
604 | + */ |
|
605 | + public static function box_secretkey($keypair) |
|
606 | + { |
|
607 | + if (ParagonIE_Sodium_Core32_Util::strlen($keypair) !== 64) { |
|
608 | + throw new RangeException( |
|
609 | + 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES bytes long.' |
|
610 | + ); |
|
611 | + } |
|
612 | + return ParagonIE_Sodium_Core32_Util::substr($keypair, 0, 32); |
|
613 | + } |
|
614 | + |
|
615 | + /** |
|
616 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
617 | + * |
|
618 | + * @param string $keypair |
|
619 | + * @return string |
|
620 | + * @throws RangeException |
|
621 | + * @throws TypeError |
|
622 | + */ |
|
623 | + public static function box_publickey($keypair) |
|
624 | + { |
|
625 | + if (ParagonIE_Sodium_Core32_Util::strlen($keypair) !== ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES) { |
|
626 | + throw new RangeException( |
|
627 | + 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_KEYPAIRBYTES bytes long.' |
|
628 | + ); |
|
629 | + } |
|
630 | + return ParagonIE_Sodium_Core32_Util::substr($keypair, 32, 32); |
|
631 | + } |
|
632 | + |
|
633 | + /** |
|
634 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
635 | + * |
|
636 | + * @param string $sKey |
|
637 | + * @return string |
|
638 | + * @throws RangeException |
|
639 | + * @throws SodiumException |
|
640 | + * @throws TypeError |
|
641 | + */ |
|
642 | + public static function box_publickey_from_secretkey($sKey) |
|
643 | + { |
|
644 | + if (ParagonIE_Sodium_Core32_Util::strlen($sKey) !== ParagonIE_Sodium_Compat::CRYPTO_BOX_SECRETKEYBYTES) { |
|
645 | + throw new RangeException( |
|
646 | + 'Must be ParagonIE_Sodium_Compat::CRYPTO_BOX_SECRETKEYBYTES bytes long.' |
|
647 | + ); |
|
648 | + } |
|
649 | + return self::scalarmult_base($sKey); |
|
650 | + } |
|
651 | + |
|
652 | + /** |
|
653 | + * Decrypt a message encrypted with box(). |
|
654 | + * |
|
655 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
656 | + * |
|
657 | + * @param string $ciphertext |
|
658 | + * @param string $nonce |
|
659 | + * @param string $keypair |
|
660 | + * @return string |
|
661 | + * @throws SodiumException |
|
662 | + * @throws TypeError |
|
663 | + */ |
|
664 | + public static function box_open($ciphertext, $nonce, $keypair) |
|
665 | + { |
|
666 | + return self::secretbox_open( |
|
667 | + $ciphertext, |
|
668 | + $nonce, |
|
669 | + self::box_beforenm( |
|
670 | + self::box_secretkey($keypair), |
|
671 | + self::box_publickey($keypair) |
|
672 | + ) |
|
673 | + ); |
|
674 | + } |
|
675 | + |
|
676 | + /** |
|
677 | + * Calculate a BLAKE2b hash. |
|
678 | + * |
|
679 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
680 | + * |
|
681 | + * @param string $message |
|
682 | + * @param string|null $key |
|
683 | + * @param int $outlen |
|
684 | + * @return string |
|
685 | + * @throws RangeException |
|
686 | + * @throws SodiumException |
|
687 | + * @throws TypeError |
|
688 | + */ |
|
689 | + public static function generichash($message, $key = '', $outlen = 32) |
|
690 | + { |
|
691 | + // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
692 | + ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
693 | + |
|
694 | + $k = null; |
|
695 | + if (!empty($key)) { |
|
696 | + /** @var SplFixedArray $k */ |
|
697 | + $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
698 | + if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
699 | + throw new RangeException('Invalid key size'); |
|
700 | + } |
|
701 | + } |
|
702 | + |
|
703 | + /** @var SplFixedArray $in */ |
|
704 | + $in = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($message); |
|
705 | + |
|
706 | + /** @var SplFixedArray $ctx */ |
|
707 | + $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outlen); |
|
708 | + ParagonIE_Sodium_Core32_BLAKE2b::update($ctx, $in, $in->count()); |
|
709 | + |
|
710 | + /** @var SplFixedArray $out */ |
|
711 | + $out = new SplFixedArray($outlen); |
|
712 | + $out = ParagonIE_Sodium_Core32_BLAKE2b::finish($ctx, $out); |
|
713 | + |
|
714 | + /** @var array<int, int> */ |
|
715 | + $outArray = $out->toArray(); |
|
716 | + return ParagonIE_Sodium_Core32_Util::intArrayToString($outArray); |
|
717 | + } |
|
718 | + |
|
719 | + /** |
|
720 | + * Finalize a BLAKE2b hashing context, returning the hash. |
|
721 | + * |
|
722 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
723 | + * |
|
724 | + * @param string $ctx |
|
725 | + * @param int $outlen |
|
726 | + * @return string |
|
727 | + * @throws SodiumException |
|
728 | + * @throws TypeError |
|
729 | + */ |
|
730 | + public static function generichash_final($ctx, $outlen = 32) |
|
731 | + { |
|
732 | + if (!is_string($ctx)) { |
|
733 | + throw new TypeError('Context must be a string'); |
|
734 | + } |
|
735 | + $out = new SplFixedArray($outlen); |
|
736 | + |
|
737 | + /** @var SplFixedArray $context */ |
|
738 | + $context = ParagonIE_Sodium_Core32_BLAKE2b::stringToContext($ctx); |
|
739 | + |
|
740 | + /** @var SplFixedArray $out */ |
|
741 | + $out = ParagonIE_Sodium_Core32_BLAKE2b::finish($context, $out); |
|
742 | + |
|
743 | + /** @var array<int, int> */ |
|
744 | + $outArray = $out->toArray(); |
|
745 | + return ParagonIE_Sodium_Core32_Util::intArrayToString($outArray); |
|
746 | + } |
|
747 | + |
|
748 | + /** |
|
749 | + * Initialize a hashing context for BLAKE2b. |
|
750 | + * |
|
751 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
752 | + * |
|
753 | + * @param string $key |
|
754 | + * @param int $outputLength |
|
755 | + * @return string |
|
756 | + * @throws RangeException |
|
757 | + * @throws SodiumException |
|
758 | + * @throws TypeError |
|
759 | + */ |
|
760 | + public static function generichash_init($key = '', $outputLength = 32) |
|
761 | + { |
|
762 | + // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
763 | + ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
764 | + |
|
765 | + $k = null; |
|
766 | + if (!empty($key)) { |
|
767 | + $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
768 | + if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
769 | + throw new RangeException('Invalid key size'); |
|
770 | + } |
|
771 | + } |
|
772 | + |
|
773 | + /** @var SplFixedArray $ctx */ |
|
774 | + $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outputLength); |
|
775 | + |
|
776 | + return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($ctx); |
|
777 | + } |
|
778 | + |
|
779 | + /** |
|
780 | + * Initialize a hashing context for BLAKE2b. |
|
781 | + * |
|
782 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
783 | + * |
|
784 | + * @param string $key |
|
785 | + * @param int $outputLength |
|
786 | + * @param string $salt |
|
787 | + * @param string $personal |
|
788 | + * @return string |
|
789 | + * @throws RangeException |
|
790 | + * @throws SodiumException |
|
791 | + * @throws TypeError |
|
792 | + */ |
|
793 | + public static function generichash_init_salt_personal( |
|
794 | + $key = '', |
|
795 | + $outputLength = 32, |
|
796 | + $salt = '', |
|
797 | + $personal = '' |
|
798 | + ) { |
|
799 | + // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
800 | + ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
801 | + |
|
802 | + $k = null; |
|
803 | + if (!empty($key)) { |
|
804 | + $k = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($key); |
|
805 | + if ($k->count() > ParagonIE_Sodium_Core32_BLAKE2b::KEYBYTES) { |
|
806 | + throw new RangeException('Invalid key size'); |
|
807 | + } |
|
808 | + } |
|
809 | + if (!empty($salt)) { |
|
810 | + $s = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($salt); |
|
811 | + } else { |
|
812 | + $s = null; |
|
813 | + } |
|
814 | + if (!empty($salt)) { |
|
815 | + $p = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($personal); |
|
816 | + } else { |
|
817 | + $p = null; |
|
818 | + } |
|
819 | + |
|
820 | + /** @var SplFixedArray $ctx */ |
|
821 | + $ctx = ParagonIE_Sodium_Core32_BLAKE2b::init($k, $outputLength, $s, $p); |
|
822 | + |
|
823 | + return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($ctx); |
|
824 | + } |
|
825 | + |
|
826 | + /** |
|
827 | + * Update a hashing context for BLAKE2b with $message |
|
828 | + * |
|
829 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
830 | + * |
|
831 | + * @param string $ctx |
|
832 | + * @param string $message |
|
833 | + * @return string |
|
834 | + * @throws SodiumException |
|
835 | + * @throws TypeError |
|
836 | + */ |
|
837 | + public static function generichash_update($ctx, $message) |
|
838 | + { |
|
839 | + // This ensures that ParagonIE_Sodium_Core32_BLAKE2b::$iv is initialized |
|
840 | + ParagonIE_Sodium_Core32_BLAKE2b::pseudoConstructor(); |
|
841 | + |
|
842 | + /** @var SplFixedArray $context */ |
|
843 | + $context = ParagonIE_Sodium_Core32_BLAKE2b::stringToContext($ctx); |
|
844 | + |
|
845 | + /** @var SplFixedArray $in */ |
|
846 | + $in = ParagonIE_Sodium_Core32_BLAKE2b::stringToSplFixedArray($message); |
|
847 | + |
|
848 | + ParagonIE_Sodium_Core32_BLAKE2b::update($context, $in, $in->count()); |
|
849 | + |
|
850 | + return ParagonIE_Sodium_Core32_BLAKE2b::contextToString($context); |
|
851 | + } |
|
852 | + |
|
853 | + /** |
|
854 | + * Libsodium's crypto_kx(). |
|
855 | + * |
|
856 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
857 | + * |
|
858 | + * @param string $my_sk |
|
859 | + * @param string $their_pk |
|
860 | + * @param string $client_pk |
|
861 | + * @param string $server_pk |
|
862 | + * @return string |
|
863 | + * @throws SodiumException |
|
864 | + * @throws TypeError |
|
865 | + */ |
|
866 | + public static function keyExchange($my_sk, $their_pk, $client_pk, $server_pk) |
|
867 | + { |
|
868 | + return self::generichash( |
|
869 | + self::scalarmult($my_sk, $their_pk) . |
|
870 | + $client_pk . |
|
871 | + $server_pk |
|
872 | + ); |
|
873 | + } |
|
874 | + |
|
875 | + /** |
|
876 | + * ECDH over Curve25519 |
|
877 | + * |
|
878 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
879 | + * |
|
880 | + * @param string $sKey |
|
881 | + * @param string $pKey |
|
882 | + * @return string |
|
883 | + * |
|
884 | + * @throws SodiumException |
|
885 | + * @throws TypeError |
|
886 | + */ |
|
887 | + public static function scalarmult($sKey, $pKey) |
|
888 | + { |
|
889 | + $q = ParagonIE_Sodium_Core32_X25519::crypto_scalarmult_curve25519_ref10($sKey, $pKey); |
|
890 | + self::scalarmult_throw_if_zero($q); |
|
891 | + return $q; |
|
892 | + } |
|
893 | + |
|
894 | + /** |
|
895 | + * ECDH over Curve25519, using the basepoint. |
|
896 | + * Used to get a secret key from a public key. |
|
897 | + * |
|
898 | + * @param string $secret |
|
899 | + * @return string |
|
900 | + * |
|
901 | + * @throws SodiumException |
|
902 | + * @throws TypeError |
|
903 | + */ |
|
904 | + public static function scalarmult_base($secret) |
|
905 | + { |
|
906 | + $q = ParagonIE_Sodium_Core32_X25519::crypto_scalarmult_curve25519_ref10_base($secret); |
|
907 | + self::scalarmult_throw_if_zero($q); |
|
908 | + return $q; |
|
909 | + } |
|
910 | + |
|
911 | + /** |
|
912 | + * This throws an Error if a zero public key was passed to the function. |
|
913 | + * |
|
914 | + * @param string $q |
|
915 | + * @return void |
|
916 | + * @throws SodiumException |
|
917 | + * @throws TypeError |
|
918 | + */ |
|
919 | + protected static function scalarmult_throw_if_zero($q) |
|
920 | + { |
|
921 | + $d = 0; |
|
922 | + for ($i = 0; $i < self::box_curve25519xsalsa20poly1305_SECRETKEYBYTES; ++$i) { |
|
923 | + $d |= ParagonIE_Sodium_Core32_Util::chrToInt($q[$i]); |
|
924 | + } |
|
925 | + |
|
926 | + /* branch-free variant of === 0 */ |
|
927 | + if (-(1 & (($d - 1) >> 8))) { |
|
928 | + throw new SodiumException('Zero public key is not allowed'); |
|
929 | + } |
|
930 | + } |
|
931 | + |
|
932 | + /** |
|
933 | + * XSalsa20-Poly1305 authenticated symmetric-key encryption. |
|
934 | + * |
|
935 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
936 | + * |
|
937 | + * @param string $plaintext |
|
938 | + * @param string $nonce |
|
939 | + * @param string $key |
|
940 | + * @return string |
|
941 | + * @throws SodiumException |
|
942 | + * @throws TypeError |
|
943 | + */ |
|
944 | + public static function secretbox($plaintext, $nonce, $key) |
|
945 | + { |
|
946 | + /** @var string $subkey */ |
|
947 | + $subkey = ParagonIE_Sodium_Core32_HSalsa20::hsalsa20($nonce, $key); |
|
948 | + |
|
949 | + /** @var string $block0 */ |
|
950 | + $block0 = str_repeat("\x00", 32); |
|
951 | + |
|
952 | + /** @var int $mlen - Length of the plaintext message */ |
|
953 | + $mlen = ParagonIE_Sodium_Core32_Util::strlen($plaintext); |
|
954 | + $mlen0 = $mlen; |
|
955 | + if ($mlen0 > 64 - self::secretbox_xsalsa20poly1305_ZEROBYTES) { |
|
956 | + $mlen0 = 64 - self::secretbox_xsalsa20poly1305_ZEROBYTES; |
|
957 | + } |
|
958 | + $block0 .= ParagonIE_Sodium_Core32_Util::substr($plaintext, 0, $mlen0); |
|
959 | + |
|
960 | + /** @var string $block0 */ |
|
961 | + $block0 = ParagonIE_Sodium_Core32_Salsa20::salsa20_xor( |
|
962 | + $block0, |
|
963 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
964 | + $subkey |
|
965 | + ); |
|
966 | + |
|
967 | + /** @var string $c */ |
|
968 | + $c = ParagonIE_Sodium_Core32_Util::substr( |
|
969 | + $block0, |
|
970 | + self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
971 | + ); |
|
972 | + if ($mlen > $mlen0) { |
|
973 | + $c .= ParagonIE_Sodium_Core32_Salsa20::salsa20_xor_ic( |
|
974 | + ParagonIE_Sodium_Core32_Util::substr( |
|
975 | + $plaintext, |
|
976 | + self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
977 | + ), |
|
978 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
979 | + 1, |
|
980 | + $subkey |
|
981 | + ); |
|
982 | + } |
|
983 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
984 | + ParagonIE_Sodium_Core32_Util::substr( |
|
985 | + $block0, |
|
986 | + 0, |
|
987 | + self::onetimeauth_poly1305_KEYBYTES |
|
988 | + ) |
|
989 | + ); |
|
990 | + try { |
|
991 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
992 | + ParagonIE_Sodium_Compat::memzero($subkey); |
|
993 | + } catch (SodiumException $ex) { |
|
994 | + $block0 = null; |
|
995 | + $subkey = null; |
|
996 | + } |
|
997 | + |
|
998 | + $state->update($c); |
|
999 | + |
|
1000 | + /** @var string $c - MAC || ciphertext */ |
|
1001 | + $c = $state->finish() . $c; |
|
1002 | + unset($state); |
|
1003 | + |
|
1004 | + return $c; |
|
1005 | + } |
|
1006 | + |
|
1007 | + /** |
|
1008 | + * Decrypt a ciphertext generated via secretbox(). |
|
1009 | + * |
|
1010 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1011 | + * |
|
1012 | + * @param string $ciphertext |
|
1013 | + * @param string $nonce |
|
1014 | + * @param string $key |
|
1015 | + * @return string |
|
1016 | + * @throws SodiumException |
|
1017 | + * @throws TypeError |
|
1018 | + */ |
|
1019 | + public static function secretbox_open($ciphertext, $nonce, $key) |
|
1020 | + { |
|
1021 | + /** @var string $mac */ |
|
1022 | + $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
1023 | + $ciphertext, |
|
1024 | + 0, |
|
1025 | + self::secretbox_xsalsa20poly1305_MACBYTES |
|
1026 | + ); |
|
1027 | + |
|
1028 | + /** @var string $c */ |
|
1029 | + $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1030 | + $ciphertext, |
|
1031 | + self::secretbox_xsalsa20poly1305_MACBYTES |
|
1032 | + ); |
|
1033 | + |
|
1034 | + /** @var int $clen */ |
|
1035 | + $clen = ParagonIE_Sodium_Core32_Util::strlen($c); |
|
1036 | + |
|
1037 | + /** @var string $subkey */ |
|
1038 | + $subkey = ParagonIE_Sodium_Core32_HSalsa20::hsalsa20($nonce, $key); |
|
1039 | + |
|
1040 | + /** @var string $block0 */ |
|
1041 | + $block0 = ParagonIE_Sodium_Core32_Salsa20::salsa20( |
|
1042 | + 64, |
|
1043 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1044 | + $subkey |
|
1045 | + ); |
|
1046 | + $verified = ParagonIE_Sodium_Core32_Poly1305::onetimeauth_verify( |
|
1047 | + $mac, |
|
1048 | + $c, |
|
1049 | + ParagonIE_Sodium_Core32_Util::substr($block0, 0, 32) |
|
1050 | + ); |
|
1051 | + if (!$verified) { |
|
1052 | + try { |
|
1053 | + ParagonIE_Sodium_Compat::memzero($subkey); |
|
1054 | + } catch (SodiumException $ex) { |
|
1055 | + $subkey = null; |
|
1056 | + } |
|
1057 | + throw new SodiumException('Invalid MAC'); |
|
1058 | + } |
|
1059 | + |
|
1060 | + /** @var string $m - Decrypted message */ |
|
1061 | + $m = ParagonIE_Sodium_Core32_Util::xorStrings( |
|
1062 | + ParagonIE_Sodium_Core32_Util::substr($block0, self::secretbox_xsalsa20poly1305_ZEROBYTES), |
|
1063 | + ParagonIE_Sodium_Core32_Util::substr($c, 0, self::secretbox_xsalsa20poly1305_ZEROBYTES) |
|
1064 | + ); |
|
1065 | + if ($clen > self::secretbox_xsalsa20poly1305_ZEROBYTES) { |
|
1066 | + // We had more than 1 block, so let's continue to decrypt the rest. |
|
1067 | + $m .= ParagonIE_Sodium_Core32_Salsa20::salsa20_xor_ic( |
|
1068 | + ParagonIE_Sodium_Core32_Util::substr( |
|
1069 | + $c, |
|
1070 | + self::secretbox_xsalsa20poly1305_ZEROBYTES |
|
1071 | + ), |
|
1072 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1073 | + 1, |
|
1074 | + (string) $subkey |
|
1075 | + ); |
|
1076 | + } |
|
1077 | + return $m; |
|
1078 | + } |
|
1079 | + |
|
1080 | + /** |
|
1081 | + * XChaCha20-Poly1305 authenticated symmetric-key encryption. |
|
1082 | + * |
|
1083 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1084 | + * |
|
1085 | + * @param string $plaintext |
|
1086 | + * @param string $nonce |
|
1087 | + * @param string $key |
|
1088 | + * @return string |
|
1089 | + * @throws SodiumException |
|
1090 | + * @throws TypeError |
|
1091 | + */ |
|
1092 | + public static function secretbox_xchacha20poly1305($plaintext, $nonce, $key) |
|
1093 | + { |
|
1094 | + /** @var string $subkey */ |
|
1095 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
1096 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 0, 16), |
|
1097 | + $key |
|
1098 | + ); |
|
1099 | + $nonceLast = ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8); |
|
1100 | + |
|
1101 | + /** @var string $block0 */ |
|
1102 | + $block0 = str_repeat("\x00", 32); |
|
1103 | + |
|
1104 | + /** @var int $mlen - Length of the plaintext message */ |
|
1105 | + $mlen = ParagonIE_Sodium_Core32_Util::strlen($plaintext); |
|
1106 | + $mlen0 = $mlen; |
|
1107 | + if ($mlen0 > 64 - self::secretbox_xchacha20poly1305_ZEROBYTES) { |
|
1108 | + $mlen0 = 64 - self::secretbox_xchacha20poly1305_ZEROBYTES; |
|
1109 | + } |
|
1110 | + $block0 .= ParagonIE_Sodium_Core32_Util::substr($plaintext, 0, $mlen0); |
|
1111 | + |
|
1112 | + /** @var string $block0 */ |
|
1113 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1114 | + $block0, |
|
1115 | + $nonceLast, |
|
1116 | + $subkey |
|
1117 | + ); |
|
1118 | + |
|
1119 | + /** @var string $c */ |
|
1120 | + $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1121 | + $block0, |
|
1122 | + self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1123 | + ); |
|
1124 | + if ($mlen > $mlen0) { |
|
1125 | + $c .= ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1126 | + ParagonIE_Sodium_Core32_Util::substr( |
|
1127 | + $plaintext, |
|
1128 | + self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1129 | + ), |
|
1130 | + $nonceLast, |
|
1131 | + $subkey, |
|
1132 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1133 | + ); |
|
1134 | + } |
|
1135 | + $state = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1136 | + ParagonIE_Sodium_Core32_Util::substr( |
|
1137 | + $block0, |
|
1138 | + 0, |
|
1139 | + self::onetimeauth_poly1305_KEYBYTES |
|
1140 | + ) |
|
1141 | + ); |
|
1142 | + try { |
|
1143 | + ParagonIE_Sodium_Compat::memzero($block0); |
|
1144 | + ParagonIE_Sodium_Compat::memzero($subkey); |
|
1145 | + } catch (SodiumException $ex) { |
|
1146 | + $block0 = null; |
|
1147 | + $subkey = null; |
|
1148 | + } |
|
1149 | + |
|
1150 | + $state->update($c); |
|
1151 | + |
|
1152 | + /** @var string $c - MAC || ciphertext */ |
|
1153 | + $c = $state->finish() . $c; |
|
1154 | + unset($state); |
|
1155 | + |
|
1156 | + return $c; |
|
1157 | + } |
|
1158 | + |
|
1159 | + /** |
|
1160 | + * Decrypt a ciphertext generated via secretbox_xchacha20poly1305(). |
|
1161 | + * |
|
1162 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1163 | + * |
|
1164 | + * @param string $ciphertext |
|
1165 | + * @param string $nonce |
|
1166 | + * @param string $key |
|
1167 | + * @return string |
|
1168 | + * @throws SodiumException |
|
1169 | + * @throws TypeError |
|
1170 | + */ |
|
1171 | + public static function secretbox_xchacha20poly1305_open($ciphertext, $nonce, $key) |
|
1172 | + { |
|
1173 | + /** @var string $mac */ |
|
1174 | + $mac = ParagonIE_Sodium_Core32_Util::substr( |
|
1175 | + $ciphertext, |
|
1176 | + 0, |
|
1177 | + self::secretbox_xchacha20poly1305_MACBYTES |
|
1178 | + ); |
|
1179 | + |
|
1180 | + /** @var string $c */ |
|
1181 | + $c = ParagonIE_Sodium_Core32_Util::substr( |
|
1182 | + $ciphertext, |
|
1183 | + self::secretbox_xchacha20poly1305_MACBYTES |
|
1184 | + ); |
|
1185 | + |
|
1186 | + /** @var int $clen */ |
|
1187 | + $clen = ParagonIE_Sodium_Core32_Util::strlen($c); |
|
1188 | + |
|
1189 | + /** @var string $subkey */ |
|
1190 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hchacha20($nonce, $key); |
|
1191 | + |
|
1192 | + /** @var string $block0 */ |
|
1193 | + $block0 = ParagonIE_Sodium_Core32_ChaCha20::stream( |
|
1194 | + 64, |
|
1195 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1196 | + $subkey |
|
1197 | + ); |
|
1198 | + $verified = ParagonIE_Sodium_Core32_Poly1305::onetimeauth_verify( |
|
1199 | + $mac, |
|
1200 | + $c, |
|
1201 | + ParagonIE_Sodium_Core32_Util::substr($block0, 0, 32) |
|
1202 | + ); |
|
1203 | + |
|
1204 | + if (!$verified) { |
|
1205 | + try { |
|
1206 | + ParagonIE_Sodium_Compat::memzero($subkey); |
|
1207 | + } catch (SodiumException $ex) { |
|
1208 | + $subkey = null; |
|
1209 | + } |
|
1210 | + throw new SodiumException('Invalid MAC'); |
|
1211 | + } |
|
1212 | + |
|
1213 | + /** @var string $m - Decrypted message */ |
|
1214 | + $m = ParagonIE_Sodium_Core32_Util::xorStrings( |
|
1215 | + ParagonIE_Sodium_Core32_Util::substr($block0, self::secretbox_xchacha20poly1305_ZEROBYTES), |
|
1216 | + ParagonIE_Sodium_Core32_Util::substr($c, 0, self::secretbox_xchacha20poly1305_ZEROBYTES) |
|
1217 | + ); |
|
1218 | + |
|
1219 | + if ($clen > self::secretbox_xchacha20poly1305_ZEROBYTES) { |
|
1220 | + // We had more than 1 block, so let's continue to decrypt the rest. |
|
1221 | + $m .= ParagonIE_Sodium_Core32_ChaCha20::streamXorIc( |
|
1222 | + ParagonIE_Sodium_Core32_Util::substr( |
|
1223 | + $c, |
|
1224 | + self::secretbox_xchacha20poly1305_ZEROBYTES |
|
1225 | + ), |
|
1226 | + ParagonIE_Sodium_Core32_Util::substr($nonce, 16, 8), |
|
1227 | + (string) $subkey, |
|
1228 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1229 | + ); |
|
1230 | + } |
|
1231 | + return $m; |
|
1232 | + } |
|
1233 | + |
|
1234 | + /** |
|
1235 | + * @param string $key |
|
1236 | + * @return array<int, string> Returns a state and a header. |
|
1237 | + * @throws Exception |
|
1238 | + * @throws SodiumException |
|
1239 | + */ |
|
1240 | + public static function secretstream_xchacha20poly1305_init_push($key) |
|
1241 | + { |
|
1242 | + # randombytes_buf(out, crypto_secretstream_xchacha20poly1305_HEADERBYTES); |
|
1243 | + $out = random_bytes(24); |
|
1244 | + |
|
1245 | + # crypto_core_hchacha20(state->k, out, k, NULL); |
|
1246 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20($out, $key); |
|
1247 | + $state = new ParagonIE_Sodium_Core32_SecretStream_State( |
|
1248 | + $subkey, |
|
1249 | + ParagonIE_Sodium_Core32_Util::substr($out, 16, 8) . str_repeat("\0", 4) |
|
1250 | + ); |
|
1251 | + |
|
1252 | + # _crypto_secretstream_xchacha20poly1305_counter_reset(state); |
|
1253 | + $state->counterReset(); |
|
1254 | + |
|
1255 | + # memcpy(STATE_INONCE(state), out + crypto_core_hchacha20_INPUTBYTES, |
|
1256 | + # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1257 | + # memset(state->_pad, 0, sizeof state->_pad); |
|
1258 | + return array( |
|
1259 | + $state->toString(), |
|
1260 | + $out |
|
1261 | + ); |
|
1262 | + } |
|
1263 | + |
|
1264 | + /** |
|
1265 | + * @param string $key |
|
1266 | + * @param string $header |
|
1267 | + * @return string Returns a state. |
|
1268 | + * @throws Exception |
|
1269 | + */ |
|
1270 | + public static function secretstream_xchacha20poly1305_init_pull($key, $header) |
|
1271 | + { |
|
1272 | + # crypto_core_hchacha20(state->k, in, k, NULL); |
|
1273 | + $subkey = ParagonIE_Sodium_Core32_HChaCha20::hChaCha20( |
|
1274 | + ParagonIE_Sodium_Core32_Util::substr($header, 0, 16), |
|
1275 | + $key |
|
1276 | + ); |
|
1277 | + $state = new ParagonIE_Sodium_Core32_SecretStream_State( |
|
1278 | + $subkey, |
|
1279 | + ParagonIE_Sodium_Core32_Util::substr($header, 16) |
|
1280 | + ); |
|
1281 | + $state->counterReset(); |
|
1282 | + # memcpy(STATE_INONCE(state), in + crypto_core_hchacha20_INPUTBYTES, |
|
1283 | + # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1284 | + # memset(state->_pad, 0, sizeof state->_pad); |
|
1285 | + # return 0; |
|
1286 | + return $state->toString(); |
|
1287 | + } |
|
1288 | + |
|
1289 | + /** |
|
1290 | + * @param string $state |
|
1291 | + * @param string $msg |
|
1292 | + * @param string $aad |
|
1293 | + * @param int $tag |
|
1294 | + * @return string |
|
1295 | + * @throws SodiumException |
|
1296 | + */ |
|
1297 | + public static function secretstream_xchacha20poly1305_push(&$state, $msg, $aad = '', $tag = 0) |
|
1298 | + { |
|
1299 | + $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1300 | + # crypto_onetimeauth_poly1305_state poly1305_state; |
|
1301 | + # unsigned char block[64U]; |
|
1302 | + # unsigned char slen[8U]; |
|
1303 | + # unsigned char *c; |
|
1304 | + # unsigned char *mac; |
|
1305 | + |
|
1306 | + $msglen = ParagonIE_Sodium_Core32_Util::strlen($msg); |
|
1307 | + $aadlen = ParagonIE_Sodium_Core32_Util::strlen($aad); |
|
1308 | + |
|
1309 | + if ((($msglen + 63) >> 6) > 0xfffffffe) { |
|
1310 | + throw new SodiumException( |
|
1311 | + 'message cannot be larger than SODIUM_CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_MESSAGEBYTES_MAX bytes' |
|
1312 | + ); |
|
1313 | + } |
|
1314 | + |
|
1315 | + # if (outlen_p != NULL) { |
|
1316 | + # *outlen_p = 0U; |
|
1317 | + # } |
|
1318 | + # if (mlen > crypto_secretstream_xchacha20poly1305_MESSAGEBYTES_MAX) { |
|
1319 | + # sodium_misuse(); |
|
1320 | + # } |
|
1321 | + |
|
1322 | + # crypto_stream_chacha20_ietf(block, sizeof block, state->nonce, state->k); |
|
1323 | + # crypto_onetimeauth_poly1305_init(&poly1305_state, block); |
|
1324 | + # sodium_memzero(block, sizeof block); |
|
1325 | + $auth = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1326 | + ParagonIE_Sodium_Core32_ChaCha20::ietfStream(32, $st->getCombinedNonce(), $st->getKey()) |
|
1327 | + ); |
|
1328 | + |
|
1329 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, ad, adlen); |
|
1330 | + $auth->update($aad); |
|
1331 | + |
|
1332 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, _pad0, |
|
1333 | + # (0x10 - adlen) & 0xf); |
|
1334 | + $auth->update(str_repeat("\0", ((0x10 - $aadlen) & 0xf))); |
|
1335 | + |
|
1336 | + # memset(block, 0, sizeof block); |
|
1337 | + # block[0] = tag; |
|
1338 | + # crypto_stream_chacha20_ietf_xor_ic(block, block, sizeof block, |
|
1339 | + # state->nonce, 1U, state->k); |
|
1340 | + $block = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1341 | + ParagonIE_Sodium_Core32_Util::intToChr($tag) . str_repeat("\0", 63), |
|
1342 | + $st->getCombinedNonce(), |
|
1343 | + $st->getKey(), |
|
1344 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1345 | + ); |
|
1346 | + |
|
1347 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, block, sizeof block); |
|
1348 | + $auth->update($block); |
|
1349 | + |
|
1350 | + # out[0] = block[0]; |
|
1351 | + $out = $block[0]; |
|
1352 | + # c = out + (sizeof tag); |
|
1353 | + # crypto_stream_chacha20_ietf_xor_ic(c, m, mlen, state->nonce, 2U, state->k); |
|
1354 | + $cipher = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1355 | + $msg, |
|
1356 | + $st->getCombinedNonce(), |
|
1357 | + $st->getKey(), |
|
1358 | + ParagonIE_Sodium_Core32_Util::store64_le(2) |
|
1359 | + ); |
|
1360 | + |
|
1361 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, c, mlen); |
|
1362 | + $auth->update($cipher); |
|
1363 | + |
|
1364 | + $out .= $cipher; |
|
1365 | + unset($cipher); |
|
1366 | + |
|
1367 | + # crypto_onetimeauth_poly1305_update |
|
1368 | + # (&poly1305_state, _pad0, (0x10 - (sizeof block) + mlen) & 0xf); |
|
1369 | + $auth->update(str_repeat("\0", ((0x10 - 64 + $msglen) & 0xf))); |
|
1370 | + |
|
1371 | + # STORE64_LE(slen, (uint64_t) adlen); |
|
1372 | + $slen = ParagonIE_Sodium_Core32_Util::store64_le($aadlen); |
|
1373 | + |
|
1374 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1375 | + $auth->update($slen); |
|
1376 | + |
|
1377 | + # STORE64_LE(slen, (sizeof block) + mlen); |
|
1378 | + $slen = ParagonIE_Sodium_Core32_Util::store64_le(64 + $msglen); |
|
1379 | + |
|
1380 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1381 | + $auth->update($slen); |
|
1382 | + |
|
1383 | + # mac = c + mlen; |
|
1384 | + # crypto_onetimeauth_poly1305_final(&poly1305_state, mac); |
|
1385 | + $mac = $auth->finish(); |
|
1386 | + $out .= $mac; |
|
1387 | + |
|
1388 | + # sodium_memzero(&poly1305_state, sizeof poly1305_state); |
|
1389 | + unset($auth); |
|
1390 | + |
|
1391 | + |
|
1392 | + # XOR_BUF(STATE_INONCE(state), mac, |
|
1393 | + # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1394 | + $st->xorNonce($mac); |
|
1395 | + |
|
1396 | + # sodium_increment(STATE_COUNTER(state), |
|
1397 | + # crypto_secretstream_xchacha20poly1305_COUNTERBYTES); |
|
1398 | + $st->incrementCounter(); |
|
1399 | + // Overwrite by reference: |
|
1400 | + $state = $st->toString(); |
|
1401 | + |
|
1402 | + /** @var bool $rekey */ |
|
1403 | + $rekey = ($tag & ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_TAG_REKEY) !== 0; |
|
1404 | + # if ((tag & crypto_secretstream_xchacha20poly1305_TAG_REKEY) != 0 || |
|
1405 | + # sodium_is_zero(STATE_COUNTER(state), |
|
1406 | + # crypto_secretstream_xchacha20poly1305_COUNTERBYTES)) { |
|
1407 | + # crypto_secretstream_xchacha20poly1305_rekey(state); |
|
1408 | + # } |
|
1409 | + if ($rekey || $st->needsRekey()) { |
|
1410 | + // DO REKEY |
|
1411 | + self::secretstream_xchacha20poly1305_rekey($state); |
|
1412 | + } |
|
1413 | + # if (outlen_p != NULL) { |
|
1414 | + # *outlen_p = crypto_secretstream_xchacha20poly1305_ABYTES + mlen; |
|
1415 | + # } |
|
1416 | + return $out; |
|
1417 | + } |
|
1418 | + |
|
1419 | + /** |
|
1420 | + * @param string $state |
|
1421 | + * @param string $cipher |
|
1422 | + * @param string $aad |
|
1423 | + * @return bool|array{0: string, 1: int} |
|
1424 | + * @throws SodiumException |
|
1425 | + */ |
|
1426 | + public static function secretstream_xchacha20poly1305_pull(&$state, $cipher, $aad = '') |
|
1427 | + { |
|
1428 | + $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1429 | + |
|
1430 | + $cipherlen = ParagonIE_Sodium_Core32_Util::strlen($cipher); |
|
1431 | + # mlen = inlen - crypto_secretstream_xchacha20poly1305_ABYTES; |
|
1432 | + $msglen = $cipherlen - ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_ABYTES; |
|
1433 | + $aadlen = ParagonIE_Sodium_Core32_Util::strlen($aad); |
|
1434 | + |
|
1435 | + # if (mlen > crypto_secretstream_xchacha20poly1305_MESSAGEBYTES_MAX) { |
|
1436 | + # sodium_misuse(); |
|
1437 | + # } |
|
1438 | + if ((($msglen + 63) >> 6) > 0xfffffffe) { |
|
1439 | + throw new SodiumException( |
|
1440 | + 'message cannot be larger than SODIUM_CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_MESSAGEBYTES_MAX bytes' |
|
1441 | + ); |
|
1442 | + } |
|
1443 | + |
|
1444 | + # crypto_stream_chacha20_ietf(block, sizeof block, state->nonce, state->k); |
|
1445 | + # crypto_onetimeauth_poly1305_init(&poly1305_state, block); |
|
1446 | + # sodium_memzero(block, sizeof block); |
|
1447 | + $auth = new ParagonIE_Sodium_Core32_Poly1305_State( |
|
1448 | + ParagonIE_Sodium_Core32_ChaCha20::ietfStream(32, $st->getCombinedNonce(), $st->getKey()) |
|
1449 | + ); |
|
1450 | + |
|
1451 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, ad, adlen); |
|
1452 | + $auth->update($aad); |
|
1453 | + |
|
1454 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, _pad0, |
|
1455 | + # (0x10 - adlen) & 0xf); |
|
1456 | + $auth->update(str_repeat("\0", ((0x10 - $aadlen) & 0xf))); |
|
1457 | + |
|
1458 | + |
|
1459 | + # memset(block, 0, sizeof block); |
|
1460 | + # block[0] = in[0]; |
|
1461 | + # crypto_stream_chacha20_ietf_xor_ic(block, block, sizeof block, |
|
1462 | + # state->nonce, 1U, state->k); |
|
1463 | + $block = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1464 | + $cipher[0] . str_repeat("\0", 63), |
|
1465 | + $st->getCombinedNonce(), |
|
1466 | + $st->getKey(), |
|
1467 | + ParagonIE_Sodium_Core32_Util::store64_le(1) |
|
1468 | + ); |
|
1469 | + # tag = block[0]; |
|
1470 | + # block[0] = in[0]; |
|
1471 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, block, sizeof block); |
|
1472 | + $tag = ParagonIE_Sodium_Core32_Util::chrToInt($block[0]); |
|
1473 | + $block[0] = $cipher[0]; |
|
1474 | + $auth->update($block); |
|
1475 | + |
|
1476 | + |
|
1477 | + # c = in + (sizeof tag); |
|
1478 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, c, mlen); |
|
1479 | + $auth->update(ParagonIE_Sodium_Core32_Util::substr($cipher, 1, $msglen)); |
|
1480 | + |
|
1481 | + # crypto_onetimeauth_poly1305_update |
|
1482 | + # (&poly1305_state, _pad0, (0x10 - (sizeof block) + mlen) & 0xf); |
|
1483 | + $auth->update(str_repeat("\0", ((0x10 - 64 + $msglen) & 0xf))); |
|
1484 | + |
|
1485 | + # STORE64_LE(slen, (uint64_t) adlen); |
|
1486 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1487 | + $slen = ParagonIE_Sodium_Core32_Util::store64_le($aadlen); |
|
1488 | + $auth->update($slen); |
|
1489 | + |
|
1490 | + # STORE64_LE(slen, (sizeof block) + mlen); |
|
1491 | + # crypto_onetimeauth_poly1305_update(&poly1305_state, slen, sizeof slen); |
|
1492 | + $slen = ParagonIE_Sodium_Core32_Util::store64_le(64 + $msglen); |
|
1493 | + $auth->update($slen); |
|
1494 | + |
|
1495 | + # crypto_onetimeauth_poly1305_final(&poly1305_state, mac); |
|
1496 | + # sodium_memzero(&poly1305_state, sizeof poly1305_state); |
|
1497 | + $mac = $auth->finish(); |
|
1498 | + |
|
1499 | + # stored_mac = c + mlen; |
|
1500 | + # if (sodium_memcmp(mac, stored_mac, sizeof mac) != 0) { |
|
1501 | + # sodium_memzero(mac, sizeof mac); |
|
1502 | + # return -1; |
|
1503 | + # } |
|
1504 | + |
|
1505 | + $stored = ParagonIE_Sodium_Core32_Util::substr($cipher, $msglen + 1, 16); |
|
1506 | + if (!ParagonIE_Sodium_Core32_Util::hashEquals($mac, $stored)) { |
|
1507 | + return false; |
|
1508 | + } |
|
1509 | + |
|
1510 | + # crypto_stream_chacha20_ietf_xor_ic(m, c, mlen, state->nonce, 2U, state->k); |
|
1511 | + $out = ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1512 | + ParagonIE_Sodium_Core32_Util::substr($cipher, 1, $msglen), |
|
1513 | + $st->getCombinedNonce(), |
|
1514 | + $st->getKey(), |
|
1515 | + ParagonIE_Sodium_Core32_Util::store64_le(2) |
|
1516 | + ); |
|
1517 | + |
|
1518 | + # XOR_BUF(STATE_INONCE(state), mac, |
|
1519 | + # crypto_secretstream_xchacha20poly1305_INONCEBYTES); |
|
1520 | + $st->xorNonce($mac); |
|
1521 | + |
|
1522 | + # sodium_increment(STATE_COUNTER(state), |
|
1523 | + # crypto_secretstream_xchacha20poly1305_COUNTERBYTES); |
|
1524 | + $st->incrementCounter(); |
|
1525 | + |
|
1526 | + # if ((tag & crypto_secretstream_xchacha20poly1305_TAG_REKEY) != 0 || |
|
1527 | + # sodium_is_zero(STATE_COUNTER(state), |
|
1528 | + # crypto_secretstream_xchacha20poly1305_COUNTERBYTES)) { |
|
1529 | + # crypto_secretstream_xchacha20poly1305_rekey(state); |
|
1530 | + # } |
|
1531 | + |
|
1532 | + // Overwrite by reference: |
|
1533 | + $state = $st->toString(); |
|
1534 | + |
|
1535 | + /** @var bool $rekey */ |
|
1536 | + $rekey = ($tag & ParagonIE_Sodium_Compat::CRYPTO_SECRETSTREAM_XCHACHA20POLY1305_TAG_REKEY) !== 0; |
|
1537 | + if ($rekey || $st->needsRekey()) { |
|
1538 | + // DO REKEY |
|
1539 | + self::secretstream_xchacha20poly1305_rekey($state); |
|
1540 | + } |
|
1541 | + return array($out, $tag); |
|
1542 | + } |
|
1543 | + |
|
1544 | + /** |
|
1545 | + * @param string $state |
|
1546 | + * @return void |
|
1547 | + * @throws SodiumException |
|
1548 | + */ |
|
1549 | + public static function secretstream_xchacha20poly1305_rekey(&$state) |
|
1550 | + { |
|
1551 | + $st = ParagonIE_Sodium_Core32_SecretStream_State::fromString($state); |
|
1552 | + # unsigned char new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + |
|
1553 | + # crypto_secretstream_xchacha20poly1305_INONCEBYTES]; |
|
1554 | + # size_t i; |
|
1555 | + # for (i = 0U; i < crypto_stream_chacha20_ietf_KEYBYTES; i++) { |
|
1556 | + # new_key_and_inonce[i] = state->k[i]; |
|
1557 | + # } |
|
1558 | + $new_key_and_inonce = $st->getKey(); |
|
1559 | + |
|
1560 | + # for (i = 0U; i < crypto_secretstream_xchacha20poly1305_INONCEBYTES; i++) { |
|
1561 | + # new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + i] = |
|
1562 | + # STATE_INONCE(state)[i]; |
|
1563 | + # } |
|
1564 | + $new_key_and_inonce .= ParagonIE_Sodium_Core32_Util::substR($st->getNonce(), 0, 8); |
|
1565 | + |
|
1566 | + # crypto_stream_chacha20_ietf_xor(new_key_and_inonce, new_key_and_inonce, |
|
1567 | + # sizeof new_key_and_inonce, |
|
1568 | + # state->nonce, state->k); |
|
1569 | + |
|
1570 | + $st->rekey(ParagonIE_Sodium_Core32_ChaCha20::ietfStreamXorIc( |
|
1571 | + $new_key_and_inonce, |
|
1572 | + $st->getCombinedNonce(), |
|
1573 | + $st->getKey(), |
|
1574 | + ParagonIE_Sodium_Core32_Util::store64_le(0) |
|
1575 | + )); |
|
1576 | + |
|
1577 | + # for (i = 0U; i < crypto_stream_chacha20_ietf_KEYBYTES; i++) { |
|
1578 | + # state->k[i] = new_key_and_inonce[i]; |
|
1579 | + # } |
|
1580 | + # for (i = 0U; i < crypto_secretstream_xchacha20poly1305_INONCEBYTES; i++) { |
|
1581 | + # STATE_INONCE(state)[i] = |
|
1582 | + # new_key_and_inonce[crypto_stream_chacha20_ietf_KEYBYTES + i]; |
|
1583 | + # } |
|
1584 | + # _crypto_secretstream_xchacha20poly1305_counter_reset(state); |
|
1585 | + $st->counterReset(); |
|
1586 | + |
|
1587 | + $state = $st->toString(); |
|
1588 | + } |
|
1589 | + |
|
1590 | + /** |
|
1591 | + * Detached Ed25519 signature. |
|
1592 | + * |
|
1593 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1594 | + * |
|
1595 | + * @param string $message |
|
1596 | + * @param string $sk |
|
1597 | + * @return string |
|
1598 | + * @throws SodiumException |
|
1599 | + * @throws TypeError |
|
1600 | + */ |
|
1601 | + public static function sign_detached($message, $sk) |
|
1602 | + { |
|
1603 | + return ParagonIE_Sodium_Core32_Ed25519::sign_detached($message, $sk); |
|
1604 | + } |
|
1605 | + |
|
1606 | + /** |
|
1607 | + * Attached Ed25519 signature. (Returns a signed message.) |
|
1608 | + * |
|
1609 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1610 | + * |
|
1611 | + * @param string $message |
|
1612 | + * @param string $sk |
|
1613 | + * @return string |
|
1614 | + * @throws SodiumException |
|
1615 | + * @throws TypeError |
|
1616 | + */ |
|
1617 | + public static function sign($message, $sk) |
|
1618 | + { |
|
1619 | + return ParagonIE_Sodium_Core32_Ed25519::sign($message, $sk); |
|
1620 | + } |
|
1621 | + |
|
1622 | + /** |
|
1623 | + * Opens a signed message. If valid, returns the message. |
|
1624 | + * |
|
1625 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1626 | + * |
|
1627 | + * @param string $signedMessage |
|
1628 | + * @param string $pk |
|
1629 | + * @return string |
|
1630 | + * @throws SodiumException |
|
1631 | + * @throws TypeError |
|
1632 | + */ |
|
1633 | + public static function sign_open($signedMessage, $pk) |
|
1634 | + { |
|
1635 | + return ParagonIE_Sodium_Core32_Ed25519::sign_open($signedMessage, $pk); |
|
1636 | + } |
|
1637 | + |
|
1638 | + /** |
|
1639 | + * Verify a detached signature of a given message and public key. |
|
1640 | + * |
|
1641 | + * @internal Do not use this directly. Use ParagonIE_Sodium_Compat. |
|
1642 | + * |
|
1643 | + * @param string $signature |
|
1644 | + * @param string $message |
|
1645 | + * @param string $pk |
|
1646 | + * @return bool |
|
1647 | + * @throws SodiumException |
|
1648 | + * @throws TypeError |
|
1649 | + */ |
|
1650 | + public static function sign_verify_detached($signature, $message, $pk) |
|
1651 | + { |
|
1652 | + return ParagonIE_Sodium_Core32_Ed25519::verify_detached($signature, $message, $pk); |
|
1653 | + } |
|
1654 | 1654 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_BLAKE2b', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -11,780 +11,780 @@ discard block |
||
11 | 11 | */ |
12 | 12 | abstract class ParagonIE_Sodium_Core_BLAKE2b extends ParagonIE_Sodium_Core_Util |
13 | 13 | { |
14 | - /** |
|
15 | - * @var SplFixedArray |
|
16 | - */ |
|
17 | - protected static $iv; |
|
18 | - |
|
19 | - /** |
|
20 | - * @var array<int, array<int, int>> |
|
21 | - */ |
|
22 | - protected static $sigma = array( |
|
23 | - array( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), |
|
24 | - array( 14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3), |
|
25 | - array( 11, 8, 12, 0, 5, 2, 15, 13, 10, 14, 3, 6, 7, 1, 9, 4), |
|
26 | - array( 7, 9, 3, 1, 13, 12, 11, 14, 2, 6, 5, 10, 4, 0, 15, 8), |
|
27 | - array( 9, 0, 5, 7, 2, 4, 10, 15, 14, 1, 11, 12, 6, 8, 3, 13), |
|
28 | - array( 2, 12, 6, 10, 0, 11, 8, 3, 4, 13, 7, 5, 15, 14, 1, 9), |
|
29 | - array( 12, 5, 1, 15, 14, 13, 4, 10, 0, 7, 6, 3, 9, 2, 8, 11), |
|
30 | - array( 13, 11, 7, 14, 12, 1, 3, 9, 5, 0, 15, 4, 8, 6, 2, 10), |
|
31 | - array( 6, 15, 14, 9, 11, 3, 0, 8, 12, 2, 13, 7, 1, 4, 10, 5), |
|
32 | - array( 10, 2, 8, 4, 7, 6, 1, 5, 15, 11, 9, 14, 3, 12, 13 , 0), |
|
33 | - array( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), |
|
34 | - array( 14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3) |
|
35 | - ); |
|
36 | - |
|
37 | - const BLOCKBYTES = 128; |
|
38 | - const OUTBYTES = 64; |
|
39 | - const KEYBYTES = 64; |
|
40 | - |
|
41 | - /** |
|
42 | - * Turn two 32-bit integers into a fixed array representing a 64-bit integer. |
|
43 | - * |
|
44 | - * @internal You should not use this directly from another application |
|
45 | - * |
|
46 | - * @param int $high |
|
47 | - * @param int $low |
|
48 | - * @return SplFixedArray |
|
49 | - * @psalm-suppress MixedAssignment |
|
50 | - */ |
|
51 | - public static function new64($high, $low) |
|
52 | - { |
|
53 | - $i64 = new SplFixedArray(2); |
|
54 | - $i64[0] = $high & 0xffffffff; |
|
55 | - $i64[1] = $low & 0xffffffff; |
|
56 | - return $i64; |
|
57 | - } |
|
58 | - |
|
59 | - /** |
|
60 | - * Convert an arbitrary number into an SplFixedArray of two 32-bit integers |
|
61 | - * that represents a 64-bit integer. |
|
62 | - * |
|
63 | - * @internal You should not use this directly from another application |
|
64 | - * |
|
65 | - * @param int $num |
|
66 | - * @return SplFixedArray |
|
67 | - */ |
|
68 | - protected static function to64($num) |
|
69 | - { |
|
70 | - list($hi, $lo) = self::numericTo64BitInteger($num); |
|
71 | - return self::new64($hi, $lo); |
|
72 | - } |
|
73 | - |
|
74 | - /** |
|
75 | - * Adds two 64-bit integers together, returning their sum as a SplFixedArray |
|
76 | - * containing two 32-bit integers (representing a 64-bit integer). |
|
77 | - * |
|
78 | - * @internal You should not use this directly from another application |
|
79 | - * |
|
80 | - * @param SplFixedArray $x |
|
81 | - * @param SplFixedArray $y |
|
82 | - * @return SplFixedArray |
|
83 | - * @psalm-suppress MixedArgument |
|
84 | - * @psalm-suppress MixedAssignment |
|
85 | - * @psalm-suppress MixedOperand |
|
86 | - */ |
|
87 | - protected static function add64($x, $y) |
|
88 | - { |
|
89 | - $l = ($x[1] + $y[1]) & 0xffffffff; |
|
90 | - return self::new64( |
|
91 | - (int) ($x[0] + $y[0] + ( |
|
92 | - ($l < $x[1]) ? 1 : 0 |
|
93 | - )), |
|
94 | - (int) $l |
|
95 | - ); |
|
96 | - } |
|
97 | - |
|
98 | - /** |
|
99 | - * @internal You should not use this directly from another application |
|
100 | - * |
|
101 | - * @param SplFixedArray $x |
|
102 | - * @param SplFixedArray $y |
|
103 | - * @param SplFixedArray $z |
|
104 | - * @return SplFixedArray |
|
105 | - */ |
|
106 | - protected static function add364($x, $y, $z) |
|
107 | - { |
|
108 | - return self::add64($x, self::add64($y, $z)); |
|
109 | - } |
|
110 | - |
|
111 | - /** |
|
112 | - * @internal You should not use this directly from another application |
|
113 | - * |
|
114 | - * @param SplFixedArray $x |
|
115 | - * @param SplFixedArray $y |
|
116 | - * @return SplFixedArray |
|
117 | - * @throws SodiumException |
|
118 | - * @throws TypeError |
|
119 | - */ |
|
120 | - protected static function xor64(SplFixedArray $x, SplFixedArray $y) |
|
121 | - { |
|
122 | - if (!is_numeric($x[0])) { |
|
123 | - throw new SodiumException('x[0] is not an integer'); |
|
124 | - } |
|
125 | - if (!is_numeric($x[1])) { |
|
126 | - throw new SodiumException('x[1] is not an integer'); |
|
127 | - } |
|
128 | - if (!is_numeric($y[0])) { |
|
129 | - throw new SodiumException('y[0] is not an integer'); |
|
130 | - } |
|
131 | - if (!is_numeric($y[1])) { |
|
132 | - throw new SodiumException('y[1] is not an integer'); |
|
133 | - } |
|
134 | - return self::new64( |
|
135 | - (int) (($x[0] ^ $y[0]) & 0xffffffff), |
|
136 | - (int) (($x[1] ^ $y[1]) & 0xffffffff) |
|
137 | - ); |
|
138 | - } |
|
139 | - |
|
140 | - /** |
|
141 | - * @internal You should not use this directly from another application |
|
142 | - * |
|
143 | - * @param SplFixedArray $x |
|
144 | - * @param int $c |
|
145 | - * @return SplFixedArray |
|
146 | - * @psalm-suppress MixedAssignment |
|
147 | - */ |
|
148 | - public static function rotr64($x, $c) |
|
149 | - { |
|
150 | - if ($c >= 64) { |
|
151 | - $c %= 64; |
|
152 | - } |
|
153 | - if ($c >= 32) { |
|
154 | - /** @var int $tmp */ |
|
155 | - $tmp = $x[0]; |
|
156 | - $x[0] = $x[1]; |
|
157 | - $x[1] = $tmp; |
|
158 | - $c -= 32; |
|
159 | - } |
|
160 | - if ($c === 0) { |
|
161 | - return $x; |
|
162 | - } |
|
163 | - |
|
164 | - $l0 = 0; |
|
165 | - $c = 64 - $c; |
|
166 | - |
|
167 | - if ($c < 32) { |
|
168 | - /** @var int $h0 */ |
|
169 | - $h0 = ((int) ($x[0]) << $c) | ( |
|
170 | - ( |
|
171 | - (int) ($x[1]) & ((1 << $c) - 1) |
|
172 | - << |
|
173 | - (32 - $c) |
|
174 | - ) >> (32 - $c) |
|
175 | - ); |
|
176 | - /** @var int $l0 */ |
|
177 | - $l0 = (int) ($x[1]) << $c; |
|
178 | - } else { |
|
179 | - /** @var int $h0 */ |
|
180 | - $h0 = (int) ($x[1]) << ($c - 32); |
|
181 | - } |
|
182 | - |
|
183 | - $h1 = 0; |
|
184 | - $c1 = 64 - $c; |
|
185 | - |
|
186 | - if ($c1 < 32) { |
|
187 | - /** @var int $h1 */ |
|
188 | - $h1 = (int) ($x[0]) >> $c1; |
|
189 | - /** @var int $l1 */ |
|
190 | - $l1 = ((int) ($x[1]) >> $c1) | ((int) ($x[0]) & ((1 << $c1) - 1)) << (32 - $c1); |
|
191 | - } else { |
|
192 | - /** @var int $l1 */ |
|
193 | - $l1 = (int) ($x[0]) >> ($c1 - 32); |
|
194 | - } |
|
195 | - |
|
196 | - return self::new64($h0 | $h1, $l0 | $l1); |
|
197 | - } |
|
198 | - |
|
199 | - /** |
|
200 | - * @internal You should not use this directly from another application |
|
201 | - * |
|
202 | - * @param SplFixedArray $x |
|
203 | - * @return int |
|
204 | - * @psalm-suppress MixedOperand |
|
205 | - */ |
|
206 | - protected static function flatten64($x) |
|
207 | - { |
|
208 | - return (int) ($x[0] * 4294967296 + $x[1]); |
|
209 | - } |
|
210 | - |
|
211 | - /** |
|
212 | - * @internal You should not use this directly from another application |
|
213 | - * |
|
214 | - * @param SplFixedArray $x |
|
215 | - * @param int $i |
|
216 | - * @return SplFixedArray |
|
217 | - * @psalm-suppress MixedArgument |
|
218 | - * @psalm-suppress MixedArrayOffset |
|
219 | - */ |
|
220 | - protected static function load64(SplFixedArray $x, $i) |
|
221 | - { |
|
222 | - /** @var int $l */ |
|
223 | - $l = (int) ($x[$i]) |
|
224 | - | ((int) ($x[$i+1]) << 8) |
|
225 | - | ((int) ($x[$i+2]) << 16) |
|
226 | - | ((int) ($x[$i+3]) << 24); |
|
227 | - /** @var int $h */ |
|
228 | - $h = (int) ($x[$i+4]) |
|
229 | - | ((int) ($x[$i+5]) << 8) |
|
230 | - | ((int) ($x[$i+6]) << 16) |
|
231 | - | ((int) ($x[$i+7]) << 24); |
|
232 | - return self::new64($h, $l); |
|
233 | - } |
|
234 | - |
|
235 | - /** |
|
236 | - * @internal You should not use this directly from another application |
|
237 | - * |
|
238 | - * @param SplFixedArray $x |
|
239 | - * @param int $i |
|
240 | - * @param SplFixedArray $u |
|
241 | - * @return void |
|
242 | - * @psalm-suppress MixedAssignment |
|
243 | - */ |
|
244 | - protected static function store64(SplFixedArray $x, $i, SplFixedArray $u) |
|
245 | - { |
|
246 | - $maxLength = $x->getSize() - 1; |
|
247 | - for ($j = 0; $j < 8; ++$j) { |
|
248 | - /* |
|
14 | + /** |
|
15 | + * @var SplFixedArray |
|
16 | + */ |
|
17 | + protected static $iv; |
|
18 | + |
|
19 | + /** |
|
20 | + * @var array<int, array<int, int>> |
|
21 | + */ |
|
22 | + protected static $sigma = array( |
|
23 | + array( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), |
|
24 | + array( 14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3), |
|
25 | + array( 11, 8, 12, 0, 5, 2, 15, 13, 10, 14, 3, 6, 7, 1, 9, 4), |
|
26 | + array( 7, 9, 3, 1, 13, 12, 11, 14, 2, 6, 5, 10, 4, 0, 15, 8), |
|
27 | + array( 9, 0, 5, 7, 2, 4, 10, 15, 14, 1, 11, 12, 6, 8, 3, 13), |
|
28 | + array( 2, 12, 6, 10, 0, 11, 8, 3, 4, 13, 7, 5, 15, 14, 1, 9), |
|
29 | + array( 12, 5, 1, 15, 14, 13, 4, 10, 0, 7, 6, 3, 9, 2, 8, 11), |
|
30 | + array( 13, 11, 7, 14, 12, 1, 3, 9, 5, 0, 15, 4, 8, 6, 2, 10), |
|
31 | + array( 6, 15, 14, 9, 11, 3, 0, 8, 12, 2, 13, 7, 1, 4, 10, 5), |
|
32 | + array( 10, 2, 8, 4, 7, 6, 1, 5, 15, 11, 9, 14, 3, 12, 13 , 0), |
|
33 | + array( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15), |
|
34 | + array( 14, 10, 4, 8, 9, 15, 13, 6, 1, 12, 0, 2, 11, 7, 5, 3) |
|
35 | + ); |
|
36 | + |
|
37 | + const BLOCKBYTES = 128; |
|
38 | + const OUTBYTES = 64; |
|
39 | + const KEYBYTES = 64; |
|
40 | + |
|
41 | + /** |
|
42 | + * Turn two 32-bit integers into a fixed array representing a 64-bit integer. |
|
43 | + * |
|
44 | + * @internal You should not use this directly from another application |
|
45 | + * |
|
46 | + * @param int $high |
|
47 | + * @param int $low |
|
48 | + * @return SplFixedArray |
|
49 | + * @psalm-suppress MixedAssignment |
|
50 | + */ |
|
51 | + public static function new64($high, $low) |
|
52 | + { |
|
53 | + $i64 = new SplFixedArray(2); |
|
54 | + $i64[0] = $high & 0xffffffff; |
|
55 | + $i64[1] = $low & 0xffffffff; |
|
56 | + return $i64; |
|
57 | + } |
|
58 | + |
|
59 | + /** |
|
60 | + * Convert an arbitrary number into an SplFixedArray of two 32-bit integers |
|
61 | + * that represents a 64-bit integer. |
|
62 | + * |
|
63 | + * @internal You should not use this directly from another application |
|
64 | + * |
|
65 | + * @param int $num |
|
66 | + * @return SplFixedArray |
|
67 | + */ |
|
68 | + protected static function to64($num) |
|
69 | + { |
|
70 | + list($hi, $lo) = self::numericTo64BitInteger($num); |
|
71 | + return self::new64($hi, $lo); |
|
72 | + } |
|
73 | + |
|
74 | + /** |
|
75 | + * Adds two 64-bit integers together, returning their sum as a SplFixedArray |
|
76 | + * containing two 32-bit integers (representing a 64-bit integer). |
|
77 | + * |
|
78 | + * @internal You should not use this directly from another application |
|
79 | + * |
|
80 | + * @param SplFixedArray $x |
|
81 | + * @param SplFixedArray $y |
|
82 | + * @return SplFixedArray |
|
83 | + * @psalm-suppress MixedArgument |
|
84 | + * @psalm-suppress MixedAssignment |
|
85 | + * @psalm-suppress MixedOperand |
|
86 | + */ |
|
87 | + protected static function add64($x, $y) |
|
88 | + { |
|
89 | + $l = ($x[1] + $y[1]) & 0xffffffff; |
|
90 | + return self::new64( |
|
91 | + (int) ($x[0] + $y[0] + ( |
|
92 | + ($l < $x[1]) ? 1 : 0 |
|
93 | + )), |
|
94 | + (int) $l |
|
95 | + ); |
|
96 | + } |
|
97 | + |
|
98 | + /** |
|
99 | + * @internal You should not use this directly from another application |
|
100 | + * |
|
101 | + * @param SplFixedArray $x |
|
102 | + * @param SplFixedArray $y |
|
103 | + * @param SplFixedArray $z |
|
104 | + * @return SplFixedArray |
|
105 | + */ |
|
106 | + protected static function add364($x, $y, $z) |
|
107 | + { |
|
108 | + return self::add64($x, self::add64($y, $z)); |
|
109 | + } |
|
110 | + |
|
111 | + /** |
|
112 | + * @internal You should not use this directly from another application |
|
113 | + * |
|
114 | + * @param SplFixedArray $x |
|
115 | + * @param SplFixedArray $y |
|
116 | + * @return SplFixedArray |
|
117 | + * @throws SodiumException |
|
118 | + * @throws TypeError |
|
119 | + */ |
|
120 | + protected static function xor64(SplFixedArray $x, SplFixedArray $y) |
|
121 | + { |
|
122 | + if (!is_numeric($x[0])) { |
|
123 | + throw new SodiumException('x[0] is not an integer'); |
|
124 | + } |
|
125 | + if (!is_numeric($x[1])) { |
|
126 | + throw new SodiumException('x[1] is not an integer'); |
|
127 | + } |
|
128 | + if (!is_numeric($y[0])) { |
|
129 | + throw new SodiumException('y[0] is not an integer'); |
|
130 | + } |
|
131 | + if (!is_numeric($y[1])) { |
|
132 | + throw new SodiumException('y[1] is not an integer'); |
|
133 | + } |
|
134 | + return self::new64( |
|
135 | + (int) (($x[0] ^ $y[0]) & 0xffffffff), |
|
136 | + (int) (($x[1] ^ $y[1]) & 0xffffffff) |
|
137 | + ); |
|
138 | + } |
|
139 | + |
|
140 | + /** |
|
141 | + * @internal You should not use this directly from another application |
|
142 | + * |
|
143 | + * @param SplFixedArray $x |
|
144 | + * @param int $c |
|
145 | + * @return SplFixedArray |
|
146 | + * @psalm-suppress MixedAssignment |
|
147 | + */ |
|
148 | + public static function rotr64($x, $c) |
|
149 | + { |
|
150 | + if ($c >= 64) { |
|
151 | + $c %= 64; |
|
152 | + } |
|
153 | + if ($c >= 32) { |
|
154 | + /** @var int $tmp */ |
|
155 | + $tmp = $x[0]; |
|
156 | + $x[0] = $x[1]; |
|
157 | + $x[1] = $tmp; |
|
158 | + $c -= 32; |
|
159 | + } |
|
160 | + if ($c === 0) { |
|
161 | + return $x; |
|
162 | + } |
|
163 | + |
|
164 | + $l0 = 0; |
|
165 | + $c = 64 - $c; |
|
166 | + |
|
167 | + if ($c < 32) { |
|
168 | + /** @var int $h0 */ |
|
169 | + $h0 = ((int) ($x[0]) << $c) | ( |
|
170 | + ( |
|
171 | + (int) ($x[1]) & ((1 << $c) - 1) |
|
172 | + << |
|
173 | + (32 - $c) |
|
174 | + ) >> (32 - $c) |
|
175 | + ); |
|
176 | + /** @var int $l0 */ |
|
177 | + $l0 = (int) ($x[1]) << $c; |
|
178 | + } else { |
|
179 | + /** @var int $h0 */ |
|
180 | + $h0 = (int) ($x[1]) << ($c - 32); |
|
181 | + } |
|
182 | + |
|
183 | + $h1 = 0; |
|
184 | + $c1 = 64 - $c; |
|
185 | + |
|
186 | + if ($c1 < 32) { |
|
187 | + /** @var int $h1 */ |
|
188 | + $h1 = (int) ($x[0]) >> $c1; |
|
189 | + /** @var int $l1 */ |
|
190 | + $l1 = ((int) ($x[1]) >> $c1) | ((int) ($x[0]) & ((1 << $c1) - 1)) << (32 - $c1); |
|
191 | + } else { |
|
192 | + /** @var int $l1 */ |
|
193 | + $l1 = (int) ($x[0]) >> ($c1 - 32); |
|
194 | + } |
|
195 | + |
|
196 | + return self::new64($h0 | $h1, $l0 | $l1); |
|
197 | + } |
|
198 | + |
|
199 | + /** |
|
200 | + * @internal You should not use this directly from another application |
|
201 | + * |
|
202 | + * @param SplFixedArray $x |
|
203 | + * @return int |
|
204 | + * @psalm-suppress MixedOperand |
|
205 | + */ |
|
206 | + protected static function flatten64($x) |
|
207 | + { |
|
208 | + return (int) ($x[0] * 4294967296 + $x[1]); |
|
209 | + } |
|
210 | + |
|
211 | + /** |
|
212 | + * @internal You should not use this directly from another application |
|
213 | + * |
|
214 | + * @param SplFixedArray $x |
|
215 | + * @param int $i |
|
216 | + * @return SplFixedArray |
|
217 | + * @psalm-suppress MixedArgument |
|
218 | + * @psalm-suppress MixedArrayOffset |
|
219 | + */ |
|
220 | + protected static function load64(SplFixedArray $x, $i) |
|
221 | + { |
|
222 | + /** @var int $l */ |
|
223 | + $l = (int) ($x[$i]) |
|
224 | + | ((int) ($x[$i+1]) << 8) |
|
225 | + | ((int) ($x[$i+2]) << 16) |
|
226 | + | ((int) ($x[$i+3]) << 24); |
|
227 | + /** @var int $h */ |
|
228 | + $h = (int) ($x[$i+4]) |
|
229 | + | ((int) ($x[$i+5]) << 8) |
|
230 | + | ((int) ($x[$i+6]) << 16) |
|
231 | + | ((int) ($x[$i+7]) << 24); |
|
232 | + return self::new64($h, $l); |
|
233 | + } |
|
234 | + |
|
235 | + /** |
|
236 | + * @internal You should not use this directly from another application |
|
237 | + * |
|
238 | + * @param SplFixedArray $x |
|
239 | + * @param int $i |
|
240 | + * @param SplFixedArray $u |
|
241 | + * @return void |
|
242 | + * @psalm-suppress MixedAssignment |
|
243 | + */ |
|
244 | + protected static function store64(SplFixedArray $x, $i, SplFixedArray $u) |
|
245 | + { |
|
246 | + $maxLength = $x->getSize() - 1; |
|
247 | + for ($j = 0; $j < 8; ++$j) { |
|
248 | + /* |
|
249 | 249 | [0, 1, 2, 3, 4, 5, 6, 7] |
250 | 250 | ... becomes ... |
251 | 251 | [0, 0, 0, 0, 1, 1, 1, 1] |
252 | 252 | */ |
253 | - /** @var int $uIdx */ |
|
254 | - $uIdx = ((7 - $j) & 4) >> 2; |
|
255 | - $x[$i] = ((int) ($u[$uIdx]) & 0xff); |
|
256 | - if (++$i > $maxLength) { |
|
257 | - return; |
|
258 | - } |
|
259 | - /** @psalm-suppress MixedOperand */ |
|
260 | - $u[$uIdx] >>= 8; |
|
261 | - } |
|
262 | - } |
|
263 | - |
|
264 | - /** |
|
265 | - * This just sets the $iv static variable. |
|
266 | - * |
|
267 | - * @internal You should not use this directly from another application |
|
268 | - * |
|
269 | - * @return void |
|
270 | - */ |
|
271 | - public static function pseudoConstructor() |
|
272 | - { |
|
273 | - static $called = false; |
|
274 | - if ($called) { |
|
275 | - return; |
|
276 | - } |
|
277 | - self::$iv = new SplFixedArray(8); |
|
278 | - self::$iv[0] = self::new64(0x6a09e667, 0xf3bcc908); |
|
279 | - self::$iv[1] = self::new64(0xbb67ae85, 0x84caa73b); |
|
280 | - self::$iv[2] = self::new64(0x3c6ef372, 0xfe94f82b); |
|
281 | - self::$iv[3] = self::new64(0xa54ff53a, 0x5f1d36f1); |
|
282 | - self::$iv[4] = self::new64(0x510e527f, 0xade682d1); |
|
283 | - self::$iv[5] = self::new64(0x9b05688c, 0x2b3e6c1f); |
|
284 | - self::$iv[6] = self::new64(0x1f83d9ab, 0xfb41bd6b); |
|
285 | - self::$iv[7] = self::new64(0x5be0cd19, 0x137e2179); |
|
286 | - |
|
287 | - $called = true; |
|
288 | - } |
|
289 | - |
|
290 | - /** |
|
291 | - * Returns a fresh BLAKE2 context. |
|
292 | - * |
|
293 | - * @internal You should not use this directly from another application |
|
294 | - * |
|
295 | - * @return SplFixedArray |
|
296 | - * @psalm-suppress MixedAssignment |
|
297 | - * @psalm-suppress MixedArrayAccess |
|
298 | - * @psalm-suppress MixedArrayAssignment |
|
299 | - */ |
|
300 | - protected static function context() |
|
301 | - { |
|
302 | - $ctx = new SplFixedArray(6); |
|
303 | - $ctx[0] = new SplFixedArray(8); // h |
|
304 | - $ctx[1] = new SplFixedArray(2); // t |
|
305 | - $ctx[2] = new SplFixedArray(2); // f |
|
306 | - $ctx[3] = new SplFixedArray(256); // buf |
|
307 | - $ctx[4] = 0; // buflen |
|
308 | - $ctx[5] = 0; // last_node (uint8_t) |
|
309 | - |
|
310 | - for ($i = 8; $i--;) { |
|
311 | - $ctx[0][$i] = self::$iv[$i]; |
|
312 | - } |
|
313 | - for ($i = 256; $i--;) { |
|
314 | - $ctx[3][$i] = 0; |
|
315 | - } |
|
316 | - |
|
317 | - $zero = self::new64(0, 0); |
|
318 | - $ctx[1][0] = $zero; |
|
319 | - $ctx[1][1] = $zero; |
|
320 | - $ctx[2][0] = $zero; |
|
321 | - $ctx[2][1] = $zero; |
|
322 | - |
|
323 | - return $ctx; |
|
324 | - } |
|
325 | - |
|
326 | - /** |
|
327 | - * @internal You should not use this directly from another application |
|
328 | - * |
|
329 | - * @param SplFixedArray $ctx |
|
330 | - * @param SplFixedArray $buf |
|
331 | - * @return void |
|
332 | - * @throws SodiumException |
|
333 | - * @throws TypeError |
|
334 | - * @psalm-suppress MixedArgument |
|
335 | - * @psalm-suppress MixedAssignment |
|
336 | - * @psalm-suppress MixedArrayAccess |
|
337 | - * @psalm-suppress MixedArrayAssignment |
|
338 | - * @psalm-suppress MixedArrayOffset |
|
339 | - */ |
|
340 | - protected static function compress(SplFixedArray $ctx, SplFixedArray $buf) |
|
341 | - { |
|
342 | - $m = new SplFixedArray(16); |
|
343 | - $v = new SplFixedArray(16); |
|
344 | - |
|
345 | - for ($i = 16; $i--;) { |
|
346 | - $m[$i] = self::load64($buf, $i << 3); |
|
347 | - } |
|
348 | - |
|
349 | - for ($i = 8; $i--;) { |
|
350 | - $v[$i] = $ctx[0][$i]; |
|
351 | - } |
|
352 | - |
|
353 | - $v[ 8] = self::$iv[0]; |
|
354 | - $v[ 9] = self::$iv[1]; |
|
355 | - $v[10] = self::$iv[2]; |
|
356 | - $v[11] = self::$iv[3]; |
|
357 | - |
|
358 | - $v[12] = self::xor64($ctx[1][0], self::$iv[4]); |
|
359 | - $v[13] = self::xor64($ctx[1][1], self::$iv[5]); |
|
360 | - $v[14] = self::xor64($ctx[2][0], self::$iv[6]); |
|
361 | - $v[15] = self::xor64($ctx[2][1], self::$iv[7]); |
|
362 | - |
|
363 | - for ($r = 0; $r < 12; ++$r) { |
|
364 | - $v = self::G($r, 0, 0, 4, 8, 12, $v, $m); |
|
365 | - $v = self::G($r, 1, 1, 5, 9, 13, $v, $m); |
|
366 | - $v = self::G($r, 2, 2, 6, 10, 14, $v, $m); |
|
367 | - $v = self::G($r, 3, 3, 7, 11, 15, $v, $m); |
|
368 | - $v = self::G($r, 4, 0, 5, 10, 15, $v, $m); |
|
369 | - $v = self::G($r, 5, 1, 6, 11, 12, $v, $m); |
|
370 | - $v = self::G($r, 6, 2, 7, 8, 13, $v, $m); |
|
371 | - $v = self::G($r, 7, 3, 4, 9, 14, $v, $m); |
|
372 | - } |
|
373 | - |
|
374 | - for ($i = 8; $i--;) { |
|
375 | - $ctx[0][$i] = self::xor64( |
|
376 | - $ctx[0][$i], self::xor64($v[$i], $v[$i+8]) |
|
377 | - ); |
|
378 | - } |
|
379 | - } |
|
380 | - |
|
381 | - /** |
|
382 | - * @internal You should not use this directly from another application |
|
383 | - * |
|
384 | - * @param int $r |
|
385 | - * @param int $i |
|
386 | - * @param int $a |
|
387 | - * @param int $b |
|
388 | - * @param int $c |
|
389 | - * @param int $d |
|
390 | - * @param SplFixedArray $v |
|
391 | - * @param SplFixedArray $m |
|
392 | - * @return SplFixedArray |
|
393 | - * @throws SodiumException |
|
394 | - * @throws TypeError |
|
395 | - * @psalm-suppress MixedArgument |
|
396 | - * @psalm-suppress MixedArrayOffset |
|
397 | - */ |
|
398 | - public static function G($r, $i, $a, $b, $c, $d, SplFixedArray $v, SplFixedArray $m) |
|
399 | - { |
|
400 | - $v[$a] = self::add364($v[$a], $v[$b], $m[self::$sigma[$r][$i << 1]]); |
|
401 | - $v[$d] = self::rotr64(self::xor64($v[$d], $v[$a]), 32); |
|
402 | - $v[$c] = self::add64($v[$c], $v[$d]); |
|
403 | - $v[$b] = self::rotr64(self::xor64($v[$b], $v[$c]), 24); |
|
404 | - $v[$a] = self::add364($v[$a], $v[$b], $m[self::$sigma[$r][($i << 1) + 1]]); |
|
405 | - $v[$d] = self::rotr64(self::xor64($v[$d], $v[$a]), 16); |
|
406 | - $v[$c] = self::add64($v[$c], $v[$d]); |
|
407 | - $v[$b] = self::rotr64(self::xor64($v[$b], $v[$c]), 63); |
|
408 | - return $v; |
|
409 | - } |
|
410 | - |
|
411 | - /** |
|
412 | - * @internal You should not use this directly from another application |
|
413 | - * |
|
414 | - * @param SplFixedArray $ctx |
|
415 | - * @param int $inc |
|
416 | - * @return void |
|
417 | - * @throws SodiumException |
|
418 | - * @psalm-suppress MixedArgument |
|
419 | - * @psalm-suppress MixedArrayAccess |
|
420 | - * @psalm-suppress MixedArrayAssignment |
|
421 | - */ |
|
422 | - public static function increment_counter($ctx, $inc) |
|
423 | - { |
|
424 | - if ($inc < 0) { |
|
425 | - throw new SodiumException('Increasing by a negative number makes no sense.'); |
|
426 | - } |
|
427 | - $t = self::to64($inc); |
|
428 | - # S->t is $ctx[1] in our implementation |
|
429 | - |
|
430 | - # S->t[0] = ( uint64_t )( t >> 0 ); |
|
431 | - $ctx[1][0] = self::add64($ctx[1][0], $t); |
|
432 | - |
|
433 | - # S->t[1] += ( S->t[0] < inc ); |
|
434 | - if (self::flatten64($ctx[1][0]) < $inc) { |
|
435 | - $ctx[1][1] = self::add64($ctx[1][1], self::to64(1)); |
|
436 | - } |
|
437 | - } |
|
438 | - |
|
439 | - /** |
|
440 | - * @internal You should not use this directly from another application |
|
441 | - * |
|
442 | - * @param SplFixedArray $ctx |
|
443 | - * @param SplFixedArray $p |
|
444 | - * @param int $plen |
|
445 | - * @return void |
|
446 | - * @throws SodiumException |
|
447 | - * @throws TypeError |
|
448 | - * @psalm-suppress MixedArgument |
|
449 | - * @psalm-suppress MixedAssignment |
|
450 | - * @psalm-suppress MixedArrayAccess |
|
451 | - * @psalm-suppress MixedArrayAssignment |
|
452 | - * @psalm-suppress MixedArrayOffset |
|
453 | - * @psalm-suppress MixedOperand |
|
454 | - */ |
|
455 | - public static function update(SplFixedArray $ctx, SplFixedArray $p, $plen) |
|
456 | - { |
|
457 | - self::pseudoConstructor(); |
|
458 | - |
|
459 | - $offset = 0; |
|
460 | - while ($plen > 0) { |
|
461 | - $left = $ctx[4]; |
|
462 | - $fill = 256 - $left; |
|
463 | - |
|
464 | - if ($plen > $fill) { |
|
465 | - # memcpy( S->buf + left, in, fill ); /* Fill buffer */ |
|
466 | - for ($i = $fill; $i--;) { |
|
467 | - $ctx[3][$i + $left] = $p[$i + $offset]; |
|
468 | - } |
|
469 | - |
|
470 | - # S->buflen += fill; |
|
471 | - $ctx[4] += $fill; |
|
472 | - |
|
473 | - # blake2b_increment_counter( S, BLAKE2B_BLOCKBYTES ); |
|
474 | - self::increment_counter($ctx, 128); |
|
475 | - |
|
476 | - # blake2b_compress( S, S->buf ); /* Compress */ |
|
477 | - self::compress($ctx, $ctx[3]); |
|
478 | - |
|
479 | - # memcpy( S->buf, S->buf + BLAKE2B_BLOCKBYTES, BLAKE2B_BLOCKBYTES ); /* Shift buffer left */ |
|
480 | - for ($i = 128; $i--;) { |
|
481 | - $ctx[3][$i] = $ctx[3][$i + 128]; |
|
482 | - } |
|
483 | - |
|
484 | - # S->buflen -= BLAKE2B_BLOCKBYTES; |
|
485 | - $ctx[4] -= 128; |
|
486 | - |
|
487 | - # in += fill; |
|
488 | - $offset += $fill; |
|
489 | - |
|
490 | - # inlen -= fill; |
|
491 | - $plen -= $fill; |
|
492 | - } else { |
|
493 | - for ($i = $plen; $i--;) { |
|
494 | - $ctx[3][$i + $left] = $p[$i + $offset]; |
|
495 | - } |
|
496 | - $ctx[4] += $plen; |
|
497 | - $offset += $plen; |
|
498 | - $plen -= $plen; |
|
499 | - } |
|
500 | - } |
|
501 | - } |
|
502 | - |
|
503 | - /** |
|
504 | - * @internal You should not use this directly from another application |
|
505 | - * |
|
506 | - * @param SplFixedArray $ctx |
|
507 | - * @param SplFixedArray $out |
|
508 | - * @return SplFixedArray |
|
509 | - * @throws SodiumException |
|
510 | - * @throws TypeError |
|
511 | - * @psalm-suppress MixedArgument |
|
512 | - * @psalm-suppress MixedAssignment |
|
513 | - * @psalm-suppress MixedArrayAccess |
|
514 | - * @psalm-suppress MixedArrayAssignment |
|
515 | - * @psalm-suppress MixedArrayOffset |
|
516 | - * @psalm-suppress MixedOperand |
|
517 | - */ |
|
518 | - public static function finish(SplFixedArray $ctx, SplFixedArray $out) |
|
519 | - { |
|
520 | - self::pseudoConstructor(); |
|
521 | - if ($ctx[4] > 128) { |
|
522 | - self::increment_counter($ctx, 128); |
|
523 | - self::compress($ctx, $ctx[3]); |
|
524 | - $ctx[4] -= 128; |
|
525 | - if ($ctx[4] > 128) { |
|
526 | - throw new SodiumException('Failed to assert that buflen <= 128 bytes'); |
|
527 | - } |
|
528 | - for ($i = $ctx[4]; $i--;) { |
|
529 | - $ctx[3][$i] = $ctx[3][$i + 128]; |
|
530 | - } |
|
531 | - } |
|
532 | - |
|
533 | - self::increment_counter($ctx, $ctx[4]); |
|
534 | - $ctx[2][0] = self::new64(0xffffffff, 0xffffffff); |
|
535 | - |
|
536 | - for ($i = 256 - $ctx[4]; $i--;) { |
|
537 | - $ctx[3][$i+$ctx[4]] = 0; |
|
538 | - } |
|
539 | - |
|
540 | - self::compress($ctx, $ctx[3]); |
|
541 | - |
|
542 | - $i = (int) (($out->getSize() - 1) / 8); |
|
543 | - for (; $i >= 0; --$i) { |
|
544 | - self::store64($out, $i << 3, $ctx[0][$i]); |
|
545 | - } |
|
546 | - return $out; |
|
547 | - } |
|
548 | - |
|
549 | - /** |
|
550 | - * @internal You should not use this directly from another application |
|
551 | - * |
|
552 | - * @param SplFixedArray|null $key |
|
553 | - * @param int $outlen |
|
554 | - * @param SplFixedArray|null $salt |
|
555 | - * @param SplFixedArray|null $personal |
|
556 | - * @return SplFixedArray |
|
557 | - * @throws SodiumException |
|
558 | - * @throws TypeError |
|
559 | - * @psalm-suppress MixedArgument |
|
560 | - * @psalm-suppress MixedAssignment |
|
561 | - * @psalm-suppress MixedArrayAccess |
|
562 | - * @psalm-suppress MixedArrayAssignment |
|
563 | - * @psalm-suppress MixedArrayOffset |
|
564 | - */ |
|
565 | - public static function init( |
|
566 | - $key = null, |
|
567 | - $outlen = 64, |
|
568 | - $salt = null, |
|
569 | - $personal = null |
|
570 | - ) { |
|
571 | - self::pseudoConstructor(); |
|
572 | - $klen = 0; |
|
573 | - |
|
574 | - if ($key !== null) { |
|
575 | - if (count($key) > 64) { |
|
576 | - throw new SodiumException('Invalid key size'); |
|
577 | - } |
|
578 | - $klen = count($key); |
|
579 | - } |
|
580 | - |
|
581 | - if ($outlen > 64) { |
|
582 | - throw new SodiumException('Invalid output size'); |
|
583 | - } |
|
584 | - |
|
585 | - $ctx = self::context(); |
|
586 | - |
|
587 | - $p = new SplFixedArray(64); |
|
588 | - // Zero our param buffer... |
|
589 | - for ($i = 64; --$i;) { |
|
590 | - $p[$i] = 0; |
|
591 | - } |
|
592 | - |
|
593 | - $p[0] = $outlen; // digest_length |
|
594 | - $p[1] = $klen; // key_length |
|
595 | - $p[2] = 1; // fanout |
|
596 | - $p[3] = 1; // depth |
|
597 | - |
|
598 | - if ($salt instanceof SplFixedArray) { |
|
599 | - // salt: [32] through [47] |
|
600 | - for ($i = 0; $i < 16; ++$i) { |
|
601 | - $p[32 + $i] = (int) $salt[$i]; |
|
602 | - } |
|
603 | - } |
|
604 | - if ($personal instanceof SplFixedArray) { |
|
605 | - // personal: [48] through [63] |
|
606 | - for ($i = 0; $i < 16; ++$i) { |
|
607 | - $p[48 + $i] = (int) $personal[$i]; |
|
608 | - } |
|
609 | - } |
|
610 | - |
|
611 | - $ctx[0][0] = self::xor64( |
|
612 | - $ctx[0][0], |
|
613 | - self::load64($p, 0) |
|
614 | - ); |
|
615 | - if ($salt instanceof SplFixedArray || $personal instanceof SplFixedArray) { |
|
616 | - // We need to do what blake2b_init_param() does: |
|
617 | - for ($i = 1; $i < 8; ++$i) { |
|
618 | - $ctx[0][$i] = self::xor64( |
|
619 | - $ctx[0][$i], |
|
620 | - self::load64($p, $i << 3) |
|
621 | - ); |
|
622 | - } |
|
623 | - } |
|
624 | - |
|
625 | - if ($klen > 0 && $key instanceof SplFixedArray) { |
|
626 | - $block = new SplFixedArray(128); |
|
627 | - for ($i = 128; $i--;) { |
|
628 | - $block[$i] = 0; |
|
629 | - } |
|
630 | - for ($i = $klen; $i--;) { |
|
631 | - $block[$i] = $key[$i]; |
|
632 | - } |
|
633 | - self::update($ctx, $block, 128); |
|
634 | - $ctx[4] = 128; |
|
635 | - } |
|
636 | - |
|
637 | - return $ctx; |
|
638 | - } |
|
639 | - |
|
640 | - /** |
|
641 | - * Convert a string into an SplFixedArray of integers |
|
642 | - * |
|
643 | - * @internal You should not use this directly from another application |
|
644 | - * |
|
645 | - * @param string $str |
|
646 | - * @return SplFixedArray |
|
647 | - * @psalm-suppress MixedArgumentTypeCoercion |
|
648 | - */ |
|
649 | - public static function stringToSplFixedArray($str = '') |
|
650 | - { |
|
651 | - $values = unpack('C*', $str); |
|
652 | - return SplFixedArray::fromArray(array_values($values)); |
|
653 | - } |
|
654 | - |
|
655 | - /** |
|
656 | - * Convert an SplFixedArray of integers into a string |
|
657 | - * |
|
658 | - * @internal You should not use this directly from another application |
|
659 | - * |
|
660 | - * @param SplFixedArray $a |
|
661 | - * @return string |
|
662 | - * @throws TypeError |
|
663 | - */ |
|
664 | - public static function SplFixedArrayToString(SplFixedArray $a) |
|
665 | - { |
|
666 | - /** |
|
667 | - * @var array<int, int|string> $arr |
|
668 | - */ |
|
669 | - $arr = $a->toArray(); |
|
670 | - $c = $a->count(); |
|
671 | - array_unshift($arr, str_repeat('C', $c)); |
|
672 | - return (string) (call_user_func_array('pack', $arr)); |
|
673 | - } |
|
674 | - |
|
675 | - /** |
|
676 | - * @internal You should not use this directly from another application |
|
677 | - * |
|
678 | - * @param SplFixedArray $ctx |
|
679 | - * @return string |
|
680 | - * @throws TypeError |
|
681 | - * @psalm-suppress MixedArgument |
|
682 | - * @psalm-suppress MixedAssignment |
|
683 | - * @psalm-suppress MixedArrayAccess |
|
684 | - * @psalm-suppress MixedArrayAssignment |
|
685 | - * @psalm-suppress MixedArrayOffset |
|
686 | - * @psalm-suppress MixedMethodCall |
|
687 | - */ |
|
688 | - public static function contextToString(SplFixedArray $ctx) |
|
689 | - { |
|
690 | - $str = ''; |
|
691 | - /** @var array<int, array<int, int>> $ctxA */ |
|
692 | - $ctxA = $ctx[0]->toArray(); |
|
693 | - |
|
694 | - # uint64_t h[8]; |
|
695 | - for ($i = 0; $i < 8; ++$i) { |
|
696 | - $str .= self::store32_le($ctxA[$i][1]); |
|
697 | - $str .= self::store32_le($ctxA[$i][0]); |
|
698 | - } |
|
699 | - |
|
700 | - # uint64_t t[2]; |
|
701 | - # uint64_t f[2]; |
|
702 | - for ($i = 1; $i < 3; ++$i) { |
|
703 | - $ctxA = $ctx[$i]->toArray(); |
|
704 | - $str .= self::store32_le($ctxA[0][1]); |
|
705 | - $str .= self::store32_le($ctxA[0][0]); |
|
706 | - $str .= self::store32_le($ctxA[1][1]); |
|
707 | - $str .= self::store32_le($ctxA[1][0]); |
|
708 | - } |
|
709 | - |
|
710 | - # uint8_t buf[2 * 128]; |
|
711 | - $str .= self::SplFixedArrayToString($ctx[3]); |
|
712 | - |
|
713 | - /** @var int $ctx4 */ |
|
714 | - $ctx4 = (int) $ctx[4]; |
|
715 | - |
|
716 | - # size_t buflen; |
|
717 | - $str .= implode('', array( |
|
718 | - self::intToChr($ctx4 & 0xff), |
|
719 | - self::intToChr(($ctx4 >> 8) & 0xff), |
|
720 | - self::intToChr(($ctx4 >> 16) & 0xff), |
|
721 | - self::intToChr(($ctx4 >> 24) & 0xff), |
|
722 | - self::intToChr(($ctx4 >> 32) & 0xff), |
|
723 | - self::intToChr(($ctx4 >> 40) & 0xff), |
|
724 | - self::intToChr(($ctx4 >> 48) & 0xff), |
|
725 | - self::intToChr(($ctx4 >> 56) & 0xff) |
|
726 | - )); |
|
727 | - # uint8_t last_node; |
|
728 | - return $str . self::intToChr($ctx[5]) . str_repeat("\x00", 23); |
|
729 | - } |
|
730 | - |
|
731 | - /** |
|
732 | - * Creates an SplFixedArray containing other SplFixedArray elements, from |
|
733 | - * a string (compatible with \Sodium\crypto_generichash_{init, update, final}) |
|
734 | - * |
|
735 | - * @internal You should not use this directly from another application |
|
736 | - * |
|
737 | - * @param string $string |
|
738 | - * @return SplFixedArray |
|
739 | - * @throws SodiumException |
|
740 | - * @throws TypeError |
|
741 | - * @psalm-suppress MixedArrayAssignment |
|
742 | - */ |
|
743 | - public static function stringToContext($string) |
|
744 | - { |
|
745 | - $ctx = self::context(); |
|
746 | - |
|
747 | - # uint64_t h[8]; |
|
748 | - for ($i = 0; $i < 8; ++$i) { |
|
749 | - $ctx[0][$i] = SplFixedArray::fromArray( |
|
750 | - array( |
|
751 | - self::load_4( |
|
752 | - self::substr($string, (($i << 3) + 4), 4) |
|
753 | - ), |
|
754 | - self::load_4( |
|
755 | - self::substr($string, (($i << 3) + 0), 4) |
|
756 | - ) |
|
757 | - ) |
|
758 | - ); |
|
759 | - } |
|
760 | - |
|
761 | - # uint64_t t[2]; |
|
762 | - # uint64_t f[2]; |
|
763 | - for ($i = 1; $i < 3; ++$i) { |
|
764 | - $ctx[$i][1] = SplFixedArray::fromArray( |
|
765 | - array( |
|
766 | - self::load_4(self::substr($string, 76 + (($i - 1) << 4), 4)), |
|
767 | - self::load_4(self::substr($string, 72 + (($i - 1) << 4), 4)) |
|
768 | - ) |
|
769 | - ); |
|
770 | - $ctx[$i][0] = SplFixedArray::fromArray( |
|
771 | - array( |
|
772 | - self::load_4(self::substr($string, 68 + (($i - 1) << 4), 4)), |
|
773 | - self::load_4(self::substr($string, 64 + (($i - 1) << 4), 4)) |
|
774 | - ) |
|
775 | - ); |
|
776 | - } |
|
777 | - |
|
778 | - # uint8_t buf[2 * 128]; |
|
779 | - $ctx[3] = self::stringToSplFixedArray(self::substr($string, 96, 256)); |
|
780 | - |
|
781 | - # uint8_t buf[2 * 128]; |
|
782 | - $int = 0; |
|
783 | - for ($i = 0; $i < 8; ++$i) { |
|
784 | - $int |= self::chrToInt($string[352 + $i]) << ($i << 3); |
|
785 | - } |
|
786 | - $ctx[4] = $int; |
|
787 | - |
|
788 | - return $ctx; |
|
789 | - } |
|
253 | + /** @var int $uIdx */ |
|
254 | + $uIdx = ((7 - $j) & 4) >> 2; |
|
255 | + $x[$i] = ((int) ($u[$uIdx]) & 0xff); |
|
256 | + if (++$i > $maxLength) { |
|
257 | + return; |
|
258 | + } |
|
259 | + /** @psalm-suppress MixedOperand */ |
|
260 | + $u[$uIdx] >>= 8; |
|
261 | + } |
|
262 | + } |
|
263 | + |
|
264 | + /** |
|
265 | + * This just sets the $iv static variable. |
|
266 | + * |
|
267 | + * @internal You should not use this directly from another application |
|
268 | + * |
|
269 | + * @return void |
|
270 | + */ |
|
271 | + public static function pseudoConstructor() |
|
272 | + { |
|
273 | + static $called = false; |
|
274 | + if ($called) { |
|
275 | + return; |
|
276 | + } |
|
277 | + self::$iv = new SplFixedArray(8); |
|
278 | + self::$iv[0] = self::new64(0x6a09e667, 0xf3bcc908); |
|
279 | + self::$iv[1] = self::new64(0xbb67ae85, 0x84caa73b); |
|
280 | + self::$iv[2] = self::new64(0x3c6ef372, 0xfe94f82b); |
|
281 | + self::$iv[3] = self::new64(0xa54ff53a, 0x5f1d36f1); |
|
282 | + self::$iv[4] = self::new64(0x510e527f, 0xade682d1); |
|
283 | + self::$iv[5] = self::new64(0x9b05688c, 0x2b3e6c1f); |
|
284 | + self::$iv[6] = self::new64(0x1f83d9ab, 0xfb41bd6b); |
|
285 | + self::$iv[7] = self::new64(0x5be0cd19, 0x137e2179); |
|
286 | + |
|
287 | + $called = true; |
|
288 | + } |
|
289 | + |
|
290 | + /** |
|
291 | + * Returns a fresh BLAKE2 context. |
|
292 | + * |
|
293 | + * @internal You should not use this directly from another application |
|
294 | + * |
|
295 | + * @return SplFixedArray |
|
296 | + * @psalm-suppress MixedAssignment |
|
297 | + * @psalm-suppress MixedArrayAccess |
|
298 | + * @psalm-suppress MixedArrayAssignment |
|
299 | + */ |
|
300 | + protected static function context() |
|
301 | + { |
|
302 | + $ctx = new SplFixedArray(6); |
|
303 | + $ctx[0] = new SplFixedArray(8); // h |
|
304 | + $ctx[1] = new SplFixedArray(2); // t |
|
305 | + $ctx[2] = new SplFixedArray(2); // f |
|
306 | + $ctx[3] = new SplFixedArray(256); // buf |
|
307 | + $ctx[4] = 0; // buflen |
|
308 | + $ctx[5] = 0; // last_node (uint8_t) |
|
309 | + |
|
310 | + for ($i = 8; $i--;) { |
|
311 | + $ctx[0][$i] = self::$iv[$i]; |
|
312 | + } |
|
313 | + for ($i = 256; $i--;) { |
|
314 | + $ctx[3][$i] = 0; |
|
315 | + } |
|
316 | + |
|
317 | + $zero = self::new64(0, 0); |
|
318 | + $ctx[1][0] = $zero; |
|
319 | + $ctx[1][1] = $zero; |
|
320 | + $ctx[2][0] = $zero; |
|
321 | + $ctx[2][1] = $zero; |
|
322 | + |
|
323 | + return $ctx; |
|
324 | + } |
|
325 | + |
|
326 | + /** |
|
327 | + * @internal You should not use this directly from another application |
|
328 | + * |
|
329 | + * @param SplFixedArray $ctx |
|
330 | + * @param SplFixedArray $buf |
|
331 | + * @return void |
|
332 | + * @throws SodiumException |
|
333 | + * @throws TypeError |
|
334 | + * @psalm-suppress MixedArgument |
|
335 | + * @psalm-suppress MixedAssignment |
|
336 | + * @psalm-suppress MixedArrayAccess |
|
337 | + * @psalm-suppress MixedArrayAssignment |
|
338 | + * @psalm-suppress MixedArrayOffset |
|
339 | + */ |
|
340 | + protected static function compress(SplFixedArray $ctx, SplFixedArray $buf) |
|
341 | + { |
|
342 | + $m = new SplFixedArray(16); |
|
343 | + $v = new SplFixedArray(16); |
|
344 | + |
|
345 | + for ($i = 16; $i--;) { |
|
346 | + $m[$i] = self::load64($buf, $i << 3); |
|
347 | + } |
|
348 | + |
|
349 | + for ($i = 8; $i--;) { |
|
350 | + $v[$i] = $ctx[0][$i]; |
|
351 | + } |
|
352 | + |
|
353 | + $v[ 8] = self::$iv[0]; |
|
354 | + $v[ 9] = self::$iv[1]; |
|
355 | + $v[10] = self::$iv[2]; |
|
356 | + $v[11] = self::$iv[3]; |
|
357 | + |
|
358 | + $v[12] = self::xor64($ctx[1][0], self::$iv[4]); |
|
359 | + $v[13] = self::xor64($ctx[1][1], self::$iv[5]); |
|
360 | + $v[14] = self::xor64($ctx[2][0], self::$iv[6]); |
|
361 | + $v[15] = self::xor64($ctx[2][1], self::$iv[7]); |
|
362 | + |
|
363 | + for ($r = 0; $r < 12; ++$r) { |
|
364 | + $v = self::G($r, 0, 0, 4, 8, 12, $v, $m); |
|
365 | + $v = self::G($r, 1, 1, 5, 9, 13, $v, $m); |
|
366 | + $v = self::G($r, 2, 2, 6, 10, 14, $v, $m); |
|
367 | + $v = self::G($r, 3, 3, 7, 11, 15, $v, $m); |
|
368 | + $v = self::G($r, 4, 0, 5, 10, 15, $v, $m); |
|
369 | + $v = self::G($r, 5, 1, 6, 11, 12, $v, $m); |
|
370 | + $v = self::G($r, 6, 2, 7, 8, 13, $v, $m); |
|
371 | + $v = self::G($r, 7, 3, 4, 9, 14, $v, $m); |
|
372 | + } |
|
373 | + |
|
374 | + for ($i = 8; $i--;) { |
|
375 | + $ctx[0][$i] = self::xor64( |
|
376 | + $ctx[0][$i], self::xor64($v[$i], $v[$i+8]) |
|
377 | + ); |
|
378 | + } |
|
379 | + } |
|
380 | + |
|
381 | + /** |
|
382 | + * @internal You should not use this directly from another application |
|
383 | + * |
|
384 | + * @param int $r |
|
385 | + * @param int $i |
|
386 | + * @param int $a |
|
387 | + * @param int $b |
|
388 | + * @param int $c |
|
389 | + * @param int $d |
|
390 | + * @param SplFixedArray $v |
|
391 | + * @param SplFixedArray $m |
|
392 | + * @return SplFixedArray |
|
393 | + * @throws SodiumException |
|
394 | + * @throws TypeError |
|
395 | + * @psalm-suppress MixedArgument |
|
396 | + * @psalm-suppress MixedArrayOffset |
|
397 | + */ |
|
398 | + public static function G($r, $i, $a, $b, $c, $d, SplFixedArray $v, SplFixedArray $m) |
|
399 | + { |
|
400 | + $v[$a] = self::add364($v[$a], $v[$b], $m[self::$sigma[$r][$i << 1]]); |
|
401 | + $v[$d] = self::rotr64(self::xor64($v[$d], $v[$a]), 32); |
|
402 | + $v[$c] = self::add64($v[$c], $v[$d]); |
|
403 | + $v[$b] = self::rotr64(self::xor64($v[$b], $v[$c]), 24); |
|
404 | + $v[$a] = self::add364($v[$a], $v[$b], $m[self::$sigma[$r][($i << 1) + 1]]); |
|
405 | + $v[$d] = self::rotr64(self::xor64($v[$d], $v[$a]), 16); |
|
406 | + $v[$c] = self::add64($v[$c], $v[$d]); |
|
407 | + $v[$b] = self::rotr64(self::xor64($v[$b], $v[$c]), 63); |
|
408 | + return $v; |
|
409 | + } |
|
410 | + |
|
411 | + /** |
|
412 | + * @internal You should not use this directly from another application |
|
413 | + * |
|
414 | + * @param SplFixedArray $ctx |
|
415 | + * @param int $inc |
|
416 | + * @return void |
|
417 | + * @throws SodiumException |
|
418 | + * @psalm-suppress MixedArgument |
|
419 | + * @psalm-suppress MixedArrayAccess |
|
420 | + * @psalm-suppress MixedArrayAssignment |
|
421 | + */ |
|
422 | + public static function increment_counter($ctx, $inc) |
|
423 | + { |
|
424 | + if ($inc < 0) { |
|
425 | + throw new SodiumException('Increasing by a negative number makes no sense.'); |
|
426 | + } |
|
427 | + $t = self::to64($inc); |
|
428 | + # S->t is $ctx[1] in our implementation |
|
429 | + |
|
430 | + # S->t[0] = ( uint64_t )( t >> 0 ); |
|
431 | + $ctx[1][0] = self::add64($ctx[1][0], $t); |
|
432 | + |
|
433 | + # S->t[1] += ( S->t[0] < inc ); |
|
434 | + if (self::flatten64($ctx[1][0]) < $inc) { |
|
435 | + $ctx[1][1] = self::add64($ctx[1][1], self::to64(1)); |
|
436 | + } |
|
437 | + } |
|
438 | + |
|
439 | + /** |
|
440 | + * @internal You should not use this directly from another application |
|
441 | + * |
|
442 | + * @param SplFixedArray $ctx |
|
443 | + * @param SplFixedArray $p |
|
444 | + * @param int $plen |
|
445 | + * @return void |
|
446 | + * @throws SodiumException |
|
447 | + * @throws TypeError |
|
448 | + * @psalm-suppress MixedArgument |
|
449 | + * @psalm-suppress MixedAssignment |
|
450 | + * @psalm-suppress MixedArrayAccess |
|
451 | + * @psalm-suppress MixedArrayAssignment |
|
452 | + * @psalm-suppress MixedArrayOffset |
|
453 | + * @psalm-suppress MixedOperand |
|
454 | + */ |
|
455 | + public static function update(SplFixedArray $ctx, SplFixedArray $p, $plen) |
|
456 | + { |
|
457 | + self::pseudoConstructor(); |
|
458 | + |
|
459 | + $offset = 0; |
|
460 | + while ($plen > 0) { |
|
461 | + $left = $ctx[4]; |
|
462 | + $fill = 256 - $left; |
|
463 | + |
|
464 | + if ($plen > $fill) { |
|
465 | + # memcpy( S->buf + left, in, fill ); /* Fill buffer */ |
|
466 | + for ($i = $fill; $i--;) { |
|
467 | + $ctx[3][$i + $left] = $p[$i + $offset]; |
|
468 | + } |
|
469 | + |
|
470 | + # S->buflen += fill; |
|
471 | + $ctx[4] += $fill; |
|
472 | + |
|
473 | + # blake2b_increment_counter( S, BLAKE2B_BLOCKBYTES ); |
|
474 | + self::increment_counter($ctx, 128); |
|
475 | + |
|
476 | + # blake2b_compress( S, S->buf ); /* Compress */ |
|
477 | + self::compress($ctx, $ctx[3]); |
|
478 | + |
|
479 | + # memcpy( S->buf, S->buf + BLAKE2B_BLOCKBYTES, BLAKE2B_BLOCKBYTES ); /* Shift buffer left */ |
|
480 | + for ($i = 128; $i--;) { |
|
481 | + $ctx[3][$i] = $ctx[3][$i + 128]; |
|
482 | + } |
|
483 | + |
|
484 | + # S->buflen -= BLAKE2B_BLOCKBYTES; |
|
485 | + $ctx[4] -= 128; |
|
486 | + |
|
487 | + # in += fill; |
|
488 | + $offset += $fill; |
|
489 | + |
|
490 | + # inlen -= fill; |
|
491 | + $plen -= $fill; |
|
492 | + } else { |
|
493 | + for ($i = $plen; $i--;) { |
|
494 | + $ctx[3][$i + $left] = $p[$i + $offset]; |
|
495 | + } |
|
496 | + $ctx[4] += $plen; |
|
497 | + $offset += $plen; |
|
498 | + $plen -= $plen; |
|
499 | + } |
|
500 | + } |
|
501 | + } |
|
502 | + |
|
503 | + /** |
|
504 | + * @internal You should not use this directly from another application |
|
505 | + * |
|
506 | + * @param SplFixedArray $ctx |
|
507 | + * @param SplFixedArray $out |
|
508 | + * @return SplFixedArray |
|
509 | + * @throws SodiumException |
|
510 | + * @throws TypeError |
|
511 | + * @psalm-suppress MixedArgument |
|
512 | + * @psalm-suppress MixedAssignment |
|
513 | + * @psalm-suppress MixedArrayAccess |
|
514 | + * @psalm-suppress MixedArrayAssignment |
|
515 | + * @psalm-suppress MixedArrayOffset |
|
516 | + * @psalm-suppress MixedOperand |
|
517 | + */ |
|
518 | + public static function finish(SplFixedArray $ctx, SplFixedArray $out) |
|
519 | + { |
|
520 | + self::pseudoConstructor(); |
|
521 | + if ($ctx[4] > 128) { |
|
522 | + self::increment_counter($ctx, 128); |
|
523 | + self::compress($ctx, $ctx[3]); |
|
524 | + $ctx[4] -= 128; |
|
525 | + if ($ctx[4] > 128) { |
|
526 | + throw new SodiumException('Failed to assert that buflen <= 128 bytes'); |
|
527 | + } |
|
528 | + for ($i = $ctx[4]; $i--;) { |
|
529 | + $ctx[3][$i] = $ctx[3][$i + 128]; |
|
530 | + } |
|
531 | + } |
|
532 | + |
|
533 | + self::increment_counter($ctx, $ctx[4]); |
|
534 | + $ctx[2][0] = self::new64(0xffffffff, 0xffffffff); |
|
535 | + |
|
536 | + for ($i = 256 - $ctx[4]; $i--;) { |
|
537 | + $ctx[3][$i+$ctx[4]] = 0; |
|
538 | + } |
|
539 | + |
|
540 | + self::compress($ctx, $ctx[3]); |
|
541 | + |
|
542 | + $i = (int) (($out->getSize() - 1) / 8); |
|
543 | + for (; $i >= 0; --$i) { |
|
544 | + self::store64($out, $i << 3, $ctx[0][$i]); |
|
545 | + } |
|
546 | + return $out; |
|
547 | + } |
|
548 | + |
|
549 | + /** |
|
550 | + * @internal You should not use this directly from another application |
|
551 | + * |
|
552 | + * @param SplFixedArray|null $key |
|
553 | + * @param int $outlen |
|
554 | + * @param SplFixedArray|null $salt |
|
555 | + * @param SplFixedArray|null $personal |
|
556 | + * @return SplFixedArray |
|
557 | + * @throws SodiumException |
|
558 | + * @throws TypeError |
|
559 | + * @psalm-suppress MixedArgument |
|
560 | + * @psalm-suppress MixedAssignment |
|
561 | + * @psalm-suppress MixedArrayAccess |
|
562 | + * @psalm-suppress MixedArrayAssignment |
|
563 | + * @psalm-suppress MixedArrayOffset |
|
564 | + */ |
|
565 | + public static function init( |
|
566 | + $key = null, |
|
567 | + $outlen = 64, |
|
568 | + $salt = null, |
|
569 | + $personal = null |
|
570 | + ) { |
|
571 | + self::pseudoConstructor(); |
|
572 | + $klen = 0; |
|
573 | + |
|
574 | + if ($key !== null) { |
|
575 | + if (count($key) > 64) { |
|
576 | + throw new SodiumException('Invalid key size'); |
|
577 | + } |
|
578 | + $klen = count($key); |
|
579 | + } |
|
580 | + |
|
581 | + if ($outlen > 64) { |
|
582 | + throw new SodiumException('Invalid output size'); |
|
583 | + } |
|
584 | + |
|
585 | + $ctx = self::context(); |
|
586 | + |
|
587 | + $p = new SplFixedArray(64); |
|
588 | + // Zero our param buffer... |
|
589 | + for ($i = 64; --$i;) { |
|
590 | + $p[$i] = 0; |
|
591 | + } |
|
592 | + |
|
593 | + $p[0] = $outlen; // digest_length |
|
594 | + $p[1] = $klen; // key_length |
|
595 | + $p[2] = 1; // fanout |
|
596 | + $p[3] = 1; // depth |
|
597 | + |
|
598 | + if ($salt instanceof SplFixedArray) { |
|
599 | + // salt: [32] through [47] |
|
600 | + for ($i = 0; $i < 16; ++$i) { |
|
601 | + $p[32 + $i] = (int) $salt[$i]; |
|
602 | + } |
|
603 | + } |
|
604 | + if ($personal instanceof SplFixedArray) { |
|
605 | + // personal: [48] through [63] |
|
606 | + for ($i = 0; $i < 16; ++$i) { |
|
607 | + $p[48 + $i] = (int) $personal[$i]; |
|
608 | + } |
|
609 | + } |
|
610 | + |
|
611 | + $ctx[0][0] = self::xor64( |
|
612 | + $ctx[0][0], |
|
613 | + self::load64($p, 0) |
|
614 | + ); |
|
615 | + if ($salt instanceof SplFixedArray || $personal instanceof SplFixedArray) { |
|
616 | + // We need to do what blake2b_init_param() does: |
|
617 | + for ($i = 1; $i < 8; ++$i) { |
|
618 | + $ctx[0][$i] = self::xor64( |
|
619 | + $ctx[0][$i], |
|
620 | + self::load64($p, $i << 3) |
|
621 | + ); |
|
622 | + } |
|
623 | + } |
|
624 | + |
|
625 | + if ($klen > 0 && $key instanceof SplFixedArray) { |
|
626 | + $block = new SplFixedArray(128); |
|
627 | + for ($i = 128; $i--;) { |
|
628 | + $block[$i] = 0; |
|
629 | + } |
|
630 | + for ($i = $klen; $i--;) { |
|
631 | + $block[$i] = $key[$i]; |
|
632 | + } |
|
633 | + self::update($ctx, $block, 128); |
|
634 | + $ctx[4] = 128; |
|
635 | + } |
|
636 | + |
|
637 | + return $ctx; |
|
638 | + } |
|
639 | + |
|
640 | + /** |
|
641 | + * Convert a string into an SplFixedArray of integers |
|
642 | + * |
|
643 | + * @internal You should not use this directly from another application |
|
644 | + * |
|
645 | + * @param string $str |
|
646 | + * @return SplFixedArray |
|
647 | + * @psalm-suppress MixedArgumentTypeCoercion |
|
648 | + */ |
|
649 | + public static function stringToSplFixedArray($str = '') |
|
650 | + { |
|
651 | + $values = unpack('C*', $str); |
|
652 | + return SplFixedArray::fromArray(array_values($values)); |
|
653 | + } |
|
654 | + |
|
655 | + /** |
|
656 | + * Convert an SplFixedArray of integers into a string |
|
657 | + * |
|
658 | + * @internal You should not use this directly from another application |
|
659 | + * |
|
660 | + * @param SplFixedArray $a |
|
661 | + * @return string |
|
662 | + * @throws TypeError |
|
663 | + */ |
|
664 | + public static function SplFixedArrayToString(SplFixedArray $a) |
|
665 | + { |
|
666 | + /** |
|
667 | + * @var array<int, int|string> $arr |
|
668 | + */ |
|
669 | + $arr = $a->toArray(); |
|
670 | + $c = $a->count(); |
|
671 | + array_unshift($arr, str_repeat('C', $c)); |
|
672 | + return (string) (call_user_func_array('pack', $arr)); |
|
673 | + } |
|
674 | + |
|
675 | + /** |
|
676 | + * @internal You should not use this directly from another application |
|
677 | + * |
|
678 | + * @param SplFixedArray $ctx |
|
679 | + * @return string |
|
680 | + * @throws TypeError |
|
681 | + * @psalm-suppress MixedArgument |
|
682 | + * @psalm-suppress MixedAssignment |
|
683 | + * @psalm-suppress MixedArrayAccess |
|
684 | + * @psalm-suppress MixedArrayAssignment |
|
685 | + * @psalm-suppress MixedArrayOffset |
|
686 | + * @psalm-suppress MixedMethodCall |
|
687 | + */ |
|
688 | + public static function contextToString(SplFixedArray $ctx) |
|
689 | + { |
|
690 | + $str = ''; |
|
691 | + /** @var array<int, array<int, int>> $ctxA */ |
|
692 | + $ctxA = $ctx[0]->toArray(); |
|
693 | + |
|
694 | + # uint64_t h[8]; |
|
695 | + for ($i = 0; $i < 8; ++$i) { |
|
696 | + $str .= self::store32_le($ctxA[$i][1]); |
|
697 | + $str .= self::store32_le($ctxA[$i][0]); |
|
698 | + } |
|
699 | + |
|
700 | + # uint64_t t[2]; |
|
701 | + # uint64_t f[2]; |
|
702 | + for ($i = 1; $i < 3; ++$i) { |
|
703 | + $ctxA = $ctx[$i]->toArray(); |
|
704 | + $str .= self::store32_le($ctxA[0][1]); |
|
705 | + $str .= self::store32_le($ctxA[0][0]); |
|
706 | + $str .= self::store32_le($ctxA[1][1]); |
|
707 | + $str .= self::store32_le($ctxA[1][0]); |
|
708 | + } |
|
709 | + |
|
710 | + # uint8_t buf[2 * 128]; |
|
711 | + $str .= self::SplFixedArrayToString($ctx[3]); |
|
712 | + |
|
713 | + /** @var int $ctx4 */ |
|
714 | + $ctx4 = (int) $ctx[4]; |
|
715 | + |
|
716 | + # size_t buflen; |
|
717 | + $str .= implode('', array( |
|
718 | + self::intToChr($ctx4 & 0xff), |
|
719 | + self::intToChr(($ctx4 >> 8) & 0xff), |
|
720 | + self::intToChr(($ctx4 >> 16) & 0xff), |
|
721 | + self::intToChr(($ctx4 >> 24) & 0xff), |
|
722 | + self::intToChr(($ctx4 >> 32) & 0xff), |
|
723 | + self::intToChr(($ctx4 >> 40) & 0xff), |
|
724 | + self::intToChr(($ctx4 >> 48) & 0xff), |
|
725 | + self::intToChr(($ctx4 >> 56) & 0xff) |
|
726 | + )); |
|
727 | + # uint8_t last_node; |
|
728 | + return $str . self::intToChr($ctx[5]) . str_repeat("\x00", 23); |
|
729 | + } |
|
730 | + |
|
731 | + /** |
|
732 | + * Creates an SplFixedArray containing other SplFixedArray elements, from |
|
733 | + * a string (compatible with \Sodium\crypto_generichash_{init, update, final}) |
|
734 | + * |
|
735 | + * @internal You should not use this directly from another application |
|
736 | + * |
|
737 | + * @param string $string |
|
738 | + * @return SplFixedArray |
|
739 | + * @throws SodiumException |
|
740 | + * @throws TypeError |
|
741 | + * @psalm-suppress MixedArrayAssignment |
|
742 | + */ |
|
743 | + public static function stringToContext($string) |
|
744 | + { |
|
745 | + $ctx = self::context(); |
|
746 | + |
|
747 | + # uint64_t h[8]; |
|
748 | + for ($i = 0; $i < 8; ++$i) { |
|
749 | + $ctx[0][$i] = SplFixedArray::fromArray( |
|
750 | + array( |
|
751 | + self::load_4( |
|
752 | + self::substr($string, (($i << 3) + 4), 4) |
|
753 | + ), |
|
754 | + self::load_4( |
|
755 | + self::substr($string, (($i << 3) + 0), 4) |
|
756 | + ) |
|
757 | + ) |
|
758 | + ); |
|
759 | + } |
|
760 | + |
|
761 | + # uint64_t t[2]; |
|
762 | + # uint64_t f[2]; |
|
763 | + for ($i = 1; $i < 3; ++$i) { |
|
764 | + $ctx[$i][1] = SplFixedArray::fromArray( |
|
765 | + array( |
|
766 | + self::load_4(self::substr($string, 76 + (($i - 1) << 4), 4)), |
|
767 | + self::load_4(self::substr($string, 72 + (($i - 1) << 4), 4)) |
|
768 | + ) |
|
769 | + ); |
|
770 | + $ctx[$i][0] = SplFixedArray::fromArray( |
|
771 | + array( |
|
772 | + self::load_4(self::substr($string, 68 + (($i - 1) << 4), 4)), |
|
773 | + self::load_4(self::substr($string, 64 + (($i - 1) << 4), 4)) |
|
774 | + ) |
|
775 | + ); |
|
776 | + } |
|
777 | + |
|
778 | + # uint8_t buf[2 * 128]; |
|
779 | + $ctx[3] = self::stringToSplFixedArray(self::substr($string, 96, 256)); |
|
780 | + |
|
781 | + # uint8_t buf[2 * 128]; |
|
782 | + $int = 0; |
|
783 | + for ($i = 0; $i < 8; ++$i) { |
|
784 | + $int |= self::chrToInt($string[352 + $i]) << ($i << 3); |
|
785 | + } |
|
786 | + $ctx[4] = $int; |
|
787 | + |
|
788 | + return $ctx; |
|
789 | + } |
|
790 | 790 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_Ed25519', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,543 +9,543 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_Ed25519 extends ParagonIE_Sodium_Core_Curve25519 |
11 | 11 | { |
12 | - const KEYPAIR_BYTES = 96; |
|
13 | - const SEED_BYTES = 32; |
|
14 | - const SCALAR_BYTES = 32; |
|
15 | - |
|
16 | - /** |
|
17 | - * @internal You should not use this directly from another application |
|
18 | - * |
|
19 | - * @return string (96 bytes) |
|
20 | - * @throws Exception |
|
21 | - * @throws SodiumException |
|
22 | - * @throws TypeError |
|
23 | - */ |
|
24 | - public static function keypair() |
|
25 | - { |
|
26 | - $seed = random_bytes(self::SEED_BYTES); |
|
27 | - $pk = ''; |
|
28 | - $sk = ''; |
|
29 | - self::seed_keypair($pk, $sk, $seed); |
|
30 | - return $sk . $pk; |
|
31 | - } |
|
32 | - |
|
33 | - /** |
|
34 | - * @internal You should not use this directly from another application |
|
35 | - * |
|
36 | - * @param string $pk |
|
37 | - * @param string $sk |
|
38 | - * @param string $seed |
|
39 | - * @return string |
|
40 | - * @throws SodiumException |
|
41 | - * @throws TypeError |
|
42 | - */ |
|
43 | - public static function seed_keypair(&$pk, &$sk, $seed) |
|
44 | - { |
|
45 | - if (self::strlen($seed) !== self::SEED_BYTES) { |
|
46 | - throw new RangeException('crypto_sign keypair seed must be 32 bytes long'); |
|
47 | - } |
|
48 | - |
|
49 | - /** @var string $pk */ |
|
50 | - $pk = self::publickey_from_secretkey($seed); |
|
51 | - $sk = $seed . $pk; |
|
52 | - return $sk; |
|
53 | - } |
|
54 | - |
|
55 | - /** |
|
56 | - * @internal You should not use this directly from another application |
|
57 | - * |
|
58 | - * @param string $keypair |
|
59 | - * @return string |
|
60 | - * @throws TypeError |
|
61 | - */ |
|
62 | - public static function secretkey($keypair) |
|
63 | - { |
|
64 | - if (self::strlen($keypair) !== self::KEYPAIR_BYTES) { |
|
65 | - throw new RangeException('crypto_sign keypair must be 96 bytes long'); |
|
66 | - } |
|
67 | - return self::substr($keypair, 0, 64); |
|
68 | - } |
|
69 | - |
|
70 | - /** |
|
71 | - * @internal You should not use this directly from another application |
|
72 | - * |
|
73 | - * @param string $keypair |
|
74 | - * @return string |
|
75 | - * @throws TypeError |
|
76 | - */ |
|
77 | - public static function publickey($keypair) |
|
78 | - { |
|
79 | - if (self::strlen($keypair) !== self::KEYPAIR_BYTES) { |
|
80 | - throw new RangeException('crypto_sign keypair must be 96 bytes long'); |
|
81 | - } |
|
82 | - return self::substr($keypair, 64, 32); |
|
83 | - } |
|
84 | - |
|
85 | - /** |
|
86 | - * @internal You should not use this directly from another application |
|
87 | - * |
|
88 | - * @param string $sk |
|
89 | - * @return string |
|
90 | - * @throws SodiumException |
|
91 | - * @throws TypeError |
|
92 | - */ |
|
93 | - public static function publickey_from_secretkey($sk) |
|
94 | - { |
|
95 | - /** @var string $sk */ |
|
96 | - $sk = hash('sha512', self::substr($sk, 0, 32), true); |
|
97 | - $sk[0] = self::intToChr( |
|
98 | - self::chrToInt($sk[0]) & 248 |
|
99 | - ); |
|
100 | - $sk[31] = self::intToChr( |
|
101 | - (self::chrToInt($sk[31]) & 63) | 64 |
|
102 | - ); |
|
103 | - return self::sk_to_pk($sk); |
|
104 | - } |
|
105 | - |
|
106 | - /** |
|
107 | - * @param string $pk |
|
108 | - * @return string |
|
109 | - * @throws SodiumException |
|
110 | - * @throws TypeError |
|
111 | - */ |
|
112 | - public static function pk_to_curve25519($pk) |
|
113 | - { |
|
114 | - if (self::small_order($pk)) { |
|
115 | - throw new SodiumException('Public key is on a small order'); |
|
116 | - } |
|
117 | - $A = self::ge_frombytes_negate_vartime(self::substr($pk, 0, 32)); |
|
118 | - $p1 = self::ge_mul_l($A); |
|
119 | - if (!self::fe_isnonzero($p1->X)) { |
|
120 | - throw new SodiumException('Unexpected zero result'); |
|
121 | - } |
|
122 | - |
|
123 | - # fe_1(one_minus_y); |
|
124 | - # fe_sub(one_minus_y, one_minus_y, A.Y); |
|
125 | - # fe_invert(one_minus_y, one_minus_y); |
|
126 | - $one_minux_y = self::fe_invert( |
|
127 | - self::fe_sub( |
|
128 | - self::fe_1(), |
|
129 | - $A->Y |
|
130 | - ) |
|
131 | - ); |
|
132 | - |
|
133 | - # fe_1(x); |
|
134 | - # fe_add(x, x, A.Y); |
|
135 | - # fe_mul(x, x, one_minus_y); |
|
136 | - $x = self::fe_mul( |
|
137 | - self::fe_add(self::fe_1(), $A->Y), |
|
138 | - $one_minux_y |
|
139 | - ); |
|
140 | - |
|
141 | - # fe_tobytes(curve25519_pk, x); |
|
142 | - return self::fe_tobytes($x); |
|
143 | - } |
|
144 | - |
|
145 | - /** |
|
146 | - * @internal You should not use this directly from another application |
|
147 | - * |
|
148 | - * @param string $sk |
|
149 | - * @return string |
|
150 | - * @throws SodiumException |
|
151 | - * @throws TypeError |
|
152 | - */ |
|
153 | - public static function sk_to_pk($sk) |
|
154 | - { |
|
155 | - return self::ge_p3_tobytes( |
|
156 | - self::ge_scalarmult_base( |
|
157 | - self::substr($sk, 0, 32) |
|
158 | - ) |
|
159 | - ); |
|
160 | - } |
|
161 | - |
|
162 | - /** |
|
163 | - * @internal You should not use this directly from another application |
|
164 | - * |
|
165 | - * @param string $message |
|
166 | - * @param string $sk |
|
167 | - * @return string |
|
168 | - * @throws SodiumException |
|
169 | - * @throws TypeError |
|
170 | - */ |
|
171 | - public static function sign($message, $sk) |
|
172 | - { |
|
173 | - /** @var string $signature */ |
|
174 | - $signature = self::sign_detached($message, $sk); |
|
175 | - return $signature . $message; |
|
176 | - } |
|
177 | - |
|
178 | - /** |
|
179 | - * @internal You should not use this directly from another application |
|
180 | - * |
|
181 | - * @param string $message A signed message |
|
182 | - * @param string $pk Public key |
|
183 | - * @return string Message (without signature) |
|
184 | - * @throws SodiumException |
|
185 | - * @throws TypeError |
|
186 | - */ |
|
187 | - public static function sign_open($message, $pk) |
|
188 | - { |
|
189 | - /** @var string $signature */ |
|
190 | - $signature = self::substr($message, 0, 64); |
|
191 | - |
|
192 | - /** @var string $message */ |
|
193 | - $message = self::substr($message, 64); |
|
194 | - |
|
195 | - if (self::verify_detached($signature, $message, $pk)) { |
|
196 | - return $message; |
|
197 | - } |
|
198 | - throw new SodiumException('Invalid signature'); |
|
199 | - } |
|
200 | - |
|
201 | - /** |
|
202 | - * @internal You should not use this directly from another application |
|
203 | - * |
|
204 | - * @param string $message |
|
205 | - * @param string $sk |
|
206 | - * @return string |
|
207 | - * @throws SodiumException |
|
208 | - * @throws TypeError |
|
209 | - */ |
|
210 | - public static function sign_detached($message, $sk) |
|
211 | - { |
|
212 | - # crypto_hash_sha512(az, sk, 32); |
|
213 | - $az = hash('sha512', self::substr($sk, 0, 32), true); |
|
214 | - |
|
215 | - # az[0] &= 248; |
|
216 | - # az[31] &= 63; |
|
217 | - # az[31] |= 64; |
|
218 | - $az[0] = self::intToChr(self::chrToInt($az[0]) & 248); |
|
219 | - $az[31] = self::intToChr((self::chrToInt($az[31]) & 63) | 64); |
|
220 | - |
|
221 | - # crypto_hash_sha512_init(&hs); |
|
222 | - # crypto_hash_sha512_update(&hs, az + 32, 32); |
|
223 | - # crypto_hash_sha512_update(&hs, m, mlen); |
|
224 | - # crypto_hash_sha512_final(&hs, nonce); |
|
225 | - $hs = hash_init('sha512'); |
|
226 | - hash_update($hs, self::substr($az, 32, 32)); |
|
227 | - hash_update($hs, $message); |
|
228 | - $nonceHash = hash_final($hs, true); |
|
229 | - |
|
230 | - # memmove(sig + 32, sk + 32, 32); |
|
231 | - $pk = self::substr($sk, 32, 32); |
|
232 | - |
|
233 | - # sc_reduce(nonce); |
|
234 | - # ge_scalarmult_base(&R, nonce); |
|
235 | - # ge_p3_tobytes(sig, &R); |
|
236 | - $nonce = self::sc_reduce($nonceHash) . self::substr($nonceHash, 32); |
|
237 | - $sig = self::ge_p3_tobytes( |
|
238 | - self::ge_scalarmult_base($nonce) |
|
239 | - ); |
|
240 | - |
|
241 | - # crypto_hash_sha512_init(&hs); |
|
242 | - # crypto_hash_sha512_update(&hs, sig, 64); |
|
243 | - # crypto_hash_sha512_update(&hs, m, mlen); |
|
244 | - # crypto_hash_sha512_final(&hs, hram); |
|
245 | - $hs = hash_init('sha512'); |
|
246 | - hash_update($hs, self::substr($sig, 0, 32)); |
|
247 | - hash_update($hs, self::substr($pk, 0, 32)); |
|
248 | - hash_update($hs, $message); |
|
249 | - $hramHash = hash_final($hs, true); |
|
250 | - |
|
251 | - # sc_reduce(hram); |
|
252 | - # sc_muladd(sig + 32, hram, az, nonce); |
|
253 | - $hram = self::sc_reduce($hramHash); |
|
254 | - $sigAfter = self::sc_muladd($hram, $az, $nonce); |
|
255 | - $sig = self::substr($sig, 0, 32) . self::substr($sigAfter, 0, 32); |
|
256 | - |
|
257 | - try { |
|
258 | - ParagonIE_Sodium_Compat::memzero($az); |
|
259 | - } catch (SodiumException $ex) { |
|
260 | - $az = null; |
|
261 | - } |
|
262 | - return $sig; |
|
263 | - } |
|
264 | - |
|
265 | - /** |
|
266 | - * @internal You should not use this directly from another application |
|
267 | - * |
|
268 | - * @param string $sig |
|
269 | - * @param string $message |
|
270 | - * @param string $pk |
|
271 | - * @return bool |
|
272 | - * @throws SodiumException |
|
273 | - * @throws TypeError |
|
274 | - */ |
|
275 | - public static function verify_detached($sig, $message, $pk) |
|
276 | - { |
|
277 | - if (self::strlen($sig) < 64) { |
|
278 | - throw new SodiumException('Signature is too short'); |
|
279 | - } |
|
280 | - if ((self::chrToInt($sig[63]) & 240) && self::check_S_lt_L(self::substr($sig, 32, 32))) { |
|
281 | - throw new SodiumException('S < L - Invalid signature'); |
|
282 | - } |
|
283 | - if (self::small_order($sig)) { |
|
284 | - throw new SodiumException('Signature is on too small of an order'); |
|
285 | - } |
|
286 | - if ((self::chrToInt($sig[63]) & 224) !== 0) { |
|
287 | - throw new SodiumException('Invalid signature'); |
|
288 | - } |
|
289 | - $d = 0; |
|
290 | - for ($i = 0; $i < 32; ++$i) { |
|
291 | - $d |= self::chrToInt($pk[$i]); |
|
292 | - } |
|
293 | - if ($d === 0) { |
|
294 | - throw new SodiumException('All zero public key'); |
|
295 | - } |
|
296 | - |
|
297 | - /** @var bool The original value of ParagonIE_Sodium_Compat::$fastMult */ |
|
298 | - $orig = ParagonIE_Sodium_Compat::$fastMult; |
|
299 | - |
|
300 | - // Set ParagonIE_Sodium_Compat::$fastMult to true to speed up verification. |
|
301 | - ParagonIE_Sodium_Compat::$fastMult = true; |
|
302 | - |
|
303 | - /** @var ParagonIE_Sodium_Core_Curve25519_Ge_P3 $A */ |
|
304 | - $A = self::ge_frombytes_negate_vartime($pk); |
|
305 | - |
|
306 | - /** @var string $hDigest */ |
|
307 | - $hDigest = hash( |
|
308 | - 'sha512', |
|
309 | - self::substr($sig, 0, 32) . |
|
310 | - self::substr($pk, 0, 32) . |
|
311 | - $message, |
|
312 | - true |
|
313 | - ); |
|
314 | - |
|
315 | - /** @var string $h */ |
|
316 | - $h = self::sc_reduce($hDigest) . self::substr($hDigest, 32); |
|
317 | - |
|
318 | - /** @var ParagonIE_Sodium_Core_Curve25519_Ge_P2 $R */ |
|
319 | - $R = self::ge_double_scalarmult_vartime( |
|
320 | - $h, |
|
321 | - $A, |
|
322 | - self::substr($sig, 32) |
|
323 | - ); |
|
324 | - |
|
325 | - /** @var string $rcheck */ |
|
326 | - $rcheck = self::ge_tobytes($R); |
|
327 | - |
|
328 | - // Reset ParagonIE_Sodium_Compat::$fastMult to what it was before. |
|
329 | - ParagonIE_Sodium_Compat::$fastMult = $orig; |
|
330 | - |
|
331 | - return self::verify_32($rcheck, self::substr($sig, 0, 32)); |
|
332 | - } |
|
333 | - |
|
334 | - /** |
|
335 | - * @internal You should not use this directly from another application |
|
336 | - * |
|
337 | - * @param string $S |
|
338 | - * @return bool |
|
339 | - * @throws SodiumException |
|
340 | - * @throws TypeError |
|
341 | - */ |
|
342 | - public static function check_S_lt_L($S) |
|
343 | - { |
|
344 | - if (self::strlen($S) < 32) { |
|
345 | - throw new SodiumException('Signature must be 32 bytes'); |
|
346 | - } |
|
347 | - $L = array( |
|
348 | - 0xed, 0xd3, 0xf5, 0x5c, 0x1a, 0x63, 0x12, 0x58, |
|
349 | - 0xd6, 0x9c, 0xf7, 0xa2, 0xde, 0xf9, 0xde, 0x14, |
|
350 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
351 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10 |
|
352 | - ); |
|
353 | - $c = 0; |
|
354 | - $n = 1; |
|
355 | - $i = 32; |
|
356 | - |
|
357 | - /** @var array<int, int> $L */ |
|
358 | - do { |
|
359 | - --$i; |
|
360 | - $x = self::chrToInt($S[$i]); |
|
361 | - $c |= ( |
|
362 | - (($x - $L[$i]) >> 8) & $n |
|
363 | - ); |
|
364 | - $n &= ( |
|
365 | - (($x ^ $L[$i]) - 1) >> 8 |
|
366 | - ); |
|
367 | - } while ($i !== 0); |
|
368 | - |
|
369 | - return $c === 0; |
|
370 | - } |
|
371 | - |
|
372 | - /** |
|
373 | - * @param string $R |
|
374 | - * @return bool |
|
375 | - * @throws SodiumException |
|
376 | - * @throws TypeError |
|
377 | - */ |
|
378 | - public static function small_order($R) |
|
379 | - { |
|
380 | - /** @var array<int, array<int, int>> $blocklist */ |
|
381 | - $blocklist = array( |
|
382 | - /* 0 (order 4) */ |
|
383 | - array( |
|
384 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
385 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
386 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
387 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 |
|
388 | - ), |
|
389 | - /* 1 (order 1) */ |
|
390 | - array( |
|
391 | - 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
392 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
393 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
394 | - 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 |
|
395 | - ), |
|
396 | - /* 2707385501144840649318225287225658788936804267575313519463743609750303402022 (order 8) */ |
|
397 | - array( |
|
398 | - 0x26, 0xe8, 0x95, 0x8f, 0xc2, 0xb2, 0x27, 0xb0, |
|
399 | - 0x45, 0xc3, 0xf4, 0x89, 0xf2, 0xef, 0x98, 0xf0, |
|
400 | - 0xd5, 0xdf, 0xac, 0x05, 0xd3, 0xc6, 0x33, 0x39, |
|
401 | - 0xb1, 0x38, 0x02, 0x88, 0x6d, 0x53, 0xfc, 0x05 |
|
402 | - ), |
|
403 | - /* 55188659117513257062467267217118295137698188065244968500265048394206261417927 (order 8) */ |
|
404 | - array( |
|
405 | - 0xc7, 0x17, 0x6a, 0x70, 0x3d, 0x4d, 0xd8, 0x4f, |
|
406 | - 0xba, 0x3c, 0x0b, 0x76, 0x0d, 0x10, 0x67, 0x0f, |
|
407 | - 0x2a, 0x20, 0x53, 0xfa, 0x2c, 0x39, 0xcc, 0xc6, |
|
408 | - 0x4e, 0xc7, 0xfd, 0x77, 0x92, 0xac, 0x03, 0x7a |
|
409 | - ), |
|
410 | - /* p-1 (order 2) */ |
|
411 | - array( |
|
412 | - 0x13, 0xe8, 0x95, 0x8f, 0xc2, 0xb2, 0x27, 0xb0, |
|
413 | - 0x45, 0xc3, 0xf4, 0x89, 0xf2, 0xef, 0x98, 0xf0, |
|
414 | - 0xd5, 0xdf, 0xac, 0x05, 0xd3, 0xc6, 0x33, 0x39, |
|
415 | - 0xb1, 0x38, 0x02, 0x88, 0x6d, 0x53, 0xfc, 0x85 |
|
416 | - ), |
|
417 | - /* p (order 4) */ |
|
418 | - array( |
|
419 | - 0xb4, 0x17, 0x6a, 0x70, 0x3d, 0x4d, 0xd8, 0x4f, |
|
420 | - 0xba, 0x3c, 0x0b, 0x76, 0x0d, 0x10, 0x67, 0x0f, |
|
421 | - 0x2a, 0x20, 0x53, 0xfa, 0x2c, 0x39, 0xcc, 0xc6, |
|
422 | - 0x4e, 0xc7, 0xfd, 0x77, 0x92, 0xac, 0x03, 0xfa |
|
423 | - ), |
|
424 | - /* p+1 (order 1) */ |
|
425 | - array( |
|
426 | - 0xec, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
427 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
428 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
429 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
430 | - ), |
|
431 | - /* p+2707385501144840649318225287225658788936804267575313519463743609750303402022 (order 8) */ |
|
432 | - array( |
|
433 | - 0xed, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
434 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
435 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
436 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
437 | - ), |
|
438 | - /* p+55188659117513257062467267217118295137698188065244968500265048394206261417927 (order 8) */ |
|
439 | - array( |
|
440 | - 0xee, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
441 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
442 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
443 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
444 | - ), |
|
445 | - /* 2p-1 (order 2) */ |
|
446 | - array( |
|
447 | - 0xd9, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
448 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
449 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
450 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
451 | - ), |
|
452 | - /* 2p (order 4) */ |
|
453 | - array( |
|
454 | - 0xda, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
455 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
456 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
457 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
458 | - ), |
|
459 | - /* 2p+1 (order 1) */ |
|
460 | - array( |
|
461 | - 0xdb, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
462 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
463 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
464 | - 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
465 | - ) |
|
466 | - ); |
|
467 | - /** @var int $countBlocklist */ |
|
468 | - $countBlocklist = count($blocklist); |
|
469 | - |
|
470 | - for ($i = 0; $i < $countBlocklist; ++$i) { |
|
471 | - $c = 0; |
|
472 | - for ($j = 0; $j < 32; ++$j) { |
|
473 | - $c |= self::chrToInt($R[$j]) ^ (int) $blocklist[$i][$j]; |
|
474 | - } |
|
475 | - if ($c === 0) { |
|
476 | - return true; |
|
477 | - } |
|
478 | - } |
|
479 | - return false; |
|
480 | - } |
|
481 | - |
|
482 | - /** |
|
483 | - * @param string $s |
|
484 | - * @return string |
|
485 | - * @throws SodiumException |
|
486 | - */ |
|
487 | - public static function scalar_complement($s) |
|
488 | - { |
|
489 | - $t_ = self::L . str_repeat("\x00", 32); |
|
490 | - sodium_increment($t_); |
|
491 | - $s_ = $s . str_repeat("\x00", 32); |
|
492 | - ParagonIE_Sodium_Compat::sub($t_, $s_); |
|
493 | - return self::sc_reduce($t_); |
|
494 | - } |
|
495 | - |
|
496 | - /** |
|
497 | - * @return string |
|
498 | - * @throws SodiumException |
|
499 | - */ |
|
500 | - public static function scalar_random() |
|
501 | - { |
|
502 | - do { |
|
503 | - $r = ParagonIE_Sodium_Compat::randombytes_buf(self::SCALAR_BYTES); |
|
504 | - $r[self::SCALAR_BYTES - 1] = self::intToChr( |
|
505 | - self::chrToInt($r[self::SCALAR_BYTES - 1]) & 0x1f |
|
506 | - ); |
|
507 | - } while ( |
|
508 | - !self::check_S_lt_L($r) || ParagonIE_Sodium_Compat::is_zero($r) |
|
509 | - ); |
|
510 | - return $r; |
|
511 | - } |
|
512 | - |
|
513 | - /** |
|
514 | - * @param string $s |
|
515 | - * @return string |
|
516 | - * @throws SodiumException |
|
517 | - */ |
|
518 | - public static function scalar_negate($s) |
|
519 | - { |
|
520 | - $t_ = self::L . str_repeat("\x00", 32) ; |
|
521 | - $s_ = $s . str_repeat("\x00", 32) ; |
|
522 | - ParagonIE_Sodium_Compat::sub($t_, $s_); |
|
523 | - return self::sc_reduce($t_); |
|
524 | - } |
|
525 | - |
|
526 | - /** |
|
527 | - * @param string $a |
|
528 | - * @param string $b |
|
529 | - * @return string |
|
530 | - * @throws SodiumException |
|
531 | - */ |
|
532 | - public static function scalar_add($a, $b) |
|
533 | - { |
|
534 | - $a_ = $a . str_repeat("\x00", 32); |
|
535 | - $b_ = $b . str_repeat("\x00", 32); |
|
536 | - ParagonIE_Sodium_Compat::add($a_, $b_); |
|
537 | - return self::sc_reduce($a_); |
|
538 | - } |
|
539 | - |
|
540 | - /** |
|
541 | - * @param string $x |
|
542 | - * @param string $y |
|
543 | - * @return string |
|
544 | - * @throws SodiumException |
|
545 | - */ |
|
546 | - public static function scalar_sub($x, $y) |
|
547 | - { |
|
548 | - $yn = self::scalar_negate($y); |
|
549 | - return self::scalar_add($x, $yn); |
|
550 | - } |
|
12 | + const KEYPAIR_BYTES = 96; |
|
13 | + const SEED_BYTES = 32; |
|
14 | + const SCALAR_BYTES = 32; |
|
15 | + |
|
16 | + /** |
|
17 | + * @internal You should not use this directly from another application |
|
18 | + * |
|
19 | + * @return string (96 bytes) |
|
20 | + * @throws Exception |
|
21 | + * @throws SodiumException |
|
22 | + * @throws TypeError |
|
23 | + */ |
|
24 | + public static function keypair() |
|
25 | + { |
|
26 | + $seed = random_bytes(self::SEED_BYTES); |
|
27 | + $pk = ''; |
|
28 | + $sk = ''; |
|
29 | + self::seed_keypair($pk, $sk, $seed); |
|
30 | + return $sk . $pk; |
|
31 | + } |
|
32 | + |
|
33 | + /** |
|
34 | + * @internal You should not use this directly from another application |
|
35 | + * |
|
36 | + * @param string $pk |
|
37 | + * @param string $sk |
|
38 | + * @param string $seed |
|
39 | + * @return string |
|
40 | + * @throws SodiumException |
|
41 | + * @throws TypeError |
|
42 | + */ |
|
43 | + public static function seed_keypair(&$pk, &$sk, $seed) |
|
44 | + { |
|
45 | + if (self::strlen($seed) !== self::SEED_BYTES) { |
|
46 | + throw new RangeException('crypto_sign keypair seed must be 32 bytes long'); |
|
47 | + } |
|
48 | + |
|
49 | + /** @var string $pk */ |
|
50 | + $pk = self::publickey_from_secretkey($seed); |
|
51 | + $sk = $seed . $pk; |
|
52 | + return $sk; |
|
53 | + } |
|
54 | + |
|
55 | + /** |
|
56 | + * @internal You should not use this directly from another application |
|
57 | + * |
|
58 | + * @param string $keypair |
|
59 | + * @return string |
|
60 | + * @throws TypeError |
|
61 | + */ |
|
62 | + public static function secretkey($keypair) |
|
63 | + { |
|
64 | + if (self::strlen($keypair) !== self::KEYPAIR_BYTES) { |
|
65 | + throw new RangeException('crypto_sign keypair must be 96 bytes long'); |
|
66 | + } |
|
67 | + return self::substr($keypair, 0, 64); |
|
68 | + } |
|
69 | + |
|
70 | + /** |
|
71 | + * @internal You should not use this directly from another application |
|
72 | + * |
|
73 | + * @param string $keypair |
|
74 | + * @return string |
|
75 | + * @throws TypeError |
|
76 | + */ |
|
77 | + public static function publickey($keypair) |
|
78 | + { |
|
79 | + if (self::strlen($keypair) !== self::KEYPAIR_BYTES) { |
|
80 | + throw new RangeException('crypto_sign keypair must be 96 bytes long'); |
|
81 | + } |
|
82 | + return self::substr($keypair, 64, 32); |
|
83 | + } |
|
84 | + |
|
85 | + /** |
|
86 | + * @internal You should not use this directly from another application |
|
87 | + * |
|
88 | + * @param string $sk |
|
89 | + * @return string |
|
90 | + * @throws SodiumException |
|
91 | + * @throws TypeError |
|
92 | + */ |
|
93 | + public static function publickey_from_secretkey($sk) |
|
94 | + { |
|
95 | + /** @var string $sk */ |
|
96 | + $sk = hash('sha512', self::substr($sk, 0, 32), true); |
|
97 | + $sk[0] = self::intToChr( |
|
98 | + self::chrToInt($sk[0]) & 248 |
|
99 | + ); |
|
100 | + $sk[31] = self::intToChr( |
|
101 | + (self::chrToInt($sk[31]) & 63) | 64 |
|
102 | + ); |
|
103 | + return self::sk_to_pk($sk); |
|
104 | + } |
|
105 | + |
|
106 | + /** |
|
107 | + * @param string $pk |
|
108 | + * @return string |
|
109 | + * @throws SodiumException |
|
110 | + * @throws TypeError |
|
111 | + */ |
|
112 | + public static function pk_to_curve25519($pk) |
|
113 | + { |
|
114 | + if (self::small_order($pk)) { |
|
115 | + throw new SodiumException('Public key is on a small order'); |
|
116 | + } |
|
117 | + $A = self::ge_frombytes_negate_vartime(self::substr($pk, 0, 32)); |
|
118 | + $p1 = self::ge_mul_l($A); |
|
119 | + if (!self::fe_isnonzero($p1->X)) { |
|
120 | + throw new SodiumException('Unexpected zero result'); |
|
121 | + } |
|
122 | + |
|
123 | + # fe_1(one_minus_y); |
|
124 | + # fe_sub(one_minus_y, one_minus_y, A.Y); |
|
125 | + # fe_invert(one_minus_y, one_minus_y); |
|
126 | + $one_minux_y = self::fe_invert( |
|
127 | + self::fe_sub( |
|
128 | + self::fe_1(), |
|
129 | + $A->Y |
|
130 | + ) |
|
131 | + ); |
|
132 | + |
|
133 | + # fe_1(x); |
|
134 | + # fe_add(x, x, A.Y); |
|
135 | + # fe_mul(x, x, one_minus_y); |
|
136 | + $x = self::fe_mul( |
|
137 | + self::fe_add(self::fe_1(), $A->Y), |
|
138 | + $one_minux_y |
|
139 | + ); |
|
140 | + |
|
141 | + # fe_tobytes(curve25519_pk, x); |
|
142 | + return self::fe_tobytes($x); |
|
143 | + } |
|
144 | + |
|
145 | + /** |
|
146 | + * @internal You should not use this directly from another application |
|
147 | + * |
|
148 | + * @param string $sk |
|
149 | + * @return string |
|
150 | + * @throws SodiumException |
|
151 | + * @throws TypeError |
|
152 | + */ |
|
153 | + public static function sk_to_pk($sk) |
|
154 | + { |
|
155 | + return self::ge_p3_tobytes( |
|
156 | + self::ge_scalarmult_base( |
|
157 | + self::substr($sk, 0, 32) |
|
158 | + ) |
|
159 | + ); |
|
160 | + } |
|
161 | + |
|
162 | + /** |
|
163 | + * @internal You should not use this directly from another application |
|
164 | + * |
|
165 | + * @param string $message |
|
166 | + * @param string $sk |
|
167 | + * @return string |
|
168 | + * @throws SodiumException |
|
169 | + * @throws TypeError |
|
170 | + */ |
|
171 | + public static function sign($message, $sk) |
|
172 | + { |
|
173 | + /** @var string $signature */ |
|
174 | + $signature = self::sign_detached($message, $sk); |
|
175 | + return $signature . $message; |
|
176 | + } |
|
177 | + |
|
178 | + /** |
|
179 | + * @internal You should not use this directly from another application |
|
180 | + * |
|
181 | + * @param string $message A signed message |
|
182 | + * @param string $pk Public key |
|
183 | + * @return string Message (without signature) |
|
184 | + * @throws SodiumException |
|
185 | + * @throws TypeError |
|
186 | + */ |
|
187 | + public static function sign_open($message, $pk) |
|
188 | + { |
|
189 | + /** @var string $signature */ |
|
190 | + $signature = self::substr($message, 0, 64); |
|
191 | + |
|
192 | + /** @var string $message */ |
|
193 | + $message = self::substr($message, 64); |
|
194 | + |
|
195 | + if (self::verify_detached($signature, $message, $pk)) { |
|
196 | + return $message; |
|
197 | + } |
|
198 | + throw new SodiumException('Invalid signature'); |
|
199 | + } |
|
200 | + |
|
201 | + /** |
|
202 | + * @internal You should not use this directly from another application |
|
203 | + * |
|
204 | + * @param string $message |
|
205 | + * @param string $sk |
|
206 | + * @return string |
|
207 | + * @throws SodiumException |
|
208 | + * @throws TypeError |
|
209 | + */ |
|
210 | + public static function sign_detached($message, $sk) |
|
211 | + { |
|
212 | + # crypto_hash_sha512(az, sk, 32); |
|
213 | + $az = hash('sha512', self::substr($sk, 0, 32), true); |
|
214 | + |
|
215 | + # az[0] &= 248; |
|
216 | + # az[31] &= 63; |
|
217 | + # az[31] |= 64; |
|
218 | + $az[0] = self::intToChr(self::chrToInt($az[0]) & 248); |
|
219 | + $az[31] = self::intToChr((self::chrToInt($az[31]) & 63) | 64); |
|
220 | + |
|
221 | + # crypto_hash_sha512_init(&hs); |
|
222 | + # crypto_hash_sha512_update(&hs, az + 32, 32); |
|
223 | + # crypto_hash_sha512_update(&hs, m, mlen); |
|
224 | + # crypto_hash_sha512_final(&hs, nonce); |
|
225 | + $hs = hash_init('sha512'); |
|
226 | + hash_update($hs, self::substr($az, 32, 32)); |
|
227 | + hash_update($hs, $message); |
|
228 | + $nonceHash = hash_final($hs, true); |
|
229 | + |
|
230 | + # memmove(sig + 32, sk + 32, 32); |
|
231 | + $pk = self::substr($sk, 32, 32); |
|
232 | + |
|
233 | + # sc_reduce(nonce); |
|
234 | + # ge_scalarmult_base(&R, nonce); |
|
235 | + # ge_p3_tobytes(sig, &R); |
|
236 | + $nonce = self::sc_reduce($nonceHash) . self::substr($nonceHash, 32); |
|
237 | + $sig = self::ge_p3_tobytes( |
|
238 | + self::ge_scalarmult_base($nonce) |
|
239 | + ); |
|
240 | + |
|
241 | + # crypto_hash_sha512_init(&hs); |
|
242 | + # crypto_hash_sha512_update(&hs, sig, 64); |
|
243 | + # crypto_hash_sha512_update(&hs, m, mlen); |
|
244 | + # crypto_hash_sha512_final(&hs, hram); |
|
245 | + $hs = hash_init('sha512'); |
|
246 | + hash_update($hs, self::substr($sig, 0, 32)); |
|
247 | + hash_update($hs, self::substr($pk, 0, 32)); |
|
248 | + hash_update($hs, $message); |
|
249 | + $hramHash = hash_final($hs, true); |
|
250 | + |
|
251 | + # sc_reduce(hram); |
|
252 | + # sc_muladd(sig + 32, hram, az, nonce); |
|
253 | + $hram = self::sc_reduce($hramHash); |
|
254 | + $sigAfter = self::sc_muladd($hram, $az, $nonce); |
|
255 | + $sig = self::substr($sig, 0, 32) . self::substr($sigAfter, 0, 32); |
|
256 | + |
|
257 | + try { |
|
258 | + ParagonIE_Sodium_Compat::memzero($az); |
|
259 | + } catch (SodiumException $ex) { |
|
260 | + $az = null; |
|
261 | + } |
|
262 | + return $sig; |
|
263 | + } |
|
264 | + |
|
265 | + /** |
|
266 | + * @internal You should not use this directly from another application |
|
267 | + * |
|
268 | + * @param string $sig |
|
269 | + * @param string $message |
|
270 | + * @param string $pk |
|
271 | + * @return bool |
|
272 | + * @throws SodiumException |
|
273 | + * @throws TypeError |
|
274 | + */ |
|
275 | + public static function verify_detached($sig, $message, $pk) |
|
276 | + { |
|
277 | + if (self::strlen($sig) < 64) { |
|
278 | + throw new SodiumException('Signature is too short'); |
|
279 | + } |
|
280 | + if ((self::chrToInt($sig[63]) & 240) && self::check_S_lt_L(self::substr($sig, 32, 32))) { |
|
281 | + throw new SodiumException('S < L - Invalid signature'); |
|
282 | + } |
|
283 | + if (self::small_order($sig)) { |
|
284 | + throw new SodiumException('Signature is on too small of an order'); |
|
285 | + } |
|
286 | + if ((self::chrToInt($sig[63]) & 224) !== 0) { |
|
287 | + throw new SodiumException('Invalid signature'); |
|
288 | + } |
|
289 | + $d = 0; |
|
290 | + for ($i = 0; $i < 32; ++$i) { |
|
291 | + $d |= self::chrToInt($pk[$i]); |
|
292 | + } |
|
293 | + if ($d === 0) { |
|
294 | + throw new SodiumException('All zero public key'); |
|
295 | + } |
|
296 | + |
|
297 | + /** @var bool The original value of ParagonIE_Sodium_Compat::$fastMult */ |
|
298 | + $orig = ParagonIE_Sodium_Compat::$fastMult; |
|
299 | + |
|
300 | + // Set ParagonIE_Sodium_Compat::$fastMult to true to speed up verification. |
|
301 | + ParagonIE_Sodium_Compat::$fastMult = true; |
|
302 | + |
|
303 | + /** @var ParagonIE_Sodium_Core_Curve25519_Ge_P3 $A */ |
|
304 | + $A = self::ge_frombytes_negate_vartime($pk); |
|
305 | + |
|
306 | + /** @var string $hDigest */ |
|
307 | + $hDigest = hash( |
|
308 | + 'sha512', |
|
309 | + self::substr($sig, 0, 32) . |
|
310 | + self::substr($pk, 0, 32) . |
|
311 | + $message, |
|
312 | + true |
|
313 | + ); |
|
314 | + |
|
315 | + /** @var string $h */ |
|
316 | + $h = self::sc_reduce($hDigest) . self::substr($hDigest, 32); |
|
317 | + |
|
318 | + /** @var ParagonIE_Sodium_Core_Curve25519_Ge_P2 $R */ |
|
319 | + $R = self::ge_double_scalarmult_vartime( |
|
320 | + $h, |
|
321 | + $A, |
|
322 | + self::substr($sig, 32) |
|
323 | + ); |
|
324 | + |
|
325 | + /** @var string $rcheck */ |
|
326 | + $rcheck = self::ge_tobytes($R); |
|
327 | + |
|
328 | + // Reset ParagonIE_Sodium_Compat::$fastMult to what it was before. |
|
329 | + ParagonIE_Sodium_Compat::$fastMult = $orig; |
|
330 | + |
|
331 | + return self::verify_32($rcheck, self::substr($sig, 0, 32)); |
|
332 | + } |
|
333 | + |
|
334 | + /** |
|
335 | + * @internal You should not use this directly from another application |
|
336 | + * |
|
337 | + * @param string $S |
|
338 | + * @return bool |
|
339 | + * @throws SodiumException |
|
340 | + * @throws TypeError |
|
341 | + */ |
|
342 | + public static function check_S_lt_L($S) |
|
343 | + { |
|
344 | + if (self::strlen($S) < 32) { |
|
345 | + throw new SodiumException('Signature must be 32 bytes'); |
|
346 | + } |
|
347 | + $L = array( |
|
348 | + 0xed, 0xd3, 0xf5, 0x5c, 0x1a, 0x63, 0x12, 0x58, |
|
349 | + 0xd6, 0x9c, 0xf7, 0xa2, 0xde, 0xf9, 0xde, 0x14, |
|
350 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
351 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10 |
|
352 | + ); |
|
353 | + $c = 0; |
|
354 | + $n = 1; |
|
355 | + $i = 32; |
|
356 | + |
|
357 | + /** @var array<int, int> $L */ |
|
358 | + do { |
|
359 | + --$i; |
|
360 | + $x = self::chrToInt($S[$i]); |
|
361 | + $c |= ( |
|
362 | + (($x - $L[$i]) >> 8) & $n |
|
363 | + ); |
|
364 | + $n &= ( |
|
365 | + (($x ^ $L[$i]) - 1) >> 8 |
|
366 | + ); |
|
367 | + } while ($i !== 0); |
|
368 | + |
|
369 | + return $c === 0; |
|
370 | + } |
|
371 | + |
|
372 | + /** |
|
373 | + * @param string $R |
|
374 | + * @return bool |
|
375 | + * @throws SodiumException |
|
376 | + * @throws TypeError |
|
377 | + */ |
|
378 | + public static function small_order($R) |
|
379 | + { |
|
380 | + /** @var array<int, array<int, int>> $blocklist */ |
|
381 | + $blocklist = array( |
|
382 | + /* 0 (order 4) */ |
|
383 | + array( |
|
384 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
385 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
386 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
387 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 |
|
388 | + ), |
|
389 | + /* 1 (order 1) */ |
|
390 | + array( |
|
391 | + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
392 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
393 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
394 | + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 |
|
395 | + ), |
|
396 | + /* 2707385501144840649318225287225658788936804267575313519463743609750303402022 (order 8) */ |
|
397 | + array( |
|
398 | + 0x26, 0xe8, 0x95, 0x8f, 0xc2, 0xb2, 0x27, 0xb0, |
|
399 | + 0x45, 0xc3, 0xf4, 0x89, 0xf2, 0xef, 0x98, 0xf0, |
|
400 | + 0xd5, 0xdf, 0xac, 0x05, 0xd3, 0xc6, 0x33, 0x39, |
|
401 | + 0xb1, 0x38, 0x02, 0x88, 0x6d, 0x53, 0xfc, 0x05 |
|
402 | + ), |
|
403 | + /* 55188659117513257062467267217118295137698188065244968500265048394206261417927 (order 8) */ |
|
404 | + array( |
|
405 | + 0xc7, 0x17, 0x6a, 0x70, 0x3d, 0x4d, 0xd8, 0x4f, |
|
406 | + 0xba, 0x3c, 0x0b, 0x76, 0x0d, 0x10, 0x67, 0x0f, |
|
407 | + 0x2a, 0x20, 0x53, 0xfa, 0x2c, 0x39, 0xcc, 0xc6, |
|
408 | + 0x4e, 0xc7, 0xfd, 0x77, 0x92, 0xac, 0x03, 0x7a |
|
409 | + ), |
|
410 | + /* p-1 (order 2) */ |
|
411 | + array( |
|
412 | + 0x13, 0xe8, 0x95, 0x8f, 0xc2, 0xb2, 0x27, 0xb0, |
|
413 | + 0x45, 0xc3, 0xf4, 0x89, 0xf2, 0xef, 0x98, 0xf0, |
|
414 | + 0xd5, 0xdf, 0xac, 0x05, 0xd3, 0xc6, 0x33, 0x39, |
|
415 | + 0xb1, 0x38, 0x02, 0x88, 0x6d, 0x53, 0xfc, 0x85 |
|
416 | + ), |
|
417 | + /* p (order 4) */ |
|
418 | + array( |
|
419 | + 0xb4, 0x17, 0x6a, 0x70, 0x3d, 0x4d, 0xd8, 0x4f, |
|
420 | + 0xba, 0x3c, 0x0b, 0x76, 0x0d, 0x10, 0x67, 0x0f, |
|
421 | + 0x2a, 0x20, 0x53, 0xfa, 0x2c, 0x39, 0xcc, 0xc6, |
|
422 | + 0x4e, 0xc7, 0xfd, 0x77, 0x92, 0xac, 0x03, 0xfa |
|
423 | + ), |
|
424 | + /* p+1 (order 1) */ |
|
425 | + array( |
|
426 | + 0xec, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
427 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
428 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
429 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
430 | + ), |
|
431 | + /* p+2707385501144840649318225287225658788936804267575313519463743609750303402022 (order 8) */ |
|
432 | + array( |
|
433 | + 0xed, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
434 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
435 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
436 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
437 | + ), |
|
438 | + /* p+55188659117513257062467267217118295137698188065244968500265048394206261417927 (order 8) */ |
|
439 | + array( |
|
440 | + 0xee, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
441 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
442 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
443 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f |
|
444 | + ), |
|
445 | + /* 2p-1 (order 2) */ |
|
446 | + array( |
|
447 | + 0xd9, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
448 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
449 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
450 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
451 | + ), |
|
452 | + /* 2p (order 4) */ |
|
453 | + array( |
|
454 | + 0xda, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
455 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
456 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
457 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
458 | + ), |
|
459 | + /* 2p+1 (order 1) */ |
|
460 | + array( |
|
461 | + 0xdb, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
462 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
463 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, |
|
464 | + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff |
|
465 | + ) |
|
466 | + ); |
|
467 | + /** @var int $countBlocklist */ |
|
468 | + $countBlocklist = count($blocklist); |
|
469 | + |
|
470 | + for ($i = 0; $i < $countBlocklist; ++$i) { |
|
471 | + $c = 0; |
|
472 | + for ($j = 0; $j < 32; ++$j) { |
|
473 | + $c |= self::chrToInt($R[$j]) ^ (int) $blocklist[$i][$j]; |
|
474 | + } |
|
475 | + if ($c === 0) { |
|
476 | + return true; |
|
477 | + } |
|
478 | + } |
|
479 | + return false; |
|
480 | + } |
|
481 | + |
|
482 | + /** |
|
483 | + * @param string $s |
|
484 | + * @return string |
|
485 | + * @throws SodiumException |
|
486 | + */ |
|
487 | + public static function scalar_complement($s) |
|
488 | + { |
|
489 | + $t_ = self::L . str_repeat("\x00", 32); |
|
490 | + sodium_increment($t_); |
|
491 | + $s_ = $s . str_repeat("\x00", 32); |
|
492 | + ParagonIE_Sodium_Compat::sub($t_, $s_); |
|
493 | + return self::sc_reduce($t_); |
|
494 | + } |
|
495 | + |
|
496 | + /** |
|
497 | + * @return string |
|
498 | + * @throws SodiumException |
|
499 | + */ |
|
500 | + public static function scalar_random() |
|
501 | + { |
|
502 | + do { |
|
503 | + $r = ParagonIE_Sodium_Compat::randombytes_buf(self::SCALAR_BYTES); |
|
504 | + $r[self::SCALAR_BYTES - 1] = self::intToChr( |
|
505 | + self::chrToInt($r[self::SCALAR_BYTES - 1]) & 0x1f |
|
506 | + ); |
|
507 | + } while ( |
|
508 | + !self::check_S_lt_L($r) || ParagonIE_Sodium_Compat::is_zero($r) |
|
509 | + ); |
|
510 | + return $r; |
|
511 | + } |
|
512 | + |
|
513 | + /** |
|
514 | + * @param string $s |
|
515 | + * @return string |
|
516 | + * @throws SodiumException |
|
517 | + */ |
|
518 | + public static function scalar_negate($s) |
|
519 | + { |
|
520 | + $t_ = self::L . str_repeat("\x00", 32) ; |
|
521 | + $s_ = $s . str_repeat("\x00", 32) ; |
|
522 | + ParagonIE_Sodium_Compat::sub($t_, $s_); |
|
523 | + return self::sc_reduce($t_); |
|
524 | + } |
|
525 | + |
|
526 | + /** |
|
527 | + * @param string $a |
|
528 | + * @param string $b |
|
529 | + * @return string |
|
530 | + * @throws SodiumException |
|
531 | + */ |
|
532 | + public static function scalar_add($a, $b) |
|
533 | + { |
|
534 | + $a_ = $a . str_repeat("\x00", 32); |
|
535 | + $b_ = $b . str_repeat("\x00", 32); |
|
536 | + ParagonIE_Sodium_Compat::add($a_, $b_); |
|
537 | + return self::sc_reduce($a_); |
|
538 | + } |
|
539 | + |
|
540 | + /** |
|
541 | + * @param string $x |
|
542 | + * @param string $y |
|
543 | + * @return string |
|
544 | + * @throws SodiumException |
|
545 | + */ |
|
546 | + public static function scalar_sub($x, $y) |
|
547 | + { |
|
548 | + $yn = self::scalar_negate($y); |
|
549 | + return self::scalar_add($x, $yn); |
|
550 | + } |
|
551 | 551 | } |
@@ -1,7 +1,7 @@ discard block |
||
1 | 1 | <?php |
2 | 2 | |
3 | 3 | if (class_exists('ParagonIE_Sodium_Core_Util', false)) { |
4 | - return; |
|
4 | + return; |
|
5 | 5 | } |
6 | 6 | |
7 | 7 | /** |
@@ -9,939 +9,939 @@ discard block |
||
9 | 9 | */ |
10 | 10 | abstract class ParagonIE_Sodium_Core_Util |
11 | 11 | { |
12 | - /** |
|
13 | - * @param int $integer |
|
14 | - * @param int $size (16, 32, 64) |
|
15 | - * @return int |
|
16 | - */ |
|
17 | - public static function abs($integer, $size = 0) |
|
18 | - { |
|
19 | - /** @var int $realSize */ |
|
20 | - $realSize = (PHP_INT_SIZE << 3) - 1; |
|
21 | - if ($size) { |
|
22 | - --$size; |
|
23 | - } else { |
|
24 | - /** @var int $size */ |
|
25 | - $size = $realSize; |
|
26 | - } |
|
27 | - |
|
28 | - $negative = -(($integer >> $size) & 1); |
|
29 | - return (int) ( |
|
30 | - ($integer ^ $negative) |
|
31 | - + |
|
32 | - (($negative >> $realSize) & 1) |
|
33 | - ); |
|
34 | - } |
|
35 | - |
|
36 | - /** |
|
37 | - * Convert a binary string into a hexadecimal string without cache-timing |
|
38 | - * leaks |
|
39 | - * |
|
40 | - * @internal You should not use this directly from another application |
|
41 | - * |
|
42 | - * @param string $binaryString (raw binary) |
|
43 | - * @return string |
|
44 | - * @throws TypeError |
|
45 | - */ |
|
46 | - public static function bin2hex($binaryString) |
|
47 | - { |
|
48 | - /* Type checks: */ |
|
49 | - if (!is_string($binaryString)) { |
|
50 | - throw new TypeError('Argument 1 must be a string, ' . gettype($binaryString) . ' given.'); |
|
51 | - } |
|
52 | - |
|
53 | - $hex = ''; |
|
54 | - $len = self::strlen($binaryString); |
|
55 | - for ($i = 0; $i < $len; ++$i) { |
|
56 | - /** @var array<int, int> $chunk */ |
|
57 | - $chunk = unpack('C', $binaryString[$i]); |
|
58 | - /** @var int $c */ |
|
59 | - $c = $chunk[1] & 0xf; |
|
60 | - /** @var int $b */ |
|
61 | - $b = $chunk[1] >> 4; |
|
62 | - $hex .= pack( |
|
63 | - 'CC', |
|
64 | - (87 + $b + ((($b - 10) >> 8) & ~38)), |
|
65 | - (87 + $c + ((($c - 10) >> 8) & ~38)) |
|
66 | - ); |
|
67 | - } |
|
68 | - return $hex; |
|
69 | - } |
|
70 | - |
|
71 | - /** |
|
72 | - * Convert a binary string into a hexadecimal string without cache-timing |
|
73 | - * leaks, returning uppercase letters (as per RFC 4648) |
|
74 | - * |
|
75 | - * @internal You should not use this directly from another application |
|
76 | - * |
|
77 | - * @param string $bin_string (raw binary) |
|
78 | - * @return string |
|
79 | - * @throws TypeError |
|
80 | - */ |
|
81 | - public static function bin2hexUpper($bin_string) |
|
82 | - { |
|
83 | - $hex = ''; |
|
84 | - $len = self::strlen($bin_string); |
|
85 | - for ($i = 0; $i < $len; ++$i) { |
|
86 | - /** @var array<int, int> $chunk */ |
|
87 | - $chunk = unpack('C', $bin_string[$i]); |
|
88 | - /** |
|
89 | - * Lower 16 bits |
|
90 | - * |
|
91 | - * @var int $c |
|
92 | - */ |
|
93 | - $c = $chunk[1] & 0xf; |
|
94 | - |
|
95 | - /** |
|
96 | - * Upper 16 bits |
|
97 | - * @var int $b |
|
98 | - */ |
|
99 | - $b = $chunk[1] >> 4; |
|
100 | - |
|
101 | - /** |
|
102 | - * Use pack() and binary operators to turn the two integers |
|
103 | - * into hexadecimal characters. We don't use chr() here, because |
|
104 | - * it uses a lookup table internally and we want to avoid |
|
105 | - * cache-timing side-channels. |
|
106 | - */ |
|
107 | - $hex .= pack( |
|
108 | - 'CC', |
|
109 | - (55 + $b + ((($b - 10) >> 8) & ~6)), |
|
110 | - (55 + $c + ((($c - 10) >> 8) & ~6)) |
|
111 | - ); |
|
112 | - } |
|
113 | - return $hex; |
|
114 | - } |
|
115 | - |
|
116 | - /** |
|
117 | - * Cache-timing-safe variant of ord() |
|
118 | - * |
|
119 | - * @internal You should not use this directly from another application |
|
120 | - * |
|
121 | - * @param string $chr |
|
122 | - * @return int |
|
123 | - * @throws SodiumException |
|
124 | - * @throws TypeError |
|
125 | - */ |
|
126 | - public static function chrToInt($chr) |
|
127 | - { |
|
128 | - /* Type checks: */ |
|
129 | - if (!is_string($chr)) { |
|
130 | - throw new TypeError('Argument 1 must be a string, ' . gettype($chr) . ' given.'); |
|
131 | - } |
|
132 | - if (self::strlen($chr) !== 1) { |
|
133 | - throw new SodiumException('chrToInt() expects a string that is exactly 1 character long'); |
|
134 | - } |
|
135 | - /** @var array<int, int> $chunk */ |
|
136 | - $chunk = unpack('C', $chr); |
|
137 | - return (int) ($chunk[1]); |
|
138 | - } |
|
139 | - |
|
140 | - /** |
|
141 | - * Compares two strings. |
|
142 | - * |
|
143 | - * @internal You should not use this directly from another application |
|
144 | - * |
|
145 | - * @param string $left |
|
146 | - * @param string $right |
|
147 | - * @param int $len |
|
148 | - * @return int |
|
149 | - * @throws SodiumException |
|
150 | - * @throws TypeError |
|
151 | - */ |
|
152 | - public static function compare($left, $right, $len = null) |
|
153 | - { |
|
154 | - $leftLen = self::strlen($left); |
|
155 | - $rightLen = self::strlen($right); |
|
156 | - if ($len === null) { |
|
157 | - $len = max($leftLen, $rightLen); |
|
158 | - $left = str_pad($left, $len, "\x00", STR_PAD_RIGHT); |
|
159 | - $right = str_pad($right, $len, "\x00", STR_PAD_RIGHT); |
|
160 | - } |
|
161 | - |
|
162 | - $gt = 0; |
|
163 | - $eq = 1; |
|
164 | - $i = $len; |
|
165 | - while ($i !== 0) { |
|
166 | - --$i; |
|
167 | - $gt |= ((self::chrToInt($right[$i]) - self::chrToInt($left[$i])) >> 8) & $eq; |
|
168 | - $eq &= ((self::chrToInt($right[$i]) ^ self::chrToInt($left[$i])) - 1) >> 8; |
|
169 | - } |
|
170 | - return ($gt + $gt + $eq) - 1; |
|
171 | - } |
|
172 | - |
|
173 | - /** |
|
174 | - * If a variable does not match a given type, throw a TypeError. |
|
175 | - * |
|
176 | - * @param mixed $mixedVar |
|
177 | - * @param string $type |
|
178 | - * @param int $argumentIndex |
|
179 | - * @throws TypeError |
|
180 | - * @throws SodiumException |
|
181 | - * @return void |
|
182 | - */ |
|
183 | - public static function declareScalarType(&$mixedVar = null, $type = 'void', $argumentIndex = 0) |
|
184 | - { |
|
185 | - if (func_num_args() === 0) { |
|
186 | - /* Tautology, by default */ |
|
187 | - return; |
|
188 | - } |
|
189 | - if (func_num_args() === 1) { |
|
190 | - throw new TypeError('Declared void, but passed a variable'); |
|
191 | - } |
|
192 | - $realType = strtolower(gettype($mixedVar)); |
|
193 | - $type = strtolower($type); |
|
194 | - switch ($type) { |
|
195 | - case 'null': |
|
196 | - if ($mixedVar !== null) { |
|
197 | - throw new TypeError('Argument ' . $argumentIndex . ' must be null, ' . $realType . ' given.'); |
|
198 | - } |
|
199 | - break; |
|
200 | - case 'integer': |
|
201 | - case 'int': |
|
202 | - $allow = array('int', 'integer'); |
|
203 | - if (!in_array($type, $allow)) { |
|
204 | - throw new TypeError('Argument ' . $argumentIndex . ' must be an integer, ' . $realType . ' given.'); |
|
205 | - } |
|
206 | - $mixedVar = (int) $mixedVar; |
|
207 | - break; |
|
208 | - case 'boolean': |
|
209 | - case 'bool': |
|
210 | - $allow = array('bool', 'boolean'); |
|
211 | - if (!in_array($type, $allow)) { |
|
212 | - throw new TypeError('Argument ' . $argumentIndex . ' must be a boolean, ' . $realType . ' given.'); |
|
213 | - } |
|
214 | - $mixedVar = (bool) $mixedVar; |
|
215 | - break; |
|
216 | - case 'string': |
|
217 | - if (!is_string($mixedVar)) { |
|
218 | - throw new TypeError('Argument ' . $argumentIndex . ' must be a string, ' . $realType . ' given.'); |
|
219 | - } |
|
220 | - $mixedVar = (string) $mixedVar; |
|
221 | - break; |
|
222 | - case 'decimal': |
|
223 | - case 'double': |
|
224 | - case 'float': |
|
225 | - $allow = array('decimal', 'double', 'float'); |
|
226 | - if (!in_array($type, $allow)) { |
|
227 | - throw new TypeError('Argument ' . $argumentIndex . ' must be a float, ' . $realType . ' given.'); |
|
228 | - } |
|
229 | - $mixedVar = (float) $mixedVar; |
|
230 | - break; |
|
231 | - case 'object': |
|
232 | - if (!is_object($mixedVar)) { |
|
233 | - throw new TypeError('Argument ' . $argumentIndex . ' must be an object, ' . $realType . ' given.'); |
|
234 | - } |
|
235 | - break; |
|
236 | - case 'array': |
|
237 | - if (!is_array($mixedVar)) { |
|
238 | - if (is_object($mixedVar)) { |
|
239 | - if ($mixedVar instanceof ArrayAccess) { |
|
240 | - return; |
|
241 | - } |
|
242 | - } |
|
243 | - throw new TypeError('Argument ' . $argumentIndex . ' must be an array, ' . $realType . ' given.'); |
|
244 | - } |
|
245 | - break; |
|
246 | - default: |
|
247 | - throw new SodiumException('Unknown type (' . $realType .') does not match expect type (' . $type . ')'); |
|
248 | - } |
|
249 | - } |
|
250 | - |
|
251 | - /** |
|
252 | - * Evaluate whether or not two strings are equal (in constant-time) |
|
253 | - * |
|
254 | - * @param string $left |
|
255 | - * @param string $right |
|
256 | - * @return bool |
|
257 | - * @throws SodiumException |
|
258 | - * @throws TypeError |
|
259 | - */ |
|
260 | - public static function hashEquals($left, $right) |
|
261 | - { |
|
262 | - /* Type checks: */ |
|
263 | - if (!is_string($left)) { |
|
264 | - throw new TypeError('Argument 1 must be a string, ' . gettype($left) . ' given.'); |
|
265 | - } |
|
266 | - if (!is_string($right)) { |
|
267 | - throw new TypeError('Argument 2 must be a string, ' . gettype($right) . ' given.'); |
|
268 | - } |
|
269 | - |
|
270 | - if (is_callable('hash_equals')) { |
|
271 | - return hash_equals($left, $right); |
|
272 | - } |
|
273 | - $d = 0; |
|
274 | - /** @var int $len */ |
|
275 | - $len = self::strlen($left); |
|
276 | - if ($len !== self::strlen($right)) { |
|
277 | - return false; |
|
278 | - } |
|
279 | - for ($i = 0; $i < $len; ++$i) { |
|
280 | - $d |= self::chrToInt($left[$i]) ^ self::chrToInt($right[$i]); |
|
281 | - } |
|
282 | - |
|
283 | - if ($d !== 0) { |
|
284 | - return false; |
|
285 | - } |
|
286 | - return $left === $right; |
|
287 | - } |
|
288 | - |
|
289 | - /** |
|
290 | - * Catch hash_update() failures and throw instead of silently proceeding |
|
291 | - * |
|
292 | - * @param HashContext|resource &$hs |
|
293 | - * @param string $data |
|
294 | - * @return void |
|
295 | - * @throws SodiumException |
|
296 | - * @psalm-suppress PossiblyInvalidArgument |
|
297 | - */ |
|
298 | - protected static function hash_update(&$hs, $data) |
|
299 | - { |
|
300 | - if (!hash_update($hs, $data)) { |
|
301 | - throw new SodiumException('hash_update() failed'); |
|
302 | - } |
|
303 | - } |
|
304 | - |
|
305 | - /** |
|
306 | - * Convert a hexadecimal string into a binary string without cache-timing |
|
307 | - * leaks |
|
308 | - * |
|
309 | - * @internal You should not use this directly from another application |
|
310 | - * |
|
311 | - * @param string $hexString |
|
312 | - * @param bool $strictPadding |
|
313 | - * @return string (raw binary) |
|
314 | - * @throws RangeException |
|
315 | - * @throws TypeError |
|
316 | - */ |
|
317 | - public static function hex2bin($hexString, $strictPadding = false) |
|
318 | - { |
|
319 | - /* Type checks: */ |
|
320 | - if (!is_string($hexString)) { |
|
321 | - throw new TypeError('Argument 1 must be a string, ' . gettype($hexString) . ' given.'); |
|
322 | - } |
|
323 | - |
|
324 | - /** @var int $hex_pos */ |
|
325 | - $hex_pos = 0; |
|
326 | - /** @var string $bin */ |
|
327 | - $bin = ''; |
|
328 | - /** @var int $c_acc */ |
|
329 | - $c_acc = 0; |
|
330 | - /** @var int $hex_len */ |
|
331 | - $hex_len = self::strlen($hexString); |
|
332 | - /** @var int $state */ |
|
333 | - $state = 0; |
|
334 | - if (($hex_len & 1) !== 0) { |
|
335 | - if ($strictPadding) { |
|
336 | - throw new RangeException( |
|
337 | - 'Expected an even number of hexadecimal characters' |
|
338 | - ); |
|
339 | - } else { |
|
340 | - $hexString = '0' . $hexString; |
|
341 | - ++$hex_len; |
|
342 | - } |
|
343 | - } |
|
344 | - |
|
345 | - $chunk = unpack('C*', $hexString); |
|
346 | - while ($hex_pos < $hex_len) { |
|
347 | - ++$hex_pos; |
|
348 | - /** @var int $c */ |
|
349 | - $c = $chunk[$hex_pos]; |
|
350 | - /** @var int $c_num */ |
|
351 | - $c_num = $c ^ 48; |
|
352 | - /** @var int $c_num0 */ |
|
353 | - $c_num0 = ($c_num - 10) >> 8; |
|
354 | - /** @var int $c_alpha */ |
|
355 | - $c_alpha = ($c & ~32) - 55; |
|
356 | - /** @var int $c_alpha0 */ |
|
357 | - $c_alpha0 = (($c_alpha - 10) ^ ($c_alpha - 16)) >> 8; |
|
358 | - if (($c_num0 | $c_alpha0) === 0) { |
|
359 | - throw new RangeException( |
|
360 | - 'hex2bin() only expects hexadecimal characters' |
|
361 | - ); |
|
362 | - } |
|
363 | - /** @var int $c_val */ |
|
364 | - $c_val = ($c_num0 & $c_num) | ($c_alpha & $c_alpha0); |
|
365 | - if ($state === 0) { |
|
366 | - $c_acc = $c_val * 16; |
|
367 | - } else { |
|
368 | - $bin .= pack('C', $c_acc | $c_val); |
|
369 | - } |
|
370 | - $state ^= 1; |
|
371 | - } |
|
372 | - return $bin; |
|
373 | - } |
|
374 | - |
|
375 | - /** |
|
376 | - * Turn an array of integers into a string |
|
377 | - * |
|
378 | - * @internal You should not use this directly from another application |
|
379 | - * |
|
380 | - * @param array<int, int> $ints |
|
381 | - * @return string |
|
382 | - */ |
|
383 | - public static function intArrayToString(array $ints) |
|
384 | - { |
|
385 | - /** @var array<int, int> $args */ |
|
386 | - $args = $ints; |
|
387 | - foreach ($args as $i => $v) { |
|
388 | - $args[$i] = (int) ($v & 0xff); |
|
389 | - } |
|
390 | - array_unshift($args, str_repeat('C', count($ints))); |
|
391 | - return (string) (call_user_func_array('pack', $args)); |
|
392 | - } |
|
393 | - |
|
394 | - /** |
|
395 | - * Cache-timing-safe variant of ord() |
|
396 | - * |
|
397 | - * @internal You should not use this directly from another application |
|
398 | - * |
|
399 | - * @param int $int |
|
400 | - * @return string |
|
401 | - * @throws TypeError |
|
402 | - */ |
|
403 | - public static function intToChr($int) |
|
404 | - { |
|
405 | - return pack('C', $int); |
|
406 | - } |
|
407 | - |
|
408 | - /** |
|
409 | - * Load a 3 character substring into an integer |
|
410 | - * |
|
411 | - * @internal You should not use this directly from another application |
|
412 | - * |
|
413 | - * @param string $string |
|
414 | - * @return int |
|
415 | - * @throws RangeException |
|
416 | - * @throws TypeError |
|
417 | - */ |
|
418 | - public static function load_3($string) |
|
419 | - { |
|
420 | - /* Type checks: */ |
|
421 | - if (!is_string($string)) { |
|
422 | - throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
423 | - } |
|
424 | - |
|
425 | - /* Input validation: */ |
|
426 | - if (self::strlen($string) < 3) { |
|
427 | - throw new RangeException( |
|
428 | - 'String must be 3 bytes or more; ' . self::strlen($string) . ' given.' |
|
429 | - ); |
|
430 | - } |
|
431 | - /** @var array<int, int> $unpacked */ |
|
432 | - $unpacked = unpack('V', $string . "\0"); |
|
433 | - return (int) ($unpacked[1] & 0xffffff); |
|
434 | - } |
|
435 | - |
|
436 | - /** |
|
437 | - * Load a 4 character substring into an integer |
|
438 | - * |
|
439 | - * @internal You should not use this directly from another application |
|
440 | - * |
|
441 | - * @param string $string |
|
442 | - * @return int |
|
443 | - * @throws RangeException |
|
444 | - * @throws TypeError |
|
445 | - */ |
|
446 | - public static function load_4($string) |
|
447 | - { |
|
448 | - /* Type checks: */ |
|
449 | - if (!is_string($string)) { |
|
450 | - throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
451 | - } |
|
452 | - |
|
453 | - /* Input validation: */ |
|
454 | - if (self::strlen($string) < 4) { |
|
455 | - throw new RangeException( |
|
456 | - 'String must be 4 bytes or more; ' . self::strlen($string) . ' given.' |
|
457 | - ); |
|
458 | - } |
|
459 | - /** @var array<int, int> $unpacked */ |
|
460 | - $unpacked = unpack('V', $string); |
|
461 | - return (int) ($unpacked[1] & 0xffffffff); |
|
462 | - } |
|
463 | - |
|
464 | - /** |
|
465 | - * Load a 8 character substring into an integer |
|
466 | - * |
|
467 | - * @internal You should not use this directly from another application |
|
468 | - * |
|
469 | - * @param string $string |
|
470 | - * @return int |
|
471 | - * @throws RangeException |
|
472 | - * @throws SodiumException |
|
473 | - * @throws TypeError |
|
474 | - */ |
|
475 | - public static function load64_le($string) |
|
476 | - { |
|
477 | - /* Type checks: */ |
|
478 | - if (!is_string($string)) { |
|
479 | - throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
480 | - } |
|
481 | - |
|
482 | - /* Input validation: */ |
|
483 | - if (self::strlen($string) < 4) { |
|
484 | - throw new RangeException( |
|
485 | - 'String must be 4 bytes or more; ' . self::strlen($string) . ' given.' |
|
486 | - ); |
|
487 | - } |
|
488 | - if (PHP_VERSION_ID >= 50603 && PHP_INT_SIZE === 8) { |
|
489 | - /** @var array<int, int> $unpacked */ |
|
490 | - $unpacked = unpack('P', $string); |
|
491 | - return (int) $unpacked[1]; |
|
492 | - } |
|
493 | - |
|
494 | - /** @var int $result */ |
|
495 | - $result = (self::chrToInt($string[0]) & 0xff); |
|
496 | - $result |= (self::chrToInt($string[1]) & 0xff) << 8; |
|
497 | - $result |= (self::chrToInt($string[2]) & 0xff) << 16; |
|
498 | - $result |= (self::chrToInt($string[3]) & 0xff) << 24; |
|
499 | - $result |= (self::chrToInt($string[4]) & 0xff) << 32; |
|
500 | - $result |= (self::chrToInt($string[5]) & 0xff) << 40; |
|
501 | - $result |= (self::chrToInt($string[6]) & 0xff) << 48; |
|
502 | - $result |= (self::chrToInt($string[7]) & 0xff) << 56; |
|
503 | - return (int) $result; |
|
504 | - } |
|
505 | - |
|
506 | - /** |
|
507 | - * @internal You should not use this directly from another application |
|
508 | - * |
|
509 | - * @param string $left |
|
510 | - * @param string $right |
|
511 | - * @return int |
|
512 | - * @throws SodiumException |
|
513 | - * @throws TypeError |
|
514 | - */ |
|
515 | - public static function memcmp($left, $right) |
|
516 | - { |
|
517 | - if (self::hashEquals($left, $right)) { |
|
518 | - return 0; |
|
519 | - } |
|
520 | - return -1; |
|
521 | - } |
|
522 | - |
|
523 | - /** |
|
524 | - * Multiply two integers in constant-time |
|
525 | - * |
|
526 | - * Micro-architecture timing side-channels caused by how your CPU |
|
527 | - * implements multiplication are best prevented by never using the |
|
528 | - * multiplication operators and ensuring that our code always takes |
|
529 | - * the same number of operations to complete, regardless of the values |
|
530 | - * of $a and $b. |
|
531 | - * |
|
532 | - * @internal You should not use this directly from another application |
|
533 | - * |
|
534 | - * @param int $a |
|
535 | - * @param int $b |
|
536 | - * @param int $size Limits the number of operations (useful for small, |
|
537 | - * constant operands) |
|
538 | - * @return int |
|
539 | - */ |
|
540 | - public static function mul($a, $b, $size = 0) |
|
541 | - { |
|
542 | - if (ParagonIE_Sodium_Compat::$fastMult) { |
|
543 | - return (int) ($a * $b); |
|
544 | - } |
|
545 | - |
|
546 | - static $defaultSize = null; |
|
547 | - /** @var int $defaultSize */ |
|
548 | - if (!$defaultSize) { |
|
549 | - /** @var int $defaultSize */ |
|
550 | - $defaultSize = (PHP_INT_SIZE << 3) - 1; |
|
551 | - } |
|
552 | - if ($size < 1) { |
|
553 | - /** @var int $size */ |
|
554 | - $size = $defaultSize; |
|
555 | - } |
|
556 | - /** @var int $size */ |
|
557 | - |
|
558 | - $c = 0; |
|
559 | - |
|
560 | - /** |
|
561 | - * Mask is either -1 or 0. |
|
562 | - * |
|
563 | - * -1 in binary looks like 0x1111 ... 1111 |
|
564 | - * 0 in binary looks like 0x0000 ... 0000 |
|
565 | - * |
|
566 | - * @var int |
|
567 | - */ |
|
568 | - $mask = -(($b >> ((int) $defaultSize)) & 1); |
|
569 | - |
|
570 | - /** |
|
571 | - * Ensure $b is a positive integer, without creating |
|
572 | - * a branching side-channel |
|
573 | - * |
|
574 | - * @var int $b |
|
575 | - */ |
|
576 | - $b = ($b & ~$mask) | ($mask & -$b); |
|
577 | - |
|
578 | - /** |
|
579 | - * Unless $size is provided: |
|
580 | - * |
|
581 | - * This loop always runs 32 times when PHP_INT_SIZE is 4. |
|
582 | - * This loop always runs 64 times when PHP_INT_SIZE is 8. |
|
583 | - */ |
|
584 | - for ($i = $size; $i >= 0; --$i) { |
|
585 | - $c += (int) ($a & -($b & 1)); |
|
586 | - $a <<= 1; |
|
587 | - $b >>= 1; |
|
588 | - } |
|
589 | - $c = (int) @($c & -1); |
|
590 | - |
|
591 | - /** |
|
592 | - * If $b was negative, we then apply the same value to $c here. |
|
593 | - * It doesn't matter much if $a was negative; the $c += above would |
|
594 | - * have produced a negative integer to begin with. But a negative $b |
|
595 | - * makes $b >>= 1 never return 0, so we would end up with incorrect |
|
596 | - * results. |
|
597 | - * |
|
598 | - * The end result is what we'd expect from integer multiplication. |
|
599 | - */ |
|
600 | - return (int) (($c & ~$mask) | ($mask & -$c)); |
|
601 | - } |
|
602 | - |
|
603 | - /** |
|
604 | - * Convert any arbitrary numbers into two 32-bit integers that represent |
|
605 | - * a 64-bit integer. |
|
606 | - * |
|
607 | - * @internal You should not use this directly from another application |
|
608 | - * |
|
609 | - * @param int|float $num |
|
610 | - * @return array<int, int> |
|
611 | - */ |
|
612 | - public static function numericTo64BitInteger($num) |
|
613 | - { |
|
614 | - $high = 0; |
|
615 | - /** @var int $low */ |
|
616 | - $low = $num & 0xffffffff; |
|
617 | - |
|
618 | - if ((+(abs($num))) >= 1) { |
|
619 | - if ($num > 0) { |
|
620 | - /** @var int $high */ |
|
621 | - $high = min((+(floor($num/4294967296))), 4294967295); |
|
622 | - } else { |
|
623 | - /** @var int $high */ |
|
624 | - $high = ~~((+(ceil(($num - (+((~~($num)))))/4294967296)))); |
|
625 | - } |
|
626 | - } |
|
627 | - return array((int) $high, (int) $low); |
|
628 | - } |
|
629 | - |
|
630 | - /** |
|
631 | - * Store a 24-bit integer into a string, treating it as big-endian. |
|
632 | - * |
|
633 | - * @internal You should not use this directly from another application |
|
634 | - * |
|
635 | - * @param int $int |
|
636 | - * @return string |
|
637 | - * @throws TypeError |
|
638 | - */ |
|
639 | - public static function store_3($int) |
|
640 | - { |
|
641 | - /* Type checks: */ |
|
642 | - if (!is_int($int)) { |
|
643 | - if (is_numeric($int)) { |
|
644 | - $int = (int) $int; |
|
645 | - } else { |
|
646 | - throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
647 | - } |
|
648 | - } |
|
649 | - /** @var string $packed */ |
|
650 | - $packed = pack('N', $int); |
|
651 | - return self::substr($packed, 1, 3); |
|
652 | - } |
|
653 | - |
|
654 | - /** |
|
655 | - * Store a 32-bit integer into a string, treating it as little-endian. |
|
656 | - * |
|
657 | - * @internal You should not use this directly from another application |
|
658 | - * |
|
659 | - * @param int $int |
|
660 | - * @return string |
|
661 | - * @throws TypeError |
|
662 | - */ |
|
663 | - public static function store32_le($int) |
|
664 | - { |
|
665 | - /* Type checks: */ |
|
666 | - if (!is_int($int)) { |
|
667 | - if (is_numeric($int)) { |
|
668 | - $int = (int) $int; |
|
669 | - } else { |
|
670 | - throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
671 | - } |
|
672 | - } |
|
673 | - |
|
674 | - /** @var string $packed */ |
|
675 | - $packed = pack('V', $int); |
|
676 | - return $packed; |
|
677 | - } |
|
678 | - |
|
679 | - /** |
|
680 | - * Store a 32-bit integer into a string, treating it as big-endian. |
|
681 | - * |
|
682 | - * @internal You should not use this directly from another application |
|
683 | - * |
|
684 | - * @param int $int |
|
685 | - * @return string |
|
686 | - * @throws TypeError |
|
687 | - */ |
|
688 | - public static function store_4($int) |
|
689 | - { |
|
690 | - /* Type checks: */ |
|
691 | - if (!is_int($int)) { |
|
692 | - if (is_numeric($int)) { |
|
693 | - $int = (int) $int; |
|
694 | - } else { |
|
695 | - throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
696 | - } |
|
697 | - } |
|
698 | - |
|
699 | - /** @var string $packed */ |
|
700 | - $packed = pack('N', $int); |
|
701 | - return $packed; |
|
702 | - } |
|
703 | - |
|
704 | - /** |
|
705 | - * Stores a 64-bit integer as an string, treating it as little-endian. |
|
706 | - * |
|
707 | - * @internal You should not use this directly from another application |
|
708 | - * |
|
709 | - * @param int $int |
|
710 | - * @return string |
|
711 | - * @throws TypeError |
|
712 | - */ |
|
713 | - public static function store64_le($int) |
|
714 | - { |
|
715 | - /* Type checks: */ |
|
716 | - if (!is_int($int)) { |
|
717 | - if (is_numeric($int)) { |
|
718 | - $int = (int) $int; |
|
719 | - } else { |
|
720 | - throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
721 | - } |
|
722 | - } |
|
723 | - |
|
724 | - if (PHP_INT_SIZE === 8) { |
|
725 | - if (PHP_VERSION_ID >= 50603) { |
|
726 | - /** @var string $packed */ |
|
727 | - $packed = pack('P', $int); |
|
728 | - return $packed; |
|
729 | - } |
|
730 | - return self::intToChr($int & 0xff) . |
|
731 | - self::intToChr(($int >> 8) & 0xff) . |
|
732 | - self::intToChr(($int >> 16) & 0xff) . |
|
733 | - self::intToChr(($int >> 24) & 0xff) . |
|
734 | - self::intToChr(($int >> 32) & 0xff) . |
|
735 | - self::intToChr(($int >> 40) & 0xff) . |
|
736 | - self::intToChr(($int >> 48) & 0xff) . |
|
737 | - self::intToChr(($int >> 56) & 0xff); |
|
738 | - } |
|
739 | - if ($int > PHP_INT_MAX) { |
|
740 | - list($hiB, $int) = self::numericTo64BitInteger($int); |
|
741 | - } else { |
|
742 | - $hiB = 0; |
|
743 | - } |
|
744 | - return |
|
745 | - self::intToChr(($int ) & 0xff) . |
|
746 | - self::intToChr(($int >> 8) & 0xff) . |
|
747 | - self::intToChr(($int >> 16) & 0xff) . |
|
748 | - self::intToChr(($int >> 24) & 0xff) . |
|
749 | - self::intToChr($hiB & 0xff) . |
|
750 | - self::intToChr(($hiB >> 8) & 0xff) . |
|
751 | - self::intToChr(($hiB >> 16) & 0xff) . |
|
752 | - self::intToChr(($hiB >> 24) & 0xff); |
|
753 | - } |
|
754 | - |
|
755 | - /** |
|
756 | - * Safe string length |
|
757 | - * |
|
758 | - * @internal You should not use this directly from another application |
|
759 | - * |
|
760 | - * @ref mbstring.func_overload |
|
761 | - * |
|
762 | - * @param string $str |
|
763 | - * @return int |
|
764 | - * @throws TypeError |
|
765 | - */ |
|
766 | - public static function strlen($str) |
|
767 | - { |
|
768 | - /* Type checks: */ |
|
769 | - if (!is_string($str)) { |
|
770 | - throw new TypeError('String expected'); |
|
771 | - } |
|
772 | - |
|
773 | - return (int) ( |
|
774 | - self::isMbStringOverride() |
|
775 | - ? mb_strlen($str, '8bit') |
|
776 | - : strlen($str) |
|
777 | - ); |
|
778 | - } |
|
779 | - |
|
780 | - /** |
|
781 | - * Turn a string into an array of integers |
|
782 | - * |
|
783 | - * @internal You should not use this directly from another application |
|
784 | - * |
|
785 | - * @param string $string |
|
786 | - * @return array<int, int> |
|
787 | - * @throws TypeError |
|
788 | - */ |
|
789 | - public static function stringToIntArray($string) |
|
790 | - { |
|
791 | - if (!is_string($string)) { |
|
792 | - throw new TypeError('String expected'); |
|
793 | - } |
|
794 | - /** |
|
795 | - * @var array<int, int> |
|
796 | - */ |
|
797 | - $values = array_values( |
|
798 | - unpack('C*', $string) |
|
799 | - ); |
|
800 | - return $values; |
|
801 | - } |
|
802 | - |
|
803 | - /** |
|
804 | - * Safe substring |
|
805 | - * |
|
806 | - * @internal You should not use this directly from another application |
|
807 | - * |
|
808 | - * @ref mbstring.func_overload |
|
809 | - * |
|
810 | - * @param string $str |
|
811 | - * @param int $start |
|
812 | - * @param int $length |
|
813 | - * @return string |
|
814 | - * @throws TypeError |
|
815 | - */ |
|
816 | - public static function substr($str, $start = 0, $length = null) |
|
817 | - { |
|
818 | - /* Type checks: */ |
|
819 | - if (!is_string($str)) { |
|
820 | - throw new TypeError('String expected'); |
|
821 | - } |
|
822 | - |
|
823 | - if ($length === 0) { |
|
824 | - return ''; |
|
825 | - } |
|
826 | - |
|
827 | - if (self::isMbStringOverride()) { |
|
828 | - if (PHP_VERSION_ID < 50400 && $length === null) { |
|
829 | - $length = self::strlen($str); |
|
830 | - } |
|
831 | - $sub = (string) mb_substr($str, $start, $length, '8bit'); |
|
832 | - } elseif ($length === null) { |
|
833 | - $sub = (string) substr($str, $start); |
|
834 | - } else { |
|
835 | - $sub = (string) substr($str, $start, $length); |
|
836 | - } |
|
837 | - if ($sub !== '') { |
|
838 | - return $sub; |
|
839 | - } |
|
840 | - return ''; |
|
841 | - } |
|
842 | - |
|
843 | - /** |
|
844 | - * Compare a 16-character byte string in constant time. |
|
845 | - * |
|
846 | - * @internal You should not use this directly from another application |
|
847 | - * |
|
848 | - * @param string $a |
|
849 | - * @param string $b |
|
850 | - * @return bool |
|
851 | - * @throws SodiumException |
|
852 | - * @throws TypeError |
|
853 | - */ |
|
854 | - public static function verify_16($a, $b) |
|
855 | - { |
|
856 | - /* Type checks: */ |
|
857 | - if (!is_string($a)) { |
|
858 | - throw new TypeError('String expected'); |
|
859 | - } |
|
860 | - if (!is_string($b)) { |
|
861 | - throw new TypeError('String expected'); |
|
862 | - } |
|
863 | - return self::hashEquals( |
|
864 | - self::substr($a, 0, 16), |
|
865 | - self::substr($b, 0, 16) |
|
866 | - ); |
|
867 | - } |
|
868 | - |
|
869 | - /** |
|
870 | - * Compare a 32-character byte string in constant time. |
|
871 | - * |
|
872 | - * @internal You should not use this directly from another application |
|
873 | - * |
|
874 | - * @param string $a |
|
875 | - * @param string $b |
|
876 | - * @return bool |
|
877 | - * @throws SodiumException |
|
878 | - * @throws TypeError |
|
879 | - */ |
|
880 | - public static function verify_32($a, $b) |
|
881 | - { |
|
882 | - /* Type checks: */ |
|
883 | - if (!is_string($a)) { |
|
884 | - throw new TypeError('String expected'); |
|
885 | - } |
|
886 | - if (!is_string($b)) { |
|
887 | - throw new TypeError('String expected'); |
|
888 | - } |
|
889 | - return self::hashEquals( |
|
890 | - self::substr($a, 0, 32), |
|
891 | - self::substr($b, 0, 32) |
|
892 | - ); |
|
893 | - } |
|
894 | - |
|
895 | - /** |
|
896 | - * Calculate $a ^ $b for two strings. |
|
897 | - * |
|
898 | - * @internal You should not use this directly from another application |
|
899 | - * |
|
900 | - * @param string $a |
|
901 | - * @param string $b |
|
902 | - * @return string |
|
903 | - * @throws TypeError |
|
904 | - */ |
|
905 | - public static function xorStrings($a, $b) |
|
906 | - { |
|
907 | - /* Type checks: */ |
|
908 | - if (!is_string($a)) { |
|
909 | - throw new TypeError('Argument 1 must be a string'); |
|
910 | - } |
|
911 | - if (!is_string($b)) { |
|
912 | - throw new TypeError('Argument 2 must be a string'); |
|
913 | - } |
|
914 | - |
|
915 | - return (string) ($a ^ $b); |
|
916 | - } |
|
917 | - |
|
918 | - /** |
|
919 | - * Returns whether or not mbstring.func_overload is in effect. |
|
920 | - * |
|
921 | - * @internal You should not use this directly from another application |
|
922 | - * |
|
923 | - * Note: MB_OVERLOAD_STRING === 2, but we don't reference the constant |
|
924 | - * (for nuisance-free PHP 8 support) |
|
925 | - * |
|
926 | - * @return bool |
|
927 | - */ |
|
928 | - protected static function isMbStringOverride() |
|
929 | - { |
|
930 | - static $mbstring = null; |
|
931 | - |
|
932 | - if ($mbstring === null) { |
|
933 | - if (!defined('MB_OVERLOAD_STRING')) { |
|
934 | - $mbstring = false; |
|
935 | - return $mbstring; |
|
936 | - } |
|
937 | - $mbstring = extension_loaded('mbstring') |
|
938 | - && defined('MB_OVERLOAD_STRING') |
|
939 | - && |
|
940 | - ((int) (ini_get('mbstring.func_overload')) & 2); |
|
941 | - // MB_OVERLOAD_STRING === 2 |
|
942 | - } |
|
943 | - /** @var bool $mbstring */ |
|
944 | - |
|
945 | - return $mbstring; |
|
946 | - } |
|
12 | + /** |
|
13 | + * @param int $integer |
|
14 | + * @param int $size (16, 32, 64) |
|
15 | + * @return int |
|
16 | + */ |
|
17 | + public static function abs($integer, $size = 0) |
|
18 | + { |
|
19 | + /** @var int $realSize */ |
|
20 | + $realSize = (PHP_INT_SIZE << 3) - 1; |
|
21 | + if ($size) { |
|
22 | + --$size; |
|
23 | + } else { |
|
24 | + /** @var int $size */ |
|
25 | + $size = $realSize; |
|
26 | + } |
|
27 | + |
|
28 | + $negative = -(($integer >> $size) & 1); |
|
29 | + return (int) ( |
|
30 | + ($integer ^ $negative) |
|
31 | + + |
|
32 | + (($negative >> $realSize) & 1) |
|
33 | + ); |
|
34 | + } |
|
35 | + |
|
36 | + /** |
|
37 | + * Convert a binary string into a hexadecimal string without cache-timing |
|
38 | + * leaks |
|
39 | + * |
|
40 | + * @internal You should not use this directly from another application |
|
41 | + * |
|
42 | + * @param string $binaryString (raw binary) |
|
43 | + * @return string |
|
44 | + * @throws TypeError |
|
45 | + */ |
|
46 | + public static function bin2hex($binaryString) |
|
47 | + { |
|
48 | + /* Type checks: */ |
|
49 | + if (!is_string($binaryString)) { |
|
50 | + throw new TypeError('Argument 1 must be a string, ' . gettype($binaryString) . ' given.'); |
|
51 | + } |
|
52 | + |
|
53 | + $hex = ''; |
|
54 | + $len = self::strlen($binaryString); |
|
55 | + for ($i = 0; $i < $len; ++$i) { |
|
56 | + /** @var array<int, int> $chunk */ |
|
57 | + $chunk = unpack('C', $binaryString[$i]); |
|
58 | + /** @var int $c */ |
|
59 | + $c = $chunk[1] & 0xf; |
|
60 | + /** @var int $b */ |
|
61 | + $b = $chunk[1] >> 4; |
|
62 | + $hex .= pack( |
|
63 | + 'CC', |
|
64 | + (87 + $b + ((($b - 10) >> 8) & ~38)), |
|
65 | + (87 + $c + ((($c - 10) >> 8) & ~38)) |
|
66 | + ); |
|
67 | + } |
|
68 | + return $hex; |
|
69 | + } |
|
70 | + |
|
71 | + /** |
|
72 | + * Convert a binary string into a hexadecimal string without cache-timing |
|
73 | + * leaks, returning uppercase letters (as per RFC 4648) |
|
74 | + * |
|
75 | + * @internal You should not use this directly from another application |
|
76 | + * |
|
77 | + * @param string $bin_string (raw binary) |
|
78 | + * @return string |
|
79 | + * @throws TypeError |
|
80 | + */ |
|
81 | + public static function bin2hexUpper($bin_string) |
|
82 | + { |
|
83 | + $hex = ''; |
|
84 | + $len = self::strlen($bin_string); |
|
85 | + for ($i = 0; $i < $len; ++$i) { |
|
86 | + /** @var array<int, int> $chunk */ |
|
87 | + $chunk = unpack('C', $bin_string[$i]); |
|
88 | + /** |
|
89 | + * Lower 16 bits |
|
90 | + * |
|
91 | + * @var int $c |
|
92 | + */ |
|
93 | + $c = $chunk[1] & 0xf; |
|
94 | + |
|
95 | + /** |
|
96 | + * Upper 16 bits |
|
97 | + * @var int $b |
|
98 | + */ |
|
99 | + $b = $chunk[1] >> 4; |
|
100 | + |
|
101 | + /** |
|
102 | + * Use pack() and binary operators to turn the two integers |
|
103 | + * into hexadecimal characters. We don't use chr() here, because |
|
104 | + * it uses a lookup table internally and we want to avoid |
|
105 | + * cache-timing side-channels. |
|
106 | + */ |
|
107 | + $hex .= pack( |
|
108 | + 'CC', |
|
109 | + (55 + $b + ((($b - 10) >> 8) & ~6)), |
|
110 | + (55 + $c + ((($c - 10) >> 8) & ~6)) |
|
111 | + ); |
|
112 | + } |
|
113 | + return $hex; |
|
114 | + } |
|
115 | + |
|
116 | + /** |
|
117 | + * Cache-timing-safe variant of ord() |
|
118 | + * |
|
119 | + * @internal You should not use this directly from another application |
|
120 | + * |
|
121 | + * @param string $chr |
|
122 | + * @return int |
|
123 | + * @throws SodiumException |
|
124 | + * @throws TypeError |
|
125 | + */ |
|
126 | + public static function chrToInt($chr) |
|
127 | + { |
|
128 | + /* Type checks: */ |
|
129 | + if (!is_string($chr)) { |
|
130 | + throw new TypeError('Argument 1 must be a string, ' . gettype($chr) . ' given.'); |
|
131 | + } |
|
132 | + if (self::strlen($chr) !== 1) { |
|
133 | + throw new SodiumException('chrToInt() expects a string that is exactly 1 character long'); |
|
134 | + } |
|
135 | + /** @var array<int, int> $chunk */ |
|
136 | + $chunk = unpack('C', $chr); |
|
137 | + return (int) ($chunk[1]); |
|
138 | + } |
|
139 | + |
|
140 | + /** |
|
141 | + * Compares two strings. |
|
142 | + * |
|
143 | + * @internal You should not use this directly from another application |
|
144 | + * |
|
145 | + * @param string $left |
|
146 | + * @param string $right |
|
147 | + * @param int $len |
|
148 | + * @return int |
|
149 | + * @throws SodiumException |
|
150 | + * @throws TypeError |
|
151 | + */ |
|
152 | + public static function compare($left, $right, $len = null) |
|
153 | + { |
|
154 | + $leftLen = self::strlen($left); |
|
155 | + $rightLen = self::strlen($right); |
|
156 | + if ($len === null) { |
|
157 | + $len = max($leftLen, $rightLen); |
|
158 | + $left = str_pad($left, $len, "\x00", STR_PAD_RIGHT); |
|
159 | + $right = str_pad($right, $len, "\x00", STR_PAD_RIGHT); |
|
160 | + } |
|
161 | + |
|
162 | + $gt = 0; |
|
163 | + $eq = 1; |
|
164 | + $i = $len; |
|
165 | + while ($i !== 0) { |
|
166 | + --$i; |
|
167 | + $gt |= ((self::chrToInt($right[$i]) - self::chrToInt($left[$i])) >> 8) & $eq; |
|
168 | + $eq &= ((self::chrToInt($right[$i]) ^ self::chrToInt($left[$i])) - 1) >> 8; |
|
169 | + } |
|
170 | + return ($gt + $gt + $eq) - 1; |
|
171 | + } |
|
172 | + |
|
173 | + /** |
|
174 | + * If a variable does not match a given type, throw a TypeError. |
|
175 | + * |
|
176 | + * @param mixed $mixedVar |
|
177 | + * @param string $type |
|
178 | + * @param int $argumentIndex |
|
179 | + * @throws TypeError |
|
180 | + * @throws SodiumException |
|
181 | + * @return void |
|
182 | + */ |
|
183 | + public static function declareScalarType(&$mixedVar = null, $type = 'void', $argumentIndex = 0) |
|
184 | + { |
|
185 | + if (func_num_args() === 0) { |
|
186 | + /* Tautology, by default */ |
|
187 | + return; |
|
188 | + } |
|
189 | + if (func_num_args() === 1) { |
|
190 | + throw new TypeError('Declared void, but passed a variable'); |
|
191 | + } |
|
192 | + $realType = strtolower(gettype($mixedVar)); |
|
193 | + $type = strtolower($type); |
|
194 | + switch ($type) { |
|
195 | + case 'null': |
|
196 | + if ($mixedVar !== null) { |
|
197 | + throw new TypeError('Argument ' . $argumentIndex . ' must be null, ' . $realType . ' given.'); |
|
198 | + } |
|
199 | + break; |
|
200 | + case 'integer': |
|
201 | + case 'int': |
|
202 | + $allow = array('int', 'integer'); |
|
203 | + if (!in_array($type, $allow)) { |
|
204 | + throw new TypeError('Argument ' . $argumentIndex . ' must be an integer, ' . $realType . ' given.'); |
|
205 | + } |
|
206 | + $mixedVar = (int) $mixedVar; |
|
207 | + break; |
|
208 | + case 'boolean': |
|
209 | + case 'bool': |
|
210 | + $allow = array('bool', 'boolean'); |
|
211 | + if (!in_array($type, $allow)) { |
|
212 | + throw new TypeError('Argument ' . $argumentIndex . ' must be a boolean, ' . $realType . ' given.'); |
|
213 | + } |
|
214 | + $mixedVar = (bool) $mixedVar; |
|
215 | + break; |
|
216 | + case 'string': |
|
217 | + if (!is_string($mixedVar)) { |
|
218 | + throw new TypeError('Argument ' . $argumentIndex . ' must be a string, ' . $realType . ' given.'); |
|
219 | + } |
|
220 | + $mixedVar = (string) $mixedVar; |
|
221 | + break; |
|
222 | + case 'decimal': |
|
223 | + case 'double': |
|
224 | + case 'float': |
|
225 | + $allow = array('decimal', 'double', 'float'); |
|
226 | + if (!in_array($type, $allow)) { |
|
227 | + throw new TypeError('Argument ' . $argumentIndex . ' must be a float, ' . $realType . ' given.'); |
|
228 | + } |
|
229 | + $mixedVar = (float) $mixedVar; |
|
230 | + break; |
|
231 | + case 'object': |
|
232 | + if (!is_object($mixedVar)) { |
|
233 | + throw new TypeError('Argument ' . $argumentIndex . ' must be an object, ' . $realType . ' given.'); |
|
234 | + } |
|
235 | + break; |
|
236 | + case 'array': |
|
237 | + if (!is_array($mixedVar)) { |
|
238 | + if (is_object($mixedVar)) { |
|
239 | + if ($mixedVar instanceof ArrayAccess) { |
|
240 | + return; |
|
241 | + } |
|
242 | + } |
|
243 | + throw new TypeError('Argument ' . $argumentIndex . ' must be an array, ' . $realType . ' given.'); |
|
244 | + } |
|
245 | + break; |
|
246 | + default: |
|
247 | + throw new SodiumException('Unknown type (' . $realType .') does not match expect type (' . $type . ')'); |
|
248 | + } |
|
249 | + } |
|
250 | + |
|
251 | + /** |
|
252 | + * Evaluate whether or not two strings are equal (in constant-time) |
|
253 | + * |
|
254 | + * @param string $left |
|
255 | + * @param string $right |
|
256 | + * @return bool |
|
257 | + * @throws SodiumException |
|
258 | + * @throws TypeError |
|
259 | + */ |
|
260 | + public static function hashEquals($left, $right) |
|
261 | + { |
|
262 | + /* Type checks: */ |
|
263 | + if (!is_string($left)) { |
|
264 | + throw new TypeError('Argument 1 must be a string, ' . gettype($left) . ' given.'); |
|
265 | + } |
|
266 | + if (!is_string($right)) { |
|
267 | + throw new TypeError('Argument 2 must be a string, ' . gettype($right) . ' given.'); |
|
268 | + } |
|
269 | + |
|
270 | + if (is_callable('hash_equals')) { |
|
271 | + return hash_equals($left, $right); |
|
272 | + } |
|
273 | + $d = 0; |
|
274 | + /** @var int $len */ |
|
275 | + $len = self::strlen($left); |
|
276 | + if ($len !== self::strlen($right)) { |
|
277 | + return false; |
|
278 | + } |
|
279 | + for ($i = 0; $i < $len; ++$i) { |
|
280 | + $d |= self::chrToInt($left[$i]) ^ self::chrToInt($right[$i]); |
|
281 | + } |
|
282 | + |
|
283 | + if ($d !== 0) { |
|
284 | + return false; |
|
285 | + } |
|
286 | + return $left === $right; |
|
287 | + } |
|
288 | + |
|
289 | + /** |
|
290 | + * Catch hash_update() failures and throw instead of silently proceeding |
|
291 | + * |
|
292 | + * @param HashContext|resource &$hs |
|
293 | + * @param string $data |
|
294 | + * @return void |
|
295 | + * @throws SodiumException |
|
296 | + * @psalm-suppress PossiblyInvalidArgument |
|
297 | + */ |
|
298 | + protected static function hash_update(&$hs, $data) |
|
299 | + { |
|
300 | + if (!hash_update($hs, $data)) { |
|
301 | + throw new SodiumException('hash_update() failed'); |
|
302 | + } |
|
303 | + } |
|
304 | + |
|
305 | + /** |
|
306 | + * Convert a hexadecimal string into a binary string without cache-timing |
|
307 | + * leaks |
|
308 | + * |
|
309 | + * @internal You should not use this directly from another application |
|
310 | + * |
|
311 | + * @param string $hexString |
|
312 | + * @param bool $strictPadding |
|
313 | + * @return string (raw binary) |
|
314 | + * @throws RangeException |
|
315 | + * @throws TypeError |
|
316 | + */ |
|
317 | + public static function hex2bin($hexString, $strictPadding = false) |
|
318 | + { |
|
319 | + /* Type checks: */ |
|
320 | + if (!is_string($hexString)) { |
|
321 | + throw new TypeError('Argument 1 must be a string, ' . gettype($hexString) . ' given.'); |
|
322 | + } |
|
323 | + |
|
324 | + /** @var int $hex_pos */ |
|
325 | + $hex_pos = 0; |
|
326 | + /** @var string $bin */ |
|
327 | + $bin = ''; |
|
328 | + /** @var int $c_acc */ |
|
329 | + $c_acc = 0; |
|
330 | + /** @var int $hex_len */ |
|
331 | + $hex_len = self::strlen($hexString); |
|
332 | + /** @var int $state */ |
|
333 | + $state = 0; |
|
334 | + if (($hex_len & 1) !== 0) { |
|
335 | + if ($strictPadding) { |
|
336 | + throw new RangeException( |
|
337 | + 'Expected an even number of hexadecimal characters' |
|
338 | + ); |
|
339 | + } else { |
|
340 | + $hexString = '0' . $hexString; |
|
341 | + ++$hex_len; |
|
342 | + } |
|
343 | + } |
|
344 | + |
|
345 | + $chunk = unpack('C*', $hexString); |
|
346 | + while ($hex_pos < $hex_len) { |
|
347 | + ++$hex_pos; |
|
348 | + /** @var int $c */ |
|
349 | + $c = $chunk[$hex_pos]; |
|
350 | + /** @var int $c_num */ |
|
351 | + $c_num = $c ^ 48; |
|
352 | + /** @var int $c_num0 */ |
|
353 | + $c_num0 = ($c_num - 10) >> 8; |
|
354 | + /** @var int $c_alpha */ |
|
355 | + $c_alpha = ($c & ~32) - 55; |
|
356 | + /** @var int $c_alpha0 */ |
|
357 | + $c_alpha0 = (($c_alpha - 10) ^ ($c_alpha - 16)) >> 8; |
|
358 | + if (($c_num0 | $c_alpha0) === 0) { |
|
359 | + throw new RangeException( |
|
360 | + 'hex2bin() only expects hexadecimal characters' |
|
361 | + ); |
|
362 | + } |
|
363 | + /** @var int $c_val */ |
|
364 | + $c_val = ($c_num0 & $c_num) | ($c_alpha & $c_alpha0); |
|
365 | + if ($state === 0) { |
|
366 | + $c_acc = $c_val * 16; |
|
367 | + } else { |
|
368 | + $bin .= pack('C', $c_acc | $c_val); |
|
369 | + } |
|
370 | + $state ^= 1; |
|
371 | + } |
|
372 | + return $bin; |
|
373 | + } |
|
374 | + |
|
375 | + /** |
|
376 | + * Turn an array of integers into a string |
|
377 | + * |
|
378 | + * @internal You should not use this directly from another application |
|
379 | + * |
|
380 | + * @param array<int, int> $ints |
|
381 | + * @return string |
|
382 | + */ |
|
383 | + public static function intArrayToString(array $ints) |
|
384 | + { |
|
385 | + /** @var array<int, int> $args */ |
|
386 | + $args = $ints; |
|
387 | + foreach ($args as $i => $v) { |
|
388 | + $args[$i] = (int) ($v & 0xff); |
|
389 | + } |
|
390 | + array_unshift($args, str_repeat('C', count($ints))); |
|
391 | + return (string) (call_user_func_array('pack', $args)); |
|
392 | + } |
|
393 | + |
|
394 | + /** |
|
395 | + * Cache-timing-safe variant of ord() |
|
396 | + * |
|
397 | + * @internal You should not use this directly from another application |
|
398 | + * |
|
399 | + * @param int $int |
|
400 | + * @return string |
|
401 | + * @throws TypeError |
|
402 | + */ |
|
403 | + public static function intToChr($int) |
|
404 | + { |
|
405 | + return pack('C', $int); |
|
406 | + } |
|
407 | + |
|
408 | + /** |
|
409 | + * Load a 3 character substring into an integer |
|
410 | + * |
|
411 | + * @internal You should not use this directly from another application |
|
412 | + * |
|
413 | + * @param string $string |
|
414 | + * @return int |
|
415 | + * @throws RangeException |
|
416 | + * @throws TypeError |
|
417 | + */ |
|
418 | + public static function load_3($string) |
|
419 | + { |
|
420 | + /* Type checks: */ |
|
421 | + if (!is_string($string)) { |
|
422 | + throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
423 | + } |
|
424 | + |
|
425 | + /* Input validation: */ |
|
426 | + if (self::strlen($string) < 3) { |
|
427 | + throw new RangeException( |
|
428 | + 'String must be 3 bytes or more; ' . self::strlen($string) . ' given.' |
|
429 | + ); |
|
430 | + } |
|
431 | + /** @var array<int, int> $unpacked */ |
|
432 | + $unpacked = unpack('V', $string . "\0"); |
|
433 | + return (int) ($unpacked[1] & 0xffffff); |
|
434 | + } |
|
435 | + |
|
436 | + /** |
|
437 | + * Load a 4 character substring into an integer |
|
438 | + * |
|
439 | + * @internal You should not use this directly from another application |
|
440 | + * |
|
441 | + * @param string $string |
|
442 | + * @return int |
|
443 | + * @throws RangeException |
|
444 | + * @throws TypeError |
|
445 | + */ |
|
446 | + public static function load_4($string) |
|
447 | + { |
|
448 | + /* Type checks: */ |
|
449 | + if (!is_string($string)) { |
|
450 | + throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
451 | + } |
|
452 | + |
|
453 | + /* Input validation: */ |
|
454 | + if (self::strlen($string) < 4) { |
|
455 | + throw new RangeException( |
|
456 | + 'String must be 4 bytes or more; ' . self::strlen($string) . ' given.' |
|
457 | + ); |
|
458 | + } |
|
459 | + /** @var array<int, int> $unpacked */ |
|
460 | + $unpacked = unpack('V', $string); |
|
461 | + return (int) ($unpacked[1] & 0xffffffff); |
|
462 | + } |
|
463 | + |
|
464 | + /** |
|
465 | + * Load a 8 character substring into an integer |
|
466 | + * |
|
467 | + * @internal You should not use this directly from another application |
|
468 | + * |
|
469 | + * @param string $string |
|
470 | + * @return int |
|
471 | + * @throws RangeException |
|
472 | + * @throws SodiumException |
|
473 | + * @throws TypeError |
|
474 | + */ |
|
475 | + public static function load64_le($string) |
|
476 | + { |
|
477 | + /* Type checks: */ |
|
478 | + if (!is_string($string)) { |
|
479 | + throw new TypeError('Argument 1 must be a string, ' . gettype($string) . ' given.'); |
|
480 | + } |
|
481 | + |
|
482 | + /* Input validation: */ |
|
483 | + if (self::strlen($string) < 4) { |
|
484 | + throw new RangeException( |
|
485 | + 'String must be 4 bytes or more; ' . self::strlen($string) . ' given.' |
|
486 | + ); |
|
487 | + } |
|
488 | + if (PHP_VERSION_ID >= 50603 && PHP_INT_SIZE === 8) { |
|
489 | + /** @var array<int, int> $unpacked */ |
|
490 | + $unpacked = unpack('P', $string); |
|
491 | + return (int) $unpacked[1]; |
|
492 | + } |
|
493 | + |
|
494 | + /** @var int $result */ |
|
495 | + $result = (self::chrToInt($string[0]) & 0xff); |
|
496 | + $result |= (self::chrToInt($string[1]) & 0xff) << 8; |
|
497 | + $result |= (self::chrToInt($string[2]) & 0xff) << 16; |
|
498 | + $result |= (self::chrToInt($string[3]) & 0xff) << 24; |
|
499 | + $result |= (self::chrToInt($string[4]) & 0xff) << 32; |
|
500 | + $result |= (self::chrToInt($string[5]) & 0xff) << 40; |
|
501 | + $result |= (self::chrToInt($string[6]) & 0xff) << 48; |
|
502 | + $result |= (self::chrToInt($string[7]) & 0xff) << 56; |
|
503 | + return (int) $result; |
|
504 | + } |
|
505 | + |
|
506 | + /** |
|
507 | + * @internal You should not use this directly from another application |
|
508 | + * |
|
509 | + * @param string $left |
|
510 | + * @param string $right |
|
511 | + * @return int |
|
512 | + * @throws SodiumException |
|
513 | + * @throws TypeError |
|
514 | + */ |
|
515 | + public static function memcmp($left, $right) |
|
516 | + { |
|
517 | + if (self::hashEquals($left, $right)) { |
|
518 | + return 0; |
|
519 | + } |
|
520 | + return -1; |
|
521 | + } |
|
522 | + |
|
523 | + /** |
|
524 | + * Multiply two integers in constant-time |
|
525 | + * |
|
526 | + * Micro-architecture timing side-channels caused by how your CPU |
|
527 | + * implements multiplication are best prevented by never using the |
|
528 | + * multiplication operators and ensuring that our code always takes |
|
529 | + * the same number of operations to complete, regardless of the values |
|
530 | + * of $a and $b. |
|
531 | + * |
|
532 | + * @internal You should not use this directly from another application |
|
533 | + * |
|
534 | + * @param int $a |
|
535 | + * @param int $b |
|
536 | + * @param int $size Limits the number of operations (useful for small, |
|
537 | + * constant operands) |
|
538 | + * @return int |
|
539 | + */ |
|
540 | + public static function mul($a, $b, $size = 0) |
|
541 | + { |
|
542 | + if (ParagonIE_Sodium_Compat::$fastMult) { |
|
543 | + return (int) ($a * $b); |
|
544 | + } |
|
545 | + |
|
546 | + static $defaultSize = null; |
|
547 | + /** @var int $defaultSize */ |
|
548 | + if (!$defaultSize) { |
|
549 | + /** @var int $defaultSize */ |
|
550 | + $defaultSize = (PHP_INT_SIZE << 3) - 1; |
|
551 | + } |
|
552 | + if ($size < 1) { |
|
553 | + /** @var int $size */ |
|
554 | + $size = $defaultSize; |
|
555 | + } |
|
556 | + /** @var int $size */ |
|
557 | + |
|
558 | + $c = 0; |
|
559 | + |
|
560 | + /** |
|
561 | + * Mask is either -1 or 0. |
|
562 | + * |
|
563 | + * -1 in binary looks like 0x1111 ... 1111 |
|
564 | + * 0 in binary looks like 0x0000 ... 0000 |
|
565 | + * |
|
566 | + * @var int |
|
567 | + */ |
|
568 | + $mask = -(($b >> ((int) $defaultSize)) & 1); |
|
569 | + |
|
570 | + /** |
|
571 | + * Ensure $b is a positive integer, without creating |
|
572 | + * a branching side-channel |
|
573 | + * |
|
574 | + * @var int $b |
|
575 | + */ |
|
576 | + $b = ($b & ~$mask) | ($mask & -$b); |
|
577 | + |
|
578 | + /** |
|
579 | + * Unless $size is provided: |
|
580 | + * |
|
581 | + * This loop always runs 32 times when PHP_INT_SIZE is 4. |
|
582 | + * This loop always runs 64 times when PHP_INT_SIZE is 8. |
|
583 | + */ |
|
584 | + for ($i = $size; $i >= 0; --$i) { |
|
585 | + $c += (int) ($a & -($b & 1)); |
|
586 | + $a <<= 1; |
|
587 | + $b >>= 1; |
|
588 | + } |
|
589 | + $c = (int) @($c & -1); |
|
590 | + |
|
591 | + /** |
|
592 | + * If $b was negative, we then apply the same value to $c here. |
|
593 | + * It doesn't matter much if $a was negative; the $c += above would |
|
594 | + * have produced a negative integer to begin with. But a negative $b |
|
595 | + * makes $b >>= 1 never return 0, so we would end up with incorrect |
|
596 | + * results. |
|
597 | + * |
|
598 | + * The end result is what we'd expect from integer multiplication. |
|
599 | + */ |
|
600 | + return (int) (($c & ~$mask) | ($mask & -$c)); |
|
601 | + } |
|
602 | + |
|
603 | + /** |
|
604 | + * Convert any arbitrary numbers into two 32-bit integers that represent |
|
605 | + * a 64-bit integer. |
|
606 | + * |
|
607 | + * @internal You should not use this directly from another application |
|
608 | + * |
|
609 | + * @param int|float $num |
|
610 | + * @return array<int, int> |
|
611 | + */ |
|
612 | + public static function numericTo64BitInteger($num) |
|
613 | + { |
|
614 | + $high = 0; |
|
615 | + /** @var int $low */ |
|
616 | + $low = $num & 0xffffffff; |
|
617 | + |
|
618 | + if ((+(abs($num))) >= 1) { |
|
619 | + if ($num > 0) { |
|
620 | + /** @var int $high */ |
|
621 | + $high = min((+(floor($num/4294967296))), 4294967295); |
|
622 | + } else { |
|
623 | + /** @var int $high */ |
|
624 | + $high = ~~((+(ceil(($num - (+((~~($num)))))/4294967296)))); |
|
625 | + } |
|
626 | + } |
|
627 | + return array((int) $high, (int) $low); |
|
628 | + } |
|
629 | + |
|
630 | + /** |
|
631 | + * Store a 24-bit integer into a string, treating it as big-endian. |
|
632 | + * |
|
633 | + * @internal You should not use this directly from another application |
|
634 | + * |
|
635 | + * @param int $int |
|
636 | + * @return string |
|
637 | + * @throws TypeError |
|
638 | + */ |
|
639 | + public static function store_3($int) |
|
640 | + { |
|
641 | + /* Type checks: */ |
|
642 | + if (!is_int($int)) { |
|
643 | + if (is_numeric($int)) { |
|
644 | + $int = (int) $int; |
|
645 | + } else { |
|
646 | + throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
647 | + } |
|
648 | + } |
|
649 | + /** @var string $packed */ |
|
650 | + $packed = pack('N', $int); |
|
651 | + return self::substr($packed, 1, 3); |
|
652 | + } |
|
653 | + |
|
654 | + /** |
|
655 | + * Store a 32-bit integer into a string, treating it as little-endian. |
|
656 | + * |
|
657 | + * @internal You should not use this directly from another application |
|
658 | + * |
|
659 | + * @param int $int |
|
660 | + * @return string |
|
661 | + * @throws TypeError |
|
662 | + */ |
|
663 | + public static function store32_le($int) |
|
664 | + { |
|
665 | + /* Type checks: */ |
|
666 | + if (!is_int($int)) { |
|
667 | + if (is_numeric($int)) { |
|
668 | + $int = (int) $int; |
|
669 | + } else { |
|
670 | + throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
671 | + } |
|
672 | + } |
|
673 | + |
|
674 | + /** @var string $packed */ |
|
675 | + $packed = pack('V', $int); |
|
676 | + return $packed; |
|
677 | + } |
|
678 | + |
|
679 | + /** |
|
680 | + * Store a 32-bit integer into a string, treating it as big-endian. |
|
681 | + * |
|
682 | + * @internal You should not use this directly from another application |
|
683 | + * |
|
684 | + * @param int $int |
|
685 | + * @return string |
|
686 | + * @throws TypeError |
|
687 | + */ |
|
688 | + public static function store_4($int) |
|
689 | + { |
|
690 | + /* Type checks: */ |
|
691 | + if (!is_int($int)) { |
|
692 | + if (is_numeric($int)) { |
|
693 | + $int = (int) $int; |
|
694 | + } else { |
|
695 | + throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
696 | + } |
|
697 | + } |
|
698 | + |
|
699 | + /** @var string $packed */ |
|
700 | + $packed = pack('N', $int); |
|
701 | + return $packed; |
|
702 | + } |
|
703 | + |
|
704 | + /** |
|
705 | + * Stores a 64-bit integer as an string, treating it as little-endian. |
|
706 | + * |
|
707 | + * @internal You should not use this directly from another application |
|
708 | + * |
|
709 | + * @param int $int |
|
710 | + * @return string |
|
711 | + * @throws TypeError |
|
712 | + */ |
|
713 | + public static function store64_le($int) |
|
714 | + { |
|
715 | + /* Type checks: */ |
|
716 | + if (!is_int($int)) { |
|
717 | + if (is_numeric($int)) { |
|
718 | + $int = (int) $int; |
|
719 | + } else { |
|
720 | + throw new TypeError('Argument 1 must be an integer, ' . gettype($int) . ' given.'); |
|
721 | + } |
|
722 | + } |
|
723 | + |
|
724 | + if (PHP_INT_SIZE === 8) { |
|
725 | + if (PHP_VERSION_ID >= 50603) { |
|
726 | + /** @var string $packed */ |
|
727 | + $packed = pack('P', $int); |
|
728 | + return $packed; |
|
729 | + } |
|
730 | + return self::intToChr($int & 0xff) . |
|
731 | + self::intToChr(($int >> 8) & 0xff) . |
|
732 | + self::intToChr(($int >> 16) & 0xff) . |
|
733 | + self::intToChr(($int >> 24) & 0xff) . |
|
734 | + self::intToChr(($int >> 32) & 0xff) . |
|
735 | + self::intToChr(($int >> 40) & 0xff) . |
|
736 | + self::intToChr(($int >> 48) & 0xff) . |
|
737 | + self::intToChr(($int >> 56) & 0xff); |
|
738 | + } |
|
739 | + if ($int > PHP_INT_MAX) { |
|
740 | + list($hiB, $int) = self::numericTo64BitInteger($int); |
|
741 | + } else { |
|
742 | + $hiB = 0; |
|
743 | + } |
|
744 | + return |
|
745 | + self::intToChr(($int ) & 0xff) . |
|
746 | + self::intToChr(($int >> 8) & 0xff) . |
|
747 | + self::intToChr(($int >> 16) & 0xff) . |
|
748 | + self::intToChr(($int >> 24) & 0xff) . |
|
749 | + self::intToChr($hiB & 0xff) . |
|
750 | + self::intToChr(($hiB >> 8) & 0xff) . |
|
751 | + self::intToChr(($hiB >> 16) & 0xff) . |
|
752 | + self::intToChr(($hiB >> 24) & 0xff); |
|
753 | + } |
|
754 | + |
|
755 | + /** |
|
756 | + * Safe string length |
|
757 | + * |
|
758 | + * @internal You should not use this directly from another application |
|
759 | + * |
|
760 | + * @ref mbstring.func_overload |
|
761 | + * |
|
762 | + * @param string $str |
|
763 | + * @return int |
|
764 | + * @throws TypeError |
|
765 | + */ |
|
766 | + public static function strlen($str) |
|
767 | + { |
|
768 | + /* Type checks: */ |
|
769 | + if (!is_string($str)) { |
|
770 | + throw new TypeError('String expected'); |
|
771 | + } |
|
772 | + |
|
773 | + return (int) ( |
|
774 | + self::isMbStringOverride() |
|
775 | + ? mb_strlen($str, '8bit') |
|
776 | + : strlen($str) |
|
777 | + ); |
|
778 | + } |
|
779 | + |
|
780 | + /** |
|
781 | + * Turn a string into an array of integers |
|
782 | + * |
|
783 | + * @internal You should not use this directly from another application |
|
784 | + * |
|
785 | + * @param string $string |
|
786 | + * @return array<int, int> |
|
787 | + * @throws TypeError |
|
788 | + */ |
|
789 | + public static function stringToIntArray($string) |
|
790 | + { |
|
791 | + if (!is_string($string)) { |
|
792 | + throw new TypeError('String expected'); |
|
793 | + } |
|
794 | + /** |
|
795 | + * @var array<int, int> |
|
796 | + */ |
|
797 | + $values = array_values( |
|
798 | + unpack('C*', $string) |
|
799 | + ); |
|
800 | + return $values; |
|
801 | + } |
|
802 | + |
|
803 | + /** |
|
804 | + * Safe substring |
|
805 | + * |
|
806 | + * @internal You should not use this directly from another application |
|
807 | + * |
|
808 | + * @ref mbstring.func_overload |
|
809 | + * |
|
810 | + * @param string $str |
|
811 | + * @param int $start |
|
812 | + * @param int $length |
|
813 | + * @return string |
|
814 | + * @throws TypeError |
|
815 | + */ |
|
816 | + public static function substr($str, $start = 0, $length = null) |
|
817 | + { |
|
818 | + /* Type checks: */ |
|
819 | + if (!is_string($str)) { |
|
820 | + throw new TypeError('String expected'); |
|
821 | + } |
|
822 | + |
|
823 | + if ($length === 0) { |
|
824 | + return ''; |
|
825 | + } |
|
826 | + |
|
827 | + if (self::isMbStringOverride()) { |
|
828 | + if (PHP_VERSION_ID < 50400 && $length === null) { |
|
829 | + $length = self::strlen($str); |
|
830 | + } |
|
831 | + $sub = (string) mb_substr($str, $start, $length, '8bit'); |
|
832 | + } elseif ($length === null) { |
|
833 | + $sub = (string) substr($str, $start); |
|
834 | + } else { |
|
835 | + $sub = (string) substr($str, $start, $length); |
|
836 | + } |
|
837 | + if ($sub !== '') { |
|
838 | + return $sub; |
|
839 | + } |
|
840 | + return ''; |
|
841 | + } |
|
842 | + |
|
843 | + /** |
|
844 | + * Compare a 16-character byte string in constant time. |
|
845 | + * |
|
846 | + * @internal You should not use this directly from another application |
|
847 | + * |
|
848 | + * @param string $a |
|
849 | + * @param string $b |
|
850 | + * @return bool |
|
851 | + * @throws SodiumException |
|
852 | + * @throws TypeError |
|
853 | + */ |
|
854 | + public static function verify_16($a, $b) |
|
855 | + { |
|
856 | + /* Type checks: */ |
|
857 | + if (!is_string($a)) { |
|
858 | + throw new TypeError('String expected'); |
|
859 | + } |
|
860 | + if (!is_string($b)) { |
|
861 | + throw new TypeError('String expected'); |
|
862 | + } |
|
863 | + return self::hashEquals( |
|
864 | + self::substr($a, 0, 16), |
|
865 | + self::substr($b, 0, 16) |
|
866 | + ); |
|
867 | + } |
|
868 | + |
|
869 | + /** |
|
870 | + * Compare a 32-character byte string in constant time. |
|
871 | + * |
|
872 | + * @internal You should not use this directly from another application |
|
873 | + * |
|
874 | + * @param string $a |
|
875 | + * @param string $b |
|
876 | + * @return bool |
|
877 | + * @throws SodiumException |
|
878 | + * @throws TypeError |
|
879 | + */ |
|
880 | + public static function verify_32($a, $b) |
|
881 | + { |
|
882 | + /* Type checks: */ |
|
883 | + if (!is_string($a)) { |
|
884 | + throw new TypeError('String expected'); |
|
885 | + } |
|
886 | + if (!is_string($b)) { |
|
887 | + throw new TypeError('String expected'); |
|
888 | + } |
|
889 | + return self::hashEquals( |
|
890 | + self::substr($a, 0, 32), |
|
891 | + self::substr($b, 0, 32) |
|
892 | + ); |
|
893 | + } |
|
894 | + |
|
895 | + /** |
|
896 | + * Calculate $a ^ $b for two strings. |
|
897 | + * |
|
898 | + * @internal You should not use this directly from another application |
|
899 | + * |
|
900 | + * @param string $a |
|
901 | + * @param string $b |
|
902 | + * @return string |
|
903 | + * @throws TypeError |
|
904 | + */ |
|
905 | + public static function xorStrings($a, $b) |
|
906 | + { |
|
907 | + /* Type checks: */ |
|
908 | + if (!is_string($a)) { |
|
909 | + throw new TypeError('Argument 1 must be a string'); |
|
910 | + } |
|
911 | + if (!is_string($b)) { |
|
912 | + throw new TypeError('Argument 2 must be a string'); |
|
913 | + } |
|
914 | + |
|
915 | + return (string) ($a ^ $b); |
|
916 | + } |
|
917 | + |
|
918 | + /** |
|
919 | + * Returns whether or not mbstring.func_overload is in effect. |
|
920 | + * |
|
921 | + * @internal You should not use this directly from another application |
|
922 | + * |
|
923 | + * Note: MB_OVERLOAD_STRING === 2, but we don't reference the constant |
|
924 | + * (for nuisance-free PHP 8 support) |
|
925 | + * |
|
926 | + * @return bool |
|
927 | + */ |
|
928 | + protected static function isMbStringOverride() |
|
929 | + { |
|
930 | + static $mbstring = null; |
|
931 | + |
|
932 | + if ($mbstring === null) { |
|
933 | + if (!defined('MB_OVERLOAD_STRING')) { |
|
934 | + $mbstring = false; |
|
935 | + return $mbstring; |
|
936 | + } |
|
937 | + $mbstring = extension_loaded('mbstring') |
|
938 | + && defined('MB_OVERLOAD_STRING') |
|
939 | + && |
|
940 | + ((int) (ini_get('mbstring.func_overload')) & 2); |
|
941 | + // MB_OVERLOAD_STRING === 2 |
|
942 | + } |
|
943 | + /** @var bool $mbstring */ |
|
944 | + |
|
945 | + return $mbstring; |
|
946 | + } |
|
947 | 947 | } |
@@ -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 | } |