user: Please show me the C implementation that matches the assembly code listed below:

```asm
<encrypt_Feistel>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %fs:0x28,%rdx
  mov    %rdx,0x28(%rsp)
  xor    %edx,%edx
  movzbl (%rsi),%edx
  mov    %dl,0x1c(%rsp)
  movzbl 0x1(%rsi),%ecx
  mov    %cl,0x1d(%rsp)
  mov    %cl,0x1e(%rsp)
  movzbl 0x2(%rsi),%ecx
  mov    %cl,0x1f(%rsp)
  mov    %cl,0x20(%rsp)
  movzbl 0x3(%rsi),%ecx
  mov    %cl,0x21(%rsp)
  mov    %cl,0x22(%rsp)
  mov    %dl,0x23(%rsp)
  movzbl (%rdi),%edx
  mov    %dl,0x24(%rsp)
  movzbl 0x1(%rdi),%edx
  mov    %dl,0x25(%rsp)
  movzbl 0x2(%rdi),%edx
  mov    %dl,0x26(%rsp)
  movzbl 0x3(%rdi),%eax
  mov    %al,0x27(%rsp)
  mov    $0x28,%edi
  call   <malloc@plt>
  mov    %rax,%rbx
  mov    $0x1,%ebp
  lea    0x20(%rsp),%r15
  jmp    L46
L110:
  cmp    $0x3,%eax
  jne    L81
  mov    %r14,%rdi
  call   <encrypt@plt>
  mov    %rax,%rbp
  lea    0x22(%rsp),%rsi
  mov    %r12,%rdi
  call   <function@plt>
  mov    $0x0,%edx
L13:
  mov    0x0(%rbp,%rdx,1),%ecx
  xor    (%rax,%rdx,1),%ecx
  mov    %ecx,(%rbx,%rdx,1)
  add    $0x4,%rdx
  cmp    $0x28,%rdx
  jne    L13
  mov    %rbx,%rdi
  call   <decrypt@plt>
  mov    %rax,%r13
L58:
  mov    $0x4,%edi
  call   <malloc@plt>
  mov    %rax,%rbx
  movzbl (%r12),%eax
  mov    %al,(%rbx)
  movzbl 0x1(%r12),%eax
  mov    %al,0x1(%rbx)
  movzbl 0x0(%r13),%eax
  mov    %al,0x2(%rbx)
  movzbl 0x1(%r13),%eax
  mov    %al,0x3(%rbx)
  mov    %rbx,%rdi
  call   <print@plt>
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L55
  mov    %rbx,%rax
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L104:
  lea    0x24(%rsp),%rdi
  call   <encrypt@plt>
  mov    %rax,%r12
  lea    0x1c(%rsp),%rsi
  lea    0x26(%rsp),%rdi
  call   <function@plt>
  mov    $0x0,%edx
L74:
  mov    (%r12,%rdx,1),%ecx
  xor    (%rax,%rdx,1),%ecx
  mov    %ecx,(%rbx,%rdx,1)
  add    $0x4,%rdx
  cmp    $0x28,%rdx
  jne    L74
  mov    %rbx,%rdi
  call   <decrypt@plt>
  mov    %rax,%r12
  lea    0x26(%rsp),%r14
L6:
  add    $0x1,%ebp
L46:
  lea    -0x1(%rbp),%eax
  cmp    $0x3,%ebp
  je     L115
  cmp    $0x2,%eax
  jg     L110
  test   %eax,%eax
  je     L104
  cmp    $0x1,%eax
  jne    L81
  mov    %r14,%rdi
  call   <encrypt@plt>
  mov    %rax,%r13
  lea    0x1e(%rsp),%rsi
  mov    %r12,%rdi
  call   <function@plt>
  mov    $0x0,%edx
L49:
  mov    0x0(%r13,%rdx,1),%ecx
  xor    (%rax,%rdx,1),%ecx
  mov    %ecx,(%rbx,%rdx,1)
  add    $0x4,%rdx
  cmp    $0x28,%rdx
  jne    L49
  mov    %rbx,%rdi
  call   <decrypt@plt>
  mov    %rax,%r13
  mov    %r12,0x8(%rsp)
  jmp    L6
L115:
  mov    0x8(%rsp),%rdi
  call   <encrypt@plt>
  mov    %rax,%r12
  mov    %r15,%rsi
  mov    %r13,%rdi
  call   <function@plt>
  mov    $0x0,%edx
L33:
  mov    (%r12,%rdx,1),%ecx
  xor    (%rax,%rdx,1),%ecx
  mov    %ecx,(%rbx,%rdx,1)
  add    $0x4,%rdx
  cmp    $0x28,%rdx
  jne    L33
  mov    %rbx,%rdi
  call   <decrypt@plt>
  mov    %rax,%r12
  mov    %r13,%r14
  jmp    L6
L81:
  cmp    $0x3,%ebp
  jle    L6
  mov    0x8(%rsp),%r12
  jmp    L58
L55:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
char *encrypt_Feistel(char *Msg, char *Key) {
  char Key1[2] = {Key[0], Key[1]};
  char Key2[2] = {Key[1], Key[2]};
  char Key3[2] = {Key[2], Key[3]};
  char Key4[2] = {Key[3], Key[0]};
  char G0[2] = {Msg[0], Msg[1]};
  char D0[2] = {Msg[2], Msg[3]};
  int i;
  int *binaire = malloc(10 * sizeof(int));
  int *binaire1;
  int *binaire2;
  char *tmp_G;
  char *tmp_D;
  char *tmpG;
  ;
  char *tmpD;
  for (i = 0; i < 4; ++i) {
    switch (i) {
    case 0:
      tmp_G = D0;
      binaire1 = encrypt(G0);
      binaire2 = function(tmp_G, Key1);
      int j;
      for (j = 0; j < 10; ++j) {
        binaire[j] = binaire1[j] ^ binaire2[j];
      }
      tmp_D = decrypt(binaire);
      break;
    case 1:
      tmpG = tmp_D;
      binaire1 = encrypt(tmp_G);
      binaire2 = function(tmp_D, Key2);
      int c;
      for (c = 0; c < 10; ++c) {
        binaire[c] = binaire1[c] ^ binaire2[c];
      }
      tmpD = decrypt(binaire);
      break;
    case 2:
      tmp_G = tmpD;
      binaire1 = encrypt(tmpG);
      binaire2 = function(tmp_G, Key3);
      int a;
      for (a = 0; a < 10; ++a) {
        binaire[a] = binaire1[a] ^ binaire2[a];
      }
      tmp_D = decrypt(binaire);
      break;
    case 3:
      tmpG = tmp_D;
      binaire1 = encrypt(tmp_G);
      binaire2 = function(tmp_D, Key4);
      int d;
      for (d = 0; d < 10; ++d) {
        binaire[d] = binaire1[d] ^ binaire2[d];
      }
      tmpD = decrypt(binaire);
      break;
    }
  }
  char *caractere = malloc(4 * sizeof(char));
  caractere[0] = tmpG[0];
  caractere[1] = tmpG[1];
  caractere[2] = tmpD[0];
  caractere[3] = tmpD[1];
  print(caractere);
  return caractere;
}
```