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

```asm
<encrypt>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %rsi,-0x40(%rbp)
  mov    -0x38(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cltq
  shl    $0x2,%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,-0x10(%rbp)
  mov    -0x40(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,-0x8(%rbp)
  mov    -0x8(%rbp),%rax
  mov    $0x8,%edx
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <memset@plt>
  movl   $0x0,-0x18(%rbp)
  jmp    L47
L91:
  mov    -0x18(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,%edi
  call   <toupper@plt>
  mov    %al,-0x21(%rbp)
  cmpb   $0x20,-0x21(%rbp)
  jne    L93
  movl   $0x1a,-0x1c(%rbp)
  jmp    L58
L93:
  movsbl -0x21(%rbp),%eax
  sub    $0x41,%eax
  mov    %eax,-0x1c(%rbp)
L58:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x18(%rbp)
L47:
  mov    -0x38(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    %eax,-0x18(%rbp)
  jl     L91
  movl   $0x0,-0x18(%rbp)
  jmp    L5
L73:
  mov    -0x18(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,%edi
  call   <toupper@plt>
  mov    %al,-0x22(%rbp)
  cmpb   $0x20,-0x22(%rbp)
  jne    L53
  movl   $0x1a,-0x20(%rbp)
  jmp    L49
L53:
  movsbl -0x22(%rbp),%eax
  sub    $0x41,%eax
  mov    %eax,-0x20(%rbp)
L49:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%edx
  mov    -0x20(%rbp),%eax
  mov    %edx,%esi
  mov    %eax,%edi
  call   <ModuloAdd@plt>
  mov    %eax,-0x14(%rbp)
  cmpl   $0x1a,-0x14(%rbp)
  jne    L69
  mov    -0x18(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movb   $0x20,(%rax)
  jmp    L80
L69:
  mov    -0x14(%rbp),%eax
  lea    0x41(%rax),%ecx
  mov    -0x18(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %dl,(%rax)
L80:
  addl   $0x1,-0x18(%rbp)
L5:
  mov    -0x40(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    %eax,-0x18(%rbp)
  jl     L73
  mov    -0x8(%rbp),%rax
  leave
  ret
```

assistant: ```c
char *encrypt(char *key, char *file) {
  char F, K, N;
  int f, k, n, x;
  int i;
  int *keynum = malloc(sizeof(int) * strlen(key));
  char *newfile = malloc(sizeof(char) * strlen(file));
  memset(newfile, 0, sizeof(newfile));
  for (i = 0; i < strlen(key); i++) {
    K = toupper(key[i]);
    if (K == ' ')
      k = 26;
    else
      k = (int)K - 65;
    keynum[i] = k;
  }
  for (i = 0; i < strlen(file); i++) {
    F = toupper(file[i]);
    if (F == ' ')
      f = 26;
    else
      f = (int)F - 65;
    x = ModuloAdd(f, keynum[i]);
    if (0)
      printf("%c+%c = %d + %d = %d\n", F, K, f, keynum[i], x);
    if (x == 26)
      newfile[i] = ' ';
    else
      newfile[i] = (char)(x + 65);
  }
  return (newfile);
}
```