Function at 0x405230
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401556
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x108
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x4011e0
lea eax, [ebp - 0x48]
xor edi, edi
push 0x22
push eax
mov dword [ebp - 0x14], edi
mov dword [ebp - 0x18], edi
mov dword [ebp - 0x1c], edi
mov dword [ebp - 0x20], edi
mov dword [ebp - 0x24], edi
mov dword [ebp - 0x28], edi
mov dword [ebp - 0x2c], edi
mov dword [ebp - 0x30], edi
mov dword [ebp - 0x34], edi
mov dword [ebp - 0x38], edi
mov dword [ebp - 0x48], edi
mov dword [ebp - 0x58], edi
mov dword [ebp - 0x68], edi
mov dword [ebp - 0x78], edi
mov dword [ebp - 0x88], edi
mov dword [ebp - 0x98], edi
mov dword [ebp - 0xa8], edi
mov dword [ebp - 0xb8], edi
mov dword [ebp - 0xc8], edi
mov dword [ebp - 0xd8], edi
mov dword [ebp - 0xe8], edi
mov dword [ebp - 0xec], edi
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
cmp dword [0x40a5a8], edi
jne 0x4052dc
push 0x40a5a8
push 0x402628
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea edx, [ebp - 0x34]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x14]
cmp eax, edi
fnclex
jge 0x405301
push 0x14
push 0x402618
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x34]
lea edx, [ebp - 0x28]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x50]
cmp eax, edi
fnclex
jge 0x405325
push 0x50
push 0x402638
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x28]
mov ebx, 8
mov dword [ebp - 0x50], eax
mov eax, dword [0x40a5a8]
cmp eax, edi
mov dword [ebp - 0x28], edi
mov dword [ebp - 0x58], ebx
mov dword [ebp - 0xd0], 0x403440
mov dword [ebp - 0xd8], ebx
jne 0x40535f
push 0x40a5a8
push 0x402628
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea ecx, [ebp - 0x38]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, edi
fnclex
jge 0x405384
push 0x14
push 0x402618
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x38]
lea ecx, [ebp - 0x2c]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x58]
cmp eax, edi
fnclex
jge 0x4053a8
push 0x58
push 0x402638
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0xb8]
push 0x22
push edx
mov dword [ebp - 0x2c], edi
mov dword [ebp - 0x80], eax
mov dword [ebp - 0x88], ebx
mov dword [ebp - 0xe0], 0x403448
mov dword [ebp - 0xe8], ebx
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaVarCat]
lea eax, [ebp - 0x48]
lea ecx, [ebp - 0x58]
push eax
lea edx, [ebp - 0x68]
push ecx
push edx
call esi
push eax
lea eax, [ebp - 0xd8]
lea ecx, [ebp - 0x78]
push eax
push ecx
call esi
push eax
lea edx, [ebp - 0x88]
lea eax, [ebp - 0x98]
push edx
push eax
call esi
lea ecx, [ebp - 0xe8]
push eax
lea edx, [ebp - 0xa8]
push ecx
push edx
call esi
push eax
lea eax, [ebp - 0xb8]
lea ecx, [ebp - 0xc8]
push eax
push ecx
call esi
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x14]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea edx, [ebp - 0x38]
lea eax, [ebp - 0x34]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
lea ecx, [ebp - 0xc8]
lea edx, [ebp - 0xb8]
push ecx
lea eax, [ebp - 0xa8]
push edx
lea ecx, [ebp - 0x98]
push eax
lea edx, [ebp - 0x88]
push ecx
lea eax, [ebp - 0x78]
push edx
lea ecx, [ebp - 0x68]
push eax
lea edx, [ebp - 0x58]
push ecx
lea eax, [ebp - 0x48]
push edx
push eax
push 9
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0x34
lea ecx, [ebp - 0x18]
lea edx, [ebp - 0x28]
push ecx
push 0x3f
push edi
push 0x40245c
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x80000001
call fcn.00402688
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp dword [0x40a5a8], edi
jne 0x4054d5
push 0x40a5a8
push 0x402628
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea ecx, [ebp - 0x34]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, edi
fnclex
jge 0x4054fa
push 0x14
push 0x402618
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x34]
lea ecx, [ebp - 0x28]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x60]
cmp eax, edi
fnclex
jge 0x40551e
push 0x60
push 0x402638
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov ecx, dword [ebp - 0x28]
lea edx, [ebp - 0x20]
push edx
lea eax, [ebp - 0xec]
push edi
push eax
push edi
lea edx, [ebp - 0x2c]
push ecx
push edx
mov dword [ebp - 0xec], edi
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
mov eax, dword [ebp - 0x18]
push eax
call fcn.004027a0
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
lea ecx, [ebp - 0x2c]
lea edx, [ebp - 0x28]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov eax, dword [ebp - 0x20]
cmp eax, edi
jle 0x4056a1
lea ecx, [ebp - 0x48]
sub eax, 1
push ecx
lea edx, [ebp - 0x58]
jo 0x405740
push eax
push edx
mov dword [ebp - 0x40], edi
mov dword [ebp - 0x48], 2
call dword [sym.imp.MSVBVM60.DLL_rtcStringVar]
lea eax, [ebp - 0x58]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x1c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x58]
lea edx, [ebp - 0x48]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov eax, dword [0x40a5a8]
add esp, 0xc
cmp eax, edi
jne 0x4055d5
push 0x40a5a8
push 0x402628
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x40a5a8]
lea ecx, [ebp - 0x34]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, edi
fnclex
jge 0x4055fa
push 0x14
push 0x402618
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x34]
lea ecx, [ebp - 0x28]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x60]
cmp eax, edi
fnclex
jge 0x40561e
push 0x60
push 0x402638
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x1c]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
lea edx, [ebp - 0x20]
lea ecx, [ebp - 0x30]
push edx
push eax
push ecx
mov dword [ebp - 0xec], edi
call esi
lea edx, [ebp - 0xec]
push eax
mov eax, dword [ebp - 0x28]
push edx
push edi
lea ecx, [ebp - 0x2c]
push eax
push ecx
call esi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.004027a0
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov eax, dword [ebp - 0x30]
lea ecx, [ebp - 0x1c]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea edx, [ebp - 0x30]
lea eax, [ebp - 0x2c]
push edx
lea ecx, [ebp - 0x28]
push eax
push ecx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
lea ecx, [ebp - 0x34]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x1c]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
neg eax
sbb eax, eax
inc eax
neg eax
mov dword [ebp - 0x24], eax
mov ecx, dword [ebp - 0x18]
push ecx
call fcn.004026cc
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
push 0x40572b
jmp 0x40571a
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x14]
call esi
lea ecx, [ebp - 0x1c]
call esi
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop