joyce8/EMBER2024-capa huggingface dataset:
Function at 0x501b73e0
Capabilities:
Open clipboard
Write clipboard data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 0xc], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x501b7575
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
call sub.user32.dll_OpenClipboard
test eax, eax
je 0x501b7543
xor edx, edx
push ebp
push 0x501b753c
push dword fs:[edx]
mov dword fs:[edx], esp
lea eax, [ebp - 8]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
test eax, eax
je 0x501b744f
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501b744f
lea eax, [ebp - 8]
mov edx, dword [ebp - 8]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
test eax, eax
je 0x501b7458
sub eax, 4
mov eax, dword [eax]
add eax, eax
add eax, 2
push eax
push 0x2002
call sub.kernel32.dll_GlobalAlloc
mov dword [ebp - 0x10], eax
xor edx, edx
push ebp
push 0x501b7511
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0x10]
push eax
call sub.kernel32.dll_GlobalLock
mov ebx, eax
xor edx, edx
push ebp
push 0x501b7500
push dword fs:[edx]
mov dword fs:[edx], esp
lea eax, [ebp - 0xc]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0xc]
test eax, eax
je 0x501b74ba
mov edx, eax
sub edx, 0xa
cmp word [edx], 2
je 0x501b74ba
lea eax, [ebp - 0xc]
mov edx, dword [ebp - 0xc]
call sub.rtl120.bpl__System__InternalUStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
test eax, eax
je 0x501b74c3
sub eax, 4
mov eax, dword [eax]
mov esi, eax
add esi, esi
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
lea ecx, [esi + 2]
mov edx, ebx
call sub.rtl120.bpl__System_Move_qqrpxvpvi
call sub.user32.dll_EmptyClipboard
mov eax, dword [ebp - 0x10]
push eax
push 0xd
call sub.user32.dll_SetClipboardData
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501b7507
mov eax, dword [ebp - 0x10]
push eax
call sub.kernel32.dll_GlobalUnlock
ret
mov ecx, dword [sym.vcl120.bpl__Consts__SCannotOpenClipboard]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Exception_]
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 0x501b757c
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x501bd82c
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
push 0
push ebx
mov ebx, eax
xor eax, eax
push ebp
push 0x501bd898
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, ebx
call sym.vcl120.bpl__Stdactns_TCommonDialogAction_ExecuteTarget_qqrp14System_TObject
cmp byte [ebx + 0xa0], 0
je 0x501bd882
cmp byte [ebx + 0xc8], 0
je 0x501bd882
push 5
push 0
push 0
mov eax, ebx
call sym.vcl120.bpl__Stdactns_TFileAction_GetDialog_qqrv
lea edx, [ebp - 4]
call sym.vcl120.bpl__Dialogs_TOpenDialog_GetFileName_qqrv
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501bd89f
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret

Function at 0x501bd8ac
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], ecx
mov esi, edx
mov ebx, eax
xor eax, eax
push ebp
push 0x501bd9a2
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebx + 0xd0]
test eax, eax
je 0x501bd8dd
sub eax, 4
mov eax, dword [eax]
test eax, eax
jne 0x501bd8e5
mov al, 1
jmp 0x501bd8f2
mov eax, dword [ebx + 0xd0]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
xor al, 1
test al, al
je 0x501bd91e
mov edx, esi
mov eax, ebx
call sym.vcl120.bpl__Stdactns_TFileOpen_ExecuteTarget_qqrp14System_TObject
mov eax, ebx
call sym.vcl120.bpl__Stdactns_TFileAction_GetDialog_qqrv
lea edx, [ebp - 4]
call sym.vcl120.bpl__Dialogs_TOpenDialog_GetFileName_qqrv
mov edx, dword [ebp - 4]
lea eax, [ebx + 0xd0]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x501bd925
mov byte [ebx + 0xa0], 1
cmp byte [ebx + 0xa0], 0
je 0x501bd96c
push 5
push 0
lea eax, [ebp - 8]
push eax
mov eax, dword [ebx + 0xd0]
mov dword [ebp - 0x10], eax
mov byte [ebp - 0xc], 0x11
lea edx, [ebp - 0x10]
xor ecx, ecx
mov eax, 0x501bd9bc
call sub.rtl120.bpl__Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x501bd9f8
push 0x501bda14
push 0
call sub.shell32.dll_ShellExecuteW
cmp word [ebx + 0xda], 0
je 0x501bd984
mov edx, ebx
mov eax, dword [ebx + 0xdc]
call dword [ebx + 0xd8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501bd9a9
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x501bfbac
Capabilities:
Log keystrokes
Log keystrokes via polling

Disassembly:
push ebx
push esi
add esp, 0xfffffe00
mov ebx, edx
mov esi, eax
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push 0
mov eax, esi
movzx eax, al
push eax
call sub.user32.dll_MapVirtualKeyW
shl eax, 0x10
test eax, eax
je 0x501bfbf3
push pe_nt_image_headers32
lea edx, [esp + 4]
push edx
push eax
call sub.user32.dll_GetKeyNameTextW
mov eax, ebx
mov edx, esp
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
add esp, 0x200
pop esi
pop ebx
ret
Function at 0x501c5428
Capabilities:
Get keyboard layout

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
xor eax, eax
mov dword [ebp - 0x24], eax
mov dword [ebp - 0x28], eax
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x501c5561
push dword fs:[eax]
mov dword fs:[eax], esp
mov word [ebp - 0x20], 0
lea eax, [ebp - 0x20]
push eax
call sub.user32.dll_GetKeyboardLayoutNameW
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Registry_TRegistry_]
call sub.rtl120.bpl__Registry_TRegistry__bctr_qqrv
mov dword [ebp - 0xc], eax
xor edx, edx
push ebp
push 0x501c5537
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, 0x80000002
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Registry_TRegistry_SetRootKey_qqrp6HKEY__
lea eax, [ebp - 0x28]
lea edx, [ebp - 0x20]
mov ecx, 0xa
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov ecx, dword [ebp - 0x28]
lea eax, [ebp - 0x24]
mov edx, 0x501c557c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx20System_UnicodeString
test al, al
je 0x501c5521
lea ecx, [ebp - 4]
mov edx, 0x501c55f0
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Registry_TRegistry_ReadString_qqrx20System_UnicodeString
mov edx, 0x8000
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_SafeLoadLibrary_qqrx20System_UnicodeStringui
mov dword [ebp - 8], eax
xor edx, edx
push ebp
push 0x501c551a
push dword fs:[edx]
mov dword fs:[edx], esp
push 0x501c5608
mov eax, dword [ebp - 8]
push eax
call fcn.501221c8
mov ebx, eax
call ebx
movzx eax, word [eax + 0x28]
and ax, 1
cmp ax, 1
sete byte [0x50243648]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501c5521
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_FreeLibrary_1
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501c553e
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret

Function at 0x501c566c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
push edi
add esp, 0xfffffff0
mov esi, eax
lea edi, [esp]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movzx ebx, byte [esp + 4]
test bx, bx
je 0x501c56b3
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x501c5696
add bx, 0x2000
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x501c56a7
add bx, 0x4000
test byte [esp + 0xb], 0x20
je 0x501c56b3
add bx, 0x8000
mov eax, ebx
add esp, 0x10
pop edi
pop esi
pop ebx
ret
Function at 0x501cc9b4
Capabilities:
Log keystrokes via polling

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
push edi
mov esi, eax
lea edi, [ebp - 0xc]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
mov dword [ebp - 0x10], edx
xor eax, eax
mov dword [ebp - 0x18], eax
cmp dword [0x502451e4], 0
je 0x501ccaf5
push 0x11
call sub.user32.dll_GetKeyState
test ax, 0x8000
setne al
mov edx, dword [sym.vcl120.bpl__Forms_Application]
mov edx, dword [edx]
xor al, byte [edx + 0xb8]
je 0x501ccaf5
mov eax, dword [0x502451e8]
mov edx, dword [eax]
call dword [edx + 8]
mov eax, dword [0x502451e4]
mov ebx, dword [eax + 8]
dec ebx
test ebx, ebx
jl 0x501ccac4
inc ebx
xor edi, edi
mov edx, edi
mov eax, dword [0x502451e4]
call sub.rtl120.bpl__Classes_TList_Get_qqri
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0x14]
cmp eax, dword [ebp - 0x10]
je 0x501ccabc
mov eax, dword [ebp - 0x14]
cmp byte [eax + 0x1e2], 0
je 0x501ccabc
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x4c]
test al, al
je 0x501ccabc
mov eax, dword [ebp - 0x14]
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_IsWindowVisible
test eax, eax
je 0x501ccabc
push ebp
call fcn.501cc970
pop ecx
test al, al
jne 0x501ccabc
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 0x14]
mov si, 0xffbb
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x501ccabc
mov byte [ebp - 1], 1
lea eax, [ebp - 0xc]
push eax
lea eax, [ebp - 1]
push eax
lea ecx, [ebp - 0x28]
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 0x14]
mov si, 0xffbc
call sub.rtl120.bpl__System__CallDynaInst_qqrv
cmp byte [ebp - 1], 0
je 0x501ccabc
lea edx, [ebp - 0xc]
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__Types_PtInRect_qqrrx11Types_TRectrx12Types_TPoint
test al, al
je 0x501ccabc
mov edx, dword [ebp - 0x14]
mov eax, dword [0x502451e8]
call fcn.501cc054
inc edi
dec ebx
jne 0x501cca19
mov eax, dword [0x502451e8]
cmp dword [eax + 8], 0
jle 0x501ccadc
mov eax, dword [0x502451e8]
call fcn.501cc10c
mov dword [ebp - 0x18], eax
cmp dword [ebp - 0x18], 0
je 0x501ccaf5
push ebp
mov eax, dword [ebp - 0x18]
call fcn.501cc7d4
pop ecx
test al, al
jne 0x501ccaf5
xor eax, eax
mov dword [ebp - 0x18], eax
mov eax, dword [ebp - 0x18]
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
Function at 0x501d4c3c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
push edi
add esp, 0xfffffed8
mov ebx, ecx
mov edi, edx
mov esi, eax
call sub.user32.dll_GetMessagePos
call sub.rtl120.bpl__Types_SmallPoint_qqrui
mov dword [esp + 8], eax
movsx eax, word [esp + 8]
mov dword [esp + 0xc], eax
movsx eax, word [esp + 0xa]
mov dword [esp + 0x10], eax
mov ecx, esp
lea edx, [esp + 0xc]
mov eax, esi
call sym.vcl120.bpl__Controls_TControl_ScreenToClient_qqrrx12Types_TPoint
test ebx, ebx
jne 0x501d4c8f
push 0
push 0
lea edx, [esp + 8]
xor ecx, ecx
mov eax, esi
call sym.vcl120.bpl__Controls_TWinControl_ControlAtPos_qqrrx12Types_TPointooo
mov ebx, eax
test ebx, ebx
je 0x501d4d7a
cmp esi, ebx
je 0x501d4cb8
mov eax, dword [esp]
sub eax, dword [ebx + 0x40]
mov dword [esp + 0x114], eax
mov eax, dword [esp + 4]
sub eax, dword [ebx + 0x44]
mov dword [esp + 0x118], eax
jmp 0x501d4ccd
mov eax, dword [esp]
mov dword [esp + 0x114], eax
mov eax, dword [esp + 4]
mov dword [esp + 0x118], eax
movzx eax, word [edi + 8]
mov dword [esp + 0x11c], eax
mov eax, dword [edi + 4]
mov dword [esp + 0x124], eax
movzx eax, word [edi + 0xa]
cmp eax, 0x201
jge 0x501d4d05
add eax, 0xffffff5f
sub eax, 2
jb 0x501d4d1d
dec eax
sub eax, 2
jb 0x501d4d31
dec eax
sub eax, 2
jb 0x501d4d27
jmp 0x501d4d3b
add eax, 0xfffffdff
sub eax, 2
jb 0x501d4d1d
dec eax
sub eax, 2
jb 0x501d4d31
dec eax
sub eax, 2
jb 0x501d4d27
jmp 0x501d4d3b
mov byte [esp + 0x120], 0
jmp 0x501d4d43
mov byte [esp + 0x120], 2
jmp 0x501d4d43
mov byte [esp + 0x120], 1
jmp 0x501d4d43
mov byte [esp + 0x120], 0
lea eax, [esp + 0x14]
push eax
call sub.user32.dll_GetKeyboardState
lea eax, [esp + 0x14]
call sym.vcl120.bpl__Forms_KeyboardStateToShiftState_qqrpxuc
mov byte [esp + 0x121], al
lea eax, [esp + 0x114]
push eax
xor ecx, ecx
mov edx, 0xb04b
mov eax, ebx
call sym.vcl120.bpl__Controls_TControl_Perform_qqruiii
mov dword [edi + 0xc], eax
mov al, 1
jmp 0x501d4d7c
xor eax, eax
add esp, 0x128
pop edi
pop esi
pop ebx
ret
Function at 0x501e8160
Capabilities:
Encode data using xor

