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

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x164
and dword [ebp - 4], 0
push ebx
mov ebx, dword [ebp + 0x10]
push esi
mov esi, dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
push edi
test ebx, ebx
je 0x40290d
push ebx
call esi
test eax, eax
je 0x40290d
push ebx
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov edi, eax
test edi, edi
jne 0x40297c
push dword [ebp + 0xc]
call esi
mov edi, eax
test edi, edi
je 0x402927
push dword [ebp + 0xc]
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov edi, eax
test edi, edi
jne 0x40297c
test ebx, ebx
je 0x402950
lea eax, [ebp - 0x24]
push eax
push ebx
call sub.MSVCRT.dll_strlen
mov esi, dword [ebp + 8]
pop ecx
push eax
push ebx
mov eax, dword [esi]
push dword [eax]
call fcn.004060cb
add esp, 0x10
test eax, eax
je 0x402953
mov dword [ebp - 4], ebx
jmp 0x40297f
mov esi, dword [ebp + 8]
lea eax, [ebp - 0x24]
push eax
push dword [ebp + 0xc]
call sub.MSVCRT.dll_strlen
pop ecx
push eax
mov eax, dword [esi]
push dword [ebp + 0xc]
push dword [eax]
call fcn.004060cb
add esp, 0x10
test eax, eax
je 0x40297f
mov eax, dword [ebp + 0xc]
mov dword [ebp - 4], eax
jmp 0x40297f
mov esi, dword [ebp + 8]
cmp dword [0x4107a8], 0
je 0x4029a5
cmp dword [ebp - 4], 0
je 0x402b78
push dword [ebp - 4]
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov edi, eax
test edi, edi
je 0x4029a5
and dword [ebp - 4], 0
cmp dword [ebp - 4], 0
je 0x402b78
mov al, byte [0x4107b0]
push 7
mov byte [ebp - 0x44], al
pop ecx
xor eax, eax
lea edi, [ebp - 0x43]
push dword [esi + 0x244]
rep stosd dword es:[edi], eax
stosw word es:[edi], ax
push esi
stosb byte es:[edi], al
call fcn.0040337d
pop ecx
mov dword [ebp - 8], eax
test eax, eax
pop ecx
jne 0x4029e8
push str.Panic:_Cant_find_temp_dir_for_perlapp
call fcn.00402c6d
jmp 0x402c61
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 + 0x244], 0
pop ecx
jne 0x402a47
lea eax, [ebp - 0x60]
push eax
mov eax, dword [esi]
push 8
push str.perl.md5
push dword [eax]
call fcn.004060cb
add esp, 0x10
test eax, eax
je 0x402a63
lea eax, [ebp - 0x60]
push eax
call fcn.00405f8d
cmp eax, 0x20
pop ecx
jne 0x402a63
lea eax, [ebp - 0x44]
push eax
lea eax, [ebp - 0x60]
push eax
call fcn.00405fa7
pop ecx
test eax, eax
pop ecx
je 0x402a63
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 0x402a70
push ebx
push str.Panic:_Cant_malloc_name___d__n
jmp 0x402c5b
push dword [ebp - 4]
push str.Panic:_Cant_extract_MD5_checksum_for__s_n
jmp 0x402c5b
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 + 0x244], 0
jne 0x402aaf
lea eax, [ebp - 0x44]
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 0x40e448
push esi
call edi
add esp, 0x10
mov dword [ebp - 8], eax
test eax, eax
jne 0x402b57
lea eax, [ebp - 0x24]
push eax
call fcn.00405f8d
mov ebx, eax
lea eax, [ebx + 1]
push eax
call dword [sym.imp.MSVCRT.dll_malloc]
pop ecx
mov dword [ebp - 4], eax
test eax, eax
pop ecx
jne 0x402b00
push esi
push str.Panic:_Cant_allocate_memory_for__s
jmp 0x402c5b
push eax
lea eax, [ebp - 0x24]
push eax
call fcn.00405fa7
pop ecx
test eax, eax
pop ecx
jne 0x402b1b
push esi
push str.Panic:_Cant_extract__s
jmp 0x402c5b
mov eax, dword [ebp - 4]
push 0x40e408
push esi
and byte [eax + ebx], 0
call edi
pop ecx
mov dword [ebp - 8], eax
test eax, eax
pop ecx
jne 0x402b3e
push esi
push str.Panic:_Cant_create__s_n
jmp 0x402c5b
push eax
push ebx
push 1
push dword [ebp - 4]
call dword [sym.imp.MSVCRT.dll_fwrite]
push dword [ebp - 4]
call dword [sym.imp.MSVCRT.dll_free]
add esp, 0x14
push dword [ebp - 8]
call dword [sym.imp.MSVCRT.dll_fclose]
pop ecx
push esi
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
push esi
mov edi, eax
call dword [sym.imp.MSVCRT.dll_free]
mov ebx, dword [ebp + 0x10]
mov esi, dword [ebp + 8]
pop ecx
test edi, edi
jne 0x402c31
add esi, 0x45a
cmp byte [esi], 0
je 0x402baa
push ebx
push dword [ebp + 0xc]
push esi
call sub.MSVCRT.dll_strlen
pop ecx
push eax
push esi
call fcn.004030c8
mov edi, eax
add esp, 0x10
test edi, edi
jne 0x402c31
push str.PATH
call dword [sym.imp.MSVCRT.dll_getenv]
mov esi, eax
pop ecx
test esi, esi
je 0x402bff
cmp byte [esi], 0
je 0x402bfb
test edi, edi
jne 0x402c31
push 0x3b
push esi
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
test eax, eax
pop ecx
je 0x402bd8
sub eax, esi
jmp 0x402bdf
push esi
call sub.MSVCRT.dll_strlen
pop ecx
push dword [ebp + 0x10]
mov ebx, eax
push dword [ebp + 0xc]
push ebx
push esi
call fcn.004030c8
lea esi, [esi + ebx + 1]
add esp, 0x10
test esi, esi
mov edi, eax
jne 0x402bbc
test edi, edi
jne 0x402c31
cmp dword [ebp + 0x10], 0
push str.Make_sure_the_ActivePerl_bin_directory_is_in_your_PATH_n
je 0x402c1f
push dword [ebp + 0x10]
push dword [ebp + 0xc]
push str.Error:_Cant_locate_either__s_or__s_n_s
call fcn.00402c6d
add esp, 0x10
jmp 0x402c62
push dword [ebp + 0xc]
push str.Error:_Cant_locate__s_n_s
call fcn.00402c6d
add esp, 0xc
jmp 0x402c62
push edi
call fcn.00402d1f
test eax, eax
pop ecx
jne 0x402c66
lea eax, [ebp - 0x164]
push 0x104
push eax
push edi
call dword [sym.imp.KERNEL32.dll_GetModuleFileNameA]
lea eax, [ebp - 0x164]
push eax
push str.Panic:_Some_symbols_not_resolvable_from__s_n
call fcn.00402c6d
pop ecx
pop ecx
xor eax, eax
jmp 0x402c68
mov eax, edi
pop edi
pop esi
pop ebx
leave
ret