joyce8/EMBER2024-capa huggingface dataset:
Function at 0x501fc420
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
push ebx
push esi
push edi
mov esi, ecx
mov ebx, edx
mov dword [ebp - 4], eax
xor eax, eax
mov dword [ebp - 8], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fc5b3
push dword fs:[eax]
mov dword fs:[eax], esp
movzx eax, word [sym.vcl120.bpl__Clipbrd_CF_COMPONENT]
push eax
call sub.user32.dll_GetClipboardData
mov dword [ebp - 0xc], eax
cmp dword [ebp - 0xc], 0
jne 0x501fc46b
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x501fc5ba
mov eax, dword [ebp - 0xc]
push eax
call sub.kernel32.dll_GlobalLock
mov edi, eax
test edi, edi
jne 0x501fc484
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x501fc5ba
xor eax, eax
push ebp
push 0x501fc596
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TMemoryStream_]
call sub.rtl120.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x10], eax
xor eax, eax
push ebp
push 0x501fc578
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0xc]
push eax
call sub.kernel32.dll_GlobalSize
mov ecx, eax
mov edx, edi
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__Classes_TStream_WriteBuffer_qqrpxvi
push 0
push 0
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__Classes_TStream_SetPosition_qqrxj
push pe_nt_image_headers32
mov ecx, dword [ebp - 0x10]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TReader_]
call sub.rtl120.bpl__Classes_TFiler__bctr_qqrp15Classes_TStreami
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x501fc55b
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x14]
mov dword [eax + 0x2c], esi
xor edx, edx
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__Classes_TReader_ReadRootComponent_qqrp18Classes_TComponent
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x501fc52e
push dword fs:[eax]
mov dword fs:[eax], esp
test ebx, ebx
je 0x501fc524
mov edx, dword [ebp - 8]
mov eax, ebx
call sub.rtl120.bpl__Classes_TComponent_InsertComponent_qqrp18Classes_TComponent
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x501fc545
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc562
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
mov eax, dword [ebp - 8]
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
Function at 0x501fc5c4
Capabilities:
Write clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov edi, ecx
mov esi, edx
mov dword [ebp - 4], eax
mov ebx, dword [ebp + 8]
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor edx, edx
push ebp
push 0x501fc696
push dword fs:[edx]
mov dword fs:[edx], esp
push ebx
push 0x2002
call sub.kernel32.dll_GlobalAlloc
mov dword [ebp - 8], eax
xor edx, edx
push ebp
push 0x501fc668
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_GlobalLock
xor edx, edx
push ebp
push 0x501fc657
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, eax
mov eax, edi
mov ecx, ebx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Clipbrd_TClipboard_Adding_qqrv
mov eax, dword [ebp - 8]
push eax
movzx eax, si
push eax
call sub.user32.dll_SetClipboardData
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc65e
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_GlobalUnlock
ret

Function at 0x501fc718
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov edi, ecx
mov esi, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fc788
push dword fs:[eax]
mov dword fs:[eax], esp
push 0xd
call sub.user32.dll_GetClipboardData
mov ebx, eax
test ebx, ebx
jne 0x501fc752
xor eax, eax
mov dword [ebp - 8], eax
jmp 0x501fc772
push ebx
call sub.kernel32.dll_GlobalLock
mov edx, eax
mov ecx, edi
dec ecx
mov eax, esi
call sub.rtl120.bpl__Sysutils_StrLCopy_qqrpbpxbui
call sub.rtl120.bpl__Sysutils_StrLen_qqrpxb
mov dword [ebp - 8], eax
push ebx
call sub.kernel32.dll_GlobalUnlock
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc78f
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret

Function at 0x501fc7c0
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
push 0xd
call sub.user32.dll_GetClipboardData
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x501fc834
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 8], 0
je 0x501fc806
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_GlobalLock
mov edx, eax
mov eax, ebx
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
jmp 0x501fc80f
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc83b
cmp dword [ebp - 8], 0
je 0x501fc82b
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_GlobalUnlock
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret
Function at 0x501fc8e4
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fc98c
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
call sub.user32.dll_EnumClipboardFormats
mov ebx, eax
test bx, bx
je 0x501fc95f
mov edx, ebx
mov eax, dword [sym.vcl120.bpl__Graphics_TPicture_]
call sym.vcl120.bpl__Graphics_TPicture_SupportsClipboardFormat_qqrus
test al, al
je 0x501fc94f
movzx eax, bx
push eax
call sub.user32.dll_GetClipboardData
mov esi, eax
push 9
call sub.user32.dll_GetClipboardData
mov edi, eax
push edi
mov ecx, esi
mov edx, ebx
mov eax, dword [ebp - 8]
call sym.vcl120.bpl__Graphics_TPicture_LoadFromClipboardFormat_qqrusuip10HPALETTE__
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x501fc993
movzx eax, bx
push eax
call sub.user32.dll_EnumClipboardFormats
mov ebx, eax
test bx, bx
jne 0x501fc917
mov ecx, dword [sym.vcl120.bpl__Consts__SInvalidClipFmt]
mov dl, 1
mov eax, dword [sym.vcl120.bpl__Clipbrd_EClipboardException_]
call sub.rtl120.bpl__Sysutils_Exception__bctr_qqrp20System_TResStringRec
call sub.rtl120.bpl__System__RaiseExcept_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc993
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret
pop edi
pop esi
pop ebx
pop ecx
pop ecx
pop ebp
ret

Function at 0x501fc99c
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fc9f8
push dword fs:[eax]
mov dword fs:[eax], esp
push 2
call sub.user32.dll_GetClipboardData
mov esi, eax
push 9
call sub.user32.dll_GetClipboardData
mov edi, eax
push edi
mov ecx, esi
mov dx, 2
mov eax, dword [ebp - 8]
mov ebx, dword [eax]
call dword [ebx + 0x64]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fc9ff
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret

Function at 0x501fca08
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
mov esi, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor edx, edx
push ebp
push 0x501fca5d
push dword fs:[edx]
mov dword fs:[edx], esp
push 3
call sub.user32.dll_GetClipboardData
mov ebx, eax
push 9
call sub.user32.dll_GetClipboardData
push eax
mov ecx, ebx
mov dx, 3
mov eax, esi
mov ebx, dword [eax]
call dword [ebx + 0x64]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fca64
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret
Function at 0x501fcad4
Capabilities:
Write clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fcb49
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Clipbrd_TClipboard_Adding_qqrv
xor eax, eax
mov dword [ebp - 0x10], eax
lea eax, [ebp - 0x10]
push eax
lea ecx, [ebp - 8]
lea edx, [ebp - 0xa]
mov eax, ebx
call sym.vcl120.bpl__Graphics_TPicture_SaveToClipboardFormat_qqrrusruirp10HPALETTE__
mov eax, dword [ebp - 8]
push eax
movzx eax, word [ebp - 0xa]
push eax
call sub.user32.dll_SetClipboardData
cmp dword [ebp - 0x10], 0
je 0x501fcb33
mov eax, dword [ebp - 0x10]
push eax
push 9
call sub.user32.dll_SetClipboardData
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fcb50
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret

Function at 0x501fcb58
Capabilities:
Write clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fcbcd
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Clipbrd_TClipboard_Adding_qqrv
xor eax, eax
mov dword [ebp - 0x10], eax
lea eax, [ebp - 0x10]
push eax
lea ecx, [ebp - 8]
lea edx, [ebp - 0xa]
mov eax, ebx
mov ebx, dword [eax]
call dword [ebx + 0x68]
mov eax, dword [ebp - 8]
push eax
movzx eax, word [ebp - 0xa]
push eax
call sub.user32.dll_SetClipboardData
cmp dword [ebp - 0x10], 0
je 0x501fcbb7
mov eax, dword [ebp - 0x10]
push eax
push 9
call sub.user32.dll_SetClipboardData
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fcbd4
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret

Function at 0x501fcc28
Capabilities:
Read clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
mov ebx, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x18]
xor eax, eax
push ebp
push 0x501fcc6c
push dword fs:[eax]
mov dword fs:[eax], esp
movzx eax, bx
push eax
call sub.user32.dll_GetClipboardData
mov dword [ebp - 8], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501fcc73
mov eax, dword [ebp - 4]
mov edx, dword [eax]
call dword [edx + 0x14]
ret
Function at 0x501fe50c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffde0
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 0x220], ecx
mov dword [ebp - 0x21c], ecx
mov dword [ebp - 0x218], ecx
mov dword [ebp - 0x210], ecx
mov dword [ebp - 0x20c], ecx
mov ebx, edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x501fe7b3
push dword fs:[eax]
mov dword fs:[eax], esp
cmp ebx, 1
jl 0x501fe56f
lea edx, [ebp - 0x20c]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Mask_TCustomMaskEdit_GetEditText_qqrv
mov eax, dword [ebp - 0x20c]
mov edx, ebx
call sub.rtl120.bpl__Sysutils_ByteType_qqrx20System_UnicodeStringi
cmp al, 1
jne 0x501fe56f
dec ebx
mov dword [ebp - 8], ebx
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Mask_TCustomMaskEdit_GetMasked_qqrv
test al, al
je 0x501fe712
cmp dword [ebp - 8], 0
jge 0x501fe58d
xor eax, eax
mov dword [ebp - 8], eax
mov ebx, dword [ebp - 8]
inc ebx
lea edx, [ebp - 0x210]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Mask_TCustomMaskEdit_GetEditText_qqrv
mov eax, dword [ebp - 0x210]
mov dword [ebp - 0x214], eax
mov eax, dword [ebp - 0x214]
test eax, eax
je 0x501fe5ba
sub eax, 4
mov eax, dword [eax]
cmp ebx, eax
jge 0x501fe5ee
lea edx, [ebp - 0x218]
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Mask_TCustomMaskEdit_GetEditText_qqrv
mov eax, dword [ebp - 0x218]
movzx eax, word [eax + ebx*2 - 2]
cmp ax, 0xd800
jb 0x501fe5e3
cmp ax, 0xdfff
jbe 0x501fe5e7
xor eax, eax
jmp 0x501fe5e9
mov al, 1
test al, al
je 0x501fe5ee
inc ebx
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x298]
cmp eax, dword [ebp - 8]
jg 0x501fe602
mov dword [ebp - 8], eax
mov ebx, dword [ebp - 8]
mov ecx, ebx
mov edx, ebx
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Mask_TCustomMaskEdit_SetSel_qqrii
cmp ebx, dword [ebp - 8]
je 0x501fe704
lea eax, [ebp - 0x108]
push eax
call sub.user32.dll_GetKeyboardState
mov edx, pe_nt_image_headers32
lea eax, [ebp - 0x208]
mov byte [eax], 0
inc eax
dec edx
jne 0x501fe62e
mov byte [ebp - 0x1f8], 0x81
mov eax, dword [ebp - 4]
mov si, 0xffc7
call sub.rtl120.bpl__System__CallDynaInst_qqrv
and eax, 0x7f
movzx eax, word [eax*2 + 0x502439b0]
mov byte [ebp + eax - 0x208], 0x81
lea eax, [ebp - 0x208]
push eax
call sub.user32.dll_SetKeyboardState
mov eax, dword [ebp - 4]
mov byte [eax + 0x2ac], 1
xor eax, eax
push ebp
push 0x501fe6f1
push dword fs:[eax]
mov dword fs:[eax], esp
push 1
mov eax, dword [ebp - 4]
mov si, 0xffc7
call sub.rtl120.bpl__System__CallDynaInst_qqrv
and eax, 0x7f
movzx eax, word [eax*2 + 0x502439b0]
push eax
push pe_nt_image_headers32
mov eax, dword [ebp - 4]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_SendMessageW
push 1
mov eax, dword [ebp - 4]
mov si, 0xffc7
call sub.rtl120.bpl__System__CallDynaInst_qqrv
and eax, 0x7f
invalid
mov bh, 4
inc ebp
mov al, 0x39
invalid
Function at 0x50212d14
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffff40
push ebx
push esi
mov ebx, eax
lea eax, [ebp - 0x74]
mov edx, dword [0x5020e6f8]
call sub.rtl120.bpl__System__InitializeRecord_qqrpvt1
lea eax, [ebp - 0x20]
mov edx, dword [sym.vcl120.bpl___xp_20Olectnrs_TCreateInfo]
call sub.rtl120.bpl__System__InitializeRecord_qqrpvt1
lea esi, [ebp - 0xc0]
xor eax, eax
push ebp
push 0x50212ebe
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 0x75], 0
mov eax, ebx
call sym.vcl120.bpl__Olectnrs_TOleContainer_GetCanPaste_qqrv
test al, al
je 0x50212e94
lea eax, [ebp - 0x74]
xor ecx, ecx
mov edx, 0x54
call sub.rtl120.bpl__System__FillChar_qqrpvib
mov eax, esi
xor ecx, ecx
mov edx, 0x48
call sub.rtl120.bpl__System__FillChar_qqrpvib
mov dword [ebp - 0x74], 0x54
mov eax, dword [sym.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
mov eax, dword [eax + 0x170]
mov dword [ebp - 0x6c], eax
mov dword [ebp - 0x64], 0x5020f954
mov dword [ebp - 0x4c], esi
mov dword [ebp - 0x48], 2
mov dword [ebp - 0x44], 0x50245298
mov dword [ebp - 0x40], 1
movzx eax, word [0x50245294]
mov word [esi], ax
mov dword [esi + 8], 1
mov dword [esi + 0xc], 0xffffffff
mov dword [esi + 0x10], 8
mov eax, 0x50212ed0
mov dword [esi + 0x14], eax
mov eax, 0x50212ed0
mov dword [esi + 0x18], eax
mov dword [esi + 0x1c], 0xa00
movzx eax, word [0x50245298]
mov word [esi + 0x24], ax
mov dword [esi + 0x2c], 1
mov dword [esi + 0x30], 0xffffffff
mov dword [esi + 0x34], 4
mov eax, 0x50212ed0
mov dword [esi + 0x38], eax
mov eax, 0x50212ed0
mov dword [esi + 0x3c], eax
mov dword [esi + 0x40], 0x801
xor eax, eax
push ebp
push 0x50212e8d
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x74]
push eax
call sub.oledlg.dll_OleUIPasteSpecialW
dec eax
jne 0x50212e77
cmp dword [ebp - 0x30], 0
je 0x50212e4a
mov byte [ebp - 0x20], 4
jmp 0x50212e4e
mov byte [ebp - 0x20], 3
test byte [ebp - 0x70], 8
setne al
mov byte [ebp - 0x1f], al
mov eax, dword [ebp - 0x2c]
mov dword [ebp - 0x1c], eax
lea eax, [ebp - 4]
mov edx, dword [ebp - 0x50]
call sub.rtl120.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
lea edx, [ebp - 0x20]
mov eax, ebx
call sym.vcl120.bpl__Olectnrs_TOleContainer_CreateObjectFromInfo_qqrrx20Olectnrs_TCreateInfo
mov byte [ebp - 0x75], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x50212e94
mov eax, dword [ebp - 0x2c]
call sym.vcl120.bpl__Olectnrs_DestroyMetaPict_qqrui
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x50212ec5
lea eax, [ebp - 0x74]
mov edx, dword [0x5020e6f8]
call sub.rtl120.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x20]
mov edx, dword [sym.vcl120.bpl___xp_20Olectnrs_TCreateInfo]
call sub.rtl120.bpl__System__FinalizeRecord_qqrpvt1
ret

Function at 0x502178a8
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
xor ebx, ebx
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x502178bc
mov ebx, 1
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x502178cb
or ebx, 2
push 0x12
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x502178da
or ebx, 4
mov eax, ebx
pop ebx
ret
Function at 0x5021ad90
Capabilities:
Hide graphical window

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe8
push ebx
push esi
push edi
xor edx, edx
push ebp
push 0x5021aeb1
push dword fs:[edx]
mov dword fs:[edx], esp
cmp dword [ebp + 0xc], 1
je 0x5021adb7
mov eax, 0x8004006b
call sub.rtl120.bpl__Comobj_OleError_qqrl
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x6c]
movzx edx, byte [eax + 0x57]
mov byte [ebp - 5], dl
xor edx, edx
push ebp
push 0x5021ae9e
push dword fs:[edx]
mov dword fs:[edx], esp
mov dl, 1
call sym.vcl120.bpl__Controls_TControl_SetVisible_qqro
push 1
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x78]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_ShowWindow
mov eax, dword [ebp + 0x24]
mov esi, eax
lea edi, [ebp - 0x18]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
push 2
lea eax, [ebp - 0x18]
push eax
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_LPtoDP
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_SaveDC
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x5021ae7a
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
push 0
push 0
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_SetViewportOrgEx
push 0
push 0
push 0
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_SetWindowOrgEx
push 1
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_SetMapMode
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x6c]
mov ecx, dword [ebp - 0x18]
mov edx, dword [ebp + 0x20]
call sym.vcl120.bpl__Controls_TWinControl_PaintTo_qqrp5HDC__ii
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5021ae81
mov eax, dword [ebp - 4]
push eax
mov eax, dword [ebp + 0x20]
push eax
call sub.gdi32.dll_RestoreDC
ret
Function at 0x5021cdf8
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
push ecx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x5021cf74
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
cmp byte [eax + 0x18], 0
jne 0x5021cf4e
mov eax, dword [ebp - 8]
cmp dword [eax + 0xc], 0
je 0x5021cf4e
mov eax, dword [ebp - 8]
mov byte [eax + 0x18], 1
xor eax, eax
push ebp
push 0x5021cf47
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0xc]
mov ecx, 0x5021cf80
call sub.rtl120.bpl__System__IntfCast_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
lea edx, [ebp - 0x10]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetName_qqrv
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 0xc]
call sub.rtl120.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x10]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetSize_qqrv
mov dword [ebp - 0x14], eax
fild dword [ebp - 0x14]
fmul dword [0x5021cf90]
add esp, 0xfffffff8
fistp qword [esp]
wait
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x18]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetStyle_qqrv
test al, 1
setne al
neg al
sbb eax, eax
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetStyle_qqrv
test al, 2
setne al
neg al
sbb eax, eax
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x28]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetStyle_qqrv
test al, 4
setne al
neg al
sbb eax, eax
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x30]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetStyle_qqrv
test al, 8
setne al
neg al
sbb eax, eax
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x38]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x1c]
call sym.vcl120.bpl__Graphics_TFont_GetCharset_qqrv
movzx eax, al
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x48]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5021cf4e
mov eax, dword [ebp - 8]
mov byte [eax + 0x18], 0
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5021cf7b
lea eax, [ebp - 0x10]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0xc]
call sub.rtl120.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret
Function at 0x5021f170
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe8
push ebx
xor ebx, ebx
mov dword [ebp - 4], ebx
test dl, dl
je 0x5021f188
add esp, 0xfffffff0
call sub.rtl120.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov byte [ebp - 9], dl
mov dword [ebp - 8], eax
mov ebx, dword [ebp + 0xc]
xor eax, eax
push ebp
push 0x5021f2a2
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov dword [eax + 4], ecx
mov eax, dword [ebp - 8]
mov dword [eax + 8], ebx
mov eax, ebx
add eax, eax
add eax, eax
add eax, eax
call sub.rtl120.bpl__System_AllocMem_qqrui
mov edx, dword [ebp - 8]
mov dword [edx + 0xc], eax
dec ebx
test ebx, ebx
jl 0x5021f28c
inc ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x10], 0
lea eax, [ebp - 0x14]
push eax
mov eax, dword [ebp - 0x10]
push eax
mov eax, dword [ebp + 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x18]
call sub.rtl120.bpl__Comobj_OleCheck_qqrl
xor eax, eax
push ebp
push 0x5021f279
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
push 0
push 0
lea eax, [ebp - 4]
push eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
push eax
mov eax, dword [ebp + 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x30]
call sub.rtl120.bpl__Comobj_OleCheck_qqrl
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xc]
mov edx, dword [ebp - 0x10]
lea ebx, [eax + edx*8]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 8]
mov eax, dword [eax + 8]
mov dword [ebx], eax
lea eax, [ebx + 4]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrFromWStr_qqrr20System_UnicodeStringx17System_WideString
jmp 0x5021f24a
lea eax, [ebx + 4]
mov ecx, 1
mov edx, 1
call sub.rtl120.bpl__System__UStrDelete_qqrr20System_UnicodeStringii
mov eax, dword [ebx + 4]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
dec eax
jle 0x5021f25e
mov eax, dword [ebx + 4]
cmp word [eax], 0x5f
je 0x5021f238
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5021f280
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [ebp + 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x54]
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5021f2a9
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__WStrClr_qqrpv
ret