user: What is the c source code of the assembly code below?

```asm
<lwe_key_gen_server_gen_a>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %rsi,-0x60(%rbp)
  mov    %rdx,-0x68(%rbp)
  mov    %rcx,-0x70(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0x38(%rbp)
  movq   $0x0,-0x30(%rbp)
  movq   $0x0,-0x28(%rbp)
  movq   $0x0,-0x20(%rbp)
  mov    $0x0,%eax
  call   <EVP_CIPHER_CTX_new@plt>
  mov    %rax,-0x10(%rbp)
  cmpq   $0x0,-0x10(%rbp)
  je     L0
  mov    $0x0,%eax
  call   <EVP_aes_128_ecb@plt>
  mov    %eax,%esi
  mov    -0x60(%rbp),%rdx
  mov    -0x10(%rbp),%rax
  mov    $0x0,%r8d
  mov    %rdx,%rcx
  mov    $0x0,%edx
  mov    %rax,%rdi
  call   <EVP_EncryptInit_ex@plt>
  cmp    $0x1,%eax
  jne    L70
  mov    -0x10(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <EVP_CIPHER_CTX_set_padding@plt>
  mov    $0x5e00,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,-0x30(%rbp)
  cmpq   $0x0,-0x30(%rbp)
  jne    L54
  mov    $0x0,%eax
  jmp    L119
L54:
  movl   $0x0,-0x44(%rbp)
  jmp    L294
L50:
  movl   $0x0,-0x40(%rbp)
  jmp    L203
L72:
  mov    -0x44(%rbp),%eax
  lea    0x0(,%rax,8),%edx
  mov    -0x40(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    -0x44(%rbp),%edx
  lea    0x0(,%rdx,8),%ecx
  mov    -0x40(%rbp),%edx
  add    %ecx,%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x30(%rbp),%rdx
  add    %rcx,%rdx
  mov    (%rax),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x40(%rbp)
L203:
  cmpl   $0x7,-0x40(%rbp)
  jle    L72
  addl   $0x1,-0x44(%rbp)
L294:
  cmpl   $0x2ef,-0x44(%rbp)
  jle    L50
  movq   $0xbc0,-0x18(%rbp)
  mov    -0x18(%rbp),%rax
  mov    %eax,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,-0x28(%rbp)
  cmpq   $0x0,-0x28(%rbp)
  jne    L112
  mov    $0x0,%eax
  jmp    L119
L112:
  mov    $0x5e00,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,-0x20(%rbp)
  cmpq   $0x0,-0x20(%rbp)
  jne    L277
  mov    $0x0,%eax
  jmp    L119
L277:
  movl   $0x0,-0x40(%rbp)
  jmp    L94
L349:
  movl   $0x0,-0x3c(%rbp)
  jmp    L130
L239:
  mov    -0x40(%rbp),%eax
  lea    0x0(,%rax,8),%edx
  mov    -0x3c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    -0x3c(%rbp),%edx
  imul   $0x2f0,%edx,%ecx
  mov    -0x40(%rbp),%edx
  add    %ecx,%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x20(%rbp),%rdx
  add    %rcx,%rdx
  mov    (%rax),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x3c(%rbp)
L130:
  cmpl   $0x7,-0x3c(%rbp)
  jle    L239
  addl   $0x1,-0x40(%rbp)
L94:
  cmpl   $0x2ef,-0x40(%rbp)
  jle    L349
  movl   $0x0,-0x44(%rbp)
  jmp    L307
L140:
  mov    -0x18(%rbp),%rdx
  mov    -0x28(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <memset@plt>
  movl   $0x0,-0x40(%rbp)
  jmp    L169
L205:
  mov    -0x40(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rax,%rdx
  mov    -0x44(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0x40(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rax,%rdx
  mov    -0x40(%rbp),%eax
  mov    %eax,(%rdx)
  addl   $0x8,-0x40(%rbp)
L169:
  cmpl   $0x2ef,-0x40(%rbp)
  jle    L205
  mov    -0x18(%rbp),%rdi
  mov    -0x28(%rbp),%rcx
  lea    -0x48(%rbp),%rdx
  mov    -0x28(%rbp),%rsi
  mov    -0x10(%rbp),%rax
  mov    %rdi,%r8
  mov    %rax,%rdi
  call   <EVP_EncryptUpdate@plt>
  cmp    $0x1,%eax
  jne    L289
  mov    -0x48(%rbp),%eax
  cltq
  cmp    %rax,-0x18(%rbp)
  jne    L289
  lea    -0x48(%rbp),%rdx
  mov    -0x28(%rbp),%rcx
  mov    -0x10(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <EVP_EncryptFinal_ex@plt>
  cmp    $0x1,%eax
  jne    L353
  movl   $0x0,-0x3c(%rbp)
  jmp    L230
L32:
  movl   $0x0,-0x34(%rbp)
  movl   $0x0,-0x40(%rbp)
  jmp    L12
L176:
  mov    -0x40(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%edx
  mov    -0x3c(%rbp),%eax
  imul   $0x2f0,%eax,%ecx
  mov    -0x40(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x20(%rbp),%rax
  add    %rcx,%rax
  mov    (%rax),%eax
  imul   %edx,%eax
  add    %eax,-0x34(%rbp)
  addl   $0x1,-0x40(%rbp)
L12:
  cmpl   $0x2ef,-0x40(%rbp)
  jle    L176
  mov    -0x44(%rbp),%eax
  lea    0x0(,%rax,8),%edx
  mov    -0x3c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x44(%rbp),%eax
  lea    0x0(,%rax,8),%edx
  mov    -0x3c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    -0x34(%rbp),%edx
  add    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0x44(%rbp),%eax
  lea    0x0(,%rax,8),%edx
  mov    -0x3c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    -0x44(%rbp),%edx
  lea    0x0(,%rdx,8),%ecx
  mov    -0x3c(%rbp),%edx
  add    %ecx,%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x30(%rbp),%rdx
  add    %rcx,%rdx
  mov    %eax,%ecx
  sar    $0x1f,%ecx
  shr    $0x11,%ecx
  add    %ecx,%eax
  and    $0x7fff,%eax
  sub    %ecx,%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x3c(%rbp)
L230:
  cmpl   $0x7,-0x3c(%rbp)
  jle    L32
  addl   $0x1,-0x44(%rbp)
L307:
  cmpl   $0x2ef,-0x44(%rbp)
  jle    L140
  mov    -0x30(%rbp),%rdx
  mov    -0x58(%rbp),%rax
  mov    $0xf,%r8d
  mov    $0x1780,%ecx
  mov    $0x2c10,%esi
  mov    %rax,%rdi
  call   <lwe_pack@plt>
  movl   $0x1,-0x38(%rbp)
  jmp    L20
L0:
  nop
  jmp    L20
L70:
  nop
  jmp    L20
L289:
  nop
  jmp    L20
L353:
  nop
L20:
  cmpq   $0x0,-0x10(%rbp)
  je     L241
  mov    -0x10(%rbp),%rax
  mov    %rax,%rdi
  call   <EVP_CIPHER_CTX_free@plt>
L241:
  cmpq   $0x0,-0x30(%rbp)
  je     L43
  mov    -0x30(%rbp),%rax
  mov    $0x5e00,%esi
  mov    %rax,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <OPENSSL_free@plt>
L43:
  cmpq   $0x0,-0x28(%rbp)
  je     L290
  mov    -0x18(%rbp),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <OPENSSL_free@plt>
L290:
  cmpq   $0x0,-0x20(%rbp)
  je     L21
  mov    -0x20(%rbp),%rax
  mov    $0x5e00,%esi
  mov    %rax,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <OPENSSL_free@plt>
L21:
  mov    -0x38(%rbp),%eax
L119:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L276
  call   <__stack_chk_fail@plt>
L276:
  leave
  ret
```

