int TranspositionEncrypt(char text[], char **enc_table, int key_columns,
                         int rows, int *key_seq) {
  int d, i, j, indx = -1;
  for (d = 0; d < key_columns; d++)
    for (i = 0; i < rows; i++) {
      j = key_seq[d] - 1;
      if (enc_table[i][j] != ' ') {
        indx++;
        text[indx] = enc_table[i][j];
      }
    }
  return 0;
}


x86 assembly (clang, -O0):
<TranspositionEncrypt>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
movl   $0xffffffff,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11be <TranspositionEncrypt+0xbe>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11ab <TranspositionEncrypt+0xab>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
sub    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x20,%eax
je     1198 <TranspositionEncrypt+0x98>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    119d <TranspositionEncrypt+0x9d>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1137 <TranspositionEncrypt+0x37>
jmp    11b0 <TranspositionEncrypt+0xb0>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1124 <TranspositionEncrypt+0x24>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<TranspositionEncrypt>:
push   %r15
push   %r14
push   %rbx
test   %edx,%edx
jle    11b8 <TranspositionEncrypt+0xb8>
mov    %edx,%r10d
mov    %ecx,%r9d
mov    %r9d,%r11d
and    $0xfffffffe,%r11d
mov    $0xffffffff,%r15d
xor    %r14d,%r14d
jmp    1139 <TranspositionEncrypt+0x39>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x1,%r14
cmp    %r10,%r14
je     11b8 <TranspositionEncrypt+0xb8>
test   %ecx,%ecx
jle    1130 <TranspositionEncrypt+0x30>
xor    %ebx,%ebx
cmp    $0x1,%ecx
jne    1179 <TranspositionEncrypt+0x79>
test   $0x1,%r9b
je     1130 <TranspositionEncrypt+0x30>
movslq (%r8,%r14,4),%rax
mov    (%rsi,%rbx,8),%rdx
mov    -0x1(%rax,%rdx,1),%dl
cmp    $0x20,%dl
je     1130 <TranspositionEncrypt+0x30>
movslq %r15d,%r15
mov    %dl,0x1(%rdi,%r15,1)
add    $0x1,%r15
jmp    1130 <TranspositionEncrypt+0x30>
nopl   0x0(%rax)
add    $0x2,%rbx
cmp    %rbx,%r11
je     1144 <TranspositionEncrypt+0x44>
movslq (%r8,%r14,4),%rdx
mov    (%rsi,%rbx,8),%rax
movzbl -0x1(%rdx,%rax,1),%edx
cmp    $0x20,%dl
je     1197 <TranspositionEncrypt+0x97>
movslq %r15d,%r15
mov    %dl,0x1(%rdi,%r15,1)
add    $0x1,%r15
movslq (%r8,%r14,4),%rax
mov    0x8(%rsi,%rbx,8),%rdx
movzbl -0x1(%rax,%rdx,1),%edx
cmp    $0x20,%dl
je     1170 <TranspositionEncrypt+0x70>
movslq %r15d,%r15
mov    %dl,0x1(%rdi,%r15,1)
add    $0x1,%r15
jmp    1170 <TranspositionEncrypt+0x70>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @TranspositionEncrypt(i8* %0, i8** %1, i32 %2, i32 %3, i32* %4) {
%6 = alloca i8*
%7 = alloca i8**
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
store i8* %0, i8** %6
store i8** %1, i8*** %7
store i32 %2, i32* %8
store i32 %3, i32* %9
store i32* %4, i32** %10
store i32 -1, i32* %14
store i32 0, i32* %11
br label %15
15: ; preds = %63, %5
%16 = load i32, i32* %11
%17 = load i32, i32* %8
%18 = icmp slt i32 %16, %17
br i1 %18, label %19, label %66
19: ; preds = %15
store i32 0, i32* %12
br label %20
20: ; preds = %59, %19
%21 = load i32, i32* %12
%22 = load i32, i32* %9
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %62
24: ; preds = %20
%25 = load i32*, i32** %10
%26 = load i32, i32* %11
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i32, i32* %25, i64 %27
%29 = load i32, i32* %28
%30 = sub nsw i32 %29, 1
store i32 %30, i32* %13
%31 = load i8**, i8*** %7
%32 = load i32, i32* %12
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds i8*, i8** %31, i64 %33
%35 = load i8*, i8** %34
%36 = load i32, i32* %13
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds i8, i8* %35, i64 %37
%39 = load i8, i8* %38
%40 = sext i8 %39 to i32
%41 = icmp ne i32 %40, 32
br i1 %41, label %42, label %58
42: ; preds = %24
%43 = load i32, i32* %14
%44 = add nsw i32 %43, 1
store i32 %44, i32* %14
%45 = load i8**, i8*** %7
%46 = load i32, i32* %12
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds i8*, i8** %45, i64 %47
%49 = load i8*, i8** %48
%50 = load i32, i32* %13
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds i8, i8* %49, i64 %51
%53 = load i8, i8* %52
%54 = load i8*, i8** %6
%55 = load i32, i32* %14
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i8, i8* %54, i64 %56
store i8 %53, i8* %57
br label %58
58: ; preds = %42, %24
br label %59
59: ; preds = %58
%60 = load i32, i32* %12
%61 = add nsw i32 %60, 1
store i32 %61, i32* %12
br label %20
62: ; preds = %20
br label %63
63: ; preds = %62
%64 = load i32, i32* %11
%65 = add nsw i32 %64, 1
store i32 %65, i32* %11
br label %15
66: ; preds = %15
ret i32 0
}

