joyce8/EMBER2024-capa huggingface dataset:
Function at 0x2807738f
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
and byte [ebp - 1], 0
mov eax, dword [ebp + 0xc]
push ebx
mov ebx, dword [ebp + 0x10]
push esi
push edi
mov edi, dword [ebp + 8]
mov dword [ebp - 8], eax
test ebx, ebx
jge 0x280773cc
lea ecx, [ebp - 1]
mov byte [ebp - 1], 1
push ecx
lea ecx, [ebp + 0x10]
push ecx
push eax
neg ebx
push edi
mov dword [ebp + 0x10], ebx
call sym.perl510.dll_Perl_bytes_from_utf8
mov ebx, dword [ebp + 0x10]
add esp, 0x10
mov dword [ebp + 0xc], eax
cmp dword [ebp + 0x14], 0
jne 0x2807740a
mov ecx, dword [ebp + 0xc]
mov eax, dword [edi + 0x934]
test ebx, ebx
je 0x280773f7
lea edx, [ebx]
movzx esi, byte [ecx]
add eax, esi
inc ecx
imul eax, eax, 0x401
mov esi, eax
shr esi, 6
xor eax, esi
dec edx
jne 0x280773e1
lea eax, [eax + eax*8]
mov ecx, eax
shr ecx, 0xb
xor ecx, eax
imul ecx, ecx, 0x8001
mov dword [ebp + 0x14], ecx
mov esi, dword [edi + 0x304]
lea eax, [edi + 0x304]
test esi, esi
je 0x28077426
mov ecx, dword [esi]
inc dword [edi + 0x2fc]
mov dword [eax], ecx
jmp 0x2807742f
push edi
call fcn.2807419a
pop ecx
mov esi, eax
and dword [esi], 0
and dword [esi + 8], 0
push 5
push esi
push edi
mov dword [esi + 4], 1
call sym.perl510.dll_Perl_sv_upgrade
add esp, 0xc
cmp byte [ebp - 1], 0
mov eax, ebx
je 0x28077453
neg eax
push dword [ebp + 0x14]
push eax
push dword [ebp + 0xc]
push edi
call sym.perl510.dll_Perl_share_hek
add eax, 8
add esp, 0x10
mov dword [esi + 0xc], eax
mov eax, dword [esi]
mov dword [eax + 8], ebx
mov eax, dword [esi]
and dword [eax + 0xc], 0
or dword [esi + 8], 0x9004400
cmp byte [ebp - 1], 0
mov eax, dword [esi + 8]
je 0x2807748c
or eax, 0x20000000
mov dword [esi + 8], eax
mov eax, dword [ebp + 0xc]
cmp eax, dword [ebp - 8]
je 0x2807749b
push eax
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov eax, esi
pop edi
pop esi
pop ebx
leave
ret
Function at 0x2809c135
Capabilities:
Check os version
Get disk information
Query environment variable

Disassembly:
push ebp
mov ebp, esp
mov eax, 0x3770
call fcn.280aaed0
mov eax, dword [ebp + 0xc]
push ebx
mov ebx, dword [ebp + 8]
push esi
mov esi, ecx
push edi
test ebx, ebx
mov dword [esi], eax
je 0x2809c177
xor edi, edi
push edi
push edi
mov ecx, ebx
call fcn.2809c298
push eax
mov ecx, esi
call fcn.2809c4d7
inc edi
cmp edi, 0x1b
jl 0x2809c155
mov eax, dword [ebx + 4]
mov dword [esi + 4], eax
jmp 0x2809c291
mov eax, dword [esi + 8]
mov dword [ebp - 4], eax
call dword [sym.imp.KERNEL32.dll_GetLogicalDrives]
mov edi, 0x94
mov dword [ebp + 8], eax
xor ebx, ebx
push edi
lea eax, [ebp - 0x98]
push ebx
push eax
call sub.MSVCRT.dll_memset
add esp, 0xc
lea eax, [ebp - 0x98]
mov dword [ebp - 0x98], edi
push eax
call dword [sym.imp.KERNEL32.dll_GetVersionExA]
cmp dword [ebp - 0x94], 5
mov dword [esi + 8], ebx
jae 0x2809c225
lea eax, [ebp - 0x1c04]
push eax
push 0x1b6c
call dword [sym.imp.KERNEL32.dll_GetLogicalDriveStringsA]
test eax, eax
je 0x2809c217
call dword [sym.imp.KERNEL32.dll_GetEnvironmentStrings]
mov dword [ebp + 0xc], eax
lea edi, [ebp - 0x1c04]
push 1
mov ecx, ebx
pop eax
shl eax, cl
mov ecx, dword [ebp + 8]
test ecx, eax
je 0x2809c208
push ebx
push edi
mov ecx, esi
call fcn.2809c2c7
push ebx
mov ecx, esi
push dword [ebp + 0xc]
lea edi, [edi + eax + 1]
call fcn.2809c3ba
inc ebx
cmp ebx, 0x1b
jl 0x2809c1e2
push dword [ebp + 0xc]
call dword [sym.imp.KERNEL32.dll_FreeEnvironmentStringsA]
push 0x280b4c98
mov ecx, esi
call fcn.2809c461
jmp 0x2809c28b
lea eax, [ebp - 0x3770]
push eax
push 0x36d8
call dword [sym.imp.KERNEL32.dll_GetLogicalDriveStringsW]
test eax, eax
je 0x2809c27f
call dword [sym.imp.KERNEL32.dll_GetEnvironmentStringsW]
mov dword [ebp + 0xc], eax
lea edi, [ebp - 0x3770]
push 1
mov ecx, ebx
pop eax
shl eax, cl
mov ecx, dword [ebp + 8]
test ecx, eax
je 0x2809c270
push ebx
push edi
mov ecx, esi
call fcn.2809c4d7
push ebx
mov ecx, esi
push dword [ebp + 0xc]
lea edi, [edi + eax*2 + 2]
call fcn.2809c40b
inc ebx
cmp ebx, 0x1b
jl 0x2809c24a
push dword [ebp + 0xc]
call dword [sym.imp.KERNEL32.dll_FreeEnvironmentStringsW]
push 0x280be9d4
mov ecx, esi
call fcn.2809c5b7
mov eax, dword [ebp - 4]
mov dword [esi + 8], eax
pop edi
pop esi
pop ebx
leave
ret 8
Function at 0x2809c2c7
Capabilities:
Set current directory

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x210
push ebx
push esi
push edi
mov edi, dword [ebp + 0xc]
xor ebx, ebx
cmp edi, 0x1b
mov esi, ecx
jge 0x2809c3a2
cmp dword [ebp + 8], ebx
je 0x2809c3a2
push dword [ebp + 8]
call sub.MSVCRT.dll_strlen
pop ecx
lea edi, [esi + edi*4 + 0xc]
mov ecx, dword [esi]
mov ebx, eax
push dword [edi]
mov eax, dword [ecx]
call dword [eax + 8]
mov ecx, dword [esi]
lea edx, [ebx + 2]
push edx
mov eax, dword [ecx]
call dword [eax]
test eax, eax
mov dword [ebp - 4], eax
mov dword [edi], eax
je 0x2809c3a2
push dword [ebp + 8]
push eax
call sub.MSVCRT.dll_strcpy
mov eax, dword [ebp - 4]
pop ecx
pop ecx
lea ebx, [eax + ebx - 1]
mov al, byte [ebx]
inc ebx
cmp al, 0x5c
je 0x2809c33f
cmp al, 0x2f
je 0x2809c33f
mov byte [ebx], 0x5c
and byte [ebx + 1], 0
lea eax, [ebp - 0x210]
push 0x105
push eax
push 0xffffffffffffffff
push dword [edi]
push 0
push 0
call dword [sym.imp.KERNEL32.dll_MultiByteToWideChar]
lea eax, [ebp - 0x210]
push eax
call dword [sym.imp.MSVCRT.dll_wcslen]
mov ebx, eax
mov eax, dword [ebp + 0xc]
pop ecx
mov ecx, dword [esi]
push dword [esi + eax*4 + 0x180]
lea edi, [esi + eax*4 + 0x180]
mov eax, dword [ecx]
call dword [eax + 8]
mov ecx, dword [esi]
lea edx, [ebx + ebx + 2]
push edx
mov eax, dword [ecx]
call dword [eax]
test eax, eax
mov dword [edi], eax
je 0x2809c3a2
lea ecx, [ebp - 0x210]
push ecx
push eax
call dword [sym.imp.MSVCRT.dll_wcscpy]
pop ecx
pop ecx
cmp dword [esi + 8], 0
je 0x2809c3b1
push dword [ebp + 8]
call dword [sym.imp.KERNEL32.dll_SetCurrentDirectoryA]
pop edi
mov eax, ebx
pop esi
pop ebx
leave
ret 8
Function at 0x2809c4d7
Capabilities:
Set current directory

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
push edi
mov edi, dword [ebp + 0xc]
xor ebx, ebx
cmp edi, 0x1b
mov esi, ecx
jge 0x2809c59f
cmp dword [ebp + 8], ebx
je 0x2809c59f
push dword [ebp + 8]
call dword [sym.imp.MSVCRT.dll_wcslen]
pop ecx
lea edi, [esi + edi*4 + 0x180]
mov ecx, dword [esi]
mov ebx, eax
push dword [edi]
mov eax, dword [ecx]
call dword [eax + 8]
mov ecx, dword [esi]
lea edx, [ebx + ebx + 4]
push edx
mov eax, dword [ecx]
call dword [eax]
test eax, eax
mov dword [ebp - 4], eax
mov dword [edi], eax
je 0x2809c59f
push dword [ebp + 8]
push eax
call dword [sym.imp.MSVCRT.dll_wcscpy]
mov eax, dword [ebp - 4]
pop ecx
pop ecx
lea ebx, [eax + ebx*2 - 2]
mov ax, word [ebx]
inc ebx
inc ebx
cmp ax, 0x5c
je 0x2809c555
cmp ax, 0x2f
je 0x2809c555
mov word [ebx], 0x5c
and word [ebx + 2], 0
push dword [edi]
call sym.perl510.dll_win32_ansipath
push eax
mov dword [ebp - 4], eax
call sub.MSVCRT.dll_strlen
pop ecx
mov ebx, eax
mov eax, dword [ebp + 0xc]
pop ecx
mov ecx, dword [esi]
push dword [esi + eax*4 + 0xc]
lea edi, [esi + eax*4 + 0xc]
mov eax, dword [ecx]
call dword [eax + 8]
mov ecx, dword [esi]
lea edx, [ebx + 1]
push edx
mov eax, dword [ecx]
call dword [eax]
test eax, eax
mov dword [edi], eax
je 0x2809c596
push dword [ebp - 4]
push eax
call sub.MSVCRT.dll_strcpy
pop ecx
pop ecx
push dword [ebp - 4]
call sym.perl510.dll_win32_free
pop ecx
cmp dword [esi + 8], 0
je 0x2809c5ae
push dword [ebp + 8]
call dword [sym.imp.KERNEL32.dll_SetCurrentDirectoryW]
pop edi
mov eax, ebx
pop esi
pop ebx
leave
ret 8

Function at 0x2809c94e
Capabilities:
Check if file exists
Get file attributes

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x20c
push ebx
push esi
push edi
mov edi, ecx
push dword [ebp + 8]
or ebx, 0xffffffff
call fcn.2809c62f
mov esi, eax
push esi
call sub.MSVCRT.dll_strlen
cmp eax, 3
pop ecx
jle 0x2809c98a
mov cl, byte [eax + esi - 1]
lea eax, [eax + esi - 1]
cmp cl, 0x5c
je 0x2809c987
cmp cl, 0x2f
jne 0x2809c98a
and byte [eax], 0
push esi
call dword [sym.imp.KERNEL32.dll_GetFileAttributesA]
cmp eax, 0xffffffff
je 0x2809c9f0
test al, 0x10
je 0x2809c9f0
and byte [ebp - 0x20c], 0
lea eax, [ebp + 8]
push eax
lea eax, [ebp - 0x20c]
push eax
push 0x20a
push esi
call dword [sym.imp.KERNEL32.dll_GetFullPathNameA]
cmp byte [ebp - 0x20c], 0x5c
je 0x2809c9d9
cmp byte [ebp - 0x20c], 0x2f
je 0x2809c9d9
movsx esi, byte [ebp - 0x20c]
or esi, 0x20
sub esi, 0x61
jmp 0x2809c9dc
push 0x1a
pop esi
lea eax, [ebp - 0x20c]
push esi
push eax
mov ecx, edi
call fcn.2809c2c7
mov dword [edi + 4], esi
xor ebx, ebx
pop edi
mov eax, ebx
pop esi
pop ebx
leave
ret 4
Function at 0x2809e942
Capabilities:
Query environment variable

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x10
push ebx
push esi
push edi
mov ebx, ecx
call sym.perl510.dll_Perl_get_context
call dword [sym.imp.KERNEL32.dll_GetEnvironmentStrings]
mov esi, eax
mov dword [ebp - 0xc], esi
cmp byte [esi], 0x3d
jne 0x2809e96f
push esi
call sub.MSVCRT.dll_strlen
pop ecx
lea esi, [esi + eax + 1]
jmp 0x2809e95d
push 1
mov dword [ebp - 4], esi
pop edi
cmp byte [esi], 0
je 0x2809e992
push esi
call sub.MSVCRT.dll_strlen
push esi
lea edi, [edi + eax + 1]
call sub.MSVCRT.dll_strlen
pop ecx
lea esi, [esi + eax + 1]
pop ecx
jmp 0x2809e975
mov ecx, dword [ebp + 8]
call fcn.2809c9f9
mov ecx, ebx
add edi, eax
call fcn.2809e888
add edi, eax
push edi
call sym.perl510.dll_Perl_safesysmalloc
xor edi, edi
pop ecx
cmp eax, edi
mov dword [ebp - 0x10], eax
je 0x2809eaf8
mov ecx, dword [ebp + 8]
push eax
call fcn.2809ca21
cmp dword [ebx + 0x328], edi
mov dword [ebp + 8], eax
jbe 0x2809e9da
mov eax, dword [ebx + 0x32c]
push 1
pop edi
mov eax, dword [eax]
jmp 0x2809e9dc
xor eax, eax
mov dword [ebp - 8], eax
mov eax, dword [ebp - 4]
cmp byte [eax], 0
je 0x2809ea99
cmp dword [ebp - 8], 0
jne 0x2809e9f4
push eax
jmp 0x2809ea0c
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 4]
push eax
call fcn.2809e6fc
mov esi, eax
pop ecx
test esi, esi
pop ecx
jge 0x2809ea28
push dword [ebp - 4]
push dword [ebp + 8]
call sub.MSVCRT.dll_strcpy
push dword [ebp - 4]
call sub.MSVCRT.dll_strlen
add esp, 0xc
inc eax
add dword [ebp + 8], eax
add dword [ebp - 4], eax
jmp 0x2809e9df
push 0x3d
push dword [ebp - 8]
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
test eax, eax
pop ecx
je 0x2809ea5f
cmp byte [eax + 1], 0
je 0x2809ea5f
push dword [ebp - 8]
push dword [ebp + 8]
call sub.MSVCRT.dll_strcpy
push dword [ebp - 8]
call sub.MSVCRT.dll_strlen
mov ecx, dword [ebp + 8]
add esp, 0xc
lea eax, [ecx + eax + 1]
mov dword [ebp + 8], eax
cmp edi, dword [ebx + 0x328]
jae 0x2809ea74
mov eax, dword [ebx + 0x32c]
inc edi
mov eax, dword [eax + edi*4 - 4]
jmp 0x2809ea76
xor eax, eax
test esi, esi
mov dword [ebp - 8], eax
jne 0x2809e9df
push dword [ebp - 4]
call sub.MSVCRT.dll_strlen
pop ecx
mov ecx, dword [ebp - 4]
lea eax, [ecx + eax + 1]
mov dword [ebp - 4], eax
jmp 0x2809e9df
cmp dword [ebp - 8], 0
je 0x2809eaf2
push 0x3d
push dword [ebp - 8]
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
test eax, eax
pop ecx
je 0x2809ead4
cmp byte [eax + 1], 0
je 0x2809ead4
push dword [ebp - 8]
mov esi, dword [ebp + 8]
push esi
call sub.MSVCRT.dll_strcpy
push dword [ebp - 8]
call sub.MSVCRT.dll_strlen
lea eax, [esi + eax + 1]
add esp, 0xc
mov dword [ebp + 8], eax
cmp edi, dword [ebx + 0x328]
jae 0x2809eae9
mov eax, dword [ebx + 0x32c]
inc edi
mov eax, dword [eax + edi*4 - 4]
jmp 0x2809eaeb
xor eax, eax
test eax, eax
mov dword [ebp - 8], eax
jne 0x2809ea9f
mov eax, dword [ebp + 8]
and byte [eax], 0
push dword [ebp - 0xc]
call dword [sym.imp.KERNEL32.dll_FreeEnvironmentStringsA]
mov eax, dword [ebp - 0x10]
pop edi
pop esi
pop ebx
leave
ret 4
Function at 0x280a3a4e
Capabilities:
Query or enumerate registry value

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x10
lea eax, [ebp - 4]
push ebx
xor ebx, ebx
push eax
push 0x20019
push ebx
push str.SoftwarePerl
mov dword [ebp - 0x10], ebx
push dword [ebp + 8]
call dword [sym.imp.ADVAPI32.dll_RegOpenKeyExA]
test eax, eax
jne 0x280a3b19
push esi
lea eax, [ebp + 8]
push edi
push eax
lea eax, [ebp - 8]
push ebx
mov edi, dword [sym.imp.ADVAPI32.dll_RegQueryValueExA]
push eax
push ebx
push dword [ebp + 0xc]
push dword [ebp - 4]
call edi
test eax, eax
jne 0x280a3b0e
cmp dword [ebp - 8], 1
je 0x280a3aa4
cmp dword [ebp - 8], 2
jne 0x280a3b0e
call sym.perl510.dll_Perl_get_context
mov esi, dword [ebp + 0x10]
mov dword [ebp - 0xc], eax
cmp dword [esi], ebx
jne 0x280a3acd
push ebx
push 0x280ac738
push eax
call sym.perl510.dll_Perl_newSVpvn
push eax
push dword [ebp - 0xc]
call sym.perl510.dll_Perl_sv_2mortal
add esp, 0x14
mov dword [esi], eax
mov eax, dword [esi]
mov ecx, dword [ebp + 8]
mov edx, dword [eax]
cmp dword [edx + 0xc], ecx
jae 0x280a3ae6
push ecx
push eax
push dword [ebp - 0xc]
call sym.perl510.dll_Perl_sv_grow
add esp, 0xc
lea eax, [ebp + 8]
push eax
mov eax, dword [esi]
push dword [eax + 0xc]
push ebx
push ebx
push dword [ebp + 0xc]
push dword [ebp - 4]
call edi
test eax, eax
jne 0x280a3b0e
mov esi, dword [esi]
mov eax, dword [esi + 0xc]
mov ecx, dword [esi]
mov dword [ebp - 0x10], eax
mov eax, dword [ebp + 8]
dec eax
mov dword [ecx + 8], eax
push dword [ebp - 4]
call dword [sym.imp.ADVAPI32.dll_RegCloseKey]
pop edi
pop esi
mov eax, dword [ebp - 0x10]
pop ebx
leave
ret
Function at 0x280a3b1f
Capabilities:
Check if file exists
Get file attributes

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x120
push esi
push edi
mov edi, dword [ebp + 0x10]
push 0xa
push 5
lea eax, [ebp - 0x18]
push str._d._d
push eax
call dword [sym.imp.MSVCRT.dll_sprintf]
lea eax, [ebp - 0x18]
push eax
call sub.MSVCRT.dll_strlen
add esp, 0x14
cmp byte [str.C:_WINDOWS_system32_perl510.dll], 0
mov dword [ebp - 8], eax
jne 0x280a3b5d
call fcn.280a3847
lea eax, [ebp - 0x120]
push str.C:_WINDOWS_system32_perl510.dll
push eax
call sub.MSVCRT.dll_strcpy
lea eax, [ebp - 0x120]
push 0x2f
push eax
call dword [sym.imp.MSVCRT.dll_strrchr]
mov esi, eax
add esp, 0x10
test esi, esi
je 0x280a3c0d
lea eax, [ebp + 0x10]
push ebx
mov dword [ebp - 4], eax
test edi, edi
je 0x280a3c08
and byte [esi], 0
lea eax, [ebp - 0x120]
push 0x2f
push eax
mov dword [ebp - 0xc], esi
call dword [sym.imp.MSVCRT.dll_strrchr]
mov esi, eax
pop ecx
test esi, esi
pop ecx
je 0x280a3bf5
lea ebx, [esi + 1]
push edi
push ebx
call dword [sym.imp.MSVCRT.dll__stricmp]
pop ecx
test eax, eax
pop ecx
je 0x280a3bfb
cmp byte [edi], 0x35
jne 0x280a3bf5
cmp byte [ebx], 0x35
jne 0x280a3bf5
push dword [ebp - 8]
lea eax, [ebp - 0x18]
push eax
push edi
mov edi, dword [sym.imp.MSVCRT.dll_strncmp]
call edi
add esp, 0xc
test eax, eax
jne 0x280a3bf5
push dword [ebp - 8]
lea eax, [ebp - 0x18]
push eax
push ebx
call edi
add esp, 0xc
test eax, eax
je 0x280a3bfb
mov esi, dword [ebp - 0xc]
mov byte [esi], 0x2f
add dword [ebp - 4], 4
mov eax, dword [ebp - 4]
test esi, esi
mov edi, dword [eax]
jne 0x280a3b91
test esi, esi
pop ebx
jne 0x280a3c21
mov byte [ebp - 0x120], 0x2e
lea esi, [ebp - 0x11f]
mov byte [ebp - 0x11f], 0x2f
push dword [ebp + 0xc]
inc esi
push esi
call sub.MSVCRT.dll_strcpy
pop ecx
lea eax, [ebp - 0x120]
pop ecx
push eax
call dword [sym.imp.KERNEL32.dll_GetFileAttributesA]
cmp eax, 0xffffffff
je 0x280a3c9b
call sym.perl510.dll_Perl_get_context
mov esi, dword [ebp + 8]
mov edi, eax
mov eax, dword [esi]
test eax, eax
jne 0x280a3c69
push eax
push 0x280ac738
push edi
call sym.perl510.dll_Perl_newSVpvn
push eax
push edi
call sym.perl510.dll_Perl_sv_2mortal
add esp, 0x14
mov dword [esi], eax
jmp 0x280a3c82
cmp dword [eax + 0xc], 0
je 0x280a3c82
push 2
push 1
push 0x280b2aec
push eax
push edi
call sym.perl510.dll_Perl_sv_catpvn_flags
add esp, 0x14
lea eax, [ebp - 0x120]
push eax
push dword [esi]
push edi
call sym.perl510.dll_Perl_sv_catpv
mov eax, dword [esi]
add esp, 0xc
mov eax, dword [eax + 0xc]
jmp 0x280a3c9d
xor eax, eax
pop edi
pop esi
leave
ret
Function at 0x280a4afc
Capabilities:
Terminate thread

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
push edi
call sym.perl510.dll_Perl_get_context
mov esi, dword [ebp + 8]
mov ebx, eax
test esi, esi
jge 0x280a4c31
neg esi
push esi
mov dword [ebp - 4], esi
call fcn.280a4dab
mov edi, eax
pop ecx
test edi, edi
jl 0x280a4c07
mov eax, dword [ebx + 0x3cc]
cmp dword [ebp + 0xc], 0
lea esi, [edi*4 + 0x204]
mov ecx, dword [eax + esi]
mov eax, dword [eax + edi*4 + 0x104]
je 0x280a4c2d
cmp dword [ebp + 0xc], 9
je 0x280a4bf1
xor edi, edi
cmp ecx, 0xffffffff
jne 0x280a4b89
cmp edi, 5
jge 0x280a4b80
push 0
call dword [sym.imp.KERNEL32.dll_Sleep]
push ebx
call sym.perl510.dll_win32_async_check
mov eax, dword [ebx + 0x3cc]
pop ecx
inc edi
mov ecx, dword [eax + esi]
cmp ecx, 0xffffffff
je 0x280a4b5d
cmp ecx, 0xffffffff
je 0x280a4c7d
test ecx, ecx
mov esi, 0x41f
je 0x280a4ba3
push 0
push dword [ebp + 0xc]
push esi
push ecx
call dword [sym.imp.USER32.dll_PostMessageA]
test eax, eax
jne 0x280a4bc7
call fcn.280a381f
test eax, eax
mov eax, dword [ebp + 8]
jne 0x280a4bb2
mov eax, dword [ebp - 4]
push 0
push dword [ebp + 0xc]
push esi
push eax
call dword [sym.imp.USER32.dll_PostThreadMessageA]
test eax, eax
je 0x280a4c7d
mov ecx, dword [ebx + 0x698]
lea eax, [ebx + 0x698]
cmp ecx, 0x8000
lea edx, [ecx + 1]
mov dword [eax], edx
ja 0x280a4be9
cmp dword [ebx + 0x28c], 0
je 0x280a4c2d
push ebx
call sym.perl510.dll_win32_async_check
jmp 0x280a4c04
push 9
push eax
call dword [sym.imp.KERNEL32.dll_TerminateThread]
test eax, eax
je 0x280a4c7d
push edi
call fcn.280a4dd3
pop ecx
jmp 0x280a4c2d
call fcn.280a381f
test eax, eax
je 0x280a4c7d
mov dword [ebp + 8], esi
call fcn.280a381f
test eax, eax
je 0x280a4c1e
neg esi
push dword [ebp + 0xc]
push esi
call fcn.280a4f18
pop ecx
test eax, eax
pop ecx
je 0x280a4c7d
xor eax, eax
jmp 0x280a4c8c
push esi
call fcn.280a4c91
mov edi, eax
pop ecx
test edi, edi
jl 0x280a4c13
push dword [ebp + 0xc]
push esi
call fcn.280a4f18
pop ecx
test eax, eax
pop ecx
je 0x280a4c7d
and dword [ebp + 0xc], 0
lea eax, [ebp + 0xc]
push eax
mov eax, dword [ebx + 0x3c4]
push dword [eax + edi*4 + 0x104]
call dword [sym.imp.KERNEL32.dll_GetExitCodeProcess]
test eax, eax
je 0x280a4c2d
cmp dword [ebp + 0xc], 0x103
je 0x280a4c2d
push edi
call fcn.280a4cb9
jmp 0x280a4c04
call dword [sym.imp.MSVCRT.dll__errno]
mov dword [eax], 0x16
or eax, 0xffffffff
pop edi
pop esi
pop ebx
leave
ret
Function at 0x280a5563
Capabilities:
Query environment variable
Terminate process

Disassembly:
cmp dword [0x280ccfdc], 0
je 0x280a55d9
push ebx
push ebp
push esi
push edi
call sym.perl510.dll_Perl_get_context
mov esi, eax
mov eax, dword [esi + 0x298]
test eax, eax
je 0x280a559a
cmp byte [eax + 8], 9
jne 0x280a559a
mov eax, dword [eax + 0xc]
mov eax, dword [eax + 4]
test eax, eax
je 0x280a559a
mov eax, dword [eax]
mov eax, dword [eax + 0x20]
test eax, eax
jne 0x280a55a1
push esi
call sym.perl510.dll_Perl_PerlIO_stderr
pop ecx
mov ebp, dword [esi + 0x888]
mov edi, sym.perl510.dll_PL_no_mem
push edi
mov ebx, eax
call sub.MSVCRT.dll_strlen
pop ecx
push eax
push edi
push ebx
push esi
call sym.perl510.dll_Perl_PerlIO_fileno
pop ecx
pop ecx
push eax
push dword [esi + 0x888]
call dword [ebp + 0x64]
push 1
push esi
call sym.perl510.dll_Perl_my_exit
add esp, 0x18
pop edi
pop esi
pop ebp
pop ebx
push 1
call dword [sym.imp.MSVCRT.dll_exit]

Function at 0x280a55e1
Capabilities:
Query environment variable

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
push edi
call sym.perl510.dll_Perl_get_context
mov edi, dword [sym.imp.KERNEL32.dll_GetEnvironmentVariableA]
mov ebx, eax
xor eax, eax
push eax
push eax
push dword [ebp + 8]
mov dword [ebp - 4], eax
call edi
mov esi, eax
test esi, esi
je 0x280a5655
push 0
push 0x280ac738
push ebx
call sym.perl510.dll_Perl_newSVpvn
push eax
push ebx
call sym.perl510.dll_Perl_sv_2mortal
add esp, 0x14
mov dword [ebp - 4], eax
mov edx, dword [eax]
lea ecx, [esi + 1]
cmp dword [edx + 0xc], ecx
jae 0x280a5639
push ecx
push eax
push ebx
call sym.perl510.dll_Perl_sv_grow
mov eax, dword [ebp - 4]
add esp, 0xc
push esi
push dword [eax + 0xc]
push dword [ebp + 8]
call edi
mov esi, eax
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
cmp esi, dword [ecx + 0xc]
jae 0x280a5621
mov eax, ecx
mov dword [eax + 8], esi
jmp 0x280a567a
push 4
push str.PERL
push dword [ebp + 8]
call dword [sym.imp.MSVCRT.dll_strncmp]
add esp, 0xc
test eax, eax
jne 0x280a567a
lea eax, [ebp - 4]
push eax
push dword [ebp + 8]
call fcn.280a3a1f
pop ecx
pop ecx
mov eax, dword [ebp - 4]
pop edi
pop esi
pop ebx
test eax, eax
je 0x280a5691
mov ecx, dword [eax]
cmp dword [ecx + 8], 0
je 0x280a5691
mov eax, dword [eax + 0xc]
leave
ret
xor eax, eax
leave
ret

