everrs 0.2.1

/* MIT License
 *
 * Copyright (c) 2016-2020 INRIA, CMU and Microsoft Corporation
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in all
 * copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */


#include "Hacl_Chacha20.h"

uint32_t
Hacl_Impl_Chacha20_Vec_chacha20_constants[4U] =
  { (uint32_t)0x61707865U, (uint32_t)0x3320646eU, (uint32_t)0x79622d32U, (uint32_t)0x6b206574U };

inline static void
Hacl_Impl_Chacha20_Core32_quarter_round(
  uint32_t *st,
  uint32_t a,
  uint32_t b,
  uint32_t c,
  uint32_t d
)
{
  uint32_t sta0 = st[a];
  uint32_t stb0 = st[b];
  uint32_t std0 = st[d];
  uint32_t sta10 = sta0 + stb0;
  uint32_t std10 = std0 ^ sta10;
  uint32_t std20 = std10 << (uint32_t)16U | std10 >> (uint32_t)16U;
  uint32_t sta2;
  uint32_t stb1;
  uint32_t std3;
  uint32_t sta11;
  uint32_t std11;
  uint32_t std21;
  uint32_t sta3;
  uint32_t stb2;
  uint32_t std4;
  uint32_t sta12;
  uint32_t std12;
  uint32_t std22;
  uint32_t sta;
  uint32_t stb;
  uint32_t std;
  uint32_t sta1;
  uint32_t std1;
  uint32_t std2;
  st[a] = sta10;
  st[d] = std20;
  sta2 = st[c];
  stb1 = st[d];
  std3 = st[b];
  sta11 = sta2 + stb1;
  std11 = std3 ^ sta11;
  std21 = std11 << (uint32_t)12U | std11 >> (uint32_t)20U;
  st[c] = sta11;
  st[b] = std21;
  sta3 = st[a];
  stb2 = st[b];
  std4 = st[d];
  sta12 = sta3 + stb2;
  std12 = std4 ^ sta12;
  std22 = std12 << (uint32_t)8U | std12 >> (uint32_t)24U;
  st[a] = sta12;
  st[d] = std22;
  sta = st[c];
  stb = st[d];
  std = st[b];
  sta1 = sta + stb;
  std1 = std ^ sta1;
  std2 = std1 << (uint32_t)7U | std1 >> (uint32_t)25U;
  st[c] = sta1;
  st[b] = std2;
}

inline static void Hacl_Impl_Chacha20_Core32_double_round(uint32_t *st)
{
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)0U,
    (uint32_t)4U,
    (uint32_t)8U,
    (uint32_t)12U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)1U,
    (uint32_t)5U,
    (uint32_t)9U,
    (uint32_t)13U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)2U,
    (uint32_t)6U,
    (uint32_t)10U,
    (uint32_t)14U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)3U,
    (uint32_t)7U,
    (uint32_t)11U,
    (uint32_t)15U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)0U,
    (uint32_t)5U,
    (uint32_t)10U,
    (uint32_t)15U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)1U,
    (uint32_t)6U,
    (uint32_t)11U,
    (uint32_t)12U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)2U,
    (uint32_t)7U,
    (uint32_t)8U,
    (uint32_t)13U);
  Hacl_Impl_Chacha20_Core32_quarter_round(st,
    (uint32_t)3U,
    (uint32_t)4U,
    (uint32_t)9U,
    (uint32_t)14U);
}

inline static void Hacl_Impl_Chacha20_rounds(uint32_t *st)
{
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
  Hacl_Impl_Chacha20_Core32_double_round(st);
}

inline static void Hacl_Impl_Chacha20_chacha20_core(uint32_t *k, uint32_t *ctx, uint32_t ctr)
{
  uint32_t ctr_u32;
  memcpy(k, ctx, (uint32_t)16U * sizeof ctx[0U]);
  ctr_u32 = ctr;
  k[12U] = k[12U] + ctr_u32;
  Hacl_Impl_Chacha20_rounds(k);
  {
    uint32_t i;
    for (i = (uint32_t)0U; i < (uint32_t)16U; i = i + (uint32_t)1U)
    {
      uint32_t *os = k;
      uint32_t x = k[i] + ctx[i];
      os[i] = x;
    }
  }
  k[12U] = k[12U] + ctr_u32;
}

static uint32_t
Hacl_Impl_Chacha20_chacha20_constants[4U] =
  { (uint32_t)0x61707865U, (uint32_t)0x3320646eU, (uint32_t)0x79622d32U, (uint32_t)0x6b206574U };

