joyce8/EMBER2024-capa huggingface dataset:
Function at 0x4187fc
Capabilities:
Get hostname
Initialize winsock library
Resolve dns

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffe54
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 0x1ac], ecx
mov dword [ebp - 4], ecx
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x418919
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, ebx
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov word [ebp - 0x194], 0
lea eax, [ebp - 0x194]
push eax
mov dl, 1
mov al, 1
call fcn.00402194
push eax
call sub.wsock32.dll_WSAStartup
test eax, eax
jne 0x4188f8
xor edx, edx
push ebp
push 0x4188f1
push dword fs:[edx]
mov dword fs:[edx], esp
lea eax, [ebp - 4]
mov dword [ebp - 0x1a8], esi
mov edx, dword [ebp - 0x1a8]
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
cmp dword [ebp - 4], 0
jne 0x41889a
lea eax, [ebp - 4]
mov edx, 0x104
call sub.rtl70.bpl__System__LStrSetLength_qqrv
push 0x104
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.wsock32.dll_gethostname
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.wsock32.dll_gethostbyname
test eax, eax
je 0x4188de
mov eax, dword [eax + 0xc]
mov eax, dword [eax]
mov eax, dword [eax]
mov dword [ebp - 0x1a0], eax
push dword [ebp - 0x1a0]
call sub.wsock32.dll_inet_ntoa
mov edx, eax
lea eax, [ebp - 0x1ac]
call sub.rtl70.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov edx, dword [ebp - 0x1ac]
mov eax, ebx
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4188f8
call sub.wsock32.dll_WSACleanup
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x418920
lea eax, [ebp - 0x1ac]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret
Function at 0x418930
Capabilities:
Get hostname
Initialize winsock library
Resolve dns

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffe64
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x19c], ecx
mov dword [ebp - 8], ecx
mov ebx, edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x418a3d
push dword fs:[eax]
mov dword fs:[eax], esp
mov word [ebp - 0x198], 0
lea eax, [ebp - 0x198]
push eax
mov dl, 1
mov al, 1
call fcn.00402194
push eax
call sub.wsock32.dll_WSAStartup
test eax, eax
jne 0x418a1c
xor edx, edx
push ebp
push 0x418a15
push dword fs:[edx]
mov dword fs:[edx], esp
test ebx, ebx
jne 0x4189b5
lea eax, [ebp - 8]
mov edx, 0x104
call sub.rtl70.bpl__System__LStrSetLength_qqrv
push 0x104
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.wsock32.dll_gethostname
jmp 0x4189bf
lea eax, [ebp - 8]
mov edx, ebx
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.wsock32.dll_gethostbyname
test eax, eax
je 0x418a02
mov esi, dword [eax + 0xc]
xor ebx, ebx
jmp 0x4189fb
push dword [edi]
call sub.wsock32.dll_inet_ntoa
mov edx, eax
lea eax, [ebp - 0x19c]
call sub.rtl70.bpl__System__LStrFromPChar_qqrr17System_AnsiStringpc
mov edx, dword [ebp - 0x19c]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x38]
inc ebx
mov edi, dword [esi + ebx*4]
test edi, edi
jne 0x4189d8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x418a1c
call sub.wsock32.dll_WSACleanup
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x418a44
lea eax, [ebp - 0x19c]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret
Function at 0x418ba4
Capabilities:
Get user security identifier

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
push esi
push edi
mov ebx, edx
mov esi, eax
xor eax, eax
mov dword [ebp - 4], eax
xor eax, eax
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 0xc], eax
mov dword [ebp - 0x10], 1
mov eax, ebx
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 8]
push eax
mov eax, dword [ebx]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
lea eax, [ebp - 4]
push eax
mov eax, dword [ebp - 0xc]
push eax
mov eax, esi
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov edi, eax
push edi
push 0
call sub.advapi32.dll_LookupAccountNameA
mov edx, dword [ebp - 8]
inc edx
mov eax, ebx
call sub.rtl70.bpl__System__LStrSetLength_qqrv
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Sysutils_AllocMem_qqrui
mov dword [ebp - 0xc], eax
xor eax, eax
push ebp
push 0x418c6d
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 8]
push eax
mov eax, dword [ebx]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
lea eax, [ebp - 4]
push eax
mov eax, dword [ebp - 0xc]
push eax
push edi
push 0
call sub.advapi32.dll_LookupAccountNameA
test eax, eax
je 0x418c48
mov eax, ebx
call sym.P_Interface.bpl__Jclstrings_StrResetLength_qqrr17System_AnsiString
jmp 0x418c57
mov eax, ebx
mov edx, dword [sym.imp.rtl70.bpl__Sysutils_EmptyStr]
mov edx, dword [edx]
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x418c74
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__FreeMem_qqrpv
ret

Function at 0x4199b0
Capabilities:
Enumerate gui resources

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TStrings_BeginUpdate_qqrv
xor eax, eax
push ebp
push 0x4199fc
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
push eax
push 0x419918
call sub.user32.dll_EnumWindows
cmp eax, 1
sbb eax, eax
inc eax
mov byte [ebp - 5], al
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x419a03
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Classes_TStrings_EndUpdate_qqrv
ret
Function at 0x419c04
Capabilities:
Enumerate gui resources
Terminate process

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
mov esi, edx
mov ebx, eax
mov byte [ebp - 1], 0
call sub.kernel32.dll_GetCurrentProcessId
cmp ebx, eax
je 0x419c91
push ebx
push 0
push 0x100001
call sub.kernel32.dll_OpenProcess
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
je 0x419c91
xor eax, eax
push ebp
push 0x419c8a
push dword fs:[eax]
mov dword fs:[eax], esp
push ebx
push 0x419bd4
call sub.user32.dll_EnumWindows
push esi
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_WaitForSingleObject
test eax, eax
jne 0x419c60
mov byte [ebp - 1], 1
jmp 0x419c73
push 0
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_TerminateProcess
test eax, eax
je 0x419c73
mov byte [ebp - 1], 2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x419c91
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_CloseHandle
ret
mov al, byte [ebp - 1]
pop esi
pop ebx
pop ecx
pop ecx
pop ebp
ret

Function at 0x419fd0
Capabilities:
Enumerate gui resources

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff4
push ebx
push esi
mov esi, edx
mov ebx, eax
lea eax, [ebp - 0xc]
mov edx, dword [0x419efc]
call sub.rtl70.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x41a037
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 0xc], ebx
lea eax, [ebp - 8]
mov edx, esi
call sub.rtl70.bpl__System__LStrLAsg_qqrpvpxv
xor eax, eax
mov dword [ebp - 4], eax
lea eax, [ebp - 0xc]
push eax
push 0x419f20
call sub.user32.dll_EnumWindows
mov ebx, dword [ebp - 4]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41a03e
lea eax, [ebp - 0xc]
mov edx, dword [0x419efc]
call sub.rtl70.bpl__System__FinalizeRecord_qqrpvt1
ret

Function at 0x41a048
Capabilities:
Persist via winlogon helper dll registry key

Disassembly:
push ebp
mov ebp, esp
push 0
push 0
push ebx
mov ebx, eax
xor eax, eax
push ebp
push 0x41a0e1
push dword fs:[eax]
mov dword fs:[eax], esp
cmp byte [sym.P_Interface.bpl__Jclsysinfo_IsWinNT], 0
je 0x41a082
push 0
push ebx
mov ecx, 0x41a0f8
mov edx, 0x41a108
mov eax, 0x80000002
call sym.P_Interface.bpl__Jclregistry_RegReadStringDef_qqrxuix17System_AnsiStringt2t2
jmp 0x41a0b5
push ebx
lea eax, [ebp - 8]
call sym.P_Interface.bpl__Jclsysinfo_GetWindowsFolder_qqrv
mov eax, dword [ebp - 8]
lea edx, [ebp - 4]
call sym.P_Interface.bpl__Jclfileutils_PathAddSeparator_qqrx17System_AnsiString
lea eax, [ebp - 4]
mov edx, 0x41a148
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 4]
mov ecx, 0x41a0f8
mov edx, 0x41a15c
call sym.P_Interface.bpl__Jclinifiles_IniReadString_qqrx17System_AnsiStringt1t1
cmp dword [ebx], 0
jne 0x41a0c6
mov eax, ebx
mov edx, 0x41a16c
call sub.rtl70.bpl__System__LStrAsg_qqrpvpxv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41a0e8
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret
Function at 0x41b560
Capabilities:
Check os version

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff60
push ebx
xor eax, eax
mov dword [ebp - 0xa0], eax
xor eax, eax
push ebp
push 0x41b61e
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
mov eax, dword [sym.imp.rtl70.bpl__Sysutils_Win32Platform]
cmp dword [eax], 2
jne 0x41b5c6
mov eax, dword [sym.imp.rtl70.bpl__Sysutils_Win32MajorVersion]
cmp dword [eax], 5
jl 0x41b5c6
lea eax, [ebp - 0x9c]
mov edx, 0x9c
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
mov dword [ebp - 0x9c], 0x9c
lea eax, [ebp - 0x9c]
push eax
call sub.kernel32.dll_GetVersionExA_1
test eax, eax
je 0x41b605
movzx ebx, word [ebp - 8]
jmp 0x41b605
push 0
mov ecx, 0x41b634
mov edx, 0x41b648
mov eax, 0x80000002
call sym.P_Interface.bpl__Jclregistry_RegReadIntegerDef_qqrxuix17System_AnsiStringt2i
mov ebx, eax
lea ecx, [ebp - 0xa0]
mov edx, 4
mov eax, ebx
call sub.rtl70.bpl__Sysutils_IntToHex_qqrii
mov eax, dword [ebp - 0xa0]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov ecx, 0x64
cdq
idiv ecx
mov ebx, eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x41b625
lea eax, [ebp - 0xa0]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret
Function at 0x420188
Capabilities:
Delete file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 8], ebx
mov byte [ebp - 1], cl
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x42020b
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x26]
mov edx, 0x1e
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
mov dword [ebp - 0x26], ebx
mov dword [ebp - 0x22], 3
lea eax, [ebp - 8]
mov ecx, 0x420224
mov edx, esi
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1e], eax
mov al, byte [ebp - 1]
call fcn.00420160
mov word [ebp - 0x16], ax
lea eax, [ebp - 0x26]
push eax
call sub.shell32.dll_SHFileOperationA
test eax, eax
sete bl
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x420212
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret

Function at 0x4202e4
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd4
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 8], ebx
mov dword [ebp - 0xc], ebx
mov byte [ebp - 1], cl
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x42038e
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x2a]
mov edx, 0x1e
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
call sub.user32.dll_GetDesktopWindow
mov dword [ebp - 0x2a], eax
mov dword [ebp - 0x26], 4
lea eax, [ebp - 8]
mov ecx, 0x4203a8
mov edx, ebx
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea eax, [ebp - 0xc]
mov ecx, 0x4203a8
mov edx, esi
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x22], eax
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1e], eax
mov al, byte [ebp - 1]
call fcn.004202c8
mov word [ebp - 0x1a], ax
lea eax, [ebp - 0x2a]
push eax
call sub.shell32.dll_SHFileOperationA
test eax, eax
sete bl
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x420395
lea eax, [ebp - 0xc]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret
Function at 0x4203e0
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 4], ebx
mov dword [ebp - 8], ebx
mov edi, ecx
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x420485
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x26]
mov edx, 0x1e
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
mov dword [ebp - 0x26], ebx
mov dword [ebp - 0x22], 2
lea eax, [ebp - 4]
mov ecx, 0x4204a0
mov edx, esi
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea eax, [ebp - 8]
mov ecx, 0x4204a0
mov edx, edi
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1e], eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1a], eax
mov al, byte [ebp + 8]
call fcn.004203ac
mov word [ebp - 0x16], ax
lea eax, [ebp - 0x26]
push eax
call sub.shell32.dll_SHFileOperationA
test eax, eax
sete bl
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x42048c
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret

Function at 0x4204d4
Capabilities:
Copy file
Move file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 4], ebx
mov dword [ebp - 8], ebx
mov edi, ecx
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x420579
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x26]
mov edx, 0x1e
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
mov dword [ebp - 0x26], ebx
mov dword [ebp - 0x22], 1
lea eax, [ebp - 4]
mov ecx, 0x420594
mov edx, esi
call sub.rtl70.bpl__System__LStrCat3_qqrv
lea eax, [ebp - 8]
mov ecx, 0x420594
mov edx, edi
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1e], eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x1a], eax
mov al, byte [ebp + 8]
call fcn.004204a4
mov word [ebp - 0x16], ax
lea eax, [ebp - 0x26]
push eax
call sub.shell32.dll_SHFileOperationA
test eax, eax
sete bl
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x420580
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret
Function at 0x4207bc
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
push ebx
xor ebx, ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 8], ecx
mov byte [ebp - 1], dl
mov ebx, eax
xor eax, eax
push ebp
push 0x4208d7
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
xor ecx, ecx
xor edx, edx
call fcn.004205c0
lea eax, [ebp - 0x10]
push eax
call sub.shell32.dll_SHGetDesktopFolder
call sub.rtl70.bpl__Activex_Succeeded_qqrl
mov byte [ebp - 9], al
cmp byte [ebp - 9], 0
je 0x42087f
test ebx, ebx
jne 0x420815
mov eax, dword [ebp - 8]
add eax, 0x18
mov edx, dword [ebp - 0x10]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
jmp 0x42087f
lea eax, [ebp - 0x14]
push eax
push ebx
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
call sub.rtl70.bpl__Activex_Succeeded_qqrl
mov byte [ebp - 9], al
cmp byte [ebp - 9], 0
je 0x42087f
xor eax, eax
push ebp
push 0x420878
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
add eax, 0x18
push eax
mov eax, dword [0x9c3b44]
push eax
push 0
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [ebp - 0x10]
push eax
mov eax, dword [eax]
call dword [eax + 0x14]
call sub.rtl70.bpl__Activex_Succeeded_qqrl
mov byte [ebp - 9], al
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x42087f
mov eax, dword [ebp - 0x14]
push eax
call sub.ole32.dll_CoTaskMemFree
ret
cmp byte [ebp - 9], 0
je 0x4208c1
mov eax, dword [ebp - 8]
add eax, 0x14
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
mov al, byte [ebp - 1]
call fcn.00420598
push eax
push 0
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x18]
push eax
mov eax, dword [eax]
call dword [eax + 0x10]
mov eax, dword [ebp - 8]
call sym.P_Interface.bpl__Jclshell_SHEnumFolderNext_qqrr23Jclshell_TEnumFolderRec
mov byte [ebp - 9], al
cmp byte [ebp - 9], 0
jne 0x4208c1
mov eax, dword [ebp - 8]
call sym.P_Interface.bpl__Jclshell_SHEnumFolderClose_qqrr23Jclshell_TEnumFolderRec
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4208de
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret
Function at 0x420ebc
Capabilities:
Create process on windows
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffb4
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x4c], ebx
mov dword [ebp - 0x48], ebx
mov byte [ebp - 1], cl
mov esi, edx
mov edi, eax
xor eax, eax
push ebp
push 0x420fa8
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
lea eax, [ebp - 8]
push eax
push edi
push esi
call sub.shell32.dll_SHGetSpecialFolderLocation
call sub.rtl70.bpl__Activex_Succeeded_qqrl
test al, al
je 0x420f8d
lea eax, [ebp - 0x44]
mov edx, 0x3c
call sym.P_Interface.bpl__Jclsysutils_ResetMemory_qqrpvi
mov dword [ebp - 0x44], 0x3c
mov dword [ebp - 0x3c], esi
mov dword [ebp - 0x40], 0xc
cmp byte [ebp - 1], 0
je 0x420f2a
mov eax, 0x420fb8
mov dword [ebp - 0x38], eax
jmp 0x420f32
mov eax, 0x420fc0
mov dword [ebp - 0x38], eax
mov eax, dword [ebp - 8]
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x28], 1
lea edx, [ebp - 0x48]
mov eax, dword [ebp - 8]
call sym.P_Interface.bpl__Jclshell_PidlToPath_qqrp11_ITEMIDLIST
cmp dword [ebp - 0x48], 0
jne 0x420f5f
mov dword [ebp - 0x40], 0xc
mov eax, dword [ebp - 8]
mov dword [ebp - 0x20], eax
jmp 0x420f75
lea edx, [ebp - 0x4c]
mov eax, dword [ebp - 8]
call sym.P_Interface.bpl__Jclshell_PidlToPath_qqrp11_ITEMIDLIST
mov eax, dword [ebp - 0x4c]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
mov dword [ebp - 0x34], eax
lea eax, [ebp - 0x44]
push eax
call sub.shell32.dll_ShellExecuteExA
cmp eax, 1
sbb ebx, ebx
inc ebx
mov eax, dword [ebp - 8]
push eax
call sub.ole32.dll_CoTaskMemFree
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x420faf
lea eax, [ebp - 0x4c]
mov edx, 2
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
ret
Function at 0x4211a4
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffddc
push ebx
xor ecx, ecx
mov dword [ebp - 0x224], ecx
mov dword [ebp - 0x14], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov eax, dword [ebp - 4]
test eax, eax
je 0x4211c9
xor edx, edx
mov dword [eax], edx
xor eax, eax
push ebp
push 0x4212c0
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [ebp - 8], eax
lea eax, [ebp - 0x14]
push eax
call sub.shell32.dll_SHGetDesktopFolder
call sub.rtl70.bpl__Activex_Succeeded_qqrl
test al, al
je 0x42129f
lea eax, [ebp - 0x18]
push eax
push 0x11
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
call sub.rtl70.bpl__Activex_Succeeded_qqrl
test al, al
je 0x421296
mov eax, dword [ebp - 4]
push eax
mov eax, dword [0x9c3b44]
push eax
push 0
mov eax, dword [ebp - 0x18]
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x14]
call sub.rtl70.bpl__Activex_Succeeded_qqrl
test al, al
je 0x421296
push 0x104
lea eax, [ebp - 0x220]
push eax
push 0xffffffffffffffff
lea edx, [ebp - 0x224]
mov eax, ebx
call sym.P_Interface.bpl__Jclfileutils_PathAddSeparator_qqrx17System_AnsiString
mov eax, dword [ebp - 0x224]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
push 1
push 0
call sub.kernel32.dll_MultiByteToWideChar
xor eax, eax
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0xc]
push eax
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x220]
push eax
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax]
push eax
mov eax, dword [eax]
call dword [eax + 0xc]
call sub.rtl70.bpl__Activex_Failed_qqrl
test al, al
je 0x421296
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 0x18]
push eax
call sub.ole32.dll_CoTaskMemFree
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4212c7
lea eax, [ebp - 0x224]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret
Function at 0x4218a4
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 8], ebx
mov edi, ecx
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x421977
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 4], 0x80070057
lea eax, [ebp - 8]
mov edx, 0x104
call sub.rtl70.bpl__System__LStrSetLength_qqrv
lea eax, [ebp - 0xc]
push eax
push ebx
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
call sub.rtl70.bpl__Activex_Succeeded_qqrl
test al, al
je 0x421959
xor eax, eax
push ebp
push 0x421952
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 8]
mov eax, dword [ebp - 0xc]
call sym.P_Interface.bpl__Jclshell_PidlToPath_qqrp11_ITEMIDLIST
cmp dword [ebp - 8], 0
je 0x42193b
lea eax, [ebp - 8]
call sym.P_Interface.bpl__Jclstrings_StrResetLength_qqrr17System_AnsiString
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 8]
call sym.P_Interface.bpl__Jclfileutils_PathAddSeparator_qqrx17System_AnsiString
lea eax, [ebp - 0x10]
mov edx, edi
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0x10]
mov eax, esi
call sym.P_Interface.bpl__Jclshell_ShellLinkCreate_qqrrx19Jclshell_TShellLinkx17System_AnsiString
mov dword [ebp - 4], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x421959
mov eax, dword [ebp - 0xc]
push eax
call sub.ole32.dll_CoTaskMemFree
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x42197e
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret