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

Disassembly:
sub esp, 0x20
mov eax, dword [esp + 0x24]
push ebx
mov dword [esp + 0x20], eax
push ebp
vmovq xmm0, qword [eax]
mov edx, dword [eax + 8]
vmovq qword [esp + 0x18], xmm0
mov eax, dword [esp + 0x18]
inc eax
mov dword [esp + 0xc], ecx
push esi
push edi
mov dword [esp + 0x34], edx
mov ebx, eax
mov dword [esp + 0x28], edx
mov dword [esp + 0x1c], eax
mov dword [esp + 0x20], eax
mov dword [esp + 0x24], ebx
nop dword [eax + eax]
mov cl, byte [eax]
cmp cl, 0x5c
jne 0x1002d628
mov cl, byte [eax + 1]
lea esi, [eax + 1]
mov ebp, eax
mov dword [esp + 0x20], esi
movzx eax, cl
sub ebp, edx
mov dword [esp + 0x18], ebp
mov dl, byte [eax + 0x101b7000]
test dl, dl
je 0x1002d546
mov byte [ebx], dl
lea eax, [esi + 1]
mov edx, dword [esp + 0x34]
inc ebx
jmp 0x1002d503
cmp cl, 0x75
jne 0x1002d65d
inc esi
xor edx, edx
mov dword [esp + 0x20], esi
xor edi, edi
mov cl, byte [esi]
shl edx, 4
movsx eax, cl
add edx, eax
lea eax, [ecx - 0x30]
cmp al, 9
ja 0x1002d56e
sub edx, 0x30
jmp 0x1002d585
lea eax, [ecx - 0x41]
cmp al, 5
ja 0x1002d57a
sub edx, 0x37
jmp 0x1002d585
sub cl, 0x61
cmp cl, 5
ja 0x1002d599
sub edx, 0x57
inc esi
inc edi
mov dword [esp + 0x20], esi
cmp edi, 4
jl 0x1002d558
mov ecx, dword [esp + 0x14]
lea edi, [ecx + 0x18]
jmp 0x1002d5ab
mov ecx, dword [esp + 0x14]
xor edx, edx
lea edi, [ecx + 0x18]
mov dword [edi], 8
mov dword [edi + 4], ebp
cmp dword [edi], 0
jne 0x1002d6a7
lea ebp, [edx - 0xd800]
cmp ebp, 0x3ff
ja 0x1002d60a
cmp byte [esi], 0x5c
jne 0x1002d64e
cmp byte [esi + 1], 0x75
lea eax, [esi + 1]
mov dword [esp + 0x20], eax
jne 0x1002d64e
mov esi, dword [esp + 0x18]
inc eax
mov dword [esp + 0x20], eax
lea eax, [esp + 0x20]
push esi
push eax
call fcn.1002e2e0
cmp dword [edi], 0
jne 0x1002d644
add eax, 0xffff2400
cmp eax, 0x3ff
ja 0x1002d63b
mov edx, ebp
shl edx, 0xa
or edx, eax
add edx, 0x10000
lea ecx, [esp + 0x20]
call fcn.1002e350
mov edx, dword [esp + 0x28]
mov ebx, dword [esp + 0x24]
mov eax, dword [esp + 0x20]
mov dword [esp + 0x34], edx
jmp 0x1002d510
cmp cl, 0x22
je 0x1002d693
cmp cl, 0x20
jb 0x1002d66f
inc eax
mov byte [ebx], cl
inc ebx
jmp 0x1002d503
mov dword [edi], 9
mov dword [edi + 4], esi
mov ebp, dword [esp + 0x28]
mov ebx, dword [esp + 0x24]
jmp 0x1002d6ab
mov esi, dword [esp + 0x18]
mov dword [edi], 9
mov dword [edi + 4], esi
jmp 0x1002d6a7
mov edi, dword [esp + 0x14]
add edi, 0x18
mov dword [edi], 0xa
mov dword [edi + 4], ebp
jmp 0x1002d6a7
mov edi, dword [esp + 0x14]
sub eax, edx
mov ebp, dword [esp + 0x34]
add edi, 0x18
mov dword [edi + 4], eax
test cl, cl
jne 0x1002d68b
mov dword [edi], 0xb
jmp 0x1002d6ab
mov dword [edi], 0xc
jmp 0x1002d6ab
mov edi, dword [esp + 0x14]
inc eax
mov byte [ebx], 0
inc ebx
mov dword [esp + 0x20], eax
add edi, 0x18
mov dword [esp + 0x24], ebx
mov ebp, dword [esp + 0x34]
cmp dword [edi], 0
jne 0x1002d6fa
mov esi, dword [esp + 0x38]
mov edi, dword [esp + 0x1c]
sub ebx, edi
dec ebx
mov eax, dword [esi + 0x28]
mov ecx, dword [esi + 0x24]
sub eax, ecx
cmp eax, 0x10
jge 0x1002d6d1
push ecx
lea ecx, [esi + 0x18]
call fcn.1002e400
mov ecx, dword [esi + 0x24]
test edi, edi
vpxor xmm0, xmm0, xmm0
mov edx, 0x405
lea eax, [ecx + 0x10]
mov dword [esi + 0x24], eax
mov eax, 0x101b6a38
vmovdqu xmmword [ecx], xmm0
cmovne eax, edi
mov dword [ecx], ebx
mov dword [ecx + 8], eax
mov word [ecx + 0xe], dx
mov eax, dword [esp + 0x2c]
vmovq xmm0, qword [esp + 0x20]
pop edi
pop esi
vmovq qword [eax], xmm0
mov dword [eax + 8], ebp
pop ebp
pop ebx
add esp, 0x20
ret 0xc