inline void
Hacl_Impl_Chacha20_chacha20_init(uint32_t *ctx, uint8_t *k, uint8_t *n1, uint32_t ctr)
{
  uint32_t *uu____0 = ctx;
  uint32_t *uu____1;
  uint32_t *uu____2;
  uint32_t i;
  {
    uint32_t i0;
    for (i0 = (uint32_t)0U; i0 < (uint32_t)4U; i0 = i0 + (uint32_t)1U)
    {
      uint32_t *os = uu____0;
      uint32_t x = Hacl_Impl_Chacha20_chacha20_constants[i0];
      os[i0] = x;
    }
  }
  uu____1 = ctx + (uint32_t)4U;
  {
    uint32_t i0;
    for (i0 = (uint32_t)0U; i0 < (uint32_t)8U; i0 = i0 + (uint32_t)1U)
    {
      uint32_t *os = uu____1;
      uint8_t *bj = k + i0 * (uint32_t)4U;
      uint32_t u = load32_le(bj);
      uint32_t r = u;
      uint32_t x = r;
      os[i0] = x;
    }
  }
  ctx[12U] = ctr;
  uu____2 = ctx + (uint32_t)13U;
  for (i = (uint32_t)0U; i < (uint32_t)3U; i = i + (uint32_t)1U)
  {
    uint32_t *os = uu____2;
    uint8_t *bj = n1 + i * (uint32_t)4U;
    uint32_t u = load32_le(bj);
    uint32_t r = u;
    uint32_t x = r;
    os[i] = x;
  }
}

inline void
Hacl_Impl_Chacha20_chacha20_encrypt_block(
  uint32_t *ctx,
  uint8_t *out,
  uint32_t incr1,
  uint8_t *text
)
{
  uint32_t k[16U] = { 0U };
  Hacl_Impl_Chacha20_chacha20_core(k, ctx, incr1);
  {
    uint32_t bl[16U] = { 0U };
    {
      uint32_t i;
      for (i = (uint32_t)0U; i < (uint32_t)16U; i = i + (uint32_t)1U)
      {
        uint32_t *os = bl;
        uint8_t *bj = text + i * (uint32_t)4U;
        uint32_t u = load32_le(bj);
        uint32_t r = u;
        uint32_t x = r;
        os[i] = x;
      }
    }
    {
      uint32_t i;
      for (i = (uint32_t)0U; i < (uint32_t)16U; i = i + (uint32_t)1U)
      {
        uint32_t *os = bl;
        uint32_t x = bl[i] ^ k[i];
        os[i] = x;
      }
    }
    {
      uint32_t i;
      for (i = (uint32_t)0U; i < (uint32_t)16U; i = i + (uint32_t)1U)
      {
        store32_le(out + i * (uint32_t)4U, bl[i]);
      }
    }
  }
}

inline static void
Hacl_Impl_Chacha20_chacha20_encrypt_last(
  uint32_t *ctx,
  uint32_t len,
  uint8_t *out,
  uint32_t incr1,
  uint8_t *text
)
{
  uint8_t plain[64U] = { 0U };
  memcpy(plain, text, len * sizeof text[0U]);
  Hacl_Impl_Chacha20_chacha20_encrypt_block(ctx, plain, incr1, plain);
  memcpy(out, plain, len * sizeof plain[0U]);
}

inline void
Hacl_Impl_Chacha20_chacha20_update(uint32_t *ctx, uint32_t len, uint8_t *out, uint8_t *text)
{
  uint32_t rem1 = len % (uint32_t)64U;
  uint32_t nb = len / (uint32_t)64U;
  uint32_t rem2 = len % (uint32_t)64U;
  {
    uint32_t i;
    for (i = (uint32_t)0U; i < nb; i = i + (uint32_t)1U)
    {
      Hacl_Impl_Chacha20_chacha20_encrypt_block(ctx,
        out + i * (uint32_t)64U,
        i,
        text + i * (uint32_t)64U);
    }
  }
  if (rem2 > (uint32_t)0U)
  {
    Hacl_Impl_Chacha20_chacha20_encrypt_last(ctx,
      rem1,
      out + nb * (uint32_t)64U,
      nb,
      text + nb * (uint32_t)64U);
  }
}

void
Hacl_Chacha20_chacha20_encrypt(
  uint32_t len,
  uint8_t *out,
  uint8_t *text,
  uint8_t *key,
  uint8_t *n1,
  uint32_t ctr
)
{
  uint32_t ctx[16U] = { 0U };
  Hacl_Impl_Chacha20_chacha20_init(ctx, key, n1, ctr);
  Hacl_Impl_Chacha20_chacha20_update(ctx, len, out, text);
}

void
Hacl_Chacha20_chacha20_decrypt(
  uint32_t len,
  uint8_t *out,
  uint8_t *cipher,
  uint8_t *key,
  uint8_t *n1,
  uint32_t ctr
)
{
  uint32_t ctx[16U] = { 0U };
  Hacl_Impl_Chacha20_chacha20_init(ctx, key, n1, ctr);
  Hacl_Impl_Chacha20_chacha20_update(ctx, len, out, cipher);
}