joyce8/EMBER2024-capa huggingface dataset:
Function at 0x47dfc4
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 0x47e171
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
cmp dword [eax + 0x34], 0
jne 0x47e152
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 0x47e141
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 fcn.004a2574
test al, al
je 0x47e134
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, 0x47e180
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 0x47e134
xor eax, eax
push ebp
push 0x47e12d
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 0x47e1f0
mov eax, dword [ebp - 0xc]
push eax
call sub.advapi32.dll_RegQueryValueExW
test eax, eax
jne 0x47e116
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 0x47e116
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 0x47e134
mov eax, dword [ebp - 0xc]
push eax
call sub.advapi32.dll_RegCloseKey
ret
add dword [ebp - 0x14], 4
dec dword [ebp - 0x10]
jne 0x47e037
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 0x47e178
lea eax, [ebp - 0x3a0]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x47eb60
Capabilities:
Create thread
Set global application hook

Disassembly:
push ecx
mov eax, dword [0x5a936c]
cmp byte [eax + 0xa9], 0
jne 0x47ebd2
cmp dword [0x5a9384], 0
jne 0x47eb92
call sub.kernel32.dll_GetCurrentThreadId
push eax
push 0
mov eax, dword [0x5993e0]
push eax
push 3
call sub.user32.dll_SetWindowsHookExW
mov dword [0x5a9384], eax
cmp dword [0x5a9380], 0
jne 0x47ebad
push 0
push 0
push 0
push 0
call sub.kernel32.dll_CreateEventW
mov dword [0x5a9380], eax
cmp dword [0x5a9388], 0
jne 0x47ebd2
push esp
push 0
push 0
mov eax, dword [0x5993dc]
push eax
push 0x3e8
push 0
call sub.kernel32.dll_CreateThread
mov dword [0x5a9388], eax
pop edx
ret
Function at 0x47f458
Capabilities:
Enumerate gui resources

Disassembly:
push ebx
push esi
add esp, 0xfffffff8
mov ebx, eax
mov eax, dword [ebx + 0x170]
test eax, eax
je 0x47f4fa
cmp dword [ebx + 0x90], 0
jne 0x47f4f4
mov dword [esp], eax
mov byte [esp + 4], dl
mov eax, esp
push eax
push 0x47f3d0
call sub.user32.dll_EnumWindows
mov eax, dword [ebx + 0x8c]
cmp dword [eax + 8], 0
je 0x47f4f4
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 0x47f4ba
mov dword [esp], 0xfffffffe
mov eax, dword [ebx + 0x8c]
mov esi, dword [eax + 8]
dec esi
cmp esi, 0
jl 0x47f4f4
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 0x47f4c9
inc dword [ebx + 0x90]
pop ecx
pop edx
pop esi
pop ebx
ret

Function at 0x47f718
Capabilities:
Enumerate gui resources
Hide graphical window

Disassembly:
push ebx
push esi
push edi
mov ebx, edx
mov esi, eax
mov eax, dword [0x5a936c]
cmp dword [eax + 0x170], 0
je 0x47f87d
test bl, bl
jne 0x47f7cb
cmp dword [esi + 0x98], 0
jne 0x47f7c0
mov eax, esi
call fcn.00481fe8
push eax
push 0x47f624
call sub.user32.dll_EnumWindows
cmp dword [esi + 0x40], 0
je 0x47f791
mov eax, dword [0x5a936c]
cmp byte [eax + 0xcf], 0
je 0x47f791
mov eax, dword [esi + 0xd4]
call sub.rtl120.bpl__System__DynArrayHigh_qqrv
mov edi, eax
cmp edi, 0
jl 0x47f791
push 0
mov eax, dword [esi + 0xd4]
mov eax, dword [eax + edi*4]
push eax
call sub.user32.dll_ShowWindow
dec edi
cmp edi, 0xffffffff
jne 0x47f77a
mov eax, dword [esi + 0x94]
mov edi, dword [eax + 8]
dec edi
cmp edi, 0
jl 0x47f7c0
cmp bl, 1
cmc
sbb eax, eax
push eax
mov edx, edi
mov eax, dword [esi + 0x94]
call sub.rtl120.bpl__Classes_TList_Get_qqri
push eax
call sub.user32.dll_ShowOwnedPopups
dec edi
cmp edi, 0xffffffff
jne 0x47f7a0
inc dword [esi + 0x98]
jmp 0x47f87d
cmp dword [esi + 0x98], 0
jle 0x47f87d
dec dword [esi + 0x98]
cmp dword [esi + 0x98], 0
jne 0x47f87d
cmp dword [esi + 0x40], 0
je 0x47f828
mov eax, dword [0x5a936c]
cmp byte [eax + 0xcf], 0
je 0x47f828
mov eax, dword [esi + 0xd4]
call sub.rtl120.bpl__System__DynArrayHigh_qqrv
mov edi, eax
cmp edi, 0
jl 0x47f828
push 5
mov eax, dword [esi + 0xd4]
mov eax, dword [eax + edi*4]
push eax
call sub.user32.dll_ShowWindow
dec edi
cmp edi, 0xffffffff
jne 0x47f811
mov eax, dword [esi + 0x94]
mov edi, dword [eax + 8]
dec edi
cmp edi, 0
jl 0x47f857
cmp bl, 1
cmc
sbb eax, eax
push eax
mov edx, edi
mov eax, dword [esi + 0x94]
call sub.rtl120.bpl__Classes_TList_Get_qqri
push eax
call sub.user32.dll_ShowOwnedPopups
dec edi
cmp edi, 0xffffffff
jne 0x47f837
mov eax, dword [esi + 0x94]
mov edx, dword [eax]
call dword [edx + 8]
push 0
lea eax, [esi + 0xd4]
mov ecx, 1
mov edx, dword [0x47504c]
call sub.rtl120.bpl__System__DynArraySetLength_qqrv
add esp, 4
pop edi
pop esi
pop ebx
ret
Function at 0x480438
Capabilities:
Get graphical window text

Disassembly:
push ebx
push esi
add esp, 0xfffffdfc
mov esi, edx
mov ebx, eax
cmp byte [ebx + 0xa8], 0
je 0x4804a3
cmp byte [ebx + 0xcf], 0
jne 0x4804a3
push pe_nt_image_headers32
lea eax, [esp + 4]
push eax
mov eax, dword [ebx + 0x170]
push eax
call sub.user32.dll_GetWindowTextW
mov ecx, eax
mov edx, esp
mov eax, esi
call sub.rtl120.bpl__System__UStrFromPWCharLen_qqrr20System_UnicodeStringpbi
mov eax, dword [esi]
mov dword [esp + 0x200], eax
mov eax, dword [esp + 0x200]
test eax, eax
je 0x480490
sub eax, 4
mov eax, dword [eax]
test eax, eax
jne 0x4804b0
mov eax, esi
mov edx, dword [ebx + 0x88]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x4804b0
mov eax, esi
mov edx, dword [ebx + 0x88]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
add esp, 0x204
pop esi
pop ebx
ret

Function at 0x4817a8
Capabilities:
Hide graphical window

Disassembly:
push ebx
push esi
mov ebx, eax
mov esi, dword [ebx + 0x80]
test esi, esi
je 0x481816
mov eax, esi
call fcn.0049d038
test al, al
je 0x481816
mov eax, dword [ebx + 0x80]
call fcn.0049cd30
push eax
call sub.user32.dll_IsWindowVisible
test eax, eax
je 0x481816
mov eax, dword [ebx + 0x80]
mov edx, dword [eax]
call dword [edx + 0xec]
test al, al
je 0x48180a
push 0
mov eax, dword [ebx + 0x80]
call fcn.0049cd30
push eax
call sub.user32.dll_ShowWindow
xor edx, edx
mov eax, dword [ebx + 0x80]
call fcn.004944b0
jmp 0x481816
mov cl, 1
mov edx, dword [ebx + 0x70]
mov eax, ebx
call fcn.004815f4
pop esi
pop ebx
ret

Function at 0x483564
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 0x4835ab
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 0x4889c4
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 0x488afd
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 0x488ad3
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, 0x488b18
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 0x488abd
lea ecx, [ebp - 4]
mov edx, 0x488b8c
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 0x488ab6
push dword fs:[edx]
mov dword fs:[edx], esp
push 0x488ba4
mov eax, dword [ebp - 8]
push eax
call fcn.00401c60
mov ebx, eax
call ebx
movzx eax, word [eax + 0x28]
and ax, 1
cmp ax, 1
sete byte [0x599540]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x488abd
mov eax, dword [ebp - 8]
push eax
call sub.kernel32.dll_FreeLibrary
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x488ada
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret

Function at 0x488c08
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 0x488c4f
push 0x10
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x488c32
add bx, 0x2000
push 0x11
call sub.user32.dll_GetKeyState
test ax, ax
jge 0x488c43
add bx, 0x4000
test byte [esp + 0xb], 0x20
je 0x488c4f
add bx, 0x8000
mov eax, ebx
add esp, 0x10
pop edi
pop esi
pop ebx
ret
Function at 0x491c54
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 [0x5a9408], 0
je 0x491d95
push 0x11
call sub.user32.dll_GetKeyState
test ax, 0x8000
setne al
mov edx, dword [0x5a774c]
mov edx, dword [edx]
xor al, byte [edx + 0xb8]
je 0x491d95
mov eax, dword [0x5a940c]
mov edx, dword [eax]
call dword [edx + 8]
mov eax, dword [0x5a9408]
mov ebx, dword [eax + 8]
dec ebx
test ebx, ebx
jl 0x491d64
inc ebx
xor edi, edi
mov edx, edi
mov eax, dword [0x5a9408]
call sub.rtl120.bpl__Classes_TList_Get_qqri
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0x14]
cmp eax, dword [ebp - 0x10]
je 0x491d5c
mov eax, dword [ebp - 0x14]
cmp byte [eax + 0x1e2], 0
je 0x491d5c
mov eax, dword [ebp - 0x14]
mov edx, dword [eax]
call dword [edx + 0x4c]
test al, al
je 0x491d5c
mov eax, dword [ebp - 0x14]
call fcn.0049cd30
push eax
call sub.user32.dll_IsWindowVisible
test eax, eax
je 0x491d5c
push ebp
call fcn.00491c10
pop ecx
test al, al
jne 0x491d5c
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 0x14]
mov si, 0xffbb
call sub.rtl120.bpl__System__CallDynaInst_qqrv
test al, al
je 0x491d5c
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 0x491d5c
lea edx, [ebp - 0xc]
lea eax, [ebp - 0x28]
call sub.rtl120.bpl__Types_PtInRect_qqrrx11Types_TRectrx12Types_TPoint
test al, al
je 0x491d5c
mov edx, dword [ebp - 0x14]
mov eax, dword [0x5a940c]
call fcn.00491388
inc edi
dec ebx
jne 0x491cb9
mov eax, dword [0x5a940c]
cmp dword [eax + 8], 0
jle 0x491d7c
mov eax, dword [0x5a940c]
call fcn.00491440
mov dword [ebp - 0x18], eax
cmp dword [ebp - 0x18], 0
je 0x491d95
push ebp
mov eax, dword [ebp - 0x18]
call fcn.00491a74
pop ecx
test al, al
jne 0x491d95
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 0x499a1c
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 fcn.004940d0
test ebx, ebx
jne 0x499a6f
push 0
push 0
lea edx, [esp + 8]
xor ecx, ecx
mov eax, esi
call fcn.004998b0
mov ebx, eax
test ebx, ebx
je 0x499b5a
cmp esi, ebx
je 0x499a98
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 0x499aad
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 0x499ae5
add eax, 0xffffff5f
sub eax, 2
jb 0x499afd
dec eax
sub eax, 2
jb 0x499b11
dec eax
sub eax, 2
jb 0x499b07
jmp 0x499b1b
add eax, 0xfffffdff
sub eax, 2
jb 0x499afd
dec eax
sub eax, 2
jb 0x499b11
dec eax
sub eax, 2
jb 0x499b07
jmp 0x499b1b
mov byte [esp + 0x120], 0
jmp 0x499b23
mov byte [esp + 0x120], 2
jmp 0x499b23
mov byte [esp + 0x120], 1
jmp 0x499b23
mov byte [esp + 0x120], 0
lea eax, [esp + 0x14]
push eax
call sub.user32.dll_GetKeyboardState
lea eax, [esp + 0x14]
call fcn.004756f4
mov byte [esp + 0x121], al
lea eax, [esp + 0x114]
push eax
xor ecx, ecx
mov edx, 0xb04b
mov eax, ebx
call fcn.00495878
mov dword [edi + 0xc], eax
mov al, 1
jmp 0x499b5c
xor eax, eax
add esp, 0x128
pop edi
pop esi
pop ebx
ret
Function at 0x4a5064
Capabilities:
Write file on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff4
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 8], ebx
test dl, dl
je 0x4a507e
add esp, 0xfffffff0
call sub.rtl120.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov dword [ebp - 4], ecx
mov ebx, edx
mov edi, eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x4a51b0
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
mov dword [edi + 0x1c], eax
mov byte [edi + 0x19], 0
mov byte [edi + 0x18], 0
xor ecx, ecx
xor edx, edx
mov eax, edi
call sub.rtl120.bpl__Inifiles_TMemIniFile__bctr_qqrx20System_UnicodeString
mov eax, dword [edi + 8]
mov dword [edi + 0x14], eax
lea eax, [edi + 0x10]
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
cmp dword [edi + 0x10], 0
je 0x4a518c
mov edx, dword [edi + 0x10]
mov eax, edi
call fcn.004a4e04
mov eax, dword [edi + 0x14]
mov dword [eax + 0x34], edi
mov dword [eax + 0x30], 0x4a505c
mov eax, dword [edi + 0x10]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
jne 0x4a5182
lea edx, [ebp - 4]
mov eax, dword [edi + 0x10]
call sub.rtl120.bpl__Sysutils_ExtractFileDir_qqrx20System_UnicodeString
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__EnsureUnicodeString_qqrr20System_UnicodeString
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
test eax, eax
jle 0x4a5119
mov eax, dword [ebp - 4]
call fcn.004a4f38
push 0
push 0x80
push 4
push 0
push 1
push 0xc0000000
mov eax, dword [edi + 0x10]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_CreateFileW
mov esi, eax
cmp esi, 0xffffffff
je 0x4a5182
cmp dword [ebp + 8], 0
je 0x4a517c
mov eax, dword [ebp + 8]
mov dword [edi + 0xc], eax
lea edx, [ebp - 8]
mov eax, dword [ebp + 8]
mov ecx, dword [eax]
call dword [ecx + 0x18]
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__DynArrayLength_qqrv
test eax, eax
jle 0x4a517c
push 0
lea eax, [ebp - 0xc]
push eax
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__DynArrayLength_qqrv
push eax
mov eax, dword [ebp - 8]
push eax
push esi
call sub.kernel32.dll_WriteFile
push esi
call sub.kernel32.dll_CloseHandle
cmp dword [edi + 0x1c], 0
je 0x4a518c
mov byte [edi + 0x19], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4a51b7
lea eax, [ebp - 8]
mov edx, dword [sym.imp.rtl120.bpl___xp_15Sysutils_TBytes]
call sub.rtl120.bpl__System__DynArrayClear_qqrrpvpv
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x4a5858
Capabilities:
Query or enumerate registry value

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff0
push ebx
push esi
push edi
mov dword [ebp - 4], ecx
mov edi, edx
mov esi, eax
mov ebx, dword [ebp + 8]
mov eax, ebx
mov edx, dword [ebp + 0xc]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 8]
push eax
push 0x20019
push 0
mov eax, edi
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push esi
call sub.advapi32.dll_RegOpenKeyExW
test eax, eax
jne 0x4a5917
xor eax, eax
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0xc]
push eax
push 0
push 0
push 0
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov edi, eax
push edi
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegQueryValueExW
cmp dword [ebp - 0xc], 0
je 0x4a590e
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System_AllocMem_qqrui
mov esi, eax
lea eax, [ebp - 0xc]
push eax
push esi
lea eax, [ebp - 0x10]
push eax
push 0
push edi
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegQueryValueExW
test eax, eax
jne 0x4a5907
mov eax, dword [ebp - 0x10]
dec eax
sub eax, 2
jb 0x4a58f0
sub eax, 4
jne 0x4a58fb
mov eax, ebx
mov edx, esi
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
jmp 0x4a5907
mov eax, ebx
mov ecx, dword [ebp - 0xc]
mov edx, esi
call sub.rtl120.bpl__System__UStrFromPWCharLen_qqrr20System_UnicodeStringpbi
mov eax, esi
call sub.rtl120.bpl__System__FreeMem_qqrpv
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegCloseKey
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret 8

Function at 0x4a5920
Capabilities:
Query or enumerate registry value

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffec
push ebx
push esi
push edi
mov dword [ebp - 4], ecx
mov edi, edx
mov esi, eax
mov ebx, dword [ebp + 8]
lea eax, [ebp - 8]
push eax
push 0x20019
push 0
mov eax, edi
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push esi
call sub.advapi32.dll_RegOpenKeyExW
test eax, eax
jne 0x4a59ac
xor eax, eax
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0xc]
push eax
push 0
push 0
push 0
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov esi, eax
push esi
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegQueryValueExW
cmp dword [ebp - 0xc], 0
je 0x4a59a3
lea eax, [ebp - 0xc]
push eax
lea eax, [ebp - 0x14]
push eax
lea eax, [ebp - 0x10]
push eax
push 0
push esi
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegQueryValueExW
test eax, eax
jne 0x4a59a3
mov eax, dword [ebp - 0x10]
add eax, 0xfffffffc
sub eax, 2
jae 0x4a59a3
mov ebx, dword [ebp - 0x14]
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegCloseKey
mov eax, ebx
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret 4
Function at 0x4a59b8
Capabilities:
Set registry value

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov dword [ebp - 4], ecx
mov edi, edx
mov esi, eax
mov eax, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x4a5a4d
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
push 0
lea eax, [ebp - 8]
push eax
push 0
push 2
push 0
push 0
push 0
mov eax, edi
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push esi
call sub.advapi32.dll_RegCreateKeyExW
test eax, eax
jne 0x4a5a37
lea eax, [ebp + 8]
call sub.rtl120.bpl__System__EnsureUnicodeString_qqrr20System_UnicodeString
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
add eax, eax
push eax
mov eax, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 1
push 0
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegSetValueExW
test eax, eax
jne 0x4a5a37
mov bl, 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x4a5a54
lea eax, [ebp + 8]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret

Function at 0x4a5a60
Capabilities:
Set registry value

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
push ebx
push esi
push edi
mov dword [ebp - 4], ecx
mov edi, edx
mov esi, eax
xor ebx, ebx
push 0
lea eax, [ebp - 8]
push eax
push 0
push 2
push 0
push 0
push 0
mov eax, edi
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push esi
call sub.advapi32.dll_RegCreateKeyExW
test eax, eax
jne 0x4a5ab6
push 4
lea eax, [ebp + 8]
push eax
push 4
push 0
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 8]
push eax
call sub.advapi32.dll_RegSetValueExW
test eax, eax
jne 0x4a5ab6
mov bl, 1
mov eax, ebx
pop edi
pop esi
pop ebx
pop ecx
pop ecx
pop ebp
ret 4

Function at 0x4a5cd4
Capabilities:
Get hostname

Disassembly:
push ebx
add esp, 0xfffffdf4
mov ebx, eax
mov dword [esp], 0x104
push esp
lea eax, [esp + 8]
push eax
call sub.kernel32.dll_GetComputerNameW
mov eax, ebx
lea edx, [esp + 4]
mov ecx, 0x104
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
add esp, 0x20c
pop ebx
ret

Function at 0x4a5d08
Capabilities:
Get session user name

Disassembly:
push ebx
add esp, 0xfffffdf4
mov ebx, eax
mov dword [esp], 0x104
push esp
lea eax, [esp + 8]
push eax
call sub.advapi32.dll_GetUserNameW
test eax, eax
je 0x4a5d39
mov eax, ebx
lea edx, [esp + 4]
mov ecx, 0x104
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
jmp 0x4a5d42
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
add esp, 0x20c
pop ebx
ret