Function at 0x4137f0
Capabilities:
Reference http user-agent string

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x401556
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0xd8
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x4014e0
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov edx, dword [ebp + 0xc]
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 4], 3
mov eax, dword [ebp + 8]
mov ecx, dword [eax]
push ecx
lea edx, [ebp - 0xa4]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSetAddref]
mov dword [ebp - 4], 4
mov dword [ebp - 0x6c], 0x80020004
mov dword [ebp - 0x74], 0xa
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov eax, esp
mov ecx, dword [ebp - 0x74]
mov dword [eax], ecx
mov edx, dword [ebp - 0x70]
mov dword [eax + 4], edx
mov ecx, dword [ebp - 0x6c]
mov dword [eax + 8], ecx
mov edx, dword [ebp - 0x68]
mov dword [eax + 0xc], edx
push 0x406c3c
mov eax, dword [ebp - 0x30]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
push eax
push 0x4054d0
mov ecx, dword [ebp - 0xa4]
mov edx, dword [ecx]
mov eax, dword [ebp - 0xa4]
push eax
call dword [edx + 0x24]
fnclex
mov dword [ebp - 0x9c], eax
cmp dword [ebp - 0x9c], 0
jge 0x413908
push 0x24
push 0x404640
mov ecx, dword [ebp - 0xa4]
push ecx
mov edx, dword [ebp - 0x9c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0xc4], eax
jmp 0x413912
mov dword [ebp - 0xc4], 0
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov dword [ebp - 4], 5
mov dword [ebp - 0x6c], 0x80020004
mov dword [ebp - 0x74], 0xa
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov eax, esp
mov ecx, dword [ebp - 0x74]
mov dword [eax], ecx
mov edx, dword [ebp - 0x70]
mov dword [eax + 4], edx
mov ecx, dword [ebp - 0x6c]
mov dword [eax + 8], ecx
mov edx, dword [ebp - 0x68]
mov dword [eax + 0xc], edx
mov eax, dword [ebp - 0xa4]
mov ecx, dword [eax]
mov edx, dword [ebp - 0xa4]
push edx
call dword [ecx + 0x34]
fnclex
mov dword [ebp - 0x9c], eax
cmp dword [ebp - 0x9c], 0
jge 0x413999
push 0x34
push 0x404640
mov eax, dword [ebp - 0xa4]
push eax
mov ecx, dword [ebp - 0x9c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0xc8], eax
jmp 0x4139a3
mov dword [ebp - 0xc8], 0
mov dword [ebp - 4], 6
lea edx, [ebp - 0x34]
push edx
mov eax, dword [ebp - 0xa4]
mov ecx, dword [eax]
mov edx, dword [ebp - 0xa4]
push edx
call dword [ecx + 0x40]
fnclex
mov dword [ebp - 0x9c], eax
cmp dword [ebp - 0x9c], 0
jge 0x4139f4
push 0x40
push 0x404640
mov eax, dword [ebp - 0xa4]
push eax
mov ecx, dword [ebp - 0x9c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov dword [ebp - 0xcc], eax
jmp 0x4139fe
mov dword [ebp - 0xcc], 0
mov dword [ebp - 0x6c], 0x406cb4
mov dword [ebp - 0x74], 8
lea edx, [ebp - 0x74]
lea ecx, [ebp - 0x44]
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
push 0
push 0xffffffffffffffff
lea edx, [ebp - 0x44]
push edx
mov eax, dword [ebp - 0x34]
push eax
lea ecx, [ebp - 0x54]
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcSplit]
lea edx, [ebp - 0x54]
push edx
push 0x2008
call dword [sym.imp.MSVBVM60.DLL___vbaAryVar]
mov dword [ebp - 0x98], eax
lea eax, [ebp - 0x98]
push eax
lea ecx, [ebp - 0x28]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaAryCopy]
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea edx, [ebp - 0x54]
push edx
lea eax, [ebp - 0x44]
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0xc
mov dword [ebp - 4], 7
mov ecx, dword [ebp - 0x28]
push ecx
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaUbound]
mov dword [ebp - 0xac], eax
mov dword [ebp - 0xa8], 1
mov dword [ebp - 0x24], 1
jmp 0x413aae
mov edx, dword [ebp - 0x24]
add edx, dword [ebp - 0xa8]
jo 0x413e0a
mov dword [ebp - 0x24], edx
mov eax, dword [ebp - 0x24]
cmp eax, dword [ebp - 0xac]
jg 0x413c5e
mov dword [ebp - 4], 8
mov dword [ebp - 0x7c], 0
mov dword [ebp - 0x84], 2
mov dword [ebp - 0x6c], 0x406cf4
mov dword [ebp - 0x74], 8
lea edx, [ebp - 0x74]
lea ecx, [ebp - 0x44]
call dword [sym.imp.MSVBVM60.DLL___vbaVarDup]
cmp dword [ebp - 0x28], 0
je 0x413b44
mov ecx, dword [ebp - 0x28]
cmp word [ecx], 1
jne 0x413b44
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x24]
sub eax, dword [edx + 0x14]
mov dword [ebp - 0xa0], eax
mov ecx, dword [ebp - 0x28]
mov edx, dword [ebp - 0xa0]
cmp edx, dword [ecx + 0x10]
jae 0x413b27
mov dword [ebp - 0xd0], 0
jmp 0x413b33
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xd0], eax
mov eax, dword [ebp - 0xa0]
shl eax, 2
mov dword [ebp - 0xd4], eax
jmp 0x413b50
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xd4], eax
push 0
push 0xffffffffffffffff
lea ecx, [ebp - 0x44]
push ecx
mov edx, dword [ebp - 0x28]
mov eax, dword [edx + 0xc]
mov ecx, dword [ebp - 0xd4]
mov edx, dword [eax + ecx]
push edx
lea eax, [ebp - 0x54]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcSplit]
cmp dword [ebp - 0x28], 0
je 0x413bc7
mov ecx, dword [ebp - 0x28]
cmp word [ecx], 1
jne 0x413bc7
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x24]
sub eax, dword [edx + 0x14]
mov dword [ebp - 0x9c], eax
mov ecx, dword [ebp - 0x28]
mov edx, dword [ebp - 0x9c]
cmp edx, dword [ecx + 0x10]
jae 0x413baa
mov dword [ebp - 0xd8], 0
jmp 0x413bb6
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xd8], eax
mov eax, dword [ebp - 0x9c]
shl eax, 2
mov dword [ebp - 0xdc], eax
jmp 0x413bd3
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xdc], eax
mov eax, 0x10
call sub.MSVBVM60.DLL___vbaChkstk
mov ecx, esp
mov edx, dword [ebp - 0x84]
mov dword [ecx], edx
mov eax, dword [ebp - 0x80]
mov dword [ecx + 4], eax
mov edx, dword [ebp - 0x7c]
mov dword [ecx + 8], edx
mov eax, dword [ebp - 0x78]
mov dword [ecx + 0xc], eax
push 1
lea ecx, [ebp - 0x54]
push ecx
lea edx, [ebp - 0x64]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaVarIndexLoad]
add esp, 0x1c
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
mov eax, dword [ebp - 0x28]
mov ecx, dword [eax + 0xc]
add ecx, dword [ebp - 0xdc]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x64]
push ecx
lea edx, [ebp - 0x54]
push edx
lea eax, [ebp - 0x44]
push eax
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0x10
mov dword [ebp - 4], 9
jmp 0x413a9c
mov dword [ebp - 4], 0xa
mov dword [ebp - 0x3c], 0x80020004
mov dword [ebp - 0x44], 0xa
lea ecx, [ebp - 0x44]
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcRandomize]
lea ecx, [ebp - 0x44]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov dword [ebp - 4], 0xb
cmp dword [ebp - 0x28], 0
je 0x413d4e
mov edx, dword [ebp - 0x28]
cmp word [edx], 1
jne 0x413d4e
mov dword [ebp - 0x3c], 0x80020004
mov dword [ebp - 0x44], 0xa
lea eax, [ebp - 0x44]
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcRandomNext]
fstp qword [ebp - 0xe4]
mov ecx, dword [ebp - 0x28]
push ecx
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaUbound]
sub eax, 1
jo 0x413e0a
mov dword [ebp - 0xe8], eax
fild dword [ebp - 0xe8]
fstp qword [ebp - 0xf0]
fld qword [ebp - 0xe4]
fmul qword [ebp - 0xf0]
fadd qword [0x401328]
fnstsw ax
test al, 0xd
jne 0x413e05
call dword [sym.imp.MSVBVM60.DLL___vbaR8IntI4]
mov edx, dword [ebp - 0x28]
sub eax, dword [edx + 0x14]
mov dword [ebp - 0x9c], eax
mov eax, dword [ebp - 0x28]
mov ecx, dword [ebp - 0x9c]
cmp ecx, dword [eax + 0x10]
jae 0x413d31
mov dword [ebp - 0xf4], 0
jmp 0x413d3d
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xf4], eax
mov edx, dword [ebp - 0x9c]
shl edx, 2
mov dword [ebp - 0xf8], edx
jmp 0x413d5a
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov dword [ebp - 0xf8], eax
mov eax, dword [ebp - 0x28]
mov ecx, dword [eax + 0xc]
mov edx, dword [ebp - 0xf8]
mov edx, dword [ecx + edx]
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x44]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov dword [ebp - 4], 0xc
push 0
lea eax, [ebp - 0xa4]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSetAddref]
wait
push 0x413def
jmp 0x413dcd
lea ecx, [ebp - 0xa4]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
lea edx, [ebp - 0x28]
push edx
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret
jmp 0x40155c
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]