Function at 0x4be19c
Capabilities:
Parse credit card information

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
push 0x40a2a6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x3c
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401d18
mov edi, dword [ebp + 8]
xor ebx, ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x18], ebx
mov eax, dword [edi]
mov dword [ebp - 0x1c], ebx
cmp eax, 0x679058
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x4c], eax
je 0x4be1e9
call sub.MSVBVM60.DLL___vbaFailedFriend
call fcn.00613b6f
mov edx, eax
lea ecx, [ebp - 0x18]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL___vbaLenBstr
mov esi, eax
neg esi
sbb esi, esi
inc esi
neg esi
call fcn.00611597
lea ecx, [ebp - 0x18]
or esi, eax
call sub.MSVBVM60.DLL___vbaFreeStr
cmp si, bx
jne 0x4be5fb
call fcn.00611889
cmp eax, 0x46
jg 0x4be241
je 0x4be255
cmp eax, 7
jl 0x4be276
cmp eax, 8
jle 0x4be255
cmp eax, 0x23
je 0x4be255
cmp eax, 0x44
je 0x4be255
jmp 0x4be276
cmp eax, 0x50
je 0x4be255
cmp eax, 0x56
je 0x4be255
cmp eax, 0x5e
jle 0x4be276
cmp eax, 0x62
jg 0x4be276
call fcn.006114fd
mov si, ax
neg si
sbb esi, esi
inc esi
call fcn.00611527
neg ax
sbb eax, eax
inc eax
test eax, esi
jne 0x4be5fb
call fcn.006115d6
test ax, ax
je 0x4be2da
cmp dword [0x65649c], ebx
jne 0x4be297
push 0x65649c
push 0x40d4c8
call sub.MSVBVM60.DLL___vbaNew2
mov esi, dword [0x65649c]
mov ebx, dword [esi]
call fcn.00613c2d
mov edx, eax
lea ecx, [ebp - 0x18]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x44b748
push esi
call dword [ebx + 0x6f8]
test eax, eax
fnclex
jge 0x4be2d2
push 0x6f8
push 0x441430
push esi
push eax
call sub.MSVBVM60.DLL___vbaHresultCheckObj
lea ecx, [ebp - 0x18]
call sub.MSVBVM60.DLL___vbaFreeStr
call fcn.00611889
xor ebx, ebx
cmp eax, 0x3a
setg bl
call fcn.00611889
xor ecx, ecx
cmp eax, 0x2e
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x3b
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x40
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x46
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x47
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x48
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x49
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x4a
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x55
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x56
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x57
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x5e
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x5f
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x60
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x61
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x62
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x65
setne cl
and ebx, ecx
neg ebx
sbb ebx, ebx
neg ebx
call fcn.00611889
xor ecx, ecx
cmp eax, 0x66
setne cl
test ecx, ebx
jne 0x4be46e
mov eax, dword [ebp - 0x4c]
push edi
call dword [eax + 0x7a4]
xor ebx, ebx
jmp 0x4be589
call fcn.00613b6f
mov edx, eax
lea ecx, [ebp - 0x18]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL___vbaLenBstr
xor ecx, ecx
test eax, eax
setg cl
neg ecx
mov si, cx
lea ecx, [ebp - 0x18]
call sub.MSVBVM60.DLL___vbaFreeStr
xor ebx, ebx
cmp si, bx
je 0x4be589
mov edi, 0x43f954
push edi
push 0x41c198
call sub.MSVBVM60.DLL___vbaNew
push eax
lea eax, [ebp - 0x1c]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
push eax
call sub.MSVBVM60.DLL___vbaCastObj
push eax
lea eax, [ebp - 0x14]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
lea ecx, [ebp - 0x1c]
call sub.MSVBVM60.DLL___vbaFreeObj
push ebx
push 0x44bca4
push dword [ebp - 0x14]
call sub.MSVBVM60.DLL___vbaLateMemCall
add esp, 0xc
cmp dword [0x658c5c], ebx
jne 0x4be4fc
push 0x658c5c
push 0x43f920
call sub.MSVBVM60.DLL___vbaNew2
push dword [ebp - 0x14]
mov esi, dword [0x658c5c]
lea eax, [ebp - 0x1c]
mov ebx, dword [esi]
push eax
call sub.MSVBVM60.DLL___vbaObjSetAddref
push eax
push esi
call dword [ebx + 0x10]
xor ebx, ebx
cmp eax, ebx
fnclex
jge 0x4be52b
push 0x10
push 0x43f910
push esi
push eax
call sub.MSVBVM60.DLL___vbaHresultCheckObj
lea ecx, [ebp - 0x1c]
call sub.MSVBVM60.DLL___vbaFreeObj
push edi
push ebx
call sub.MSVBVM60.DLL___vbaCastObj
push eax
lea eax, [ebp - 0x14]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
cmp word [ebp + 0xc], bx
jne 0x4be586
sub esp, 0x10
lea esi, [ebp - 0x30]
mov edi, esp
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x30], 2
mov eax, dword [ebp - 0x4c]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov edi, dword [ebp + 8]
push edi
call dword [eax + 0x2ac]
cmp eax, ebx
fnclex
jge 0x4be589
push 0x2ac
push 0x43fb90
push edi
push eax
call sub.MSVBVM60.DLL___vbaHresultCheckObj
jmp 0x4be589
mov edi, dword [ebp + 8]
call fcn.0060cd6a
push ebx
call fcn.00611543
mov eax, dword [edi]
push edi
call dword [eax + 0x354]
push eax
lea eax, [ebp - 0x1c]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
mov esi, eax
lea ecx, [ebp - 0x20]
push ecx
push 3
mov eax, dword [esi]
push esi
call dword [eax + 0x40]
cmp eax, ebx
fnclex
jge 0x4be5c9
push 0x40
push 0x440ef8
push esi
push eax
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov eax, dword [ebp - 0x20]
push ebx
push eax
mov esi, eax
mov ecx, dword [eax]
call dword [ecx + 0x6c]
cmp eax, ebx
fnclex
jge 0x4be5e9
push 0x6c
push 0x440f6c
push esi
push eax
call sub.MSVBVM60.DLL___vbaHresultCheckObj
lea eax, [ebp - 0x20]
push eax
lea eax, [ebp - 0x1c]
push eax
push 2
call sub.MSVBVM60.DLL___vbaFreeObjList
add esp, 0xc
push 0x4be626
jmp 0x4be61d
lea ecx, [ebp - 0x14]
call sub.MSVBVM60.DLL___vbaFreeObj
ret