assistant: ```c
int lwe_key_gen_server_gen_a(unsigned char *out, const uint8_t *seed, const uint16_t *s, const uint16_t *e) {
  int i, j, k;
  int ret = 0;
  uint16_t *out_unpacked = NULL;
  uint16_t *a_row = NULL;
  uint16_t *s_transpose = NULL;
  EVP_CIPHER_CTX *aes_ctx = EVP_CIPHER_CTX_new();
  if (aes_ctx == NULL) {
    goto err;
  }
  if (1 != EVP_EncryptInit_ex(aes_ctx, EVP_aes_128_ecb(), NULL, seed, NULL)) {
    goto err;
  }
  EVP_CIPHER_CTX_set_padding(aes_ctx, 0);
  out_unpacked = (uint16_t *)OPENSSL_malloc(8 * 752 * sizeof(int16_t));
  if (out_unpacked == NULL) {
    return 0;
  }
  for (i = 0; i < 752; i++)
    for (j = 0; j < 8; j++) {
      out_unpacked[i * 8 + j] = e[i * 8 + j];
    }
  size_t a_rowlen = 752 * sizeof(int16_t);
  a_row = (uint16_t *)OPENSSL_malloc(a_rowlen);
  if (a_row == NULL) {
    return 0;
  }
  s_transpose = (uint16_t *)OPENSSL_malloc(8 * 752 * sizeof(int16_t));
  if (s_transpose == NULL) {
    return 0;
  }
  for (j = 0; j < 752; j++)
    for (k = 0; k < 8; k++) {
      s_transpose[k * 752 + j] = s[j * 8 + k];
    }
  for (i = 0; i < 752; i++) {
    memset(a_row, 0, a_rowlen);
    for (j = 0; j < 752; j += 8) {
      a_row[j] = i;
      a_row[j + 1] = j;
    }
    int outlen;
    if (1 != EVP_EncryptUpdate(aes_ctx, (unsigned char *)a_row, &outlen, (unsigned char *)a_row, a_rowlen) || ((size_t)outlen != a_rowlen)) {
      goto err;
    }
    if (1 != EVP_EncryptFinal_ex(aes_ctx, (unsigned char *)a_row, &outlen)) {
      goto err;
    }
    for (k = 0; k < 8; k++) {
      uint16_t sum = 0;
      for (j = 0; j < 752; j++) {
        sum += a_row[j] * s_transpose[k * 752 + j];
      }
      out_unpacked[i * 8 + k] += sum;
      out_unpacked[i * 8 + k] %= (1 << 15);
    }
  }
  lwe_pack(out, (((8 * 752 * 15) + (8) - 1) / 8), out_unpacked, 752 * 8, 15);
  ret = 1;
err:
  if (aes_ctx != NULL) {
    EVP_CIPHER_CTX_free(aes_ctx);
  }
  if (out_unpacked != NULL) {
    OPENSSL_cleanse(out_unpacked, 8 * 752 * sizeof(uint16_t));
    OPENSSL_free(out_unpacked);
  }
  if (a_row != NULL) {
    OPENSSL_cleanse(a_row, a_rowlen);
    OPENSSL_free(a_row);
  }
  if (s_transpose != NULL) {
    OPENSSL_cleanse(s_transpose, 8 * 752 * sizeof(uint16_t));
    OPENSSL_free(s_transpose);
  }
  return ret;
}
```