Function at 0x4176c3
Capabilities:
Set registry value

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
push 0x403486
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x30
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401868
mov edx, dword [ebp + 8]
xor edi, edi
lea ecx, [ebp - 0x1c]
mov dword [ebp - 0x14], 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
call sub.MSVBVM60.DLL___vbaStrCopy
mov edx, dword [ebp + 0xc]
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaStrCopy
mov edx, dword [ebp + 0x10]
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaStrCopy
mov edx, dword [ebp + 0x14]
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCopy
push 1
push dword [ebp - 0x1c]
call sub.MSVBVM60.DLL_rtcLeftCharBstr
mov edx, eax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
mov ebx, 0x4085f4
push ebx
call sub.MSVBVM60.DLL___vbaStrCmp
mov esi, eax
neg esi
sbb esi, esi
neg esi
lea ecx, [ebp - 0x38]
neg esi
call sub.MSVBVM60.DLL___vbaFreeStr
cmp si, di
je 0x41777e
push ebx
push dword [ebp - 0x1c]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x1c]
call sub.MSVBVM60.DLL___vbaStrMove
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL_rtcTrimBstr
mov edx, eax
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrMove
push 1
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL_rtcLeftCharBstr
mov edx, eax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
mov ebx, 0x40a820
push ebx
call sub.MSVBVM60.DLL___vbaStrCmp
mov esi, eax
neg esi
sbb esi, esi
neg esi
lea ecx, [ebp - 0x38]
neg esi
call sub.MSVBVM60.DLL___vbaFreeStr
cmp si, di
je 0x4177da
push ebx
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrMove
push 1
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL_rtcRightCharBstr
mov edx, eax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push ebx
call sub.MSVBVM60.DLL___vbaStrCmp
mov esi, eax
neg esi
sbb esi, esi
neg esi
lea ecx, [ebp - 0x38]
neg esi
call sub.MSVBVM60.DLL___vbaFreeStr
cmp si, di
je 0x41781f
push dword [ebp - 0x2c]
push ebx
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x14]
push eax
push dword [ebp - 0x1c]
push 0x80000000
call sub.ADVAPI32.DLL_RegCreateKeyW
test eax, eax
jne 0x417960
cmp dword [ebp - 0x14], edi
je 0x417960
push edi
push dword [ebp - 0x24]
mov esi, 0x408610
push 1
pop ebx
push ebx
push esi
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegSetValueW
test eax, eax
jne 0x417958
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegCloseKey
lea eax, [ebp - 0x14]
push eax
push dword [ebp - 0x24]
push 0x80000000
call sub.ADVAPI32.DLL_RegCreateKeyW
push edi
push dword [ebp - 0x30]
push ebx
push esi
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegSetValueW
push dword [ebp - 0x2c]
push 0x40a9cc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaStrMove
call fcn.004179b6
mov edx, eax
lea ecx, [ebp - 0x20]
call sub.MSVBVM60.DLL___vbaStrMove
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaLenBstr
push eax
push dword [ebp - 0x28]
push ebx
push dword [ebp - 0x20]
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegSetValueW
mov edx, esi
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaStrCopy
push 5
push dword [ebp - 0x20]
call sub.MSVBVM60.DLL_rtcLeftCharBstr
mov edx, eax
lea ecx, [ebp - 0x20]
call sub.MSVBVM60.DLL___vbaStrMove
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaLenBstr
push eax
push dword [ebp - 0x28]
push ebx
push dword [ebp - 0x20]
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegSetValueW
push dword [ebp - 0x2c]
push 0x40aa18
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaStrMove
push 0x40aa24
push 0x40aa38
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x20]
call sub.MSVBVM60.DLL___vbaStrMove
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaLenBstr
push eax
push dword [ebp - 0x28]
push ebx
push dword [ebp - 0x20]
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegSetValueW
push edi
push edi
push edi
push 0x8000000
call fcn.00409650
call sub.MSVBVM60.DLL___vbaSetSystemError
or dword [ebp - 0x34], 0xffffffff
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_RegCloseKey
push 0x4179a1
jmp 0x417970
lea ecx, [ebp - 0x1c]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x20]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaFreeStr
ret