joyce8/EMBER2024-capa huggingface dataset:
Function at 0x5632e8
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x563362
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 4], 0
je 0x563347
push 0x56337c
push dword [ebp - 4]
push 0x5633bc
lea eax, [ebp - 8]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
push 1
push 0
push 0
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x563408
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x563369
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x563c4c
Capabilities:
Copy file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x563cbe
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 8]
mov eax, dword [0x9f2bc0]
call fcn.005702c8
push 0
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CopyFileW
cmp eax, 1
sbb ebx, ebx
inc ebx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x563cc5
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x5654a0
Capabilities:
Download url
Receive data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x565598
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x56556e
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x56552b
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 8]
mov eax, dword [0x9f2bc0]
call fcn.005702c8
push 0
push 0
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0
call sub.URLMON.DLL_URLDownloadToFileW
test eax, eax
sete byte [ebp - 0xd]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x565539
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x565575
cmp byte [ebp + 8], 0
je 0x56556d
cmp byte [ebp - 0xd], 0
jne 0x56556d
lea eax, [ebp - 0x14]
mov ecx, dword [ebp - 4]
mov edx, 0x5655b8
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0xc]
call fcn.00571c6c
ret

Function at 0x565844
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
xor ebx, ebx
mov dword [ebp - 0xc], ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x565900
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 8], 0
je 0x565897
push 0x565918
push dword [ebp - 8]
push 0x565918
lea eax, [ebp - 8]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
push 1
lea edx, [ebp - 0xc]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov eax, dword [ebp - 0xc]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x565918
push dword [ebp - 4]
push 0x565918
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x10]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x56591c
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x565907
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x568c9c
Capabilities:
Enumerate gui resources

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 4], eax
lea eax, [ebp - 8]
push eax
push 0x568c4c
call sub.user32.dll_EnumWindows
mov eax, dword [ebp - 4]
pop ecx
pop ecx
pop ebp
ret
Function at 0x568d30
Capabilities:
Enumerate gui resources

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
mov dword [ebp - 8], eax
xor eax, eax
mov dword [ebp - 4], eax
lea eax, [ebp - 8]
push eax
push 0x568cf4
call sub.user32.dll_EnumWindows
mov eax, dword [ebp - 4]
pop ecx
pop ecx
pop ebp
ret

Function at 0x569430
Capabilities:
Get file version info

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffcc
push ebx
xor ebx, ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x34], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x5695cd
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 4], 0
jne 0x569476
lea edx, [ebp - 4]
mov eax, dword [sym.imp.vcl140.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl140.bpl__Forms_TApplication_GetExeName_qqrv
mov word [ebp - 0xa], 0
mov word [ebp - 0xc], 0
mov word [ebp - 0xe], 0
mov word [ebp - 0x10], 0
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x569552
lea eax, [ebp - 0x1c]
push eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov ebx, eax
push ebx
call sub.version.dll_GetFileVersionInfoSizeW
mov dword [ebp - 0x14], eax
cmp dword [ebp - 0x14], 0
jbe 0x569552
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__System__GetMem_qqri
mov dword [ebp - 0x20], eax
xor edx, edx
push ebp
push 0x56954b
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0x20]
push eax
mov eax, dword [ebp - 0x14]
push eax
push 0
push ebx
call sub.version.dll_GetFileVersionInfoW
test eax, eax
je 0x569532
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x24]
push eax
push 0x5695dc
mov eax, dword [ebp - 0x20]
push eax
call sub.version.dll_VerQueryValueW
mov eax, dword [ebp - 0x24]
mov edx, dword [eax + 8]
shr edx, 0x10
mov word [ebp - 0xa], dx
movzx edx, word [eax + 8]
and dx, 0xffff
mov word [ebp - 0xc], dx
mov edx, dword [eax + 0xc]
shr edx, 0x10
mov word [ebp - 0xe], dx
movzx eax, word [eax + 0xc]
and ax, 0xffff
mov word [ebp - 0x10], ax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x569552
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x20]
call sub.rtl140.bpl__System__FreeMem_qqrpv
ret
lea edx, [ebp - 0x28]
movzx eax, word [ebp - 0xa]
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x28]
push 0x5695ec
lea edx, [ebp - 0x2c]
movzx eax, word [ebp - 0xc]
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x2c]
push 0x5695ec
lea edx, [ebp - 0x30]
movzx eax, word [ebp - 0xe]
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x30]
push 0x5695ec
lea edx, [ebp - 0x34]
movzx eax, word [ebp - 0x10]
call sub.rtl140.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x34]
mov eax, dword [ebp - 8]
mov edx, 7
call sub.rtl140.bpl__System__UStrCatN_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5695d4
lea eax, [ebp - 0x34]
mov edx, 4
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrClr_qqrpv
ret
Function at 0x56a03c
Capabilities:
Get hostname
Initialize winsock library
Resolve dns

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd64
push ebx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x28]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
cmp dword [eax], 0
jne 0x56a0d9
xor edx, edx
push ebp
push 0x56a0d2
push dword fs:[edx]
mov dword fs:[edx], esp
mov dl, 1
mov al, 1
call fcn.00403984
lea edx, [ebp - 0x198]
push edx
push eax
call sub.wsock32.dll_WSAStartup
push 0x80
lea eax, [ebp - 0x29a]
push eax
call sub.wsock32.dll_gethostname
lea eax, [ebp - 0x29a]
push eax
call sub.wsock32.dll_gethostbyname
mov ebx, eax
mov eax, dword [ebp - 8]
mov edx, dword [ebx]
call sub.rtl140.bpl__System__UStrFromPChar_qqrr20System_UnicodeStringpc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x56a0d9
mov eax, dword [ebp - 4]
add eax, 0x28
mov edx, dword [ebp - 8]
mov edx, dword [edx]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
call sub.wsock32.dll_WSACleanup
ret
pop ebx
mov esp, ebp
pop ebp
ret

