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

```asm
<Decrypt>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %rdi,%r15
  mov    %rsi,%r12
  mov    %edx,0x8(%rsp)
  mov    %r9d,0x4(%rsp)
  mov    0xa0(%rsp),%ebx
  mov    0xa8(%rsp),%ebp
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%r14d
  mov    %r14d,%edi
  call   <mpz_init@plt>
  mov    $0x0,%edi
  call   <mpz_init@plt>
  mov    $0x0,%r13d
  mov    %r13d,%edi
  call   <mpz_init@plt>
  lea    D85(%rip),%rsi
  mov    %r15,%rdi
  call   <fopen@plt>
  test   %rax,%rax
  je     L189
  mov    %rax,%r15
  lea    D65(%rip),%rsi
  lea    D47(%rip),%rdi
  call   <fopen@plt>
  mov    %rax,0x40(%rsp)
  test   %rax,%rax
  je     L323
  mov    0x8(%rsp),%edi
  call   <sqrt@plt>
  mov    %eax,%edi
  call   <ceil@plt>
  mov    %eax,0xc(%rsp)
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,0x20(%rsp)
  test   %rax,%rax
  jne    L196
  mov    0xb0(%rsp),%rax
  lea    D86(%rip),%rcx
  mov    %rcx,(%rax)
  jmp    L123
L189:
  mov    0xb0(%rsp),%rax
  lea    D53(%rip),%rcx
  mov    %rcx,(%rax)
L123:
  add    $0x68,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L323:
  mov    0xb0(%rsp),%rax
  lea    D53(%rip),%rcx
  mov    %rcx,(%rax)
  jmp    L123
L196:
  mov    0x8(%rsp),%ecx
  lea    0x7(%rcx),%eax
  test   %ecx,%ecx
  cmovns %ecx,%eax
  sar    $0x3,%eax
  mov    %eax,0x28(%rsp)
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,0x10(%rsp)
  test   %rax,%rax
  jne    L342
  mov    0xb0(%rsp),%rax
  lea    D86(%rip),%rcx
  mov    %rcx,(%rax)
  jmp    L123
L342:
  mov    0xb0(%rsp),%rsi
  mov    %r12,%rdi
  call   <GetHash@plt>
  mov    %rax,%r12
  lea    D16(%rip),%rsi
  mov    0xb0(%rsp),%rax
  mov    (%rax),%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L123
  mov    0xb0(%rsp),%rsi
  mov    %r12,%rdi
  call   <GetHexHash@plt>
  mov    %rax,%r12
  lea    D16(%rip),%rsi
  mov    0xb0(%rsp),%rax
  mov    (%rax),%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L123
  mov    $0x10,%edx
  mov    %r12,%rsi
  mov    $0x0,%edi
  call   <mpz_set_str@plt>
  movzbl 0x4(%rsp),%r12d
  mov    %r12d,%edx
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_mod@plt>
  mov    $0x0,%esi
  mov    %r12d,%edi
  call   <GetJnHash@plt>
  movzbl %bl,%edx
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_mul@plt>
  mov    %r12d,%edx
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_mod@plt>
  movzbl %bpl,%eax
  mov    %eax,0x2c(%rsp)
  mov    %r12d,%ecx
  mov    $0x2,%edx
  mov    %eax,%esi
  mov    $0x0,%edi
  call   <mpz_powm_ui@plt>
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_set@plt>
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_cmp@plt>
  movl   $0x2,0x58(%rsp)
  test   %rax,%rax
  je     L192
L128:
  mov    %r12d,0x5c(%rsp)
  jmp    L341
L192:
  mov    $0x0,%esi
  mov    $0x0,%edi
  call   <mpz_set@plt>
  movl   $0x1,0x58(%rsp)
  jmp    L128
L110:
  mov    %r15,%rdi
  call   <fgetc@plt>
  mov    %al,0x0(%rbp)
L263:
  mov    %r15,%rdi
  call   <fgetc@plt>
  add    $0x1,%rbx
  cmp    %ebx,0x28(%rsp)
  jle    L237
L314:
  mov    %r15,%rdi
  call   <fgetc@plt>
  mov    %r15,%rdi
  call   <fgetc@plt>
  mov    0x10(%rsp),%rcx
  lea    (%rcx,%rbx,1),%rbp
  mov    %al,0x0(%rbp)
  cmp    $0x2,%r12d
  je     L110
  mov    %r15,%rdi
  call   <fgetc@plt>
  jmp    L263
L29:
  movzbl (%rbx),%edi
  mov    $0xa,%edx
  mov    %r15,%rsi
  call   <mpz_inp_str@plt>
L317:
  add    $0x1,%rbx
  cmp    %rbp,%rbx
  je     L329
L67:
  movzbl (%rbx),%edi
  call   <mpz_init@plt>
  movzbl (%rbx),%edi
  mov    $0xa,%edx
  mov    %r15,%rsi
  call   <mpz_inp_str@plt>
  cmp    $0x2,%r12d
  je     L29
  mov    $0xa,%edx
  mov    %r15,%rsi
  mov    %r13d,%edi
  call   <mpz_inp_str@plt>
  jmp    L317
L275:
  movsbl %r15b,%ebp
  sar    $0x1f,%ebp
  or     $0x1,%ebp
  add    %r15d,%r15d
  cmp    %ebx,0xc(%rsp)
  jle    L293
  mov    0x18(%rsp),%rax
  movzbl (%rax),%edx
  mov    %r12d,%ecx
  mov    0x2c(%rsp),%esi
  mov    %r13d,%edi
  call   <f@plt>
  mov    %r12d,%esi
  mov    %r13d,%edi
  call   <mpz_jacobi@plt>
  imul   %ebp,%eax
  cmp    $0xffffffff,%eax
  sete   %al
  or     %al,0x3(%rsp)
L167:
  add    $0x1,%ebx
  test   $0x7,%bl
  je     L266
  shlb   0x3(%rsp)
L221:
  addq   $0x1,0x18(%rsp)
  cmp    %ebx,0x8(%rsp)
  je     L13
L149:
  test   $0x7,%bl
  jne    L275
  lea    0x7(%rbx),%eax
  test   %ebx,%ebx
  cmovns %ebx,%eax
  sar    $0x3,%eax
  cltq
  mov    0x10(%rsp),%rcx
  movzbl (%rcx,%rax,1),%r15d
  movb   $0x0,0x3(%rsp)
  jmp    L275
L293:
  movslq 0x48(%rsp),%rax
  add    0x20(%rsp),%rax
  mov    %rax,0x30(%rsp)
  movzbl (%rax),%edx
  mov    $0x0,%esi
  mov    %r13d,%edi
  call   <mpz_mul@plt>
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_mod@plt>
  movslq 0x4(%rsp),%rax
  mov    %rax,%rdx
  add    0x20(%rsp),%rdx
  mov    %rdx,0x38(%rsp)
  movzbl (%rdx),%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_mul@plt>
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_mod@plt>
  mov    $0x1,%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_add_ui@plt>
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_mod@plt>
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %r13d,%edi
  call   <mpz_invert@plt>
  mov    0x38(%rsp),%rdx
  movzbl (%rdx),%edx
  mov    0x30(%rsp),%rcx
  movzbl (%rcx),%esi
  mov    %r14d,%edi
  call   <mpz_add@plt>
  mov    %r12d,%edx
  mov    %r14d,%esi
  mov    %r14d,%edi
  call   <mpz_mod@plt>
  mov    %r13d,%edx
  mov    %r14d,%esi
  mov    %r14d,%edi
  call   <mpz_mul@plt>
  mov    %r12d,%edx
  mov    %r14d,%esi
  mov    %r14d,%edi
  call   <mpz_mod@plt>
  mov    %r12d,%ecx
  mov    %r14d,%edx
  mov    0x2c(%rsp),%esi
  mov    %r13d,%edi
  call   <f@plt>
  mov    %r12d,%esi
  mov    %r13d,%edi
  call   <mpz_jacobi@plt>
  imul   %ebp,%eax
  cmp    $0xffffffff,%eax
  sete   %al
  or     %al,0x3(%rsp)
  addl   $0x1,0x4(%rsp)
  mov    0x4(%rsp),%eax
  cmp    %eax,0xc(%rsp)
  jne    L167
  addl   $0x1,0x48(%rsp)
  mov    0x4c(%rsp),%eax
  mov    %eax,0x4(%rsp)
  jmp    L167
L266:
  movzbl 0x3(%rsp),%edx
  lea    D3(%rip),%rsi
  mov    0x40(%rsp),%rdi
  call   <fprintf@plt>
  jmp    L221
L13:
  mov    %r15b,0x30(%rsp)
  mov    0x50(%rsp),%r15
L341:
  mov    %r15,%rdi
  call   <feof@plt>
  mov    %eax,0x4c(%rsp)
  test   %eax,%eax
  jne    L81
  mov    $0x0,%ebx
  mov    0x58(%rsp),%r12d
  cmpl   $0x7,0x8(%rsp)
  jg     L314
  cmpl   $0x0,0xc(%rsp)
  jg     L352
L329:
  cmpl   $0x0,0x8(%rsp)
  jle    L341
L335:
  mov    0x20(%rsp),%rax
  mov    %rax,0x18(%rsp)
  mov    0x4c(%rsp),%ebx
  mov    %ebx,0x4(%rsp)
  movl   $0x1,0x48(%rsp)
  mov    0x5c(%rsp),%r12d
  mov    %r15,0x50(%rsp)
  movzbl 0x30(%rsp),%r15d
  jmp    L149
L81:
  mov    0xc(%rsp),%eax
  test   %eax,%eax
  jle    L24
  mov    0x20(%rsp),%rcx
  mov    %rcx,%rbx
  lea    -0x1(%rax),%eax
  lea    0x1(%rcx,%rax,1),%rbp
L185:
  movzbl (%rbx),%edi
  call   <mpz_clear@plt>
  add    $0x1,%rbx
  cmp    %rbx,%rbp
  jne    L185
L24:
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    %r13d,%edi
  call   <mpz_clear@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    %r14d,%edi
  call   <mpz_clear@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    $0x0,%edi
  call   <mpz_clear@plt>
  mov    %r15,%rdi
  call   <fclose@plt>
  mov    0x40(%rsp),%rdi
  call   <fclose@plt>
  jmp    L123
L237:
  cmpl   $0x0,0xc(%rsp)
  jle    L335
L352:
  mov    0x20(%rsp),%rcx
  mov    %rcx,%rbx
  mov    0xc(%rsp),%eax
  lea    -0x1(%rax),%eax
  lea    0x1(%rcx,%rax,1),%rbp
  mov    0x58(%rsp),%r12d
  jmp    L67
```

tool_calls: name: parse_data
arguments: data_label: D85
type: string
name: parse_data
arguments: data_label: D65
type: string
name: parse_data
arguments: data_label: D47
type: string
name: parse_data
arguments: data_label: D86
type: string
name: parse_data
arguments: data_label: D53
type: string
name: parse_data
arguments: data_label: D16
type: string
name: parse_data
arguments: data_label: D3
type: string

tool: D85: r

tool: D65: w

tool: D47: decrypted_text

tool: D86: malloc

tool: D53: file open failed

tool: D16: success

tool: D3: %c

assistant: ```c
void Decrypt(char *filename, unsigned char *identity, int l, mpz_t p, mpz_t q, mpz_t n, mpz_t u, mpz_t r, char **error) {
  int k, i, alpha, beta, read_length, bit, m, mrev, bytes_no, choice;
  mpz_t rp, S, R, uR, cR, x, s, tmp, *xs;
  FILE *fd, *fd_write;
  unsigned char *hash, *hex_hash, *cs, c, decrypted_character;
  mpz_init(R);
  mpz_init(uR);
  mpz_init(rp);
  mpz_init(S);
  mpz_init(cR);
  mpz_init(x);
  mpz_init(s);
  mpz_init(tmp);
  fd = fopen(filename, "r");
  if (fd == NULL) {
    *error = "file open failed";
    return;
  }
  fd_write = fopen("decrypted_text", "w");
  if (fd_write == NULL) {
    *error = "file open failed";
    return;
  }
  bytes_no = l / 8;
  k = ceil(sqrt(l));
  xs = (mpz_t *)malloc(k * sizeof(mpz_t));
  if (xs == NULL) {
    *error = "malloc";
    return;
  }
  cs = (char *)malloc(bytes_no * sizeof(char));
  if (cs == NULL) {
    *error = "malloc";
    return;
  }
  hash = GetHash(identity, error);
  if (strcmp(*error, "success") != 0)
    return;
  hex_hash = GetHexHash(hash, error);
  if (strcmp(*error, "success") != 0)
    return;
  mpz_set_str(R, hex_hash, 16);
  mpz_mod(R, R, n);
  GetJnHash(n, R);
  mpz_mul(uR, R, u);
  mpz_mod(uR, uR, n);
  mpz_powm_ui(rp, r, 2, n);
  choice = 2;
  mpz_set(cR, uR);
  if (mpz_cmp(rp, R) == 0) {
    choice = 1;
    mpz_set(cR, R);
  }
  while (!feof(fd)) {
    for (i = 0; i < bytes_no; i++) {
      fgetc(fd);
      cs[i] = (unsigned char)fgetc(fd);
      if (choice == 2)
        cs[i] = (unsigned char)fgetc(fd);
      else
        fgetc(fd);
      fgetc(fd);
    }
    for (i = 0; i < k; i++) {
      mpz_init(xs[i]);
      mpz_inp_str(xs[i], fd, 10);
      if (choice == 2)
        mpz_inp_str(xs[i], fd, 10);
      else
        mpz_inp_str(tmp, fd, 10);
    }
    i = 0;
    alpha = 1;
    beta = 0;
    while (i < l) {
      if (i % 8 == 0) {
        decrypted_character ^= decrypted_character;
        c = cs[i / 8];
      }
      bit = ((1 << 7) & c) == 0 ? 1 : -1;
      c <<= 1;
      if (i < k) {
        f(tmp, r, xs[i], n);
        m = bit * mpz_jacobi(tmp, n);
        mrev = (m == -1) ? 1 : 0;
        decrypted_character |= mrev;
      } else {
        mpz_mul(tmp, cR, xs[alpha]);
        mpz_mod(tmp, tmp, n);
        mpz_mul(tmp, tmp, xs[beta]);
        mpz_mod(tmp, tmp, n);
        mpz_add_ui(tmp, tmp, 1);
        mpz_mod(tmp, tmp, n);
        mpz_invert(tmp, tmp, n);
        mpz_add(x, xs[alpha], xs[beta]);
        mpz_mod(x, x, n);
        mpz_mul(x, x, tmp);
        mpz_mod(x, x, n);
        f(tmp, r, x, n);
        m = bit * mpz_jacobi(tmp, n);
        mrev = (m == -1) ? 1 : 0;
        decrypted_character |= mrev;
        beta++;
        if (beta == k) {
          alpha++;
          beta = 0;
        }
      }
      i++;
      if (i % 8 == 0)
        fprintf(fd_write, "%c", decrypted_character);
      else
        decrypted_character <<= 1;
    }
  }
  for (i = 0; i < k; i++)
    mpz_clear(xs[i]);
  free(xs);
  free(cs);
  mpz_clear(R);
  mpz_clear(uR);
  mpz_clear(tmp);
  mpz_clear(s);
  mpz_clear(x);
  mpz_clear(cR);
  mpz_clear(S);
  mpz_clear(rp);
  fclose(fd);
  fclose(fd_write);
}
```