char key(int value) {
  char T[4];
  int i;
  char result;
  for (i = 0; i < 4; i++) {
    T[i] = value % 10;
    value /= 10;
  }
  T[3] *= 3;
  T[2] *= 7;
  T[1] *= 11;
  T[0] *= 13;
  result = ((T[0] + T[1] + T[2] + T[3]) % 26) + 65;
  return result;
}


x86 assembly (clang, -O0):
<key>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
movl   $0x0,-0xc(%rbp)
cmpl   $0x4,-0xc(%rbp)
jge    1149 <key+0x49>
mov    -0x4(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %dl,%cl
movslq -0xc(%rbp),%rax
mov    %cl,-0x8(%rbp,%rax,1)
mov    -0x4(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %eax,-0x4(%rbp)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    110e <key+0xe>
movsbl -0x5(%rbp),%eax
imul   $0x3,%eax,%eax
mov    %al,-0x5(%rbp)
movsbl -0x6(%rbp),%eax
imul   $0x7,%eax,%eax
mov    %al,-0x6(%rbp)
movsbl -0x7(%rbp),%eax
imul   $0xb,%eax,%eax
mov    %al,-0x7(%rbp)
movsbl -0x8(%rbp),%eax
imul   $0xd,%eax,%eax
mov    %al,-0x8(%rbp)
movsbl -0x8(%rbp),%eax
movsbl -0x7(%rbp),%ecx
add    %ecx,%eax
movsbl -0x6(%rbp),%ecx
add    %ecx,%eax
movsbl -0x5(%rbp),%ecx
add    %ecx,%eax
mov    $0x1a,%ecx
cltd
idiv   %ecx
add    $0x41,%edx
mov    %dl,%al
mov    %al,-0xd(%rbp)
movsbl -0xd(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<key>:
movslq %edi,%rax
imul   $0x66666667,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x22,%rcx
add    %edx,%ecx
lea    (%rcx,%rcx,1),%edx
lea    (%rdx,%rdx,4),%edx
imul   $0x51eb851f,%rax,%rsi
imul   $0x10624dd3,%rax,%rdi
mov    %eax,%r8d
sub    %edx,%r8d
movslq %ecx,%rcx
imul   $0x66666667,%rcx,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x22,%rdx
add    %eax,%edx
add    %edx,%edx
lea    (%rdx,%rdx,4),%eax
sub    %eax,%ecx
mov    %rsi,%rax
shr    $0x3f,%rax
sar    $0x25,%rsi
add    %eax,%esi
movslq %esi,%rax
imul   $0x66666667,%rax,%rdx
mov    %rdx,%rsi
shr    $0x3f,%rsi
sar    $0x22,%rdx
add    %esi,%edx
add    %edx,%edx
lea    (%rdx,%rdx,4),%edx
sub    %edx,%eax
mov    %rdi,%rdx
shr    $0x3f,%rdx
sar    $0x26,%rdi
add    %edx,%edi
movslq %edi,%rdx
imul   $0x66666667,%rdx,%rsi
mov    %rsi,%rdi
shr    $0x3f,%rdi
shr    $0x22,%rsi
add    %edi,%esi
add    %esi,%esi
lea    (%rsi,%rsi,4),%esi
sub    %esi,%edx
imul   $0xd00,%r8d,%esi
movswl %si,%esi
sar    $0x8,%esi
imul   $0xb00,%ecx,%ecx
movswl %cx,%ecx
sar    $0x8,%ecx
imul   $0x700,%eax,%eax
movswl %ax,%edi
sar    $0x8,%edi
shl    $0x8,%edx
lea    (%rdx,%rdx,2),%eax
cwtl
sar    $0x8,%eax
add    %edi,%eax
add    %ecx,%eax
add    %esi,%eax
movswl %ax,%ecx
imul   $0x4ec5,%ecx,%ecx
mov    %ecx,%edx
shr    $0x1f,%edx
shr    $0x13,%ecx
add    %edx,%ecx
lea    (%rcx,%rcx,4),%edx
lea    (%rdx,%rdx,4),%edx
add    %ecx,%edx
sub    %edx,%eax
add    $0x41,%al
ret

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

LLVM IR (-O2):
define signext i8 @key(i32 %0) {
%2 = srem i32 %0, 10
%3 = trunc i32 %2 to i16
%4 = sdiv i32 %0, 10
%5 = srem i32 %4, 10
%6 = trunc i32 %5 to i16
%7 = sdiv i32 %0, 100
%8 = srem i32 %7, 10
%9 = trunc i32 %8 to i16
%10 = sdiv i32 %0, 1000
%11 = srem i32 %10, 10
%12 = trunc i32 %11 to i16
%13 = mul nsw i16 %3, 3328
%14 = ashr exact i16 %13, 8
%15 = mul nsw i16 %6, 2816
%16 = ashr exact i16 %15, 8
%17 = mul nsw i16 %9, 1792
%18 = ashr exact i16 %17, 8
%19 = mul nsw i16 %12, 768
%20 = ashr exact i16 %19, 8
%21 = add nsw i16 %18, %20
%22 = add nsw i16 %21, %16
%23 = add nsw i16 %22, %14
%24 = srem i16 %23, 26
%25 = trunc i16 %24 to i8
%26 = add nsw i8 %25, 65
ret i8 %26
}