1<?php
  2
  3if (class_exists('ParagonIE_Sodium_Core32_HSalsa20', false)) {
  4    return;
  5}
  6
  7/**
  8 * Class ParagonIE_Sodium_Core32_HSalsa20
  9 */
 10abstract class ParagonIE_Sodium_Core32_HSalsa20 extends ParagonIE_Sodium_Core32_Salsa20
 11{
 12    /**
 13     * Calculate an hsalsa20 hash of a single block
 14     *
 15     * HSalsa20 doesn't have a counter and will never be used for more than
 16     * one block (used to derive a subkey for xsalsa20).
 17     *
 18     * @internal You should not use this directly from another application
 19     *
 20     * @param string $in
 21     * @param string $k
 22     * @param string|null $c
 23     * @return string
 24     * @throws SodiumException
 25     * @throws TypeError
 26     */
 27    public static function hsalsa20($in, $k, $c = null)
 28    {
 29        /**
 30         * @var ParagonIE_Sodium_Core32_Int32 $x0
 31         * @var ParagonIE_Sodium_Core32_Int32 $x1
 32         * @var ParagonIE_Sodium_Core32_Int32 $x2
 33         * @var ParagonIE_Sodium_Core32_Int32 $x3
 34         * @var ParagonIE_Sodium_Core32_Int32 $x4
 35         * @var ParagonIE_Sodium_Core32_Int32 $x5
 36         * @var ParagonIE_Sodium_Core32_Int32 $x6
 37         * @var ParagonIE_Sodium_Core32_Int32 $x7
 38         * @var ParagonIE_Sodium_Core32_Int32 $x8
 39         * @var ParagonIE_Sodium_Core32_Int32 $x9
 40         * @var ParagonIE_Sodium_Core32_Int32 $x10
 41         * @var ParagonIE_Sodium_Core32_Int32 $x11
 42         * @var ParagonIE_Sodium_Core32_Int32 $x12
 43         * @var ParagonIE_Sodium_Core32_Int32 $x13
 44         * @var ParagonIE_Sodium_Core32_Int32 $x14
 45         * @var ParagonIE_Sodium_Core32_Int32 $x15
 46         * @var ParagonIE_Sodium_Core32_Int32 $j0
 47         * @var ParagonIE_Sodium_Core32_Int32 $j1
 48         * @var ParagonIE_Sodium_Core32_Int32 $j2
 49         * @var ParagonIE_Sodium_Core32_Int32 $j3
 50         * @var ParagonIE_Sodium_Core32_Int32 $j4
 51         * @var ParagonIE_Sodium_Core32_Int32 $j5
 52         * @var ParagonIE_Sodium_Core32_Int32 $j6
 53         * @var ParagonIE_Sodium_Core32_Int32 $j7
 54         * @var ParagonIE_Sodium_Core32_Int32 $j8
 55         * @var ParagonIE_Sodium_Core32_Int32 $j9
 56         * @var ParagonIE_Sodium_Core32_Int32 $j10
 57         * @var ParagonIE_Sodium_Core32_Int32 $j11
 58         * @var ParagonIE_Sodium_Core32_Int32 $j12
 59         * @var ParagonIE_Sodium_Core32_Int32 $j13
 60         * @var ParagonIE_Sodium_Core32_Int32 $j14
 61         * @var ParagonIE_Sodium_Core32_Int32 $j15
 62         */
 63        if (self::strlen($k) < 32) {
 64            throw new RangeException('Key must be 32 bytes long');
 65        }
 66        if ($c === null) {
 67            $x0  = new ParagonIE_Sodium_Core32_Int32(array(0x6170, 0x7865));
 68            $x5  = new ParagonIE_Sodium_Core32_Int32(array(0x3320, 0x646e));
 69            $x10 = new ParagonIE_Sodium_Core32_Int32(array(0x7962, 0x2d32));
 70            $x15 = new ParagonIE_Sodium_Core32_Int32(array(0x6b20, 0x6574));
 71        } else {
 72            $x0  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 0, 4));
 73            $x5  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 4, 4));
 74            $x10 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 8, 4));
 75            $x15 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($c, 12, 4));
 76        }
 77        $x1  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 0, 4));
 78        $x2  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 4, 4));
 79        $x3  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 8, 4));
 80        $x4  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 12, 4));
 81        $x6  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 0, 4));
 82        $x7  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 4, 4));
 83        $x8  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 8, 4));
 84        $x9  = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($in, 12, 4));
 85        $x11 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 16, 4));
 86        $x12 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 20, 4));
 87        $x13 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 24, 4));
 88        $x14 = ParagonIE_Sodium_Core32_Int32::fromReverseString(self::substr($k, 28, 4));
 89
 90        for ($i = self::ROUNDS; $i > 0; $i -= 2) {
 91            $x4  = $x4->xorInt32($x0->addInt32($x12)->rotateLeft(7));
 92            $x8  = $x8->xorInt32($x4->addInt32($x0)->rotateLeft(9));
 93            $x12 = $x12->xorInt32($x8->addInt32($x4)->rotateLeft(13));
 94            $x0  = $x0->xorInt32($x12->addInt32($x8)->rotateLeft(18));
 95
 96            $x9  = $x9->xorInt32($x5->addInt32($x1)->rotateLeft(7));
 97            $x13 = $x13->xorInt32($x9->addInt32($x5)->rotateLeft(9));
 98            $x1  = $x1->xorInt32($x13->addInt32($x9)->rotateLeft(13));
 99            $x5  = $x5->xorInt32($x1->addInt32($x13)->rotateLeft(18));
100
101            $x14 = $x14->xorInt32($x10->addInt32($x6)->rotateLeft(7));
102            $x2  = $x2->xorInt32($x14->addInt32($x10)->rotateLeft(9));
103            $x6  = $x6->xorInt32($x2->addInt32($x14)->rotateLeft(13));
104            $x10 = $x10->xorInt32($x6->addInt32($x2)->rotateLeft(18));
105
106            $x3  = $x3->xorInt32($x15->addInt32($x11)->rotateLeft(7));
107            $x7  = $x7->xorInt32($x3->addInt32($x15)->rotateLeft(9));
108            $x11 = $x11->xorInt32($x7->addInt32($x3)->rotateLeft(13));
109            $x15 = $x15->xorInt32($x11->addInt32($x7)->rotateLeft(18));
110
111            $x1  = $x1->xorInt32($x0->addInt32($x3)->rotateLeft(7));
112            $x2  = $x2->xorInt32($x1->addInt32($x0)->rotateLeft(9));
113            $x3  = $x3->xorInt32($x2->addInt32($x1)->rotateLeft(13));
114            $x0  = $x0->xorInt32($x3->addInt32($x2)->rotateLeft(18));
115
116            $x6  = $x6->xorInt32($x5->addInt32($x4)->rotateLeft(7));
117            $x7  = $x7->xorInt32($x6->addInt32($x5)->rotateLeft(9));
118            $x4  = $x4->xorInt32($x7->addInt32($x6)->rotateLeft(13));
119            $x5  = $x5->xorInt32($x4->addInt32($x7)->rotateLeft(18));
120
121            $x11 = $x11->xorInt32($x10->addInt32($x9)->rotateLeft(7));
122            $x8  = $x8->xorInt32($x11->addInt32($x10)->rotateLeft(9));
123            $x9  = $x9->xorInt32($x8->addInt32($x11)->rotateLeft(13));
124            $x10 = $x10->xorInt32($x9->addInt32($x8)->rotateLeft(18));
125
126            $x12 = $x12->xorInt32($x15->addInt32($x14)->rotateLeft(7));
127            $x13 = $x13->xorInt32($x12->addInt32($x15)->rotateLeft(9));
128            $x14 = $x14->xorInt32($x13->addInt32($x12)->rotateLeft(13));
129            $x15 = $x15->xorInt32($x14->addInt32($x13)->rotateLeft(18));
130        }
131
132        return $x0->toReverseString() .
133            $x5->toReverseString() .
134            $x10->toReverseString() .
135            $x15->toReverseString() .
136            $x6->toReverseString() .
137            $x7->toReverseString() .
138            $x8->toReverseString() .
139            $x9->toReverseString();
140    }
141}
142