balmet.com

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

HChaCha20.php (5297B)

      1 <?php
      2 
      3 if (class_exists('ParagonIE_Sodium_Core32_HChaCha20', false)) {
      4     return;
      5 }
      6 
      7 /**
      8  * Class ParagonIE_Sodium_Core_HChaCha20
      9  */
     10 class ParagonIE_Sodium_Core32_HChaCha20 extends ParagonIE_Sodium_Core32_ChaCha20
     11 {
     12     /**
     13      * @param string $in
     14      * @param string $key
     15      * @param string|null $c
     16      * @return string
     17      * @throws SodiumException
     18      * @throws TypeError
     19      */
     20     public static function hChaCha20($in = '', $key = '', $c = null)
     21     {
     22         $ctx = array();
     23 
     24         if ($c === null) {
     25             $ctx[0] = new ParagonIE_Sodium_Core32_Int32(array(0x6170, 0x7865));
     26             $ctx[1] = new ParagonIE_Sodium_Core32_Int32(array(0x3320, 0x646e));
     27             $ctx[2] = new ParagonIE_Sodium_Core32_Int32(array(0x7962, 0x2d32));
     28             $ctx[3] = new ParagonIE_Sodium_Core32_Int32(array(0x6b20, 0x6574));
     29         } else {
     30             $ctx[0] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 0, 4));
     31             $ctx[1] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 4, 4));
     32             $ctx[2] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 8, 4));
     33             $ctx[3] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 12, 4));
     34         }
     35         $ctx[4]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 0, 4));
     36         $ctx[5]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 4, 4));
     37         $ctx[6]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 8, 4));
     38         $ctx[7]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 12, 4));
     39         $ctx[8]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 16, 4));
     40         $ctx[9]  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 20, 4));
     41         $ctx[10] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 24, 4));
     42         $ctx[11] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($key, 28, 4));
     43         $ctx[12] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 0, 4));
     44         $ctx[13] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 4, 4));
     45         $ctx[14] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 8, 4));
     46         $ctx[15] = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 12, 4));
     47 
     48         return self::hChaCha20Bytes($ctx);
     49     }
     50 
     51     /**
     52      * @param array $ctx
     53      * @return string
     54      * @throws SodiumException
     55      * @throws TypeError
     56      */
     57     protected static function hChaCha20Bytes(array $ctx)
     58     {
     59         /** @var ParagonIE_Sodium_Core32_Int32 $x0 */
     60         $x0  = $ctx[0];
     61         /** @var ParagonIE_Sodium_Core32_Int32 $x1 */
     62         $x1  = $ctx[1];
     63         /** @var ParagonIE_Sodium_Core32_Int32 $x2 */
     64         $x2  = $ctx[2];
     65         /** @var ParagonIE_Sodium_Core32_Int32 $x3 */
     66         $x3  = $ctx[3];
     67         /** @var ParagonIE_Sodium_Core32_Int32 $x4 */
     68         $x4  = $ctx[4];
     69         /** @var ParagonIE_Sodium_Core32_Int32 $x5 */
     70         $x5  = $ctx[5];
     71         /** @var ParagonIE_Sodium_Core32_Int32 $x6 */
     72         $x6  = $ctx[6];
     73         /** @var ParagonIE_Sodium_Core32_Int32 $x7 */
     74         $x7  = $ctx[7];
     75         /** @var ParagonIE_Sodium_Core32_Int32 $x8 */
     76         $x8  = $ctx[8];
     77         /** @var ParagonIE_Sodium_Core32_Int32 $x9 */
     78         $x9  = $ctx[9];
     79         /** @var ParagonIE_Sodium_Core32_Int32 $x10 */
     80         $x10 = $ctx[10];
     81         /** @var ParagonIE_Sodium_Core32_Int32 $x11 */
     82         $x11 = $ctx[11];
     83         /** @var ParagonIE_Sodium_Core32_Int32 $x12 */
     84         $x12 = $ctx[12];
     85         /** @var ParagonIE_Sodium_Core32_Int32 $x13 */
     86         $x13 = $ctx[13];
     87         /** @var ParagonIE_Sodium_Core32_Int32 $x14 */
     88         $x14 = $ctx[14];
     89         /** @var ParagonIE_Sodium_Core32_Int32 $x15 */
     90         $x15 = $ctx[15];
     91 
     92         for ($i = 0; $i < 10; ++$i) {
     93             # QUARTERROUND( x0,  x4,  x8,  x12)
     94             list($x0, $x4, $x8, $x12) = self::quarterRound($x0, $x4, $x8, $x12);
     95 
     96             # QUARTERROUND( x1,  x5,  x9,  x13)
     97             list($x1, $x5, $x9, $x13) = self::quarterRound($x1, $x5, $x9, $x13);
     98 
     99             # QUARTERROUND( x2,  x6,  x10,  x14)
    100             list($x2, $x6, $x10, $x14) = self::quarterRound($x2, $x6, $x10, $x14);
    101 
    102             # QUARTERROUND( x3,  x7,  x11,  x15)
    103             list($x3, $x7, $x11, $x15) = self::quarterRound($x3, $x7, $x11, $x15);
    104 
    105             # QUARTERROUND( x0,  x5,  x10,  x15)
    106             list($x0, $x5, $x10, $x15) = self::quarterRound($x0, $x5, $x10, $x15);
    107 
    108             # QUARTERROUND( x1,  x6,  x11,  x12)
    109             list($x1, $x6, $x11, $x12) = self::quarterRound($x1, $x6, $x11, $x12);
    110 
    111             # QUARTERROUND( x2,  x7,  x8,  x13)
    112             list($x2, $x7, $x8, $x13) = self::quarterRound($x2, $x7, $x8, $x13);
    113 
    114             # QUARTERROUND( x3,  x4,  x9,  x14)
    115             list($x3, $x4, $x9, $x14) = self::quarterRound($x3, $x4, $x9, $x14);
    116         }
    117 
    118         return $x0->toReverseString() .
    119             $x1->toReverseString() .
    120             $x2->toReverseString() .
    121             $x3->toReverseString() .
    122             $x12->toReverseString() .
    123             $x13->toReverseString() .
    124             $x14->toReverseString() .
    125             $x15->toReverseString();
    126     }
    127 }