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

```asm
<pbkdf2>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xb8,%rsp
  mov    %rdi,0x10(%rsp)
  mov    %esi,0x30(%rsp)
  mov    %edx,0x34(%rsp)
  mov    %rcx,0x48(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0xa8(%rsp)
  xor    %eax,%eax
  mov    $0x1,%edx
  movabs $0x13ffffffec,%rax
  cmp    %rax,%r8
  ja     L122
  mov    %rcx,%r14
  movabs $0xcccccccccccccccd,%rdx
  mov    %r8,%rax
  mul    %rdx
  shr    $0x4,%rdx
  mov    %rdx,0x28(%rsp)
  lea    (%rdx,%rdx,4),%rax
  shl    $0x2,%rax
  mov    %r8,%rdi
  sub    %rax,%rdi
  mov    %rdi,0x40(%rsp)
  cmp    $0x13,%r8
  jbe    L64
  movq   $0x1,0x8(%rsp)
  lea    0x5c(%rsp),%rax
  mov    %rax,0x38(%rsp)
  lea    0x80(%rsp),%r13
  lea    0x58(%rsp),%r15
  jmp    L89
L91:
  mov    %rax,%r12
L120:
  mov    $0x0,%eax
  call   <EVP_sha1@plt>
  mov    %eax,%edi
  sub    $0x8,%rsp
  push   %r15
  mov    %rbx,%r9
  mov    $0x14,%r8d
  mov    %r12,%rcx
  mov    0x40(%rsp),%edx
  mov    %r13,%rsi
  call   <HMAC@plt>
  lea    0x70(%rsp),%rax
  mov    %rbx,%rdx
  lea    0x84(%rsp),%rsi
  add    $0x10,%rsp
L165:
  movzbl (%rdx),%ecx
  xor    %cl,(%rax)
  add    $0x1,%rax
  add    $0x1,%rdx
  cmp    %rsi,%rax
  jne    L165
  add    $0x1,%rbp
  mov    %rbx,%rax
  mov    %r12,%rbx
  cmp    %r14,%rbp
  jne    L91
  mov    0x18(%rsp),%r14
  mov    0x20(%rsp),%r13
L163:
  mov    $0x0,%eax
L33:
  movzbl 0x60(%rsp,%rax,1),%edx
  mov    %dl,(%r14,%rax,1)
  add    $0x1,%rax
  cmp    $0x14,%rax
  jne    L33
  add    $0x14,%r14
  addq   $0x1,0x8(%rsp)
  mov    0x8(%rsp),%rax
  cmp    %rax,0x28(%rsp)
  jb     L184
L89:
  mov    0x8(%rsp),%edx
  lea    D7(%rip),%rsi
  mov    0x38(%rsp),%rbx
  mov    %rbx,%rdi
  call   <sprintf@plt>
  mov    $0x0,%eax
  call   <EVP_sha1@plt>
  mov    %eax,%edi
  sub    $0x8,%rsp
  push   %r15
  mov    %r13,%r9
  mov    $0x4,%r8d
  mov    %rbx,%rcx
  mov    0x40(%rsp),%edx
  mov    0x20(%rsp),%rsi
  call   <HMAC@plt>
  add    $0x10,%rsp
  mov    $0x0,%eax
L86:
  movzbl (%rax,%r13,1),%edx
  mov    %dl,0x60(%rsp,%rax,1)
  add    $0x1,%rax
  cmp    $0x14,%rax
  jne    L86
  mov    0x34(%rsp),%eax
  mov    %eax,%edi
  cmp    $0x1,%eax
  jbe    L163
  lea    0x94(%rsp),%rbx
  mov    %r13,%r12
  mov    $0x1,%ebp
  mov    %r14,0x18(%rsp)
  mov    %rdi,%r14
  mov    %r13,0x20(%rsp)
  mov    0x10(%rsp),%r13
  jmp    L120
L184:
  mov    0x28(%rsp),%rdi
  lea    0x1(%rdi),%rcx
  mov    $0x2,%eax
  cmp    %rax,%rcx
  cmovae %rcx,%rax
  lea    (%rdi,%rdi,4),%rdx
  shl    $0x2,%rdx
  cmp    $0x1,%rcx
  mov    $0x14,%ecx
  cmovbe %rcx,%rdx
  add    %rdx,0x48(%rsp)
L113:
  mov    $0x0,%edx
  cmpq   $0x0,0x40(%rsp)
  jne    L48
L122:
  mov    0xa8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L112
  mov    %edx,%eax
  add    $0xb8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L64:
  mov    $0x1,%eax
  jmp    L113
L48:
  lea    0x5c(%rsp),%rbx
  mov    %eax,%edx
  lea    D7(%rip),%rsi
  mov    %rbx,%rdi
  call   <sprintf@plt>
  mov    $0x0,%eax
  call   <EVP_sha1@plt>
  mov    %eax,%edi
  sub    $0x8,%rsp
  lea    0x60(%rsp),%rax
  push   %rax
  lea    0x90(%rsp),%r9
  mov    $0x4,%r8d
  mov    %rbx,%rcx
  mov    0x40(%rsp),%edx
  mov    0x20(%rsp),%rsi
  call   <HMAC@plt>
  add    $0x10,%rsp
  mov    $0x0,%eax
L146:
  movzbl 0x80(%rsp,%rax,1),%edx
  mov    %dl,0x60(%rsp,%rax,1)
  add    $0x1,%rax
  cmp    $0x14,%rax
  jne    L146
  mov    0x34(%rsp),%eax
  mov    %eax,%r14d
  cmp    $0x1,%eax
  jbe    L23
  lea    0x94(%rsp),%rbx
  lea    0x80(%rsp),%r12
  mov    $0x1,%ebp
  lea    0x58(%rsp),%r13
  jmp    L114
L156:
  mov    %rax,%r12
L114:
  mov    $0x0,%eax
  call   <EVP_sha1@plt>
  mov    %eax,%edi
  sub    $0x8,%rsp
  push   %r13
  mov    %rbx,%r9
  mov    $0x14,%r8d
  mov    %r12,%rcx
  mov    0x40(%rsp),%edx
  mov    0x20(%rsp),%rsi
  call   <HMAC@plt>
  lea    0x70(%rsp),%rax
  mov    %rbx,%rdx
  lea    0x84(%rsp),%rsi
  add    $0x10,%rsp
L78:
  movzbl (%rdx),%ecx
  xor    %cl,(%rax)
  add    $0x1,%rax
  add    $0x1,%rdx
  cmp    %rax,%rsi
  jne    L78
  add    $0x1,%rbp
  mov    %rbx,%rax
  mov    %r12,%rbx
  cmp    %r14,%rbp
  jne    L156
L23:
  mov    0x48(%rsp),%rax
  mov    $0x0,%edx
L92:
  movzwl %dx,%ecx
  movzbl 0x60(%rsp,%rcx,1),%ecx
  mov    %cl,(%rax)
  add    $0x1,%edx
  add    $0x1,%rax
  movzwl %dx,%ecx
  cmp    0x40(%rsp),%rcx
  jb     L92
  mov    $0x0,%edx
  jmp    L122
L112:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D7
type: string

tool: D7: %04u

assistant: ```c
int pbkdf2(const unsigned char *pw, unsigned int pwlen, unsigned int ic, unsigned char *dk, unsigned long long dklen) {
  unsigned long l, r, i, j;
  unsigned char txt[4], hash[(20) * 2], tmp[(20)], *p = dk, *lhix, *hix, *swap;
  unsigned short k;
  unsigned int outlen;
  if (dklen > ((((unsigned long long)1) << 32) - 1) * (20)) {
    return 1;
  }
  l = dklen / (20);
  r = dklen % (20);
  for (i = 1; i <= l; i++) {
    sprintf((char *)txt, "%04u", (unsigned int)i);
    HMAC(EVP_sha1(), pw, pwlen, txt, 4, hash, &outlen);
    lhix = hash;
    hix = hash + (20);
    for (k = 0; k < (20); k++) {
      tmp[k] = hash[k];
    }
    for (j = 1; j < ic; j++) {
      HMAC(EVP_sha1(), pw, pwlen, lhix, (20), hix, &outlen);
      for (k = 0; k < (20); k++) {
        tmp[k] ^= hix[k];
      }
      swap = hix;
      hix = lhix;
      lhix = swap;
    }
    for (k = 0; k < (20); k++) {
      *p++ = tmp[k];
    }
  }
  if (r) {
    sprintf((char *)txt, "%04u", (unsigned int)i);
    HMAC(EVP_sha1(), pw, pwlen, txt, 4, hash, &outlen);
    lhix = hash;
    hix = hash + (20);
    for (k = 0; k < (20); k++) {
      tmp[k] = hash[k];
    }
    for (j = 1; j < ic; j++) {
      HMAC(EVP_sha1(), pw, pwlen, lhix, (20), hix, &outlen);
      for (k = 0; k < (20); k++) {
        tmp[k] ^= hix[k];
      }
      swap = hix;
      hix = lhix;
      lhix = swap;
    }
    for (k = 0; k < r; k++) {
      *p++ = tmp[k];
    }
  }
  return 0;
}
```