Function at 0x4050d0
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x401396
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x90
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x4012f0
lea eax, [ebp - 0x50]
lea ecx, [ebp - 0x60]
push eax
xor esi, esi
push 0xff
push ecx
mov dword [ebp - 0x20], esi
mov dword [ebp - 0x24], esi
mov dword [ebp - 0x28], esi
mov dword [ebp - 0x2c], esi
mov dword [ebp - 0x38], esi
mov dword [ebp - 0x3c], esi
mov dword [ebp - 0x40], esi
mov dword [ebp - 0x60], esi
mov dword [ebp - 0x70], esi
mov dword [ebp - 0x80], esi
mov dword [ebp - 0x48], esi
mov dword [ebp - 0x50], 2
call dword [sym.imp.MSVBVM60.DLL_rtcStringVar]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
lea edx, [ebp - 0x60]
push edx
call ebx
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x38]
call edi
lea eax, [ebp - 0x60]
lea ecx, [ebp - 0x50]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov edx, dword [ebp - 0x38]
add esp, 0xc
lea eax, [ebp - 0x3c]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
push 0x100
call fcn.0040368c
mov dword [ebp - 0x84], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x3c]
lea edx, [ebp - 0x38]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov ecx, dword [ebp - 0x84]
lea eax, [ebp - 0x38]
mov dword [ebp - 0x68], eax
lea edx, [ebp - 0x70]
push ecx
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharVar]
lea ecx, [ebp - 0x50]
push ecx
call ebx
mov edx, eax
lea ecx, [ebp - 0x38]
call edi
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov eax, 1
mov dword [ebp - 0x34], esi
mov dword [ebp - 0x18], eax
cmp eax, dword [ebp - 0x84]
jg 0x40529d
lea edx, [ebp - 0x38]
lea ecx, [ebp - 0x50]
mov dword [ebp - 0x68], edx
push ecx
push eax
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x60]
push edx
push eax
mov dword [ebp - 0x48], 1
mov dword [ebp - 0x50], 2
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcMidCharVar]
lea ecx, [ebp - 0x60]
push ecx
call ebx
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
lea edx, [ebp - 0x60]
lea eax, [ebp - 0x50]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov ecx, dword [ebp - 0x28]
add esp, 0xc
lea edx, [ebp - 0x50]
mov dword [ebp - 0x68], ecx
push esi
push edx
mov dword [ebp - 0x70], 0x8008
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
lea ecx, [ebp - 0x50]
mov esi, eax
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
test si, si
je 0x405283
mov edx, dword [ebp - 0x34]
add edx, 1
jo 0x4055a2
mov dword [ebp - 0x34], edx
mov ecx, dword [ebp - 0x18]
mov eax, 1
add eax, ecx
jo 0x4055a2
mov dword [ebp - 0x18], eax
xor esi, esi
jmp 0x4051e4
mov edx, 0x403844
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov dword [ebp - 0x18], 1
mov eax, dword [ebp - 0x18]
mov ecx, dword [ebp - 0x34]
cmp eax, ecx
jg 0x40547e
mov ecx, dword [ebp - 0x38]
lea edx, [ebp - 0x50]
push esi
push edx
mov dword [ebp - 0x68], ecx
mov dword [ebp - 0x70], 8
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
lea eax, [ebp - 0x70]
push 1
lea ecx, [ebp - 0x50]
push eax
push ecx
lea edx, [ebp - 0x60]
push esi
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaInStrVar]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaI4Var]
mov esi, eax
lea eax, [ebp - 0x60]
lea ecx, [ebp - 0x50]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov eax, esi
add esp, 0xc
lea edx, [ebp - 0x38]
sub eax, 1
mov dword [ebp - 0x68], edx
lea ecx, [ebp - 0x70]
jo 0x4055a2
push eax
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharVar]
lea eax, [ebp - 0x50]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x2c]
call edi
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov ecx, dword [ebp - 0x2c]
lea edx, [ebp - 0x3c]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.0040363c
mov dword [ebp - 0x84], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov eax, dword [ebp - 0x3c]
lea ecx, [ebp - 0x2c]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
mov edx, dword [ebp - 0x2c]
lea eax, [ebp - 0x40]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push eax
call fcn.0040363c
mov dword [ebp - 0x88], eax
call dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
mov ecx, dword [ebp - 0x40]
lea edx, [ebp - 0x2c]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
lea eax, [ebp - 0x40]
lea ecx, [ebp - 0x3c]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
mov ecx, dword [ebp - 0x88]
xor edx, edx
cmp ecx, 3
mov ecx, dword [ebp - 0x84]
sete dl
neg edx
xor eax, eax
cmp ecx, 2
sete al
neg eax
or edx, eax
test dx, dx
je 0x40540d
mov ecx, dword [ebp - 0x2c]
push ecx
push 0x40384c
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x3c]
call edi
mov edx, dword [ebp - 0x24]
push eax
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
lea ecx, [ebp - 0x3c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea eax, [ebp - 0x38]
lea ecx, [ebp - 0x50]
add esi, 1
mov dword [ebp - 0x68], eax
push ecx
lea edx, [ebp - 0x70]
jo 0x4055a2
push esi
lea eax, [ebp - 0x60]
push edx
push eax
mov dword [ebp - 0x48], 0x80020004
mov dword [ebp - 0x50], 0xa
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcMidCharVar]
lea ecx, [ebp - 0x60]
push ecx
call ebx
mov edx, eax
lea ecx, [ebp - 0x38]
call edi
lea edx, [ebp - 0x60]
lea eax, [ebp - 0x50]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov ecx, dword [ebp - 0x18]
mov eax, 1
add esp, 0xc
add eax, ecx
jo 0x4055a2
mov dword [ebp - 0x18], eax
xor esi, esi
jmp 0x4052b2
lea edx, [ebp - 0x70]
push 1
lea eax, [ebp - 0x50]
lea ecx, [ebp - 0x24]
push edx
push eax
mov dword [ebp - 0x68], ecx
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcRightCharVar]
lea ecx, [ebp - 0x50]
lea edx, [ebp - 0x80]
push ecx
push edx
mov dword [ebp - 0x78], 0x40384c
mov dword [ebp - 0x80], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
lea ecx, [ebp - 0x50]
mov dword [ebp - 0x8c], eax
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
cmp word [ebp - 0x8c], si
je 0x40552d
mov eax, dword [ebp - 0x24]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
sub eax, 1
lea ecx, [ebp - 0x24]
jo 0x4055a2
lea edx, [ebp - 0x50]
mov dword [ebp - 0x48], eax
mov dword [ebp - 0x68], ecx
push edx
lea eax, [ebp - 0x70]
push 1
lea ecx, [ebp - 0x60]
push eax
push ecx
mov dword [ebp - 0x50], 3
mov dword [ebp - 0x70], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcMidCharVar]
lea edx, [ebp - 0x60]
push edx
call ebx
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
lea eax, [ebp - 0x60]
lea ecx, [ebp - 0x50]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0xc
mov edx, dword [ebp - 0x24]
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
push 0x40558e
jmp 0x405573
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x24]
call esi
lea ecx, [ebp - 0x28]
call esi
lea ecx, [ebp - 0x2c]
call esi
lea ecx, [ebp - 0x38]
call esi
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop