joyce8/EMBER2024-capa huggingface dataset:
Function at 0x57df4c
Capabilities:
Connect socket
Get socket status
Set socket configuration

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffed8
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x128], ebx
mov dword [ebp - 0x14], ecx
mov edi, edx
mov esi, eax
mov ebx, dword [ebp + 8]
xor eax, eax
push ebp
push 0x57e09e
push dword fs:[eax]
mov dword fs:[eax], esp
mov dword [ebp - 0x18], 1
lea eax, [ebp - 0x18]
push eax
push 0x8004667e
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_ioctlsocket
lea eax, [ebp - 0x10]
xor ecx, ecx
mov edx, 0x10
call sub.rtl140.bpl__System__FillChar_qqrpvib
mov word [ebp - 0x10], 2
lea eax, [ebp - 0x128]
mov edx, edi
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x128]
call sub.rtl140.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
push eax
call sub.ws2_32.dll_inet_addr
mov dword [ebp - 0xc], eax
movzx eax, word [ebp - 0x14]
push eax
call sub.ws2_32.dll_htons
mov word [ebp - 0xe], ax
push 0x10
lea eax, [ebp - 0x10]
push eax
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_connect
test eax, eax
jne 0x57e008
xor eax, eax
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x18]
push eax
push 0x8004667e
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_ioctlsocket
mov bl, 1
jmp 0x57e085
lea eax, [ebp - 0x124]
call fcn.0057d044
lea edx, [ebp - 0x124]
mov eax, dword [esi + 8]
call fcn.0057d020
mov eax, ebx
mov ecx, 0x3e8
xor edx, edx
div ecx
mov dword [ebp - 0x20], eax
mov eax, ebx
mov ecx, 0x3e8
xor edx, edx
div ecx
imul eax, edx, 0x3e8
mov dword [ebp - 0x1c], eax
lea eax, [ebp - 0x20]
push eax
push 0
lea eax, [ebp - 0x124]
push eax
push 0
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_select
test eax, eax
jg 0x57e06c
xor ebx, ebx
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_closesocket
jmp 0x57e085
xor eax, eax
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x18]
push eax
push 0x8004667e
mov eax, dword [esi + 8]
push eax
call sub.ws2_32.dll_ioctlsocket
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57e0a5
lea eax, [ebp - 0x128]
call sub.rtl140.bpl__System__LStrClr_qqrpv
ret

Function at 0x57e108
Capabilities:
Create tcp socket
Create udp socket

Disassembly:
push ebx
mov ebx, eax
mov eax, ebx
call fcn.0057e1d8
push 0
push 1
push 2
call sub.ws2_32.dll_socket
mov dword [ebx + 8], eax
mov eax, dword [ebx + 8]
test eax, eax
je 0x57e12c
cmp eax, 0xffffffff
jne 0x57e131
call sub.rtl140.bpl__Sysutils_RaiseLastOSError_qqrv
push 0x9f2bfc
call sub.kernel32.dll_InterlockedIncrement
pop ebx
ret
Function at 0x57e1fc
Capabilities:
Resolve dns

Disassembly:
push ebp
mov ebp, esp
push 0
push ebx
push esi
mov esi, ecx
mov ebx, edx
xor eax, eax
push ebp
push 0x57e268
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
mov edx, ebx
mov ecx, 0
call sub.rtl140.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
push eax
call sub.ws2_32.dll_gethostbyname_1
mov ebx, eax
test ebx, ebx
jne 0x57e23d
call sub.rtl140.bpl__Sysutils_RaiseLastOSError_qqrv
mov eax, dword [ebx + 0xc]
mov eax, dword [eax]
push dword [eax]
call sub.ws2_32.dll_inet_ntoa_1
mov edx, eax
mov eax, esi
call sub.rtl140.bpl__System__UStrFromPChar_qqrr20System_UnicodeStringpc
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x57e26f
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__LStrClr_qqrpv
ret

Function at 0x57e304
Capabilities:
Get socket status

Disassembly:
push ebx
push esi
push edi
add esp, 0xfffffef4
mov esi, edx
mov edi, eax
xor ebx, ebx
lea eax, [esp + 8]
call fcn.0057d044
lea edx, [esp + 8]
mov eax, dword [edi + 8]
call fcn.0057d020
mov eax, esi
mov ecx, 0x3e8
cdq
idiv ecx
mov dword [esp], eax
mov eax, esi
mov ecx, 0x3e8
cdq
idiv ecx
imul eax, edx, 0x3e8
mov dword [esp + 4], eax
push esp
push 0
push 0
lea eax, [esp + 0x14]
push eax
push 0
call sub.ws2_32.dll_select
test eax, eax
jne 0x57e362
xor ebx, ebx
jmp 0x57e383
cmp eax, 0xffffffff
jne 0x57e36e
call sub.rtl140.bpl__Sysutils_RaiseLastOSError_qqrv
jmp 0x57e383
cmp dword [esp + 8], 0
jbe 0x57e379
mov bl, 1
jmp 0x57e383
test eax, eax
jle 0x57e381
mov bl, 1
jmp 0x57e383
xor ebx, ebx
mov eax, ebx
add esp, 0x10c
pop edi
pop esi
pop ebx
ret

Function at 0x5942c0
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
xor ecx, 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 0x594337
push dword fs:[eax]
mov dword fs:[eax], esp
lea ecx, [ebp - 8]
xor edx, edx
mov eax, ebx
call fcn.00594034
mov edx, dword [ebp - 8]
lea eax, [ebp - 4]
mov ecx, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
push 1
push 0
push 0
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x594344
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x59433e
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x5bce1c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
movzx ebx, word [0x5bce58]
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x5bce34
or bx, 1
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x5bce44
or bx, 4
push 0x12
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x5bce54
or bx, 2
mov eax, ebx
pop ebx
ret
Function at 0x5f0c34
Capabilities:
Access peb ldr_data
Get process heap flags

Disassembly:
push ebp
mov ebp, esp
mov ecx, 4
push 0
push 0
dec ecx
jne 0x5f0c3c
push ecx
push ebx
push esi
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 0x5f0db4
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 8]
mov eax, dword [ebp - 4]
call fcn.00427c78
mov edx, 0x5f0dd0
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 8], eax
mov dword [ebx + 0xc], edx
mov edx, 0x5f0df4
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x10], eax
mov dword [ebx + 0x14], edx
lea ecx, [ebp - 0xc]
mov edx, 0x5f0e14
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0xc]
lea eax, [ebx + 0x18]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x10]
mov edx, 0x5f0e34
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x10]
lea eax, [ebx + 0x1c]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x14]
mov edx, 0x5f0e58
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x14]
lea eax, [ebx + 0x20]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x18]
mov edx, 0x5f0e80
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x18]
lea eax, [ebx + 0x24]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea ecx, [ebp - 0x1c]
mov edx, 0x5f0e94
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x1c]
lea eax, [ebx + 0x28]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov edx, 0x5f0ea8
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x30], eax
mov dword [ebx + 0x34], edx
call sub.rtl140.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea ecx, [ebp - 0x20]
mov edx, 0x5f0ecc
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x20]
mov eax, dword [0x9f1178]
mov eax, dword [eax]
call fcn.00576574
fstp qword [ebx + 0x38]
wait
mov edx, 0x5f0ef4
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x34]
mov dword [ebx + 0x48], eax
mov dword [ebx + 0x4c], edx
lea ecx, [ebp - 0x24]
mov edx, 0x5f0f20
mov eax, dword [ebp - 8]
mov esi, dword [eax]
call dword [esi + 0x4c]
mov edx, dword [ebp - 0x24]
lea eax, [ebx + 0x40]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5f0dbb
lea eax, [ebp - 0x24]
mov edx, 7
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
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 0x5f0fd8
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__IntfAddRef_qqrx45System__DelphiInterface_t17System_IInterface_
xor eax, eax
push ebp
push 0x5f1104
push dword fs:[eax]
mov dword fs:[eax], esp
push dword [ebx + 0xc]
push dword [ebx + 8]
mov edx, 0x5f1120
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push dword [ebx + 0x14]
push dword [ebx + 0x10]
mov edx, 0x5f1144
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov ecx, dword [ebx + 0x18]
mov edx, 0x5f1164
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
mov ecx, dword [ebx + 0x1c]
mov edx, 0x5f1184
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
mov ecx, dword [ebx + 0x20]
mov edx, 0x5f11a8
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
mov ecx, dword [ebx + 0x24]
mov edx, 0x5f11d0
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
mov ecx, dword [ebx + 0x28]
mov edx, 0x5f11e4
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
push dword [ebx + 0x34]
push dword [ebx + 0x30]
mov edx, 0x5f11f8
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push dword [ebx + 0x3c]
push dword [ebx + 0x38]
lea ecx, [ebp - 8]
mov eax, dword [0x9f1178]
mov eax, dword [eax]
mov edx, 0x5f121c
call fcn.00576b4c
mov ecx, dword [ebp - 8]
mov edx, 0x5f1258
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
push dword [ebx + 0x4c]
push dword [ebx + 0x48]
mov edx, 0x5f1280
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov ecx, dword [ebx + 0x40]
mov edx, 0x5f12ac
mov eax, dword [ebp - 4]
mov esi, dword [eax]
call dword [esi + 0x50]
mov ecx, dword [ebx + 0x50]
mov edx, 0x5f12d0
mov eax, dword [ebp - 4]
mov ebx, dword [eax]
call dword [ebx + 0x50]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5f110b
lea eax, [ebp - 8]
call sub.rtl140.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret
Function at 0x5f1378
Capabilities:
Access peb ldr_data

