Function at 0x411a00
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401a56
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0xbc
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401408
mov edx, dword [ebp + 8]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
xor ebx, ebx
lea ecx, [ebp - 0x18]
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x40], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 0x60], ebx
mov dword [ebp - 0x70], ebx
mov dword [ebp - 0x80], ebx
mov dword [ebp - 0x90], ebx
mov dword [ebp - 0xa0], ebx
mov dword [ebp - 0xb0], ebx
mov dword [ebp - 0xb4], ebx
mov dword [ebp - 0xb8], ebx
call esi
mov edx, dword [ebp + 0xc]
lea ecx, [ebp - 0x14]
call esi
call fcn.004114c0
test ax, ax
je 0x411cfd
mov edx, 0x40366c
lea ecx, [ebp - 0x28]
call esi
mov edx, 0x405298
lea ecx, [ebp - 0x24]
call esi
lea eax, [ebp - 0x28]
lea ecx, [ebp - 0x18]
push eax
lea edx, [ebp - 0x24]
push ecx
lea eax, [ebp - 0xb8]
push edx
push eax
mov dword [ebp - 0xb8], 0x80000002
call fcn.0041d7e0
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x1c]
call esi
lea ecx, [ebp - 0x28]
lea edx, [ebp - 0x24]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
mov eax, dword [ebp - 0x1c]
add esp, 0xc
push eax
call fcn.00414a80
mov edx, eax
lea ecx, [ebp - 0x14]
call esi
mov eax, dword [ebp - 0x14]
mov dword [ebp - 0x80], 8
push eax
push 0x40366c
mov dword [ebp - 0x78], eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
mov edi, eax
mov edx, dword [ebp - 0x80]
neg edi
push ebx
mov eax, dword [ebp - 0x7c]
sbb edi, edi
sub esp, 0x10
mov ecx, esp
inc edi
mov dword [ecx], edx
mov edx, dword [ebp - 0x78]
mov dword [ecx + 4], eax
mov eax, dword [ebp - 0x74]
mov dword [ecx + 8], edx
mov dword [ecx + 0xc], eax
call fcn.00411060
neg eax
sbb eax, eax
neg eax
or edi, eax
jne 0x41209d
mov ecx, dword [ebp - 0x18]
push 1
push 0x40537c
push 0x405308
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x24]
call esi
push eax
push 0x80000002
call fcn.0041da60
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x24]
call edi
lea eax, [ebp - 0x80]
lea ecx, [ebp - 0x40]
lea edx, [ebp - 0x1c]
push eax
push ecx
mov dword [ebp - 0xb4], ebx
mov dword [ebp - 0x78], edx
mov dword [ebp - 0x80], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcTrimVar]
lea edx, [ebp - 0x40]
lea eax, [ebp - 0x50]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcLowerCaseVar]
lea ecx, [ebp - 0xb4]
lea edx, [ebp - 0x50]
push ecx
push ebx
push 1
push 0x40366c
lea eax, [ebp - 0x24]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarVal]
push eax
call fcn.00410e00
lea ecx, [ebp - 0x24]
call edi
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
lea ecx, [ebp - 0x50]
lea edx, [ebp - 0x40]
push ecx
push edx
push 2
call edi
mov ebx, dword [sym.imp.MSVBVM60.DLL_rtcGetPresentDate]
add esp, 0xc
lea eax, [ebp - 0x40]
push eax
call ebx
lea ecx, [ebp - 0x40]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0x40]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea edx, [ebp - 0x40]
push edx
call ebx
push 0
mov eax, dword [ebp - 0x14]
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x80], ecx
mov dword [ebp - 0x78], eax
mov dword [edx], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [edx + 0xc], eax
call fcn.00411060
dec eax
lea ecx, [ebp - 0x20]
neg eax
sbb eax, eax
push 1
inc eax
lea edx, [ebp - 0x40]
neg eax
mov word [ebp - 0xa8], ax
push 1
lea eax, [ebp - 0x90]
mov dword [ebp - 0x88], ecx
push edx
push eax
lea ecx, [ebp - 0x50]
push 0x405398
push ecx
mov dword [ebp - 0xb0], 0xb
mov dword [ebp - 0x90], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcDateDiff]
lea edx, [ebp - 0xb0]
lea eax, [ebp - 0x50]
push edx
lea ecx, [ebp - 0xa0]
push eax
lea edx, [ebp - 0x60]
push ecx
push edx
mov dword [ebp - 0x98], 0xa
mov dword [ebp - 0xa0], 0x8002
call dword [sym.imp.MSVBVM60.DLL___vbaVarCmpGt]
push eax
lea eax, [ebp - 0x70]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarOr]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaBoolVarNull]
lea ecx, [ebp - 0xb0]
mov si, ax
lea edx, [ebp - 0x50]
push ecx
lea eax, [ebp - 0x40]
push edx
push eax
push 3
not esi
call edi
add esp, 0x10
test si, si
je 0x41209d
call fcn.004130f0
jmp 0x411c12
mov ecx, dword [ebp - 0x14]
push ecx
push 0x40366c
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
test eax, eax
jne 0x411d96
call fcn.00413270
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x30]
call esi
mov edi, dword [ebp - 0x30]
mov eax, dword [ebp - 0x18]
lea edx, [ebp - 0xb4]
mov dword [ebp - 0xb4], ebx
push edx
push 0xffffffffffffffff
push ebx
mov dword [ebp - 0x30], ebx
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push 0x4053b4
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
mov edx, edi
lea ecx, [ebp - 0x24]
call esi
push eax
push 0x4053a0
call ebx
mov edx, eax
lea ecx, [ebp - 0x28]
call esi
push eax
call fcn.00410e00
lea ecx, [ebp - 0x30]
lea edx, [ebp - 0x2c]
push ecx
lea eax, [ebp - 0x28]
push edx
lea ecx, [ebp - 0x24]
push eax
push ecx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x14
push 0x4120f3
jmp 0x4120d8
push ebx
mov eax, dword [ebp - 0x14]
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x80], ecx
mov dword [ebp - 0x78], eax
mov dword [edx], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [edx + 0xc], eax
call fcn.00411060
test eax, eax
jne 0x41209d
call fcn.00413270
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x30]
call edi
mov esi, dword [ebp - 0x30]
mov edx, dword [ebp - 0x18]
lea ecx, [ebp - 0xb4]
mov dword [ebp - 0xb4], ebx
push ecx
push 0xffffffffffffffff
push ebx
mov dword [ebp - 0x30], ebx
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push 0x4053b4
push edx
call ebx
mov edx, eax
lea ecx, [ebp - 0x2c]
call edi
push eax
mov edx, esi
lea ecx, [ebp - 0x24]
call edi
push eax
push 0x4053a0
call ebx
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
push eax
call fcn.00410e00
lea eax, [ebp - 0x30]
lea ecx, [ebp - 0x2c]
push eax
lea edx, [ebp - 0x28]
push ecx
lea eax, [ebp - 0x24]
push edx
push eax
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
mov ebx, dword [sym.imp.MSVBVM60.DLL_rtcGetPresentDate]
add esp, 0x14
lea ecx, [ebp - 0x40]
push ecx
call ebx
lea edx, [ebp - 0x40]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x20]
call edi
lea ecx, [ebp - 0x40]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea eax, [ebp - 0x40]
push eax
call ebx
push 0
mov eax, dword [ebp - 0x14]
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x80], ecx
mov dword [ebp - 0x78], eax
mov dword [edx], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [edx + 0xc], eax
call fcn.00411060
dec eax
lea ecx, [ebp - 0x20]
neg eax
sbb eax, eax
push 1
inc eax
lea edx, [ebp - 0x40]
neg eax
mov word [ebp - 0xa8], ax
push 1
lea eax, [ebp - 0x90]
mov dword [ebp - 0x88], ecx
push edx
push eax
lea ecx, [ebp - 0x50]
push 0x405398
push ecx
mov dword [ebp - 0xb0], 0xb
mov dword [ebp - 0x90], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcDateDiff]
lea edx, [ebp - 0xb0]
lea eax, [ebp - 0x50]
push edx
lea ecx, [ebp - 0xa0]
push eax
lea edx, [ebp - 0x60]
push ecx
push edx
mov dword [ebp - 0x98], 0xa
mov dword [ebp - 0xa0], 0x8002
call dword [sym.imp.MSVBVM60.DLL___vbaVarCmpGt]
push eax
lea eax, [ebp - 0x70]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarOr]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaBoolVarNull]
lea ecx, [ebp - 0xb0]
mov si, ax
lea edx, [ebp - 0x50]
push ecx
lea eax, [ebp - 0x40]
push edx
push eax
push 3
not esi
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0x10
test si, si
je 0x411f51
call fcn.004130f0
jmp 0x411e66
push 0
mov eax, dword [ebp - 0x14]
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x80], ecx
mov dword [ebp - 0x78], eax
mov dword [edx], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [edx + 0xc], eax
call fcn.00411060
test eax, eax
jne 0x41209d
lea ecx, [ebp - 0x18]
push ecx
call fcn.00411650
push 0
mov eax, dword [ebp - 0x14]
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x80], ecx
mov dword [ebp - 0x78], eax
mov dword [edx], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [edx + 0xc], eax
call fcn.00411060
test eax, eax
jne 0x41209d
call fcn.00413460
mov edx, eax
lea ecx, [ebp - 0x2c]
call edi
sub esp, 0x10
mov ecx, 0xb
mov esi, esp
mov dword [ebp - 0x80], ecx
mov edx, dword [ebp - 0x2c]
or eax, 0xffffffff
mov dword [esi], ecx
mov ecx, dword [ebp - 0x7c]
mov dword [ebp - 0x78], eax
mov dword [ebp - 0x2c], 0
mov dword [esi + 4], ecx
lea ecx, [ebp - 0x24]
mov dword [esi + 8], eax
mov eax, dword [ebp - 0x74]
mov dword [esi + 0xc], eax
call edi
mov ecx, dword [ebp - 0x14]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push eax
push ecx
call ebx
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
push eax
call fcn.00413ff0
mov esi, eax
lea edx, [ebp - 0x2c]
lea eax, [ebp - 0x28]
push edx
lea ecx, [ebp - 0x24]
push eax
push ecx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x10
test si, si
je 0x41208b
lea edx, [ebp - 0xb4]
mov dword [ebp - 0xb4], 0
push edx
push 0
push 1
push 0x40366c
call fcn.00413460
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
mov eax, dword [ebp - 0x14]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x28]
call edi
push eax
call fcn.00410e00
lea ecx, [ebp - 0x28]
lea edx, [ebp - 0x24]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0xc
push 0x4120f3
jmp 0x4120d8
mov eax, dword [ebp - 0x14]
push 0
push 1
push 0x40366c
push eax
call fcn.00410be0
push 0x4120f3
jmp 0x4120d8
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x14]
call esi
lea ecx, [ebp - 0x18]
call esi
lea ecx, [ebp - 0x1c]
call esi
lea ecx, [ebp - 0x20]
call esi
ret