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

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x30
push ebx
push esi
push edi
push 0x288
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [ebp - 0x1c], eax
je 0x6990bd
mov esi, dword [ebp + 0x10]
and dword [ebp - 4], 0
lea ebx, [esi + 0x258]
mov dword [ebp - 0x14], ebx
mov ecx, dword [ebp - 4]
push 1
pop eax
shl eax, cl
test dword [ebp + 0x14], eax
je 0x699097
push 0
push 0
push ecx
push dword [ebp + 0xc]
call fcn.0069ae31
mov edi, eax
test edi, edi
je 0x6990bd
cmp dword [ebx + 0x88], edi
je 0x698dd8
mov eax, dword [ebx]
test eax, eax
je 0x698dd8
push eax
call dword [0x1001034]
and dword [ebx + 0x88], 0
and dword [ebx], 0
cmp dword [ebx], 0
jne 0x698df6
push edi
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [ebx], eax
je 0x6990bd
mov dword [ebx + 0x88], edi
mov ebx, dword [ebx]
push edi
push ebx
push dword [ebp - 4]
push dword [ebp + 0xc]
call fcn.0069ae31
mov ecx, dword [ebx + 8]
cmp ecx, 1
jbe 0x698e37
mov edx, dword [ebx + 0xc]
cmp edx, edi
jae 0x6990aa
mov eax, dword [ebx + 0x10]
cmp eax, edi
jae 0x6990aa
cmp dword [ebx + edx*4 + 0x18], edi
jae 0x6990aa
cmp dword [ebx + eax*4 + 0x18], edi
jae 0x6990aa
movsx edx, word [esi + 8]
mov eax, 0x80
mov dword [ebp + 0x10], edx
cmp edx, eax
jbe 0x698e4a
mov dword [ebp + 0x10], eax
push 0xc
pop eax
cmp dword [ebp + 0x10], eax
jae 0x698e55
mov dword [ebp + 0x10], eax
sub dword [ebp + 0x10], 8
push 5
mov eax, dword [ebp + 0x10]
xor edx, edx
add eax, 0xfffffff9
pop edi
div edi
mov edi, eax
cmp edi, 9
jbe 0x698e70
push 9
pop edi
mov eax, ecx
xor edx, edx
div edi
add eax, 0xa
cmp eax, 0x64
ja 0x698e81
push 0x64
pop eax
push 1
xor edi, edi
pop edx
cmp ecx, edx
jb 0x698e94
lea edx, [edx + edx*4]
shl edx, 1
inc edi
cmp edx, ecx
jbe 0x698e8a
lea ecx, [edi + edi + 1]
mov dword [ebp - 0x18], ecx
mov ecx, eax
shl ecx, 2
cmp dword [esi + 0x36c], ecx
mov dword [ebp - 0x10], ecx
je 0x698ecf
mov eax, dword [esi + 0x368]
lea edi, [esi + 0x368]
test eax, eax
je 0x698ecf
push eax
call dword [0x1001034]
and dword [edi], 0
and dword [esi + 0x36c], 0
mov ecx, dword [ebp - 0x10]
cmp dword [esi + 0x368], 0
jne 0x698ef8
push ecx
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [esi + 0x368], eax
je 0x6990bd
mov eax, dword [ebp - 0x10]
mov dword [esi + 0x36c], eax
cmp dword [ebp + 0x18], 0
je 0x698f05
and dword [esi + 0x360], 0
mov eax, dword [esi + 0x368]
mov ecx, dword [esi + 0x360]
mov dword [ebp - 0xc], 1
mov dword [eax], ecx
mov eax, dword [ebx + 0x18]
add eax, ebx
push eax
call fcn.0069979c
push 1
lea edi, [eax + 3]
pop eax
cmp dword [ebx + 8], eax
mov dword [ebp - 8], eax
jbe 0x698f97
mov eax, dword [ebp + 0x10]
sub eax, dword [ebp - 0x18]
mov dword [ebp - 0x20], eax
lea eax, [ebx + 0x1c]
mov dword [ebp - 0x10], eax
mov ecx, dword [ebp - 0x10]
mov eax, ebx
add eax, dword [ecx]
push eax
call fcn.0069979c
lea edi, [edi + eax + 3]
mov dword [ebp - 0x24], eax
cmp edi, dword [ebp - 0x20]
ja 0x698f73
mov eax, dword [esi + 0x368]
mov edx, dword [ebp - 0xc]
mov ecx, dword [ebp - 8]
sub ecx, dword [eax + edx*4 - 4]
cmp ecx, 9
jb 0x698f88
mov eax, dword [ebp - 0x24]
mov ecx, dword [esi + 0x368]
mov edi, dword [ebp - 0xc]
mov edx, dword [ebp - 8]
inc dword [ebp - 0xc]
mov dword [ecx + edi*4], edx
lea edi, [eax + 3]
inc dword [ebp - 8]
add dword [ebp - 0x10], 4
mov eax, dword [ebp - 8]
cmp eax, dword [ebx + 8]
jb 0x698f42
mov ecx, dword [esi + 0x368]
mov eax, dword [ebp - 0xc]
mov edx, dword [ebp - 8]
mov edi, dword [ebp + 0x10]
mov dword [ecx + eax*4], edx
mov dword [esi + 0x364], eax
lea eax, [edi + edi*2 + 4]
cmp dword [esi + 0x2dc], eax
jae 0x698fff
mov eax, dword [esi + 0x2d8]
test eax, eax
je 0x698fda
push eax
call dword [0x1001034]
and dword [esi + 0x2d8], 0
and dword [esi + 0x2dc], 0
lea eax, [edi + edi*2 + 4]
push eax
push 0x40
call dword [0x1001004]
test eax, eax
mov dword [esi + 0x2d8], eax
je 0x6990bd
lea eax, [edi + edi*2 + 4]
mov dword [esi + 0x2dc], eax
mov eax, dword [esi + 0x2d8]
push esi
push dword [ebp - 0x18]
lea ecx, [edi + edi + 4]
mov dword [eax], ecx
add ecx, eax
push edi
add eax, 4
push ecx
push eax
push ebx
call fcn.00699ae2
mov ebx, eax
mov eax, dword [esi + 0x368]
mov edi, ebx
mov dword [esi + 0x370], 1
shl edi, 2
push dword [edi + eax]
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
mov eax, dword [ebp - 0x1c]
and dword [esi + 0x370], 0
push eax
push esi
mov dword [ebp - 0x30], 0x4b425931
mov dword [ebp - 0x2c], 0x288
mov dword [ebp - 0x28], eax
call fcn.006983fe
test eax, eax
je 0x699094
lea eax, [ebp - 0x30]
push eax
push dword [ebp + 8]
push dword [esi + 4]
call fcn.00696eb4
mov ebx, dword [ebp - 0x14]
inc dword [ebp - 4]
add ebx, 4
cmp dword [ebp - 4], 0x20
mov dword [ebp - 0x14], ebx
jb 0x698d91
push dword [ebp - 0x1c]
call dword [0x1001034]
push 1
pop eax
pop edi
pop esi
pop ebx
leave
ret 0x14
xor eax, eax
jmp 0x6990b6