Function at 0x280a5695
Capabilities:
Set environment variable

Disassembly:
push ebx
push edi
call sym.perl510.dll_Perl_get_context
mov edi, dword [esp + 0xc]
or ebx, 0xffffffff
test edi, edi
je 0x280a56f1
push esi
push edi
call sub.MSVCRT.dll_strlen
inc eax
push eax
call sym.perl510.dll_Perl_safesysmalloc
mov esi, eax
push edi
push esi
call sub.MSVCRT.dll_strcpy
push 0x3d
push esi
call dword [sym.imp.MSVCRT.dll_strchr]
add esp, 0x18
test eax, eax
je 0x280a56e9
and byte [eax], 0
mov cl, byte [eax + 1]
inc eax
neg cl
sbb ecx, ecx
and ecx, eax
push ecx
push esi
call dword [sym.imp.KERNEL32.dll_SetEnvironmentVariableA]
test eax, eax
je 0x280a56e9
xor ebx, ebx
push esi
call sym.perl510.dll_Perl_safesysfree
pop ecx
pop esi
mov eax, ebx
pop edi
pop ebx
ret
Function at 0x280a5784
Capabilities:
Check if file exists
Get file attributes
Set file attributes

Disassembly:
push ebx
push esi
call sym.perl510.dll_Perl_get_context
push dword [esp + 0xc]
mov eax, dword [eax + 0x88c]
push eax
call dword [eax + 0x24]
pop ecx
mov esi, eax
pop ecx
push esi
call dword [sym.imp.KERNEL32.dll_GetFileAttributesA]
mov ebx, eax
cmp ebx, 0xffffffff
jne 0x280a57bb
call dword [sym.imp.MSVCRT.dll__errno]
mov dword [eax], 2
or eax, ebx
jmp 0x280a57f3
push ebp
push edi
test bl, 1
je 0x280a57e5
mov edi, dword [sym.imp.KERNEL32.dll_SetFileAttributesA]
mov eax, ebx
and al, 0xfe
push eax
push esi
call edi
push esi
call dword [sym.imp.MSVCRT.dll__unlink]
mov ebp, eax
pop ecx
cmp ebp, 0xffffffff
jne 0x280a57ef
push ebx
push esi
call edi
jmp 0x280a57ef
push esi
call dword [sym.imp.MSVCRT.dll__unlink]
pop ecx
mov ebp, eax
mov eax, ebp
pop edi
pop ebp
pop esi
pop ebx
ret

Function at 0x280a57f6
Capabilities:
Timestomp file

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x20
push ebx
push esi
push edi
call sym.perl510.dll_Perl_get_context
push dword [ebp + 8]
mov eax, dword [eax + 0x88c]
push eax
call dword [eax + 0x24]
mov esi, dword [ebp + 0xc]
mov edi, eax
push esi
push edi
call dword [sym.imp.MSVCRT.dll__utime]
mov ebx, eax
add esp, 0x10
test ebx, ebx
je 0x280a58cc
call dword [sym.imp.MSVCRT.dll__errno]
cmp dword [eax], 0xd
jne 0x280a58cc
test esi, esi
jne 0x280a5852
lea eax, [ebp - 8]
lea esi, [ebp - 8]
push eax
call dword [sym.imp.MSVCRT.dll_time]
mov eax, dword [ebp - 8]
pop ecx
mov dword [ebp - 4], eax
push 0
push 0x2000000
push 3
push 0
push 5
push 0xc0000000
push edi
call dword [sym.imp.KERNEL32.dll_CreateFileA]
mov edi, eax
cmp edi, 0xffffffff
je 0x280a58cc
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x20]
push eax
push edi
call dword [sym.imp.KERNEL32.dll_GetFileTime]
test eax, eax
je 0x280a58c5
push dword [esi]
lea eax, [ebp - 0x18]
push eax
call fcn.280a58d3
pop ecx
test eax, eax
pop ecx
je 0x280a58c5
push dword [esi + 4]
lea eax, [ebp - 0x10]
push eax
call fcn.280a58d3
pop ecx
test eax, eax
pop ecx
je 0x280a58c5
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x20]
push eax
push edi
call dword [sym.imp.KERNEL32.dll_SetFileTime]
test eax, eax
je 0x280a58c5
xor ebx, ebx
push edi
call dword [sym.imp.KERNEL32.dll_CloseHandle]
pop edi
mov eax, ebx
pop esi
pop ebx
leave
ret