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

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x30
and dword [ebp - 4], 0
push ebx
push esi
mov esi, dword [ebp + 0x10]
push edi
lea edi, [esi + 0x258]
mov dword [ebp - 0x1c], edi
mov ecx, dword [ebp - 4]
push 1
pop eax
shl eax, cl
test dword [ebp + 0x14], eax
je 0x698c97
push 0
push 0
push ecx
push dword [ebp + 0xc]
call fcn.0069ae31
mov ebx, eax
test ebx, ebx
je 0x698d59
cmp dword [edi + 0x88], ebx
je 0x698a1d
mov eax, dword [edi]
test eax, eax
je 0x698a1d
push eax
call dword [0x1001034]
and dword [edi + 0x88], 0
and dword [edi], 0
cmp dword [edi], 0
jne 0x698a3b
push ebx
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [edi], eax
je 0x698d59
mov dword [edi + 0x88], ebx
mov edi, dword [edi]
push ebx
push edi
push dword [ebp - 4]
push dword [ebp + 0xc]
call fcn.0069ae31
mov ecx, dword [edi + 8]
cmp ecx, 1
jbe 0x698a7c
mov edx, dword [edi + 0xc]
cmp edx, ebx
jae 0x698caa
mov eax, dword [edi + 0x10]
cmp eax, ebx
jae 0x698caa
cmp dword [edi + edx*4 + 0x18], ebx
jae 0x698caa
cmp dword [edi + eax*4 + 0x18], ebx
jae 0x698caa
movsx edx, word [esi + 8]
mov eax, 0x80
mov dword [ebp + 0x10], edx
cmp edx, eax
jbe 0x698a8f
mov dword [ebp + 0x10], eax
push 0xc
pop eax
cmp dword [ebp + 0x10], eax
jae 0x698a9a
mov dword [ebp + 0x10], eax
mov eax, dword [ebp + 0x10]
push 5
add eax, 0xfffffff9
xor edx, edx
pop ebx
div ebx
mov ebx, eax
cmp ebx, 9
jbe 0x698ab1
push 9
pop ebx
mov eax, ecx
xor edx, edx
div ebx
push 0x64
pop edx
add eax, 0xa
cmp eax, edx
mov dword [ebp - 0x10], eax
ja 0x698ac7
mov dword [ebp - 0x10], edx
cmp dword [edi + 4], 2
jne 0x698b84
mov dword [ebp - 0x14], 1
mov dword [ebp - 0x18], 7
mov eax, dword [ebp - 0x10]
mov ecx, eax
shl ecx, 2
cmp dword [esi + 0x36c], ecx
mov dword [ebp - 0x10], ecx
je 0x698b16
mov eax, dword [esi + 0x368]
lea ebx, [esi + 0x368]
test eax, eax
je 0x698b16
push eax
call dword [0x1001034]
and dword [ebx], 0
and dword [esi + 0x36c], 0
mov ecx, dword [ebp - 0x10]
cmp dword [esi + 0x368], 0
jne 0x698b3f
push ecx
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [esi + 0x368], eax
je 0x698d59
mov eax, dword [ebp - 0x10]
mov dword [esi + 0x36c], eax
xor eax, eax
cmp dword [ebp - 0x14], eax
je 0x698cb4
mov ecx, dword [esi + 0x368]
cmp dword [ebp + 0x18], eax
push 1
mov dword [ecx], eax
pop ecx
je 0x698b6a
mov eax, dword [edi + 0xc]
push 9
xor edx, edx
pop ebx
div ebx
mov dword [esi + 0x360], edx
mov ebx, dword [esi + 0x360]
cmp ebx, dword [edi + 8]
jae 0x698ba6
mov eax, dword [esi + 0x368]
mov dword [eax + ecx*4], ebx
inc ecx
add ebx, 9
jmp 0x698b70
push 1
xor ebx, ebx
pop edx
mov dword [ebp - 0x14], ebx
cmp ecx, edx
jb 0x698b9a
lea edx, [edx + edx*4]
shl edx, 1
inc ebx
cmp edx, ecx
jbe 0x698b90
lea eax, [ebx + ebx + 1]
mov dword [ebp - 0x18], eax
jmp 0x698adf
mov eax, dword [edi + 8]
cmp ebx, eax
jbe 0x698baf
mov ebx, eax
mov eax, dword [esi + 0x368]
mov dword [eax + ecx*4], ebx
mov dword [esi + 0x364], ecx
mov ecx, dword [ebp + 0x10]
lea ebx, [ecx + ecx*2 + 4]
cmp dword [esi + 0x2dc], ebx
jae 0x698c0c
mov eax, dword [esi + 0x2d8]
test eax, eax
je 0x698bec
push eax
call dword [0x1001034]
and dword [esi + 0x2d8], 0
and dword [esi + 0x2dc], 0
push ebx
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [esi + 0x2d8], eax
je 0x698d59
mov ecx, dword [ebp + 0x10]
mov dword [esi + 0x2dc], ebx
push dword [ebp - 0x14]
mov eax, dword [esi + 0x2d8]
lea edx, [ecx + ecx + 4]
push esi
mov dword [eax], edx
push dword [ebp - 0x18]
mov dword [ebp - 0x30], 0x4b425935
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], eax
push ecx
mov ecx, dword [eax]
add ecx, eax
add eax, 4
push ecx
push eax
push edi
call fcn.006997c7
mov ebx, eax
mov eax, dword [esi + 0x368]
mov edi, ebx
mov dword [esi + 0x370], 1
shl edi, 2
push dword [eax + edi]
push dword [ebp - 4]
push 0x16
push dword [ebp + 0xc]
call fcn.0069ae2b
mov eax, dword [esi + 0x368]
mov ecx, dword [eax + ebx*4 + 4]
sub ecx, dword [edi + eax]
push ecx
push dword [ebp - 4]
push 0x17
push dword [ebp + 0xc]
call fcn.0069ae2b
lea eax, [ebp - 0x30]
and dword [esi + 0x370], 0
push eax
push dword [ebp + 8]
push dword [esi + 4]
call fcn.00696eb4
mov edi, dword [ebp - 0x1c]
inc dword [ebp - 4]
add edi, 4
cmp dword [ebp - 4], 0x20
mov dword [ebp - 0x1c], edi
jb 0x6989d6
push 1
pop eax
pop edi
pop esi
pop ebx
leave
ret 0x14
cmp dword [ebp + 0x18], eax
je 0x698cbf
mov dword [esi + 0x360], eax
mov eax, dword [esi + 0x368]
mov ecx, dword [esi + 0x360]
mov dword [ebp - 8], 1
mov dword [eax], ecx
mov eax, dword [edi + 0x18]
add eax, edi
push eax
call fcn.0069979c
push 1
add eax, 3
pop ebx
mov dword [ebp - 0xc], eax
cmp dword [edi + 8], ebx
jbe 0x698d51
mov eax, dword [ebp + 0x10]
sub eax, dword [ebp - 0x18]
mov dword [ebp - 0x20], eax
lea eax, [edi + 0x1c]
mov dword [ebp - 0x10], eax
mov ecx, dword [ebp - 0x10]
mov eax, edi
add eax, dword [ecx]
push eax
call fcn.0069979c
mov ecx, dword [ebp - 0xc]
mov dword [ebp - 0x24], eax
lea ecx, [ecx + eax + 3]
cmp ecx, dword [ebp - 0x20]
mov dword [ebp - 0xc], ecx
ja 0x698d32
mov eax, dword [esi + 0x368]
mov edx, dword [ebp - 8]
mov ecx, ebx
sub ecx, dword [eax + edx*4 - 4]
cmp ecx, 9
jb 0x698d47
mov eax, dword [ebp - 0x24]
mov edx, dword [ebp - 8]
mov ecx, dword [esi + 0x368]
inc dword [ebp - 8]
add eax, 3
mov dword [ecx + edx*4], ebx
mov dword [ebp - 0xc], eax
add dword [ebp - 0x10], 4
inc ebx
cmp ebx, dword [edi + 8]
jb 0x698cfc
mov ecx, dword [ebp - 8]
jmp 0x698baf
xor eax, eax
jmp 0x698cad