Seditio Source
Root |
./othercms/xenForo 2.2.8/src/vendor/paragonie/sodium_compat/src/Core/Salsa20.php
<?php

if (class_exists('ParagonIE_Sodium_Core_Salsa20', false)) {
    return;
}

/**
 * Class ParagonIE_Sodium_Core_Salsa20
 */
abstract class ParagonIE_Sodium_Core_Salsa20 extends ParagonIE_Sodium_Core_Util
{
    const
ROUNDS = 20;

   
/**
     * Calculate an salsa20 hash of a single block
     *
     * @internal You should not use this directly from another application
     *
     * @param string $in
     * @param string $k
     * @param string|null $c
     * @return string
     * @throws TypeError
     */
   
public static function core_salsa20($in, $k, $c = null)
    {
        if (
self::strlen($k) < 32) {
            throw new
RangeException('Key must be 32 bytes long');
        }
        if (
$c === null) {
           
$j0  = $x0  = 0x61707865;
           
$j5  = $x5  = 0x3320646e;
           
$j10 = $x10 = 0x79622d32;
           
$j15 = $x15 = 0x6b206574;
        } else {
           
$j0  = $x0  = self::load_4(self::substr($c, 0, 4));
           
$j5  = $x5  = self::load_4(self::substr($c, 4, 4));
           
$j10 = $x10 = self::load_4(self::substr($c, 8, 4));
           
$j15 = $x15 = self::load_4(self::substr($c, 12, 4));
        }
       
$j1  = $x1  = self::load_4(self::substr($k, 0, 4));
       
$j2  = $x2  = self::load_4(self::substr($k, 4, 4));
       
$j3  = $x3  = self::load_4(self::substr($k, 8, 4));
       
$j4  = $x4  = self::load_4(self::substr($k, 12, 4));
       
$j6  = $x6  = self::load_4(self::substr($in, 0, 4));
       
$j7  = $x7  = self::load_4(self::substr($in, 4, 4));
       
$j8  = $x8  = self::load_4(self::substr($in, 8, 4));
       
$j9  = $x9  = self::load_4(self::substr($in, 12, 4));
       
$j11 = $x11 = self::load_4(self::substr($k, 16, 4));
       
$j12 = $x12 = self::load_4(self::substr($k, 20, 4));
       
$j13 = $x13 = self::load_4(self::substr($k, 24, 4));
       
$j14 = $x14 = self::load_4(self::substr($k, 28, 4));

        for (
$i = self::ROUNDS; $i > 0; $i -= 2) {
           
$x4 ^= self::rotate($x0 + $x12, 7);
           
$x8 ^= self::rotate($x4 + $x0, 9);
           
$x12 ^= self::rotate($x8 + $x4, 13);
           
$x0 ^= self::rotate($x12 + $x8, 18);

           
$x9 ^= self::rotate($x5 + $x1, 7);
           
$x13 ^= self::rotate($x9 + $x5, 9);
           
$x1 ^= self::rotate($x13 + $x9, 13);
           
$x5 ^= self::rotate($x1 + $x13, 18);

           
$x14 ^= self::rotate($x10 + $x6, 7);
           
$x2 ^= self::rotate($x14 + $x10, 9);
           
$x6 ^= self::rotate($x2 + $x14, 13);
           
$x10 ^= self::rotate($x6 + $x2, 18);

           
$x3 ^= self::rotate($x15 + $x11, 7);
           
$x7 ^= self::rotate($x3 + $x15, 9);
           
$x11 ^= self::rotate($x7 + $x3, 13);
           
$x15 ^= self::rotate($x11 + $x7, 18);

           
$x1 ^= self::rotate($x0 + $x3, 7);
           
$x2 ^= self::rotate($x1 + $x0, 9);
           
$x3 ^= self::rotate($x2 + $x1, 13);
           
$x0 ^= self::rotate($x3 + $x2, 18);

           
$x6 ^= self::rotate($x5 + $x4, 7);
           
$x7 ^= self::rotate($x6 + $x5, 9);
           
$x4 ^= self::rotate($x7 + $x6, 13);
           
$x5 ^= self::rotate($x4 + $x7, 18);

           
$x11 ^= self::rotate($x10 + $x9, 7);
           
$x8 ^= self::rotate($x11 + $x10, 9);
           
$x9 ^= self::rotate($x8 + $x11, 13);
           
$x10 ^= self::rotate($x9 + $x8, 18);

           
$x12 ^= self::rotate($x15 + $x14, 7);
           
$x13 ^= self::rotate($x12 + $x15, 9);
           
$x14 ^= self::rotate($x13 + $x12, 13);
           
$x15 ^= self::rotate($x14 + $x13, 18);
        }

       
$x0  += $j0;
       
$x1  += $j1;
       
$x2  += $j2;
       
$x3  += $j3;
       
$x4  += $j4;
       
$x5  += $j5;
       
$x6  += $j6;
       
$x7  += $j7;
       
$x8  += $j8;
       
$x9  += $j9;
       
$x10 += $j10;
       
$x11 += $j11;
       
$x12 += $j12;
       
$x13 += $j13;
       
$x14 += $j14;
       
$x15 += $j15;

        return
self::store32_le($x0) .
           
self::store32_le($x1) .
           
self::store32_le($x2) .
           
self::store32_le($x3) .
           
self::store32_le($x4) .
           
self::store32_le($x5) .
           
self::store32_le($x6) .
           
self::store32_le($x7) .
           
self::store32_le($x8) .
           
self::store32_le($x9) .
           
self::store32_le($x10) .
           
self::store32_le($x11) .
           
self::store32_le($x12) .
           
self::store32_le($x13) .
           
self::store32_le($x14) .
           
self::store32_le($x15);
    }

   
/**
     * @internal You should not use this directly from another application
     *
     * @param int $len
     * @param string $nonce
     * @param string $key
     * @return string
     * @throws SodiumException
     * @throws TypeError
     */
   
public static function salsa20($len, $nonce, $key)
    {
        if (
self::strlen($key) !== 32) {
            throw new
RangeException('Key must be 32 bytes long');
        }
       
$kcopy = '' . $key;
       
$in = self::substr($nonce, 0, 8) . str_repeat("\0", 8);
       
$c = '';
        while (
$len >= 64) {
           
$c .= self::core_salsa20($in, $kcopy, null);
           
$u = 1;
           
// Internal counter.
           
for ($i = 8; $i < 16; ++$i) {
               
$u += self::chrToInt($in[$i]);
               
$in[$i] = self::intToChr($u & 0xff);
               
$u >>= 8;
            }
           
$len -= 64;
        }
        if (
$len > 0) {
           
$c .= self::substr(
               
self::core_salsa20($in, $kcopy, null),
               
0,
               
$len
           
);
        }
        try {
           
ParagonIE_Sodium_Compat::memzero($kcopy);
        } catch (
SodiumException $ex) {
           
$kcopy = null;
        }
        return
$c;
    }

   
/**
     * @internal You should not use this directly from another application
     *
     * @param string $m
     * @param string $n
     * @param int $ic
     * @param string $k
     * @return string
     * @throws SodiumException
     * @throws TypeError
     */
   
public static function salsa20_xor_ic($m, $n, $ic, $k)
    {
       
$mlen = self::strlen($m);
        if (
$mlen < 1) {
            return
'';
        }
       
$kcopy = self::substr($k, 0, 32);
       
$in = self::substr($n, 0, 8);
       
// Initialize the counter
       
$in .= ParagonIE_Sodium_Core_Util::store64_le($ic);

       
$c = '';
        while (
$mlen >= 64) {
           
$block = self::core_salsa20($in, $kcopy, null);
           
$c .= self::xorStrings(
               
self::substr($m, 0, 64),
               
self::substr($block, 0, 64)
            );
           
$u = 1;
            for (
$i = 8; $i < 16; ++$i) {
               
$u += self::chrToInt($in[$i]);
               
$in[$i] = self::intToChr($u & 0xff);
               
$u >>= 8;
            }

           
$mlen -= 64;
           
$m = self::substr($m, 64);
        }

        if (
$mlen) {
           
$block = self::core_salsa20($in, $kcopy, null);
           
$c .= self::xorStrings(
               
self::substr($m, 0, $mlen),
               
self::substr($block, 0, $mlen)
            );
        }
        try {
           
ParagonIE_Sodium_Compat::memzero($block);
           
ParagonIE_Sodium_Compat::memzero($kcopy);
        } catch (
SodiumException $ex) {
           
$block = null;
           
$kcopy = null;
        }

        return
$c;
    }

   
/**
     * @internal You should not use this directly from another application
     *
     * @param string $message
     * @param string $nonce
     * @param string $key
     * @return string
     * @throws SodiumException
     * @throws TypeError
     */
   
public static function salsa20_xor($message, $nonce, $key)
    {
        return
self::xorStrings(
           
$message,
           
self::salsa20(
               
self::strlen($message),
               
$nonce,
               
$key
           
)
        );
    }

   
/**
     * @internal You should not use this directly from another application
     *
     * @param int $u
     * @param int $c
     * @return int
     */
   
public static function rotate($u, $c)
    {
       
$u &= 0xffffffff;
       
$c %= 32;
        return (int) (
0xffffffff & (
                (
$u << $c)
                    |
                (
$u >> (32 - $c))
            )
        );
    }
}