Disassembly:
inc eax
adc dword [edx], edx
push eax
dec eax
adc dword [edx], edx
push eax
push eax
adc dword [edx], edx
push eax
cmp byte [ecx], dl
adc dl, byte [eax - 0x50]
adc byte [edx], dl
push eax
mov eax, 0xc4501210
sbb eax, 0x1dbc5012
mov esp, 0xcc50121d
mov esp, 0xcc50121d
sbb eax, 0x1de45012
adc dl, byte [eax - 0x24]
sbb eax, 0x1dec5012
adc dl, byte [eax - 0x4c]
sbb eax, 0x1dd45012
adc dl, byte [eax - 0xc]
sbb eax, 0x8a085012
push ds
push eax
sbb al, 0x8a
push ds
push eax
xor byte [edx - 0x75bbafe2], cl
push ds
push eax
pop eax
mov bl, byte [esi]
push eax
insb byte es:[edi], dx
mov bl, byte [esi]
push eax
or byte [edx - 0x756bafe2], 0x1e
push eax
test al, 0x8a
push ds
push eax
mov esp, 0xd0501e8a
mov bl, byte [esi]
push eax
aam 0x8a
push ds
push eax
fmul dword [edx - 0x7523afe2]
push ds
push eax
loopne 0x501e8144
push ds
push eax
in al, 0x8a
push ds
push eax
call 0x3c6ea04f
mov bl, byte [esi]
push eax
invalid

Function at 0x501ed8a4
Capabilities:
Hide graphical window

Disassembly:
push ebx
push esi
push edi
push ecx
mov byte [esp], cl
mov ebx, edx
mov esi, eax
push 0xffffffffffffffec
push esi
call sub.user32.dll_GetWindowLongW
mov edi, eax
test bl, bl
je 0x501ed8c5
test edi, 0x40000
je 0x501ed8df
test bl, bl
jne 0x501ed960
mov eax, edi
and eax, 0x40000
cmp eax, 0x40000
jne 0x501ed960
push esi
call sub.user32.dll_IsIconic
cmp eax, 1
sbb eax, eax
inc eax
mov byte [esp + 2], al
push esi
call sub.user32.dll_IsWindowVisible
cmp eax, 1
sbb eax, eax
inc eax
mov byte [esp + 1], al
movzx eax, byte [esp + 1]
or al, byte [esp + 2]
je 0x501ed912
push 0
push esi
call sub.user32.dll_ShowWindow
test bl, bl
je 0x501ed927
or edi, 0x40000
push edi
push 0xffffffffffffffec
push esi
call sub.user32.dll_SetWindowLongW
jmp 0x501ed936
and edi, 0xfffbffff
push edi
push 0xffffffffffffffec
push esi
call sub.user32.dll_SetWindowLongW
movzx eax, byte [esp]
and al, byte [esp + 1]
jne 0x501ed947
cmp byte [esp + 2], 0
je 0x501ed960
cmp byte [esp + 2], 0
je 0x501ed958
push 6
push esi
call sub.user32.dll_ShowWindow
jmp 0x501ed960
push 5
push esi
call sub.user32.dll_ShowWindow
pop edx
pop edi
pop esi
pop ebx
ret

Function at 0x501edc08
Capabilities:
Enumerate gui resources

Disassembly:
push ebx
add esp, 0xfffffff8
mov ebx, eax
call sub.user32.dll_GetActiveWindow
mov dword [esp], eax
mov byte [esp + 4], 0
test bl, bl
je 0x501edc2e
mov eax, esp
push eax
push 0x501edbd0
call sub.user32.dll_EnumWindows
jmp 0x501edc41
mov eax, esp
push eax
push 0x501edbb0
call sub.kernel32.dll_GetCurrentThreadId
push eax
call sub.user32.dll_EnumThreadWindows
movzx eax, byte [esp + 4]
pop ecx
pop edx
pop ebx
ret

Function at 0x501edd20
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
mov esi, eax
movzx ebx, byte [0x501edd74]
test si, 4
je 0x501edd35
or bl, 1
test si, 8
je 0x501edd3f
or bl, 4
test si, 1
je 0x501edd49
or bl, 8
test si, 2
je 0x501edd53
or bl, 0x10
test si, 0x10
je 0x501edd5d
or bl, 0x20
push 0x12
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x501edd6c
or bl, 2
mov eax, ebx
pop esi
pop ebx
ret
Function at 0x501edd78
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
mov esi, eax
movzx ebx, byte [0x501eddb4]
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x501edd92
or bl, 1
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x501edda1
or bl, 4
test esi, 0x20000000
je 0x501eddac
or bl, 2
mov eax, ebx
pop esi
pop ebx
ret

Function at 0x501ede04
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
add esp, 0xffffff00
push esp
call sub.user32.dll_GetKeyboardState
mov eax, esp
call sym.vcl120.bpl__Forms_KeyboardStateToShiftState_qqrpxuc
mov ebx, eax
mov eax, ebx
add esp, 0x100
pop ebx
ret

Function at 0x501f426c
Capabilities:
Hide graphical window

Disassembly:
push ebx
push esi
mov esi, edx
mov ebx, eax
mov eax, dword [esi + 8]
dec eax
je 0x501f4282
sub eax, 2
je 0x501f42c8
jmp 0x501f430a
mov eax, ebx
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
call fcn.501ed824
test eax, eax
je 0x501f429b
mov byte [ebx + 0x284], 2
jmp 0x501f42bc
mov eax, ebx
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_IsZoomed
test eax, eax
je 0x501f42b5
mov byte [ebx + 0x284], 3
jmp 0x501f42bc
mov byte [ebx + 0x284], 1
mov edx, esi
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx - 0x10]
pop esi
pop ebx
ret
cmp byte [ebx + 0x284], 0
je 0x501f4313
movzx eax, byte [ebx + 0x284]
mov eax, dword [eax*4 + 0x502438e4]
push eax
mov eax, ebx
call sym.vcl120.bpl__Controls_TWinControl_GetHandle_qqrv
push eax
call sub.user32.dll_ShowWindow
mov byte [ebx + 0x284], 0
mov eax, dword [sym.vcl120.bpl__Forms_Application]
cmp ebx, dword [eax + 0x40]
jne 0x501f4313
mov eax, dword [sym.vcl120.bpl__Forms_Application]
mov byte [eax + 0x30], 0
pop esi
pop ebx
ret
mov edx, esi
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx - 0x10]
pop esi
pop ebx
ret

Function at 0x501f48dc
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
mov esi, edx
mov ebx, eax
push 0x12
call sub.user32.dll_GetKeyState
test ax, ax
jl 0x501f496a
movzx eax, word [esi + 4]
sub ax, 9
je 0x501f4903
add eax, 0xffffffe4
sub ax, 4
jb 0x501f4935
jmp 0x501f496a
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jl 0x501f496a
push 1
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
setge cl
mov edx, dword [ebx + 0x278]
mov eax, ebx
call sym.vcl120.bpl__Controls_TWinControl_SelectNext_qqrp20Controls_TWinControloo
mov dword [esi + 0xc], 1
pop esi
pop ebx
ret
mov eax, dword [ebx + 0x278]
test eax, eax
je 0x501f4973
push 0
movzx edx, word [esi + 4]
cmp dx, 0x27
je 0x501f4955
cmp dx, 0x28
je 0x501f4955
xor ecx, ecx
jmp 0x501f4957
mov cl, 1
mov edx, dword [eax + 0x30]
xchg edx, eax
call sym.vcl120.bpl__Controls_TWinControl_SelectNext_qqrp20Controls_TWinControloo
mov dword [esi + 0xc], 1
pop esi
pop ebx
ret
mov edx, esi
mov eax, ebx
call sym.vcl120.bpl__Controls_TWinControl_CMDialogKey_qqrr15Messages_TWMKey
pop esi
pop ebx
ret
Function at 0x501f7270
Capabilities:
Get keyboard layout
Query or enumerate registry value

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffc60
push ebx
xor edx, edx
mov dword [ebp - 0x3a0], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x501f741d
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
cmp dword [eax + 0x34], 0
jne 0x501f73fe
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov edx, dword [ebp - 4]
mov dword [edx + 0x34], eax
mov eax, dword [ebp - 4]
add eax, 0x38
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x114]
push eax
push 0x40
call sub.user32.dll_GetKeyboardLayoutList
dec eax
test eax, eax
jl 0x501f73ed
inc eax
mov dword [ebp - 0x10], eax
lea eax, [ebp - 0x114]
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
call sym.vcl120.bpl__Controls_Imm32IsIME_qqrp5HKL__
test al, al
je 0x501f73e0
lea eax, [ebp - 0xc]
push eax
push 0x20019
push 0
push 0
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov dword [ebp - 0x39c], eax
mov byte [ebp - 0x398], 0
lea ecx, [ebp - 0x39c]
mov edx, 0x501f742c
lea eax, [ebp - 0x394]
call sub.rtl120.bpl__Sysutils_StrFmt_qqrpbt1px14System_TVarRecxi
push eax
push 0x80000002
call sub.advapi32.dll_RegOpenKeyExW
test eax, eax
jne 0x501f73e0
xor eax, eax
push ebp
push 0x501f73d9
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 8], 0x200
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 0x314]
push eax
push 0
push 0
push 0x501f749c
mov eax, dword [ebp - 0xc]
push eax
call sub.advapi32.dll_RegQueryValueExW
test eax, eax
jne 0x501f73c2
lea eax, [ebp - 0x3a0]
lea edx, [ebp - 0x314]
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov edx, dword [ebp - 0x3a0]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x34]
mov ebx, dword [eax]
call dword [ebx + 0x3c]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax]
mov edx, dword [ebp - 4]
cmp eax, dword [edx + 0x3c]
jne 0x501f73c2
mov eax, dword [ebp - 4]
add eax, 0x38
lea edx, [ebp - 0x314]
mov ecx, pe_nt_image_headers32
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501f73e0
mov eax, dword [ebp - 0xc]
push eax
call sub.advapi32.dll_RegCloseKey
ret
add dword [ebp - 0x14], 4
dec dword [ebp - 0x10]
jne 0x501f72e3
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x34]
mov byte [eax + 0x29], 0
mov dl, 1
call sub.rtl120.bpl__Classes_TStringList_SetSorted_qqro
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0x34]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x501f7424
lea eax, [ebp - 0x3a0]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x501f7f70
Capabilities:
Create thread
Set global application hook

Disassembly:
push ecx
mov eax, dword [sym.vcl120.bpl__Forms_Application]
cmp byte [eax + 0xa9], 0
jne 0x501f7fe2
cmp dword [0x50245258], 0
jne 0x501f7fa2
call sub.kernel32.dll_GetCurrentThreadId
push eax
push 0
mov eax, dword [0x50243970]
push eax
push 3
call sub.user32.dll_SetWindowsHookExW
mov dword [0x50245258], eax
cmp dword [0x50245254], 0
jne 0x501f7fbd
push 0
push 0
push 0
push 0
call sub.kernel32.dll_CreateEventW
mov dword [0x50245254], eax
cmp dword [0x5024525c], 0
jne 0x501f7fe2
push esp
push 0
push 0
mov eax, dword [0x5024396c]
push eax
push 0x3e8
push 0
call sub.kernel32.dll_CreateThread
mov dword [0x5024525c], eax
pop edx
ret
Function at 0x501f8958
Capabilities:
Enumerate gui resources

Disassembly:
push ebx
push esi
add esp, 0xfffffff8
mov ebx, eax
mov eax, dword [ebx + 0x170]
test eax, eax
je 0x501f89fa
cmp dword [ebx + 0x90], 0
jne 0x501f89f4
mov dword [esp], eax
mov byte [esp + 4], dl
mov eax, esp
push eax
push 0x501f88d0
call sub.user32.dll_EnumWindows
mov eax, dword [ebx + 0x8c]
cmp dword [eax + 8], 0
je 0x501f89f4
push 3
mov eax, dword [esp + 4]
push eax
call sub.user32.dll_GetWindow
mov esi, eax
mov dword [esp], esi
push 0xffffffffffffffec
push esi
call sub.user32.dll_GetWindowLongW
test al, 8
je 0x501f89ba
mov dword [esp], 0xfffffffe
mov eax, dword [ebx + 0x8c]
mov esi, dword [eax + 8]
dec esi
cmp esi, 0
jl 0x501f89f4
push 0x213
push 0
push 0
push 0
push 0
mov eax, dword [esp + 0x14]
push eax
mov edx, esi
mov eax, dword [ebx + 0x8c]
call sub.rtl120.bpl__Classes_TList_Get_qqri
push eax
call sub.user32.dll_SetWindowPos
dec esi
cmp esi, 0xffffffff
jne 0x501f89c9
inc dword [ebx + 0x90]
pop ecx
pop edx
pop esi
pop ebx
ret