Function at 0x7e33d8
Capabilities:
Validate payment card number using luhn algorithm

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 4
push 0
push 0
dec ecx
jne 0x7e33e1
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov esi, ecx
mov ebx, edx
xor eax, eax
push ebp
push 0x7e37b5
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
mov edx, 0x7e37d4
call fcn.0040a954
mov eax, dword [ebp - 4]
test eax, eax
je 0x7e3419
sub eax, 4
mov eax, dword [eax]
lea esi, [esi + eax + 1]
mov dword [0x8b2628], esi
lea eax, [ebp - 4]
mov edx, 0x7e37f4
call fcn.0040b200
mov esi, ebx
mov eax, esi
test eax, eax
je 0x7e343d
sub eax, 4
mov eax, dword [eax]
cmp eax, 2
jne 0x7e3593
mov eax, ebx
call fcn.00429d14
mov edi, eax
and edi, 0x80000003
jns 0x7e345c
dec edi
or edi, 0xfffffffc
inc edi
sub edi, 1
jb 0x7e346b
je 0x7e347a
dec edi
je 0x7e3489
dec edi
je 0x7e3498
jmp 0x7e34a5
lea eax, [ebp - 8]
mov edx, 0x7e380c
call fcn.0040a954
jmp 0x7e34a5
lea eax, [ebp - 8]
mov edx, 0x7e3820
call fcn.0040a954
jmp 0x7e34a5
lea eax, [ebp - 8]
mov edx, 0x7e3834
call fcn.0040a954
jmp 0x7e34a5
lea eax, [ebp - 8]
mov edx, 0x7e3848
call fcn.0040a954
mov eax, dword [ebp - 8]
movzx eax, word [eax]
sub ax, 0x41
je 0x7e34b8
dec ax
je 0x7e34e7
jmp 0x7e3514
lea eax, [ebp - 0xc]
push eax
movzx eax, word [ebx]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e385c
call fcn.0040b3c8
mov edx, dword [ebp - 0xc]
lea eax, [ebp - 4]
call fcn.0040b200
jmp 0x7e3514
lea eax, [ebp - 0x10]
push eax
movzx eax, word [ebx]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e3908
call fcn.0040b3c8
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 4]
call fcn.0040b200
lea eax, [ebp - 4]
mov edx, 0x7e39b4
call fcn.0040b200
mov eax, dword [ebp - 8]
movzx eax, word [eax + 2]
sub ax, 0x41
je 0x7e3535
dec ax
je 0x7e3565
jmp 0x7e3593
lea eax, [ebp - 0x14]
push eax
movzx eax, word [ebx + 2]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e385c
call fcn.0040b3c8
mov edx, dword [ebp - 0x14]
lea eax, [ebp - 4]
call fcn.0040b200
jmp 0x7e3593
lea eax, [ebp - 0x18]
push eax
movzx eax, word [ebx + 2]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e3908
call fcn.0040b3c8
mov edx, dword [ebp - 0x18]
lea eax, [ebp - 4]
call fcn.0040b200
mov eax, esi
test eax, eax
je 0x7e359e
sub eax, 4
mov eax, dword [eax]
cmp eax, 5
jne 0x7e378d
movzx eax, word [ebx]
movzx edx, word [ebx + 4]
add eax, edx
movzx edx, word [ebx + 8]
add eax, edx
sub eax, 0x90
lea edi, [eax + eax*2]
movzx eax, word [ebx + 2]
movzx edx, word [ebx + 6]
add eax, edx
sub eax, 0x60
lea eax, [eax + eax*8]
add edi, eax
mov ecx, 0xa
mov eax, edi
cdq
idiv ecx
mov edi, edx
cmp edi, 9
ja case.default.0x7e35e5
jmp dword [edi*4 + 0x7e35ec]
lea eax, [ebp - 8]
mov edx, 0x7e39c8
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e39e0
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e39f8
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a10
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a28
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a40
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a58
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a70
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3a88
call fcn.0040a954
jmp case.default.0x7e35e5
lea eax, [ebp - 8]
mov edx, 0x7e3aa0
call fcn.0040a954
mov eax, esi
test eax, eax
je 0x7e36b6
sub eax, 4
mov eax, dword [eax]
mov edi, eax
test edi, edi
jle 0x7e378d
mov esi, 1
cmp esi, 1
jle 0x7e36d7
lea eax, [ebp - 4]
mov edx, 0x7e39b4
call fcn.0040b200
mov eax, dword [ebp - 8]
movzx eax, word [eax + esi*2 - 2]
sub ax, 0x41
je 0x7e36f4
dec ax
je 0x7e3725
dec ax
je 0x7e3756
jmp 0x7e3785
lea eax, [ebp - 0x1c]
push eax
movzx eax, word [ebx + esi*2 - 2]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e385c
call fcn.0040b3c8
mov edx, dword [ebp - 0x1c]
lea eax, [ebp - 4]
call fcn.0040b200
jmp 0x7e3785
lea eax, [ebp - 0x20]
push eax
movzx eax, word [ebx + esi*2 - 2]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e3908
call fcn.0040b3c8
mov edx, dword [ebp - 0x20]
lea eax, [ebp - 4]
call fcn.0040b200
jmp 0x7e3785
lea eax, [ebp - 0x24]
push eax
movzx eax, word [ebx + esi*2 - 2]
sub eax, 0x30
mov edx, eax
add edx, edx
add edx, edx
add edx, edx
inc edx
mov ecx, 7
mov eax, 0x7e3ab8
call fcn.0040b3c8
mov edx, dword [ebp - 0x24]
lea eax, [ebp - 4]
call fcn.0040b200
inc esi
dec edi
jne 0x7e36c5
mov eax, dword [ebp + 8]
mov edx, dword [ebp - 4]
call fcn.0040a90c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x7e37bc
lea eax, [ebp - 0x24]
mov edx, 9
call fcn.0040a58c
pop eax
jmp eax