user: Demonstrate the C code that generates the assembly output below:

```asm
<pdecrypt>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,%r12
  mov    %rsi,%r13
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  call   <strlen@plt>
  mov    %eax,%ebx
  mov    %r13,%rdi
  call   <strlen@plt>
  mov    %eax,-0x48(%rbp)
  movslq %ebx,%rax
  add    $0xf,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L124:
  cmp    %rdx,%rsp
  je     L61
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L124
L61:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L14
  orq    $0x0,-0x8(%rsp,%rax,1)
L14:
  mov    %rsp,%r14
  movslq -0x48(%rbp),%rax
  add    $0xf,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L139:
  cmp    %rdx,%rsp
  je     L53
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L139
L53:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L17
  orq    $0x0,-0x8(%rsp,%rax,1)
L17:
  mov    %rsp,%r15
  lea    0x1(%rbx),%edx
  mov    %r12,%rsi
  mov    %r14,%rdi
  call   <strncpy@plt>
  mov    -0x48(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %r13,%rsi
  mov    %rsp,%rdi
  call   <strncpy@plt>
  test   %ebx,%ebx
  jle    L34
  mov    %r14,%r12
  lea    -0x1(%rbx),%eax
  lea    0x1(%r14,%rax,1),%r13
  mov    $0x0,%ebx
  jmp    L68
L107:
  movsbl %al,%eax
  add    $0x1a,%eax
  movslq %eax,%rdx
  imul   $0x4ec4ec4f,%rdx,%rdx
  sar    $0x23,%rdx
  mov    %eax,%ecx
  sar    $0x1f,%ecx
  sub    %ecx,%edx
  imul   $0x1a,%edx,%edx
  sub    %edx,%eax
  add    $0x41,%eax
  jmp    L103
L28:
  sub    $0x1,%ebx
L81:
  add    $0x1,%ebx
  add    $0x1,%r12
  cmp    %r13,%r12
  je     L115
L68:
  movsbl (%r12),%edi
  call   <isspace@plt>
  test   %eax,%eax
  jne    L28
  movsbl (%r12),%edi
  call   <toupper@plt>
  mov    %eax,-0x44(%rbp)
  mov    %ebx,%eax
  cltd
  idivl  -0x48(%rbp)
  movslq %edx,%rdx
  movsbl (%r15,%rdx,1),%edi
  call   <toupper@plt>
  mov    %eax,%edx
  movzbl -0x44(%rbp),%eax
  sub    %dl,%al
  js     L107
  movsbl %al,%ecx
  movsbq %al,%rdx
  imul   $0x4ec4ec4f,%rdx,%rdx
  sar    $0x23,%rdx
  mov    %ecx,%eax
  sar    $0x1f,%eax
  sub    %eax,%edx
  imul   $0x1a,%edx,%edx
  sub    %edx,%ecx
  lea    0x41(%rcx),%eax
L103:
  movslq %ebx,%rdx
  mov    %al,(%r14,%rdx,1)
  jmp    L81
L34:
  mov    $0x0,%ebx
L115:
  movslq %ebx,%rbx
  movb   $0x0,(%r14,%rbx,1)
  mov    %r14,%rsi
  lea    D5(%rip),%rdi
  call   <printf@plt>
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L0
  mov    $0x0,%eax
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L0:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_tag: D5
data_type: string

tool: D5: %s


assistant: ```c
int pdecrypt(const char *cipher, const char *k) {
  int length = strlen(cipher);
  int keylength = strlen(k);
  char plain[length];
  char key[keylength];
  strncpy(plain, cipher, length + 1);
  strncpy(key, k, keylength + 1);
  int i, j;
  for (i = j = 0; i < length; i++, j++) {
    if (!isspace(plain[i])) {
      char p = ((toupper(plain[i]) - 65) - (toupper(key[(j % keylength)]) - 65));
      plain[j] = (p < 0 ? p + 26 : p) % 26 + 65;
    } else
      j--;
  }
  plain[j] = '\0';
  printf("%s\n", plain);
  return 0;
}
```