Disassembly:
push ebp
mov ebp, esp
push 0
push ebx
push esi
test dl, dl
je 0x5f138b
add esp, 0xfffffff0
call sub.rtl140.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov ebx, edx
mov esi, eax
xor eax, eax
push ebp
push 0x5f1402
push dword fs:[eax]
mov dword fs:[eax], esp
xor edx, edx
mov eax, esi
call sub.rtl140.bpl__System_TObject__bctr_qqrv
mov dword [esi + 8], 0
mov dword [esi + 0xc], 0
mov eax, 0x3b9aca00
call sub.rtl140.bpl__System_Random_qqrxi
cdq
mov dword [esi + 0x48], eax
mov dword [esi + 0x4c], edx
lea eax, [esi + 0x2c]
mov edx, 0x5f1434
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea edx, [ebp - 4]
mov eax, dword [0x9f1178]
mov eax, dword [eax]
call fcn.0056a0e0
mov edx, dword [ebp - 4]
lea eax, [esi + 0x30]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x5f1409
lea eax, [ebp - 4]
call sub.rtl140.bpl__System__UStrClr_qqrpv
ret
Function at 0x7544f8
Capabilities:
Get keyboard layout

Disassembly:
push ebx
push esi
push edi
add esp, 0xffffffe8
mov ebx, edx
mov esi, eax
mov dword [ebx], 1
mov edx, esp
mov eax, esi
mov ecx, dword [eax]
call dword [ecx + 0x54]
push esi
lea esi, [esp + 4]
lea edi, [ebx + 0xc]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
mov eax, dword [esi + 0x390]
add dword [ebx + 0xc], eax
mov eax, dword [esi + 0x394]
sub dword [ebx + 0x14], eax
mov eax, esi
call fcn.0074fd44
mov edx, eax
mov eax, dword [esi + 0x470]
mov eax, dword [eax + 0x64]
call fcn.007ed554
mov edx, dword [eax + 0x20]
add dword [ebx + 0xc], edx
mov eax, dword [eax + 0x24]
sub dword [ebx + 0x14], eax
lea edx, [esp + 0x10]
mov eax, dword [esi + 0x488]
call fcn.0073dfcc
mov eax, dword [esp + 0x10]
mov dword [ebx + 4], eax
mov eax, dword [esp + 0x14]
mov dword [ebx + 8], eax
push 0
call sub.user32.dll_GetKeyboardLayout
and eax, 0xffff
cmp eax, 0x412
jne 0x7545a2
mov dword [ebx], 2
mov eax, dword [ebx + 4]
mov dword [ebx + 0xc], eax
mov eax, dword [ebx + 8]
mov dword [ebx + 0x10], eax
push 1
push 0
lea eax, [ebx + 0xc]
push eax
call sub.user32.dll_OffsetRect
add esp, 0x18
pop edi
pop esi
pop ebx
ret

Function at 0x76251c
Capabilities:
Log keystrokes via polling

