void init_permutations(unsigned char S[94], unsigned char U[94],
                       unsigned char *key, int key_length) {
  unsigned char K[94];
  unsigned char temp;
  int i;
  int j;
  for (i = 0; i < 94; i++)
    S[i] = i;
  for (i = 0; i < 94; i++) {
    K[i] = (key[i % key_length] + i * 0xe7) % 94;
  }
  for (i = 0; i < 94; i++) {
    j = (i + S[i] + K[i]) % 94;
    temp = S[i];
    S[i] = S[j];
    S[j] = temp;
  }
  for (i = 0; i < 94; i++)
    U[S[i]] = i;
}


x86 assembly (clang, -O0):
<init_permutations>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x0,-0x88(%rbp)
cmpl   $0x5e,-0x88(%rbp)
jge    1158 <init_permutations+0x58>
mov    -0x88(%rbp),%eax
mov    %al,%dl
mov    -0x8(%rbp),%rax
movslq -0x88(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x88(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x88(%rbp)
jmp    1121 <init_permutations+0x21>
movl   $0x0,-0x88(%rbp)
cmpl   $0x5e,-0x88(%rbp)
jge    11c7 <init_permutations+0xc7>
mov    -0x18(%rbp),%rax
mov    %rax,-0x98(%rbp)
mov    -0x88(%rbp),%eax
cltd
idivl  -0x1c(%rbp)
mov    -0x98(%rbp),%rax
movslq %edx,%rcx
movzbl (%rax,%rcx,1),%eax
imul   $0xe7,-0x88(%rbp),%ecx
add    %ecx,%eax
mov    $0x5e,%ecx
cltd
idiv   %ecx
mov    %dl,%cl
movslq -0x88(%rbp),%rax
mov    %cl,-0x80(%rbp,%rax,1)
mov    -0x88(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x88(%rbp)
jmp    1162 <init_permutations+0x62>
movl   $0x0,-0x88(%rbp)
cmpl   $0x5e,-0x88(%rbp)
jge    1269 <init_permutations+0x169>
mov    -0x88(%rbp),%eax
mov    -0x8(%rbp),%rcx
movslq -0x88(%rbp),%rdx
movzbl (%rcx,%rdx,1),%ecx
add    %ecx,%eax
movslq -0x88(%rbp),%rcx
movzbl -0x80(%rbp,%rcx,1),%ecx
add    %ecx,%eax
mov    $0x5e,%ecx
cltd
idiv   %ecx
mov    %edx,-0x8c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x88(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x81(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x8c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x8(%rbp),%rax
movslq -0x88(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x81(%rbp),%dl
mov    -0x8(%rbp),%rax
movslq -0x8c(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x88(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x88(%rbp)
jmp    11d1 <init_permutations+0xd1>
movl   $0x0,-0x88(%rbp)
cmpl   $0x5e,-0x88(%rbp)
jge    12b2 <init_permutations+0x1b2>
mov    -0x88(%rbp),%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq -0x88(%rbp),%rsi
movzbl (%rcx,%rsi,1),%ecx
mov    %dl,(%rax,%rcx,1)
mov    -0x88(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x88(%rbp)
jmp    1273 <init_permutations+0x173>
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<init_permutations>:
mov    %rdx,%r8
movaps 0xef6(%rip),%xmm0
movups %xmm0,(%rdi)
movaps 0xefc(%rip),%xmm0
movups %xmm0,0x10(%rdi)
movaps 0xf01(%rip),%xmm0
movups %xmm0,0x20(%rdi)
movaps 0xf06(%rip),%xmm0
movups %xmm0,0x30(%rdi)
movaps 0xf0b(%rip),%xmm0
movups %xmm0,0x40(%rdi)
movabs $0x5756555453525150,%rax
55 56 57
mov    %rax,0x50(%rdi)
movl   $0x5b5a5958,0x58(%rdi)
movw   $0x5d5c,0x5c(%rdi)
xor    %r10d,%r10d
xor    %r9d,%r9d
nopw   0x0(%rax,%rax,1)
mov    %r9d,%eax
cltd
idiv   %ecx
movzbl (%r8,%rdx,1),%eax
mov    %eax,%edx
add    %r10d,%edx
movzwl %dx,%edx
shr    %edx
imul   $0xae4d,%edx,%edx
shr    $0x15,%edx
imul   $0x5e,%edx,%edx
sub    %dl,%al
add    %r10b,%al
mov    %al,-0x68(%rsp,%r9,1)
add    $0x1,%r9
add    $0xe7,%r10d
cmp    $0x5e,%r9
jne    1160 <init_permutations+0x60>
xor    %eax,%eax
xchg   %ax,%ax
movzbl (%rdi,%rax,1),%r8d
movzbl -0x68(%rsp,%rax,1),%r9d
lea    (%rax,%r8,1),%ecx
mov    %r8d,%edx
add    %r9d,%edx
add    %r9d,%ecx
movzwl %cx,%ecx
shr    %ecx
imul   $0xae4d,%ecx,%ecx
shr    $0x15,%ecx
imul   $0x5e,%ecx,%ecx
sub    %ecx,%edx
add    %eax,%edx
movzwl %dx,%ecx
movzbl (%rdi,%rcx,1),%edx
mov    %dl,(%rdi,%rax,1)
mov    %r8b,(%rdi,%rcx,1)
add    $0x1,%rax
cmp    $0x5e,%rax
jne    11a0 <init_permutations+0xa0>
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movzbl (%rdi,%rax,1),%ecx
mov    %al,(%rsi,%rcx,1)
movzbl 0x1(%rdi,%rax,1),%ecx
lea    0x1(%rax),%edx
mov    %dl,(%rsi,%rcx,1)
add    $0x2,%rax
cmp    $0x5e,%rax
jne    11f0 <init_permutations+0xf0>
ret

LLVM IR (-O0):
define void @init_permutations(i8* %0, i8* %1, i8* %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i32
%9 = alloca [94 x i8]
%10 = alloca i8
%11 = alloca i32
%12 = alloca i32
store i8* %0, i8** %5
store i8* %1, i8** %6
store i8* %2, i8** %7
store i32 %3, i32* %8
store i32 0, i32* %11
br label %13
13: ; preds = %23, %4
%14 = load i32, i32* %11
%15 = icmp slt i32 %14, 94
br i1 %15, label %16, label %26
16: ; preds = %13
%17 = load i32, i32* %11
%18 = trunc i32 %17 to i8
%19 = load i8*, i8** %5
%20 = load i32, i32* %11
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds i8, i8* %19, i64 %21
store i8 %18, i8* %22
br label %23
23: ; preds = %16
%24 = load i32, i32* %11
%25 = add nsw i32 %24, 1
store i32 %25, i32* %11
br label %13
26: ; preds = %13
store i32 0, i32* %11
br label %27
27: ; preds = %47, %26
%28 = load i32, i32* %11
%29 = icmp slt i32 %28, 94
br i1 %29, label %30, label %50
30: ; preds = %27
%31 = load i8*, i8** %7
%32 = load i32, i32* %11
%33 = load i32, i32* %8
%34 = srem i32 %32, %33
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds i8, i8* %31, i64 %35
%37 = load i8, i8* %36
%38 = zext i8 %37 to i32
%39 = load i32, i32* %11
%40 = mul nsw i32 %39, 231
%41 = add nsw i32 %38, %40
%42 = srem i32 %41, 94
%43 = trunc i32 %42 to i8
%44 = load i32, i32* %11
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds [94 x i8], [94 x i8]* %9, i64 0, i64 %45
store i8 %43, i8* %46
br label %47
47: ; preds = %30
%48 = load i32, i32* %11
%49 = add nsw i32 %48, 1
store i32 %49, i32* %11
br label %27
50: ; preds = %27
store i32 0, i32* %11
br label %51
51: ; preds = %89, %50
%52 = load i32, i32* %11
%53 = icmp slt i32 %52, 94
br i1 %53, label %54, label %92
54: ; preds = %51
%55 = load i32, i32* %11
%56 = load i8*, i8** %5
%57 = load i32, i32* %11
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds i8, i8* %56, i64 %58
%60 = load i8, i8* %59
%61 = zext i8 %60 to i32
%62 = add nsw i32 %55, %61
%63 = load i32, i32* %11
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds [94 x i8], [94 x i8]* %9, i64 0, i64 %64
%66 = load i8, i8* %65
%67 = zext i8 %66 to i32
%68 = add nsw i32 %62, %67
%69 = srem i32 %68, 94
store i32 %69, i32* %12
%70 = load i8*, i8** %5
%71 = load i32, i32* %11
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds i8, i8* %70, i64 %72
%74 = load i8, i8* %73
store i8 %74, i8* %10
%75 = load i8*, i8** %5
%76 = load i32, i32* %12
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds i8, i8* %75, i64 %77
%79 = load i8, i8* %78
%80 = load i8*, i8** %5
%81 = load i32, i32* %11
%82 = sext i32 %81 to i64
%83 = getelementptr inbounds i8, i8* %80, i64 %82
store i8 %79, i8* %83
%84 = load i8, i8* %10
%85 = load i8*, i8** %5
%86 = load i32, i32* %12
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds i8, i8* %85, i64 %87
store i8 %84, i8* %88
br label %89
89: ; preds = %54
%90 = load i32, i32* %11
%91 = add nsw i32 %90, 1
store i32 %91, i32* %11
br label %51
92: ; preds = %51
store i32 0, i32* %11
br label %93
93: ; preds = %107, %92
%94 = load i32, i32* %11
%95 = icmp slt i32 %94, 94
br i1 %95, label %96, label %110
96: ; preds = %93
%97 = load i32, i32* %11
%98 = trunc i32 %97 to i8
%99 = load i8*, i8** %6
%100 = load i8*, i8** %5
%101 = load i32, i32* %11
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds i8, i8* %100, i64 %102
%104 = load i8, i8* %103
%105 = zext i8 %104 to i64
%106 = getelementptr inbounds i8, i8* %99, i64 %105
store i8 %98, i8* %106
br label %107
107: ; preds = %96
%108 = load i32, i32* %11
%109 = add nsw i32 %108, 1
store i32 %109, i32* %11
br label %93
110: ; preds = %93
ret void
}

LLVM IR (-O2):
define void @init_permutations(i8* nocapture %0, i8* nocapture writeonly %1, i8* nocapture %2, i32 %3) {
%5 = alloca [94 x i8]
%6 = getelementptr inbounds [94 x i8], [94 x i8]* %5, i64 0, i64 0
%7 = bitcast i8* %0 to <16 x i8>*
store <16 x i8> <i8 0, i8 1, i8 2, i8 3, i8 4, i8 5, i8 6, i8 7, i8 8, i8 9, i8 10, i8 11, i8 12, i8 13, i8 14, i8 15>, <16 x i8>* %7
%8 = getelementptr inbounds i8, i8* %0, i64 16
%9 = bitcast i8* %8 to <16 x i8>*
store <16 x i8> <i8 16, i8 17, i8 18, i8 19, i8 20, i8 21, i8 22, i8 23, i8 24, i8 25, i8 26, i8 27, i8 28, i8 29, i8 30, i8 31>, <16 x i8>* %9
%10 = getelementptr inbounds i8, i8* %0, i64 32
%11 = bitcast i8* %10 to <16 x i8>*
store <16 x i8> <i8 32, i8 33, i8 34, i8 35, i8 36, i8 37, i8 38, i8 39, i8 40, i8 41, i8 42, i8 43, i8 44, i8 45, i8 46, i8 47>, <16 x i8>* %11
%12 = getelementptr inbounds i8, i8* %0, i64 48
%13 = bitcast i8* %12 to <16 x i8>*
store <16 x i8> <i8 48, i8 49, i8 50, i8 51, i8 52, i8 53, i8 54, i8 55, i8 56, i8 57, i8 58, i8 59, i8 60, i8 61, i8 62, i8 63>, <16 x i8>* %13
%14 = getelementptr inbounds i8, i8* %0, i64 64
%15 = bitcast i8* %14 to <16 x i8>*
store <16 x i8> <i8 64, i8 65, i8 66, i8 67, i8 68, i8 69, i8 70, i8 71, i8 72, i8 73, i8 74, i8 75, i8 76, i8 77, i8 78, i8 79>, <16 x i8>* %15
%16 = getelementptr inbounds i8, i8* %0, i64 80
store i8 80, i8* %16
%17 = getelementptr inbounds i8, i8* %0, i64 81
store i8 81, i8* %17
%18 = getelementptr inbounds i8, i8* %0, i64 82
store i8 82, i8* %18
%19 = getelementptr inbounds i8, i8* %0, i64 83
store i8 83, i8* %19
%20 = getelementptr inbounds i8, i8* %0, i64 84
store i8 84, i8* %20
%21 = getelementptr inbounds i8, i8* %0, i64 85
store i8 85, i8* %21
%22 = getelementptr inbounds i8, i8* %0, i64 86
store i8 86, i8* %22
%23 = getelementptr inbounds i8, i8* %0, i64 87
store i8 87, i8* %23
%24 = getelementptr inbounds i8, i8* %0, i64 88
store i8 88, i8* %24
%25 = getelementptr inbounds i8, i8* %0, i64 89
store i8 89, i8* %25
%26 = getelementptr inbounds i8, i8* %0, i64 90
store i8 90, i8* %26
%27 = getelementptr inbounds i8, i8* %0, i64 91
store i8 91, i8* %27
%28 = getelementptr inbounds i8, i8* %0, i64 92
store i8 92, i8* %28
%29 = getelementptr inbounds i8, i8* %0, i64 93
store i8 93, i8* %29
br label %30
30: ; preds = %4, %30
%31 = phi i64 [ %44, %30 ], [ 0, %4 ]
%32 = trunc i64 %31 to i32
%33 = srem i32 %32, %3
%34 = zext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %2, i64 %34
%36 = load i8, i8* %35
%37 = zext i8 %36 to i16
%38 = trunc i64 %31 to i16
%39 = mul i16 %38, 231
%40 = add i16 %39, %37
%41 = urem i16 %40, 94
%42 = trunc i16 %41 to i8
%43 = getelementptr inbounds [94 x i8], [94 x i8]* %5, i64 0, i64 %31
store i8 %42, i8* %43
%44 = add nuw nsw i64 %31, 1
%45 = icmp eq i64 %44, 94
br i1 %45, label %46, label %30
46: ; preds = %30, %46
%47 = phi i64 [ %61, %46 ], [ 0, %30 ]
%48 = getelementptr inbounds i8, i8* %0, i64 %47
%49 = load i8, i8* %48
%50 = zext i8 %49 to i16
%51 = trunc i64 %47 to i16
%52 = add i16 %51, %50
%53 = getelementptr inbounds [94 x i8], [94 x i8]* %5, i64 0, i64 %47
%54 = load i8, i8* %53
%55 = zext i8 %54 to i16
%56 = add i16 %52, %55
%57 = urem i16 %56, 94
%58 = zext i16 %57 to i64
%59 = getelementptr inbounds i8, i8* %0, i64 %58
%60 = load i8, i8* %59
store i8 %60, i8* %48
store i8 %49, i8* %59
%61 = add nuw nsw i64 %47, 1
%62 = icmp eq i64 %61, 94
br i1 %62, label %63, label %46
63: ; preds = %46, %63
%64 = phi i64 [ %76, %63 ], [ 0, %46 ]
%65 = trunc i64 %64 to i8
%66 = getelementptr inbounds i8, i8* %0, i64 %64
%67 = load i8, i8* %66
%68 = zext i8 %67 to i64
%69 = getelementptr inbounds i8, i8* %1, i64 %68
store i8 %65, i8* %69
%70 = or i64 %64, 1
%71 = trunc i64 %70 to i8
%72 = getelementptr inbounds i8, i8* %0, i64 %70
%73 = load i8, i8* %72
%74 = zext i8 %73 to i64
%75 = getelementptr inbounds i8, i8* %1, i64 %74
store i8 %71, i8* %75
%76 = add nuw nsw i64 %64, 2
%77 = icmp eq i64 %76, 94
br i1 %77, label %78, label %63
78: ; preds = %63
ret void
}