LLVM IR (-O2):
define i32 @TranspositionEncrypt(i8* nocapture writeonly %0, i8** nocapture %1, i32 %2, i32 %3, i32* nocapture %4) {
%6 = icmp sgt i32 %2, 0
br i1 %6, label %7, label %77
7: ; preds = %5
%8 = icmp sgt i32 %3, 0
%9 = zext i32 %2 to i64
%10 = zext i32 %3 to i64
%11 = and i64 %10, 1
%12 = icmp eq i32 %3, 1
%13 = and i64 %10, 4294967294
%14 = icmp eq i64 %11, 0
br label %15
15: ; preds = %7, %73
%16 = phi i64 [ 0, %7 ], [ %75, %73 ]
%17 = phi i32 [ -1, %7 ], [ %74, %73 ]
br i1 %8, label %18, label %73
18: ; preds = %15
%19 = getelementptr inbounds i32, i32* %4, i64 %16
br i1 %12, label %56, label %20
20: ; preds = %18, %51
%21 = phi i64 [ %53, %51 ], [ 0, %18 ]
%22 = phi i32 [ %52, %51 ], [ %17, %18 ]
%23 = phi i64 [ %54, %51 ], [ 0, %18 ]
%24 = load i32, i32* %19
%25 = add nsw i32 %24, -1
%26 = getelementptr inbounds i8*, i8** %1, i64 %21
%27 = load i8*, i8** %26
%28 = sext i32 %25 to i64
%29 = getelementptr inbounds i8, i8* %27, i64 %28
%30 = load i8, i8* %29
%31 = icmp eq i8 %30, 32
br i1 %31, label %36, label %32
32: ; preds = %20
%33 = add nsw i32 %22, 1
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %0, i64 %34
store i8 %30, i8* %35
br label %36
36: ; preds = %20, %32
%37 = phi i32 [ %33, %32 ], [ %22, %20 ]
%38 = or i64 %21, 1
%39 = load i32, i32* %19
%40 = add nsw i32 %39, -1
%41 = getelementptr inbounds i8*, i8** %1, i64 %38
%42 = load i8*, i8** %41
%43 = sext i32 %40 to i64
%44 = getelementptr inbounds i8, i8* %42, i64 %43
%45 = load i8, i8* %44
%46 = icmp eq i8 %45, 32
br i1 %46, label %51, label %47
47: ; preds = %36
%48 = add nsw i32 %37, 1
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds i8, i8* %0, i64 %49
store i8 %45, i8* %50
br label %51
51: ; preds = %47, %36
%52 = phi i32 [ %48, %47 ], [ %37, %36 ]
%53 = add nuw nsw i64 %21, 2
%54 = add i64 %23, 2
%55 = icmp eq i64 %54, %13
br i1 %55, label %56, label %20
56: ; preds = %51, %18
%57 = phi i32 [ undef, %18 ], [ %52, %51 ]
%58 = phi i64 [ 0, %18 ], [ %53, %51 ]
%59 = phi i32 [ %17, %18 ], [ %52, %51 ]
br i1 %14, label %73, label %60
60: ; preds = %56
%61 = load i32, i32* %19
%62 = add nsw i32 %61, -1
%63 = getelementptr inbounds i8*, i8** %1, i64 %58
%64 = load i8*, i8** %63
%65 = sext i32 %62 to i64
%66 = getelementptr inbounds i8, i8* %64, i64 %65
%67 = load i8, i8* %66
%68 = icmp eq i8 %67, 32
br i1 %68, label %73, label %69
69: ; preds = %60
%70 = add nsw i32 %59, 1
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds i8, i8* %0, i64 %71
store i8 %67, i8* %72
br label %73
73: ; preds = %56, %69, %60, %15
%74 = phi i32 [ %17, %15 ], [ %57, %56 ], [ %70, %69 ], [ %59, %60 ]
%75 = add nuw nsw i64 %16, 1
%76 = icmp eq i64 %75, %9
br i1 %76, label %77, label %15
77: ; preds = %73, %5
ret i32 0
}