Disassembly:
push ebx
push esi
push edi
add esp, 0xfffffef0
mov esi, eax
movzx ebx, word [0x7625ec]
lea eax, [esp + 8]
push eax
call sub.user32.dll_GetKeyboardState
test byte [esp + 0x18], 0x80
je 0x762543
or bx, 1
test byte [esp + 0x19], 0x80
je 0x76254e
or bx, 4
test byte [esp + 0x1a], 0x80
je 0x762559
or bx, 2
test byte [esp + 9], 0x80
je 0x762564
or bx, 8
test byte [esp + 0xa], 0x80
je 0x76256f
or bx, 0x10
test byte [esp + 0xc], 0x80
je 0x76257a
or bx, 0x20
push esp
call sub.user32.dll_GetCursorPos
lea ecx, [esp + 0x108]
mov edx, esp
mov eax, esi
call sub.vcl140.bpl__Controls_TControl_ScreenToClient_qqrrx12Types_TPoint
mov eax, dword [esp + 0x108]
mov dword [esp], eax
mov eax, dword [esp + 0x10c]
mov dword [esp + 4], eax
mov edi, dword [esp]
test edi, edi
jl 0x7625e1
mov eax, esi
call sub.vcl140.bpl__Controls_TControl_GetClientWidth_qqrv
cmp edi, eax
jge 0x7625e1
cmp dword [esp + 4], 0
jl 0x7625e1
mov eax, esi
call sub.vcl140.bpl__Controls_TControl_GetClientHeight_qqrv
cmp eax, dword [esp + 4]
jle 0x7625e1
mov eax, dword [esp + 4]
push eax
mov ecx, dword [esp + 4]
mov edx, ebx
mov eax, esi
mov si, 0xffd4
call sub.rtl140.bpl__System__CallDynaInst_qqrv
add esp, 0x110
pop edi
pop esi
pop ebx
ret
Function at 0x76b59c
Capabilities:
Access peb ldr_data
Get kernel32 base address

Disassembly:
push ebp
mov ebp, esp
push 0
push 0
push 0
push 0
push 0
push ebx
push esi
push edi
mov esi, ecx
mov ebx, edx
mov edi, eax
xor eax, eax
push ebp
push 0x76b6f5
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 4]
push eax
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 0x10]
push eax
lea ecx, [ebp - 0x12]
mov eax, dword [edi + 0x40]
mov edx, esi
call fcn.0076af6c
lea ecx, [ebp - 0xc]
mov eax, dword [edi + 0x40]
mov edx, esi
call fcn.0076a310
mov eax, dword [edi + 0x40]
mov edx, esi
call fcn.0076a358
mov byte [ebp - 0x11], al
movzx eax, byte [ebp - 0x12]
mov byte [ebx + 0xc], al
lea eax, [ebx + 0x1c]
mov edx, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebx + 0x20]
mov edx, dword [ebp - 0x10]
call sub.rtl140.bpl__System__UStrFromWStr_qqrr20System_UnicodeStringx17System_WideString
movzx eax, byte [esi + 0x20]
mov byte [ebx + 0x30], al
mov eax, ebx
call fcn.007ee698
mov edx, dword [ebp - 0xc]
call sub.vcl140.bpl__Graphics_TFont_SetName_qqrx20System_UnicodeString
mov eax, ebx
call fcn.007ee698
movzx edx, byte [ebp - 0x11]
call sub.vcl140.bpl__Graphics_TFont_SetCharset_qqrxuc
mov eax, ebx
call fcn.007ee698
movzx edx, byte [esi + 0x18]
call sub.vcl140.bpl__Graphics_TFont_SetStyle_qqrx47System__Set_t19Graphics_TFontStyle_iuc_0_iuc_3_
mov eax, ebx
call fcn.007ee698
mov edx, dword [esi + 0x1c]
call sub.vcl140.bpl__Graphics_TFont_SetColor_qqrx15Graphics_TColor
mov eax, ebx
call fcn.007ee698
mov edx, dword [esi + 0x24]
call sub.vcl140.bpl__Graphics_TFont_SetSize_qqrxi
fild dword [esi + 0x3c]
fmul qword [edi + 0x38]
call sub.rtl140.bpl__System__ROUND_qqrv
mov dword [ebx + 0x24], eax
fild dword [esi + 0x40]
fmul qword [edi + 0x38]
call sub.rtl140.bpl__System__ROUND_qqrv
add eax, dword [ebx + 0x24]
mov dword [ebx + 0x2c], eax
cmp dword [esi + 0x44], 0xfffffc18
je 0x76b69f
fild dword [esi + 0x44]
fmul qword [edi + 0x38]
call sub.rtl140.bpl__System__ROUND_qqrv
sub eax, dword [ebx + 0x24]
mov dword [ebx + 0x28], eax
jmp 0x76b6a4
xor eax, eax
mov dword [ebx + 0x28], eax
mov eax, dword [esi + 0x14]
mov dword [ebx + 0x3c], eax
cmp byte [esi + 0x2a], 0
je 0x76b6bf
movzx eax, byte [0x76b704]
not eax
and al, byte [ebx + 0x38]
mov byte [ebx + 0x38], al
cmp byte [esi + 0x29], 0
je 0x76b6d2
movzx eax, byte [0x76b708]
or al, byte [ebx + 0x38]
mov byte [ebx + 0x38], al
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x76b6fc
lea eax, [ebp - 0x10]
call sub.rtl140.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x838fd0
Capabilities:
Get keyboard layout

Disassembly:
push ebx
push esi
push edi
push ebp
add esp, 0xffffffd8
mov ebx, edx
mov esi, eax
lea ecx, [esp + 0x10]
xor edx, edx
xor eax, eax
call sub.rtl140.bpl__Classes_Point_qqrii
lea edx, [esp + 0x10]
mov ecx, esp
mov eax, dword [esi + 0x93c]
call sub.vcl140.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
lea ecx, [esp + 0x10]
xor edx, edx
xor eax, eax
call sub.rtl140.bpl__Classes_Point_qqrii
lea edx, [esp + 0x10]
lea ecx, [esp + 8]
mov eax, esi
call sub.vcl140.bpl__Controls_TControl_ClientToScreen_qqrrx12Types_TPoint
mov eax, dword [esi + 0x494]
mov dword [ebx + 4], eax
mov eax, dword [esi + 0x498]
mov dword [ebx + 8], eax
mov edi, dword [esp + 8]
sub edi, dword [esp]
add dword [ebx + 4], edi
mov ebp, dword [esp + 0xc]
sub ebp, dword [esp + 4]
add dword [ebx + 8], ebp
mov dword [ebx], 1
lea edx, [esp + 0x18]
mov eax, esi
call fcn.0082d554
push esi
push edi
lea esi, [esp + 0x20]
lea edi, [ebx + 0xc]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop edi
pop esi
mov eax, dword [esi + 0x93c]
call fcn.007f8a24
test eax, eax
je 0x8390f9
lea eax, [esp + 0x10]
push eax
mov eax, dword [esi + 0x93c]
call fcn.00754f48
mov edx, eax
lea eax, [ebx + 4]
mov ecx, dword [esi + 0x93c]
call fcn.00838f78
mov eax, dword [esp + 0x10]
mov dword [ebx + 4], eax
mov eax, dword [esp + 0x14]
mov dword [ebx + 8], eax
lea eax, [esp + 0x10]
push eax
mov eax, dword [esi + 0x93c]
call fcn.00754f48
mov edx, eax
lea eax, [ebx + 0xc]
mov ecx, dword [esi + 0x93c]
call fcn.00838f78
mov eax, dword [esp + 0x10]
mov dword [ebx + 0xc], eax
mov eax, dword [esp + 0x14]
mov dword [ebx + 0x10], eax
lea eax, [esp + 0x10]
push eax
mov eax, dword [esi + 0x93c]
call fcn.00754f48
mov edx, eax
lea eax, [ebx + 0x14]
mov ecx, dword [esi + 0x93c]
call fcn.00838f78
mov eax, dword [esp + 0x10]
mov dword [ebx + 0x14], eax
mov eax, dword [esp + 0x14]
mov dword [ebx + 0x18], eax
push ebp
push edi
lea eax, [ebx + 0xc]
push eax
call sub.user32.dll_OffsetRect
push 0
call sub.user32.dll_GetKeyboardLayout
and eax, 0xffff
cmp eax, 0x412
jne 0x839130
mov eax, dword [ebx + 4]
mov dword [ebx + 0xc], eax
mov eax, dword [ebx + 8]
mov dword [ebx + 0x10], eax
push 1
push 0
lea eax, [ebx + 0xc]
push eax
call sub.user32.dll_OffsetRect
add esp, 0x28
pop ebp
pop edi
pop esi
pop ebx
ret
Function at 0x87bd6c
Capabilities:
Encrypt data using rc4 ksa

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffe8
push ebx
push esi
push edi
mov ebx, edx
mov dword [ebp - 4], eax
mov dl, 1
mov eax, dword [sym.imp.vcl140.bpl__Graphics_TBitmap_]
call sub.vcl140.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x10], eax
mov dl, 1
mov eax, dword [sym.imp.vcl140.bpl__Graphics_TBitmap_]
call sub.vcl140.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x14], eax
xor edx, edx
push ebp
push 0x87bed4
push dword fs:[edx]
mov dword fs:[edx], esp
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, ebx
call sub.vcl140.bpl__Graphics_ColorToRGB_qqr15Graphics_TColor
mov esi, eax
mov eax, esi
call fcn.00403a10
mov ebx, eax
mov eax, esi
call fcn.00403a14
mov byte [ebp - 9], al
mov eax, esi
call fcn.00403a18
mov byte [ebp - 0xa], al
mov dl, 6
mov eax, dword [ebp - 0x10]
call sub.vcl140.bpl__Graphics_TBitmap_SetPixelFormat_qqr21Graphics_TPixelFormat
mov dl, 6
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_SetPixelFormat_qqr21Graphics_TPixelFormat
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x30]
mov edx, eax
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x24]
mov edx, eax
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x24]
dec eax
test eax, eax
jl 0x87beab
inc eax
mov dword [ebp - 0x18], eax
mov dword [ebp - 8], 0
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 0x10]
call sub.vcl140.bpl__Graphics_TBitmap_GetScanline_qqri
mov edi, eax
mov edx, dword [ebp - 8]
mov eax, dword [ebp - 0x14]
call sub.vcl140.bpl__Graphics_TBitmap_GetScanline_qqri
mov esi, eax
mov eax, dword [ebp - 0x10]
mov edx, dword [eax]
call dword [edx + 0x30]
mov ecx, eax
dec ecx
test ecx, ecx
jl 0x87bea3
inc ecx
movzx eax, byte [ebp - 0xa]
movzx edx, byte [edi]
imul edx
push ecx
mov ecx, 0xff
xor edx, edx
div ecx
pop ecx
mov byte [esi], al
movzx eax, byte [ebp - 9]
movzx edx, byte [edi + 1]
imul edx
push ecx
mov ecx, 0xff
xor edx, edx
div ecx
pop ecx
mov byte [esi + 1], al
movzx eax, bl
movzx edx, byte [edi + 2]
imul edx
push ecx
mov ecx, 0xff
xor edx, edx
div ecx
pop ecx
mov byte [esi + 2], al
add edi, 3
add esi, 3
dec ecx
jne 0x87be55
inc dword [ebp - 8]
dec dword [ebp - 0x18]
jne 0x87be2b
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x87bedb
mov eax, dword [ebp - 0x10]
call sub.rtl140.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl140.bpl__System_TObject_Free_qqrv
ret
Function at 0x8fba3c
Capabilities:
Access peb ldr_data
Get process heap flags

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 8], ebx
mov dword [ebp - 4], ecx
mov edi, edx
mov ebx, eax
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov esi, dword [0x9f085c]
xor eax, eax
push ebp
push 0x8fbb36
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [esi]
mov edx, dword [ebx + 0x98]
mov dword [eax + 8], edx
mov edx, dword [ebx + 0x9c]
mov dword [eax + 0xc], edx
mov eax, edi
cdq
mov ecx, dword [esi]
mov dword [ecx + 0x10], eax
mov dword [ecx + 0x14], edx
mov eax, dword [esi]
add eax, 0x18
mov edx, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi]
mov edx, dword [ebx + 0x88]
mov dword [eax + 0x30], edx
mov edx, dword [ebx + 0x8c]
mov dword [eax + 0x34], edx
mov eax, dword [esi]
add eax, 0x1c
mov edx, dword [ebp + 0xc]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi]
add eax, 0x40
mov edx, dword [ebp + 8]
call sub.rtl140.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [esi]
mov edx, dword [ebx + 0x100]
mov dword [eax + 0x48], edx
mov edx, dword [ebx + 0x104]
mov dword [eax + 0x4c], edx
mov eax, ebx
call fcn.0090002c
mov ebx, eax
push 1
lea edx, [ebp - 8]
mov eax, dword [esi]
call fcn.005f0f38
mov ecx, dword [ebp - 8]
mov dl, 1
mov eax, ebx
call fcn.00561534
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x8fbb3d
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp + 8]
mov edx, 2
call sub.rtl140.bpl__System__UStrArrayClr_qqrpvi
ret