Function at 0x56a0e0
Capabilities:
Get hostname
Initialize winsock library
Resolve dns

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd64
push ebx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 8]
mov edx, dword [ebp - 4]
mov edx, dword [edx + 0x1c]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
cmp dword [eax], 0
jne 0x56a18d
xor edx, edx
push ebp
push 0x56a186
push dword fs:[edx]
mov dword fs:[edx], esp
mov dl, 1
mov al, 1
call fcn.00403984
lea edx, [ebp - 0x198]
push edx
push eax
call sub.wsock32.dll_WSAStartup
push 0x80
lea eax, [ebp - 0x29a]
push eax
call sub.wsock32.dll_gethostname
lea eax, [ebp - 0x29a]
push eax
call sub.wsock32.dll_gethostbyname
mov eax, dword [eax + 0xc]
mov eax, dword [eax]
push dword [eax]
call sub.wsock32.dll_inet_ntoa
mov ebx, eax
mov eax, dword [ebp - 8]
mov edx, ebx
call sub.rtl140.bpl__System__UStrFromPChar_qqrr20System_UnicodeStringpc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x56a18d
mov eax, dword [ebp - 4]
add eax, 0x1c
mov edx, dword [ebp - 8]
mov edx, dword [edx]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
call sub.wsock32.dll_WSACleanup
ret
pop ebx
mov esp, ebp
pop ebp
ret
Function at 0x56a7ac
Capabilities:
Get file size

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x56a846
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x56a830
xor edx, edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileOpen_qqrx20System_UnicodeStringui
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x56a829
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
mov eax, dword [ebp - 0x14]
push eax
call sub.kernel32.dll_GetFileSize
xor edx, edx
mov dword [ebp - 0x10], eax
mov dword [ebp - 0xc], edx
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x56a830
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__Sysutils_FileClose_qqri
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x56a84d
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrClr_qqrpv
ret

Function at 0x56f8b8
Capabilities:
Terminate process

Disassembly:
push ebx
push esi
mov esi, edx
or ebx, 0xffffffff
test esi, esi
jne 0x56f8c7
xor ebx, ebx
jmp 0x56f8df
push 0
push esi
push 0
push 1
call sub.kernel32.dll_OpenProcess
push eax
call sub.kernel32.dll_TerminateProcess
test eax, eax
je 0x56f8df
xor ebx, ebx
mov eax, ebx
pop esi
pop ebx
ret
Function at 0x56fff0
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe4
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov edi, dword [ebp + 8]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x57014f
push dword fs:[eax]
mov dword fs:[eax], esp
or esi, 0xffffffff
mov edx, dword [ebp - 4]
mov eax, ebx
call fcn.00565f90
test al, al
jne 0x570127
mov esi, 0xfffffffe
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x570127
mov esi, 0xfffffffd
push 1
push 0x570170
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
push dword [ebp - 0x18]
push 0x570170
lea eax, [ebp - 0x14]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x570170
push dword [ebp - 4]
push 0x570170
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x1c]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x570174
push 0
call sub.shell32.dll_ShellExecuteW
test edi, edi
jle 0x570122
call sub.rtl140.bpl__Sysutils_Now_qqrv
fstp qword [ebp - 0x10]
wait
jmp 0x5700f1
mov edx, dword [ebp - 4]
mov eax, ebx
call fcn.00565f90
test al, al
je 0x5700e5
xor esi, esi
jmp 0x570127
mov eax, dword [sym.imp.vcl140.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl140.bpl__Forms_TApplication_ProcessMessages_qqrv
call sub.rtl140.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
push dword [ebp - 0xc]
push dword [ebp - 0x10]
call sub.rtl140.bpl__Dateutils_MilliSecondsBetween_qqrx16System_TDateTimet1
push edx
push eax
mov eax, edi
cdq
cmp edx, dword [esp + 4]
jne 0x57011c
cmp eax, dword [esp]
pop edx
pop eax
jae 0x5700d3
jmp 0x570127
pop edx
pop eax
jge 0x5700d3
jmp 0x570127
mov esi, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x570156
lea eax, [ebp - 0x1c]
mov edx, 3
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x570180
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x570234
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 8]
push eax
mov ecx, 0x57024c
mov edx, 0x57025c
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Strutils_ReplaceText_qqrx20System_UnicodeStringt1t1
mov edx, dword [ebp - 8]
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0xc]
push eax
mov ecx, 0x57024c
mov edx, 0x57026c
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Strutils_ReplaceText_qqrx20System_UnicodeStringt1t1
mov edx, dword [ebp - 0xc]
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push 1
push 0
push 0x570280
push dword [ebp - 4]
push 0x5702a8
lea eax, [ebp - 0x10]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x10]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x5702ac
push 0
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57023b
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x570d74
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x570dee
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 4], 0
je 0x570dd3
push 0x570e08
push dword [ebp - 4]
push 0x570e08
lea eax, [ebp - 8]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
push 1
push 0
push 0
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x570e0c
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x570df5
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x5715ec
Capabilities:
List drag and drop files
Open clipboard
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffddc
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x224], ecx
mov dword [ebp - 0x220], ecx
mov dword [ebp - 4], ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 0xc], ecx
mov dword [ebp - 0x10], edx
xor eax, eax
push ebp
push 0x57178f
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x11], 0
call sub.vcl140.bpl__Clipbrd_Clipboard_qqrv
mov dx, 0xf
call sub.vcl140.bpl__Clipbrd_TClipboard_HasFormat_qqrus
test al, al
je 0x571750
cmp dword [ebp - 0x10], 0
je 0x571750
push 0
call sub.user32.dll_OpenClipboard
xor edx, edx
push ebp
push 0x571749
push dword fs:[edx]
mov dword fs:[edx], esp
push 0x5717a4
call sub.user32.dll_RegisterClipboardFormatW
mov ebx, eax
push 0xf
call sub.user32.dll_GetClipboardData
mov edi, eax
test edi, edi
jle 0x571736
push ebx
call sub.user32.dll_GetClipboardData
test eax, eax
push 0
push 0
push 0xffffffffffffffff
push edi
call sub.shell32.dll_DragQueryFileW
mov ebx, eax
lea edx, [ebp - 8]
mov eax, 0x5717dc
call fcn.00427c78
lea ecx, [ebp - 0x220]
lea eax, [ebp - 0x220]
or edx, 0xffffffff
call fcn.00427cac
mov edx, dword [ebp - 0x220]
lea eax, [ebp - 0xc]
call sub.rtl140.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov esi, ebx
dec esi
test esi, esi
jl 0x5716ff
inc esi
xor ebx, ebx
push 0x20a
lea eax, [ebp - 0x21c]
push eax
push ebx
push edi
call sub.shell32.dll_DragQueryFileW
lea edx, [ebp - 4]
lea eax, [ebp - 0x21c]
call sub.rtl140.bpl__Sysutils_StrPas_qqrpxb
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x90]
mov ecx, dword [ebp - 4]
mov edx, ebx
call fcn.0042ff90
inc ebx
dec esi
jne 0x5716c5
mov ecx, dword [ebp - 0xc]
mov edx, 0x5717f0
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0x28]
push 1
lea edx, [ebp - 0x224]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x8c]
mov ecx, dword [ebp - 0x224]
mov dl, 0xb
mov eax, dword [ebp - 0x10]
call fcn.00561534
mov byte [ebp - 0x11], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x571750
call sub.user32.dll_CloseClipboard
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x571796
lea eax, [ebp - 0x224]
call sub.rtl140.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x220]
call sub.rtl140.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 0xc]
mov edx, dword [0x422d44]
mov ecx, 2
call sub.rtl140.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrClr_qqrpv
ret
Function at 0x571d90
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 8], ebx
mov esi, edx
lea edi, [ebp - 0x10]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov dword [ebp - 4], ecx
mov esi, eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x571ea9
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [0x9f2bc0]
mov eax, dword [eax + 0x18]
cmp dword [eax + 8], 0x1388
jl 0x571ddb
xor edx, edx
call fcn.00577f08
lea edx, [ebp - 8]
mov eax, 0x571ec4
call fcn.00427c78
mov ecx, dword [ebp - 4]
mov edx, 0x571ed8
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0x50]
cmp dword [ebp - 4], 0
setne cl
mov edx, 0x571ef8
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0x30]
mov eax, dword [ebp - 0x10]
cdq
push edx
push eax
mov edx, 0x571f18
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0xc]
cdq
push edx
push eax
mov edx, 0x571f28
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov dl, 1
mov eax, dword [0x55ea28]
call fcn.00577604
mov ebx, eax
mov byte [ebx + 8], 9
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x8c]
mov edx, dword [ebp - 0x14]
lea eax, [ebx + 0xc]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edi, ebx
push edi
push 0xf
push 0x464
mov eax, esi
call fcn.0056b0b4
push eax
call sub.user32.dll_PostMessageW
mov eax, dword [0x9f2bc0]
mov eax, dword [eax + 0x18]
mov edx, ebx
call fcn.00577c2c
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x571eb0
lea eax, [ebp - 0x14]
call sub.rtl140.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 8]
call sub.rtl140.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrClr_qqrpv
ret
Function at 0x572a40
Capabilities:
Enumerate files on windows
Enumerate files recursively

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd8c
push ebx
xor ecx, ecx
mov dword [ebp - 0x270], ecx
mov dword [ebp - 0x274], ecx
mov dword [ebp - 0x268], ecx
mov dword [ebp - 0x26c], ecx
mov dword [ebp - 0x264], ecx
mov dword [ebp - 0x260], ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x572bea
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 8]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_IncludeTrailingBackslash_qqrx20System_UnicodeString
lea eax, [ebp - 0x25c]
push eax
lea eax, [ebp - 0x260]
mov ecx, 0x572c04
mov edx, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x260]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_FindFirstFileW
mov dword [ebp - 0xc], eax
cmp dword [ebp - 0xc], 0xffffffff
je 0x572bbf
xor eax, eax
push ebp
push 0x572bb8
push dword fs:[eax]
mov dword fs:[eax], esp
test dword [ebp - 0x25c], 0x10
jbe 0x572b89
lea eax, [ebp - 0x264]
lea edx, [ebp - 0x230]
mov ecx, 0x104
call sub.rtl140.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov eax, dword [ebp - 0x264]
mov edx, 0x572c18
call sub.rtl140.bpl__System_Pos_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x572b89
lea eax, [ebp - 0x26c]
lea edx, [ebp - 0x230]
mov ecx, 0x104
call sub.rtl140.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov ecx, dword [ebp - 0x26c]
lea eax, [ebp - 0x268]
mov edx, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x268]
call sub.rtl140.bpl__Sysutils_RemoveDir_qqrx20System_UnicodeString
test al, al
jne 0x572b89
lea eax, [ebp - 0x274]
lea edx, [ebp - 0x230]
mov ecx, 0x104
call sub.rtl140.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov ecx, dword [ebp - 0x274]
lea eax, [ebp - 0x270]
mov edx, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x270]
mov eax, ebx
call fcn.00572a40
lea eax, [ebp - 0x25c]
push eax
mov eax, dword [ebp - 0xc]
push eax
call sub.kernel32.dll_FindNextFileW
test eax, eax
jne 0x572adf
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x572bbf
mov eax, dword [ebp - 0xc]
push eax
call sub.kernel32.dll_FindClose
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x572bf1
lea eax, [ebp - 0x274]
mov edx, 6
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret