Function at 0x4049e2
Capabilities:
Create directory
Query environment variable
Write file on windows

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x168
mov eax, dword [ebp + 0xc]
xor edx, edx
cmp eax, edx
mov dword [ebp - 4], edx
mov dword [ebp - 8], edx
mov dword [ebp - 0xc], edx
je 0x404a05
movsx eax, byte [eax]
mov dword [ebp + 0xc], eax
jmp 0x404a08
mov dword [ebp + 0xc], edx
push ebx
push esi
push edi
mov esi, str._unknown_
lea edi, [ebp - 0x168]
push 0x3e
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsw word es:[edi], word [esi]
pop ecx
xor eax, eax
lea edi, [ebp - 0x15e]
cmp dword [ebp + 0xc], edx
mov ebx, dword [sym.imp.MSVCRT.dll_sprintf]
rep stosd dword es:[edi], eax
stosw word es:[edi], ax
je 0x404a3a
cmp dword [ebp + 0xc], 8
jl 0x404a6f
mov esi, str.perl516.dll
push esi
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
test eax, eax
je 0x404a6f
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
mov dword [ebp - 8], eax
je 0x404a6f
push esi
lea eax, [ebp - 0x168]
push str.Already_loaded__s
push eax
call ebx
mov esi, dword [ebp + 8]
add esp, 0xc
jmp 0x404a90
mov esi, dword [ebp + 8]
lea ecx, [ebp - 0x28]
push ecx
mov eax, dword [esi]
mov eax, dword [eax]
push eax
mov dword [ebp - 0xc], eax
push dword [ebp + 0xc]
call fcn.00405350
add esp, 0xc
mov dword [ebp - 4], eax
test eax, eax
jne 0x404ac3
mov eax, dword [0x4127a8]
test eax, eax
je 0x404ac3
mov edi, dword [eax + 8]
test edi, edi
je 0x404ac3
mov eax, dword [edi + 4]
lea ecx, [ebp - 0x28]
push ecx
mov eax, dword [eax]
push eax
mov dword [ebp - 0xc], eax
push dword [ebp + 0xc]
call fcn.00405350
add esp, 0xc
mov dword [ebp - 4], eax
test eax, eax
jne 0x404ac3
mov edi, dword [edi]
jmp 0x404a9c
xor edi, edi
cmp dword [0x4127b4], edi
je 0x404afd
cmp dword [ebp - 4], edi
je 0x404cdf
push dword [ebp - 4]
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
cmp eax, edi
mov dword [ebp - 8], eax
je 0x404afd
push dword [ebp - 4]
lea eax, [ebp - 0x168]
push str.dyndll_loaded__s
push eax
call ebx
add esp, 0xc
mov dword [ebp - 4], edi
cmp dword [ebp - 4], edi
je 0x404cdf
mov al, byte [0x40e774]
push 7
mov byte [ebp - 0x48], al
pop ecx
xor eax, eax
lea edi, [ebp - 0x47]
push dword [esi + 0x250]
rep stosd dword es:[edi], eax
stosw word es:[edi], ax
push esi
stosb byte es:[edi], al
call fcn.00405383
pop ecx
mov dword [ebp - 8], eax
test eax, eax
pop ecx
jne 0x404b3f
push str.Panic:_Cant_find_temp_dir_for_perlapp
call fcn.00404dfa
jmp 0x404d66
push eax
call sub.MSVCRT.dll_strlen
push dword [ebp - 4]
mov edi, eax
call sub.MSVCRT.dll_strlen
mov ebx, eax
pop ecx
add ebx, edi
cmp dword [esi + 0x250], 0
pop ecx
jne 0x404b9d
lea eax, [ebp - 0x64]
push eax
push 8
push str.perl.md5
push dword [ebp - 0xc]
call fcn.00408801
add esp, 0x10
test eax, eax
je 0x404bb9
lea eax, [ebp - 0x64]
push eax
call fcn.00408444
cmp eax, 0x20
pop ecx
jne 0x404bb9
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x64]
push eax
call fcn.004084b7
pop ecx
test eax, eax
pop ecx
je 0x404bb9
add ebx, 0x21
lea eax, [ebx + 1]
push eax
call dword [sym.imp.MSVCRT.dll_malloc]
mov esi, eax
pop ecx
test esi, esi
jne 0x404bc6
push ebx
push str.Panic:_Cant_malloc_name___d__n
jmp 0x404d60
push dword [ebp - 4]
push str.Panic:_Cant_extract_MD5_checksum_for__s_n
jmp 0x404d60
mov ebx, dword [sym.imp.MSVCRT.dll_strncpy]
push edi
push dword [ebp - 8]
push esi
call ebx
mov eax, dword [ebp + 8]
add esp, 0xc
cmp dword [eax + 0x250], 0
jne 0x404c05
lea eax, [ebp - 0x48]
push 0x20
push eax
lea eax, [esi + edi]
push eax
call ebx
and byte [esi + edi + 0x20], 0
add edi, 0x20
push esi
call dword [sym.imp.MSVCRT.dll__mkdir]
add esp, 0x10
mov byte [esi + edi], 0x5c
inc edi
push dword [ebp - 4]
lea eax, [esi + edi]
push eax
call sub.MSVCRT.dll_strcpy
mov edi, dword [sym.imp.MSVCRT.dll_fopen]
push 0x40ea8c
push esi
call edi
add esp, 0x10
mov dword [ebp - 4], eax
test eax, eax
jne 0x404cad
lea eax, [ebp - 0x28]
push eax
call fcn.00408444
mov ebx, eax
lea eax, [ebx + 1]
push eax
call dword [sym.imp.MSVCRT.dll_malloc]
pop ecx
mov dword [ebp - 0xc], eax
test eax, eax
pop ecx
jne 0x404c56
push esi
push str.Panic:_Cant_allocate_memory_for__s
jmp 0x404d60
push eax
lea eax, [ebp - 0x28]
push eax
call fcn.004084b7
pop ecx
test eax, eax
pop ecx
jne 0x404c71
push esi
push str.Panic:_Cant_extract__s
jmp 0x404d60
mov eax, dword [ebp - 0xc]
push 0x40ea88
push esi
and byte [eax + ebx], 0
call edi
pop ecx
mov dword [ebp - 4], eax
test eax, eax
pop ecx
jne 0x404c94
push esi
push str.Panic:_Cant_create__s_n
jmp 0x404d60
push eax
push ebx
push 1
push dword [ebp - 0xc]
call dword [sym.imp.MSVCRT.dll_fwrite]
push dword [ebp - 0xc]
call dword [sym.imp.MSVCRT.dll_free]
add esp, 0x14
push dword [ebp - 4]
call dword [sym.imp.MSVCRT.dll_fclose]
pop ecx
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
mov dword [ebp - 8], eax
je 0x404cd4
lea eax, [ebp - 0x168]
push esi
push eax
call sub.MSVCRT.dll_strcpy
pop ecx
pop ecx
push esi
call dword [sym.imp.MSVCRT.dll_free]
mov esi, dword [ebp + 8]
pop ecx
cmp dword [ebp - 8], 0
jne 0x404d43
add esi, 0x466
cmp byte [esi], 0
je 0x404d12
push dword [ebp + 0xc]
push esi
call sub.MSVCRT.dll_strlen
pop ecx
push eax
lea eax, [ebp - 0x168]
push esi
push eax
call fcn.0040528f
add esp, 0x10
mov dword [ebp - 8], eax
test eax, eax
jne 0x404d43
mov ebx, dword [sym.imp.MSVCRT.dll_getenv]
push str.PERLAPP_LIBPERL
call ebx
mov esi, eax
pop ecx
test esi, esi
je 0x404d6e
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
mov dword [ebp - 8], eax
je 0x404d6e
lea eax, [ebp - 0x168]
push esi
push eax
call sub.MSVCRT.dll_strcpy
pop ecx
pop ecx
push dword [ebp - 8]
call fcn.00404eb0
test eax, eax
pop ecx
jne 0x404df2
lea eax, [ebp - 0x168]
push eax
push str.Panic:_Some_symbols_not_resolvable_from__s_n
call fcn.00404dfa
pop ecx
pop ecx
xor eax, eax
jmp 0x404df5
push str.PATH
call ebx
mov esi, eax
pop ecx
test esi, esi
je 0x404dce
cmp dword [ebp - 8], 0
jne 0x404d43
push 0x3b
push esi
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
test eax, eax
pop ecx
je 0x404d95
sub eax, esi
jmp 0x404d9c
push esi
call sub.MSVCRT.dll_strlen
pop ecx
push dword [ebp + 0xc]
mov edi, eax
lea eax, [ebp - 0x168]
push edi
push esi
push eax
call fcn.0040528f
mov dword [ebp - 8], eax
lea eax, [edi + esi]
add esp, 0x10
cmp byte [eax], 0
je 0x404dc4
lea esi, [eax + 1]
test esi, esi
jne 0x404d7c
cmp dword [ebp - 8], 0
jne 0x404d43
push str.PATH
call ebx
push eax
push str.Make_sure_the_ActivePerl_bin_directory_is_in_your_PATH_n
push str.perl516.dll
push str.Error:_Cant_locate__s_n_sPATH_s_n
call fcn.00404dfa
add esp, 0x14
jmp 0x404d67
mov eax, dword [ebp - 8]
pop edi
pop esi
pop ebx
leave
ret