ParagonIE_Sodium_Core_Poly1305_State::blocks( string $message, int $bytes ): self

179    public function blocks($message, $bytes)180    {181        if (self::strlen($message) < 16) {182            $message = str_pad($message, 16, "\x00", STR_PAD_RIGHT);183        }184        /** @var int $hibit */185        $hibit = $this->final ? 0 : 1 << 24; /* 1 << 128 */186        $r0 = (int) $this->r[0];187        $r1 = (int) $this->r[1];188        $r2 = (int) $this->r[2];189        $r3 = (int) $this->r[3];190        $r4 = (int) $this->r[4];191 192        $s1 = self::mul($r1, 5, 3);193        $s2 = self::mul($r2, 5, 3);194        $s3 = self::mul($r3, 5, 3);195        $s4 = self::mul($r4, 5, 3);196 197        $h0 = $this->h[0];198        $h1 = $this->h[1];199        $h2 = $this->h[2];200        $h3 = $this->h[3];201        $h4 = $this->h[4];202 203        while ($bytes >= ParagonIE_Sodium_Core_Poly1305::BLOCK_SIZE) {204            /* h += m[i] */205            $h0 +=  self::load_4(self::substr($message, 0, 4))       & 0x3ffffff;206            $h1 += (self::load_4(self::substr($message, 3, 4)) >> 2) & 0x3ffffff;207            $h2 += (self::load_4(self::substr($message, 6, 4)) >> 4) & 0x3ffffff;208            $h3 += (self::load_4(self::substr($message, 9, 4)) >> 6) & 0x3ffffff;209            $h4 += (self::load_4(self::substr($message, 12, 4)) >> 8) | $hibit;210 211            /* h *= r */212            $d0 = (213                self::mul($h0, $r0, 27) +214                self::mul($s4, $h1, 27) +215                self::mul($s3, $h2, 27) +216                self::mul($s2, $h3, 27) +217                self::mul($s1, $h4, 27)218            );219 220            $d1 = (221                self::mul($h0, $r1, 27) +222                self::mul($h1, $r0, 27) +223                self::mul($s4, $h2, 27) +224                self::mul($s3, $h3, 27) +225                self::mul($s2, $h4, 27)226            );227 228            $d2 = (229                self::mul($h0, $r2, 27) +230                self::mul($h1, $r1, 27) +231                self::mul($h2, $r0, 27) +232                self::mul($s4, $h3, 27) +233                self::mul($s3, $h4, 27)234            );235 236            $d3 = (237                self::mul($h0, $r3, 27) +238                self::mul($h1, $r2, 27) +239                self::mul($h2, $r1, 27) +240                self::mul($h3, $r0, 27) +241                self::mul($s4, $h4, 27)242            );243 244            $d4 = (245                self::mul($h0, $r4, 27) +246                self::mul($h1, $r3, 27) +247                self::mul($h2, $r2, 27) +248                self::mul($h3, $r1, 27) +249                self::mul($h4, $r0, 27)250            );251 252            /* (partial) h %= p */253            /** @var int $c */254            $c = $d0 >> 26;255            /** @var int $h0 */256            $h0 = $d0 & 0x3ffffff;257            $d1 += $c;258