joyce8/EMBER2024-capa huggingface dataset:
Function at 0x6ea1e4
Capabilities:
Get system information on windows

Disassembly:
push ebx
add esp, 0xffffff98
mov ebx, eax
lea eax, [esp + 0x28]
mov edx, 0x40
call fcn.004024a4
mov dword [esp + 0x28], 0x40
lea eax, [esp + 0x28]
push eax
call fcn.006ea320
mov eax, dword [esp + 0x2c]
mov dword [ebx + 0x30], eax
mov eax, dword [esp + 0x30]
mov dword [ebx + 0x38], eax
mov eax, dword [esp + 0x34]
mov dword [ebx + 0x3c], eax
mov eax, dword [esp + 0x38]
mov dword [ebx + 0x20], eax
mov eax, dword [esp + 0x3c]
mov dword [ebx + 0x24], eax
mov eax, dword [esp + 0x50]
mov dword [ebx + 8], eax
mov eax, dword [esp + 0x54]
mov dword [ebx + 0xc], eax
mov eax, dword [esp + 0x58]
mov dword [ebx + 0x18], eax
mov eax, dword [esp + 0x5c]
mov dword [ebx + 0x1c], eax
mov eax, dword [esp + 0x40]
mov dword [ebx + 0x40], eax
mov eax, dword [esp + 0x44]
mov dword [ebx + 0x44], eax
mov eax, dword [esp + 0x48]
mov dword [ebx + 0x10], eax
mov eax, dword [esp + 0x4c]
mov dword [ebx + 0x14], eax
mov eax, esp
mov edx, 0x24
call fcn.004024a4
push esp
call sub.kernel32.dll_GetSystemInfo
mov eax, dword [esp + 0x1c]
mov dword [ebx + 0x28], eax
mov eax, dword [esp + 0xc]
mov dword [ebx + 4], eax
mov eax, dword [esp + 8]
mov dword [ebx + 0x2c], eax
mov eax, dword [esp + 4]
mov dword [ebx + 0x48], eax
add esp, 0x68
pop ebx
ret
Function at 0x708188
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
mov ecx, 6
push 0
push 0
dec ecx
jne 0x708190
push ecx
push ebx
push esi
mov esi, eax
xor eax, eax
push ebp
push 0x7082e1
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [edx + 0x28]
test eax, eax
je 0x708293
mov ebx, eax
mov eax, dword [ebx + 0xc]
push eax
mov eax, dword [ebx + 8]
push eax
mov eax, dword [ebx + 0x10]
push eax
lea eax, [ebp - 8]
push eax
mov ecx, dword [ebx + 4]
mov edx, dword [ebx]
mov eax, esi
call fcn.0070b4cc
mov dl, 1
mov eax, dword [0x559738]
call fcn.005597d8
mov ebx, eax
lea edx, [ebp - 0x1c]
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_LowerCase_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x1c]
lea eax, [ebp - 0x18]
mov ecx, 0xfde9
call sub.rtl120.bpl__System__LStrFromUStr_qqrr27System__AnsiStringT_us_i0__x20System_UnicodeStringus
mov eax, dword [ebp - 0x18]
call sub.rtl120.bpl__System__LStrToPChar_qqrx27System__AnsiStringT_us_i0__
mov edx, eax
lea eax, [ebp - 0x14]
mov ecx, 0
call sub.rtl120.bpl__System__LStrFromPChar_qqrr27System__AnsiStringT_us_i0__pcus
mov eax, dword [ebp - 0x14]
lea edx, [ebp - 0x10]
call sub.rtl120.bpl__Sysutils_BytesOf_qqrx31System__AnsiStringT_us_i65535__
lea ecx, [ebp - 4]
mov edx, dword [ebp - 0x10]
mov eax, ebx
call fcn.005594d0
mov eax, ebx
call sub.rtl120.bpl__System_TObject_Free_qqrv
lea eax, [ebp - 0xc]
push eax
lea edx, [ebp - 0x30]
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__Sysutils_LowerCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x30]
mov dword [ebp - 0x2c], eax
mov byte [ebp - 0x28], 0x11
lea edx, [ebp - 0x34]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_LowerCase_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x34]
mov dword [ebp - 0x24], eax
mov byte [ebp - 0x20], 0x11
lea edx, [ebp - 0x2c]
mov ecx, 1
mov eax, 0x7082fc
call sub.rtl120.bpl__Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
push 5
push 0x70835c
push 0x70835c
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x708360
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x7082e8
lea eax, [ebp - 0x34]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x1c]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x18]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x14]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
mov edx, dword [sym.imp.rtl120.bpl___xp_15Sysutils_TBytes]
call sub.rtl120.bpl__System__DynArrayClear_qqrrpvpv
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x70836c
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ecx
push ebx
mov dword [ebp - 4], edx
mov ebx, eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x70841d
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System_AnsiToUtf8_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x14]
lea ecx, [ebp - 0x10]
mov eax, ebx
call fcn.007084ec
mov edx, dword [ebp - 0x10]
lea eax, [ebp - 8]
call sub.rtl120.bpl__System__UStrFromLStr_qqrr20System_UnicodeStringx27System__AnsiStringT_us_i0__
lea eax, [ebp - 0xc]
push eax
mov eax, dword [ebp - 8]
mov dword [ebp - 0x1c], eax
mov byte [ebp - 0x18], 0x11
lea edx, [ebp - 0x1c]
xor ecx, ecx
mov eax, 0x708438
call sub.rtl120.bpl__Sysutils_Format_qqrx20System_UnicodeStringpx14System_TVarRecxi
push 1
push 0
push 0x7084dc
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x7084e0
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x708424
lea eax, [ebp - 0x14]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x10]
call sub.rtl120.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x708ae4
Capabilities:
Get disk information

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffadc
push ebx
push esi
xor ecx, ecx
mov dword [ebp - 0x520], ecx
mov dword [ebp - 0x524], ecx
mov dword [ebp - 0x51c], ecx
mov dword [ebp - 0x518], ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 0xc], ecx
mov dword [ebp - 0x10], ecx
mov esi, edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x708c97
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, esi
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [ebp - 0x112]
push eax
push 0x102
call sub.kernel32.dll_GetLogicalDriveStringsW
test eax, eax
je 0x708c6c
cmp eax, 0x102
jbe 0x708b7d
lea edx, [ebp - 0x518]
mov eax, 0xe
call sub.rtl120.bpl__Sysutils_SysErrorMessage_qqrui
mov ecx, dword [ebp - 0x518]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Sysutils_Exception_]
call sub.rtl120.bpl__Sysutils_Exception__bctr_qqrx20System_UnicodeString
call sub.rtl120.bpl__System__RaiseExcept_qqrv
lea ebx, [ebp - 0x112]
jmp 0x708c62
lea eax, [ebp - 0x514]
mov edx, 0x400
call fcn.004024a4
lea eax, [ebp - 8]
push eax
mov eax, ebx
call sub.rtl120.bpl__System__PWCharLen_qqrpb
dec eax
push eax
lea eax, [ebp - 0x51c]
mov edx, ebx
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov eax, dword [ebp - 0x51c]
mov edx, 1
pop ecx
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
push 0x200
lea eax, [ebp - 0x514]
push eax
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_QueryDosDeviceW
lea edx, [ebp - 0xc]
lea eax, [ebp - 0x514]
call sub.rtl120.bpl__Sysutils_StrPas_qqrpxb
lea eax, [ebp - 0x10]
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov ecx, eax
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__Sysutils_CompareText_qqrx20System_UnicodeStringt1
test eax, eax
jne 0x708c5f
lea eax, [ebp - 0x520]
push eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrLen_qqrx20System_UnicodeString
mov edx, eax
add edx, 2
mov eax, dword [ebp - 4]
pop ecx
call sub.rtl120.bpl__System__UStrCopy_qqrx20System_UnicodeStringii
mov eax, dword [ebp - 0x520]
push eax
lea eax, [ebp - 0x524]
mov edx, ebx
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov edx, dword [ebp - 0x524]
mov eax, esi
pop ecx
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
jmp 0x708c6c
add ebx, 8
cmp word [ebx], 0
jne 0x708b88
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x708c9e
lea eax, [ebp - 0x524]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x70970c
Capabilities:
Acquire debug privileges

Disassembly:
push ebp
mov ebp, esp
push ecx
push ebx
push esi
test dl, dl
je 0x70971e
add esp, 0xfffffff0
call sub.rtl120.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov dword [ebp - 4], ecx
mov ebx, edx
mov esi, eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x70985a
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp + 0xc]
push eax
mov eax, dword [ebp + 8]
push eax
mov ecx, dword [ebp - 4]
xor edx, edx
mov eax, esi
call fcn.006e0880
xor eax, eax
mov dword [0x7d646c], eax
lea eax, [esi + 0x3c]
mov edx, 0x70988c
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0x40]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
mov dword [esi + 0x44], eax
lea eax, [esi + 0x48]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0x4c]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0x50]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
lea eax, [esi + 0x54]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TList_]
call sub.rtl120.bpl__System_TObject__bctr_qqrv
mov dword [esi + 0x28], eax
lea eax, [esi + 0x90]
push eax
call sub.kernel32.dll_InitializeCriticalSection
xor eax, eax
mov dword [esi + 0x34], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [esi + 0x20], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [esi + 0x24], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [esi + 0x38], eax
mov eax, 0x7098a4
mov dl, 1
call fcn.00708a58
push 0x7098c8
call sub.kernel32.dll_LoadLibraryW
mov dword [0x7d6470], eax
cmp dword [0x7d6470], 0
je 0x709830
push 0x7098dc
mov eax, dword [0x7d6470]
push eax
call fcn.00401b80
mov dword [0x7d646c], eax
mov eax, esi
call fcn.0070aab4
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x709861
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp + 8]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x709da4
Capabilities:
Get file version info

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd4
push ebx
push esi
xor ebx, ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0xc], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, dword [ebp + 8]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x709f4f
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
xor eax, eax
mov dword [ebp - 0x20], eax
lea eax, [ebp - 0x20]
push eax
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
mov esi, eax
push esi
call sub.version.dll_GetFileVersionInfoSizeW
mov dword [ebp - 0x10], eax
cmp dword [ebp - 0x10], 0
jbe 0x709f27
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__System_AllocMem_qqrui
mov dword [ebp - 0x14], eax
xor edx, edx
push ebp
push 0x709f20
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [ebp - 0x10]
push eax
push 0
push esi
call sub.version.dll_GetFileVersionInfoW
cmp eax, 1
sbb eax, eax
inc eax
test al, al
jne 0x709e4d
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x709f27
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x1c]
push eax
push 0x709f60
mov eax, dword [ebp - 0x14]
push eax
call sub.version.dll_VerQueryValueW
cmp eax, 1
sbb eax, eax
inc eax
cmp dword [ebp - 0x1c], 0
je 0x709e73
test al, al
jne 0x709e7d
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x709f27
push 0x709fa0
lea ecx, [ebp - 0x24]
mov eax, dword [ebp - 0x1c]
movzx eax, word [eax]
mov edx, 4
call sub.rtl120.bpl__Sysutils_IntToHex_qqrii
push dword [ebp - 0x24]
mov eax, dword [ebp - 0x1c]
mov eax, dword [eax]
call fcn.00402498
movzx eax, ax
lea ecx, [ebp - 0x28]
mov edx, 4
call sub.rtl120.bpl__Sysutils_IntToHex_qqrii
push dword [ebp - 0x28]
push 0x709fd0
lea eax, [ebp - 0xc]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
lea eax, [ebp - 0x10]
push eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x2c]
mov ecx, dword [ebp - 8]
mov edx, dword [ebp - 0xc]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x2c]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
call sub.version.dll_VerQueryValueW
cmp eax, 1
sbb eax, eax
inc eax
test al, al
jne 0x709f00
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x709f27
mov eax, ebx
mov edx, dword [ebp - 0x18]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x709f27
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__System__FreeMem_qqrpv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x709f56
lea eax, [ebp - 0x2c]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret
Function at 0x70a1a4
Capabilities:
Get session user name

Disassembly:
push ebx
add esp, 0xfffffbf8
mov ebx, edx
lea eax, [esp + 4]
mov edx, 0x400
call fcn.004024a4
mov dword [esp], 0x200
push esp
lea eax, [esp + 8]
push eax
call sub.advapi32.dll_GetUserNameW
mov edx, ebx
lea eax, [esp + 4]
call sub.rtl120.bpl__Sysutils_StrPas_qqrpxb
add esp, 0x408
pop ebx
ret

Function at 0x70b220
Capabilities:
Terminate process

Disassembly:
push ebp
mov ebp, esp
xor ecx, ecx
push ecx
push ecx
push ecx
push ecx
push ebx
push esi
push edi
mov edi, edx
xor eax, eax
push ebp
push 0x70b2d9
push dword fs:[eax]
mov dword fs:[eax], esp
xor ebx, ebx
push edi
push 0xffffffffffffffff
push 0x1f0fff
call sub.kernel32.dll_OpenProcess
mov esi, eax
cmp esi, 0xffffffff
je 0x70b2be
test esi, esi
je 0x70b2be
push 1
push esi
call sub.kernel32.dll_TerminateProcess
cmp eax, 1
sbb ebx, ebx
inc ebx
push 0x70b2f8
lea edx, [ebp - 8]
mov eax, edi
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 8]
push 0x70b32c
lea ecx, [ebp - 0xc]
xor edx, edx
mov eax, ebx
call sub.rtl120.bpl__Sysutils_BoolToStr_qqroo
push dword [ebp - 0xc]
push 0x70b32c
call sub.kernel32.dll_GetLastError
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x10]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
push dword [ebp - 0x10]
lea eax, [ebp - 4]
mov edx, 6
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 4]
call fcn.006e2bf8
push esi
call sub.kernel32.dll_CloseHandle
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x70b2e0
lea eax, [ebp - 0x10]
mov edx, 4
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x70b3cc
Capabilities:
Create process on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffff8
xor ecx, ecx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x70b43b
push dword fs:[eax]
mov dword fs:[eax], esp
push 5
lea edx, [ebp - 8]
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov eax, dword [ebp - 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x70b448
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
push 0x70b44c
push 0
call sub.shell32.dll_ShellExecuteW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x70b442
lea eax, [ebp - 8]
mov edx, 2
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
ret

Function at 0x70c610
Capabilities:
Get session user name

Disassembly:
push ebx
add esp, 0xffffff78
mov ebx, eax
mov word [esp + 4], 0
mov dword [esp], 0x40
mov eax, ebx
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
push esp
lea eax, [esp + 8]
push eax
call sub.advapi32.dll_GetUserNameW
test eax, eax
je 0x70c64f
mov eax, ebx
lea edx, [esp + 4]
mov ecx, 0x41
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
add esp, 0x88
pop ebx
ret
Function at 0x70f4a4
Capabilities:
Get system information on windows

Disassembly:
push ebp
mov ebp, esp
add esp, 0xffffffd8
push ebx
push esi
test dl, dl
je 0x70f4b8
add esp, 0xfffffff0
call sub.rtl120.bpl__System__ClassCreate_qqrp17System_TMetaClasso
mov byte [ebp - 1], dl
mov ebx, eax
lea eax, [ebp - 0x28]
push eax
call sub.kernel32.dll_GetSystemInfo
mov eax, dword [ebp - 0x14]
mov dword [ebx + 4], eax
mov esi, eax
shl esi, 4
lea esi, [esi + esi*2]
mov dword [ebx + 8], esi
mov eax, esi
call sub.rtl120.bpl__System_AllocMem_qqrui
mov dword [ebx + 0xc], eax
mov eax, dword [ebx + 8]
call sub.rtl120.bpl__System_AllocMem_qqrui
mov esi, eax
mov dword [ebx + 0x10], esi
push 0
mov eax, dword [ebx + 8]
push eax
push esi
push 8
call sub.NTdll.dll_NtQuerySystemInformation
mov ecx, dword [ebx + 8]
mov edx, dword [ebx + 0x10]
mov eax, dword [ebx + 0xc]
call fcn.0040249c
mov eax, ebx
cmp byte [ebp - 1], 0
je 0x70f521
call sub.rtl120.bpl__System__AfterConstruction_qqrp14System_TObject
pop dword fs:[0]
add esp, 0xc
mov eax, ebx
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
Function at 0x70f558
Capabilities:
Get system information on windows

Disassembly:
push ebx
push esi
push edi
push ebp
add esp, 0xffffffe8
mov esi, eax
mov ecx, dword [esi + 8]
mov edx, dword [esi + 0x10]
mov eax, dword [esi + 0xc]
call fcn.0040249c
push 0
mov eax, dword [esi + 8]
push eax
mov eax, dword [esi + 0x10]
push eax
push 8
call sub.NTdll.dll_NtQuerySystemInformation
xor edx, edx
mov dword [esp], edx
test eax, eax
jne 0x70f695
mov dword [esp + 8], 0
mov dword [esp + 0xc], 0
mov dword [esp + 0x10], 0
mov dword [esp + 0x14], 0
mov ebp, dword [esi + 4]
dec ebp
test ebp, ebp
jb 0x70f628
inc ebp
xor edi, edi
mov ecx, dword [esi + 0x10]
mov eax, edi
shl eax, 4
lea eax, [eax + eax*2]
add ecx, eax
mov ebx, dword [esi + 0xc]
add ebx, eax
mov eax, dword [esp + 0x10]
mov edx, dword [esp + 0x14]
add eax, dword [ecx]
adc edx, dword [ecx + 4]
sub eax, dword [ebx]
sbb edx, dword [ebx + 4]
mov dword [esp + 0x10], eax
mov dword [esp + 0x14], edx
mov eax, dword [esp + 8]
mov edx, dword [esp + 0xc]
add eax, dword [ecx + 8]
adc edx, dword [ecx + 0xc]
add eax, dword [ecx + 0x10]
adc edx, dword [ecx + 0x14]
add eax, dword [ecx + 0x18]
adc edx, dword [ecx + 0x1c]
add eax, dword [ecx + 0x20]
adc edx, dword [ecx + 0x24]
sub eax, dword [ebx + 8]
sbb edx, dword [ebx + 0xc]
sub eax, dword [ebx + 0x10]
sbb edx, dword [ebx + 0x14]
sub eax, dword [ebx + 0x18]
sbb edx, dword [ebx + 0x1c]
sub eax, dword [ebx + 0x20]
sbb edx, dword [ebx + 0x24]
mov dword [esp + 8], eax
mov dword [esp + 0xc], edx
inc edi
dec ebp
jne 0x70f5b8
mov eax, dword [esp + 8]
mov dword [esi + 0x18], eax
mov eax, dword [esp + 0xc]
mov dword [esi + 0x1c], eax
mov eax, dword [esp + 0x10]
mov dword [esi + 0x20], eax
mov eax, dword [esp + 0x14]
mov dword [esi + 0x24], eax
cmp dword [esp + 0xc], 0
jne 0x70f650
cmp dword [esp + 8], 0
je 0x70f67d
push dword [esp + 0xc]
push dword [esp + 0xc]
push dword [esp + 0x1c]
push dword [esp + 0x1c]
mov eax, 0x64
xor edx, edx
call sub.rtl120.bpl__System___llmul_qqrv
call sub.rtl120.bpl__System___lldiv_qqrv
mov edx, 0x64
sub edx, eax
mov dword [esp], edx
cmp dword [esp], 0x64
jle 0x70f68a
mov dword [esp], 0x64
cmp dword [esp], 0
jge 0x70f695
xor eax, eax
mov dword [esp], eax
mov eax, dword [esp]
add esp, 0x18
pop ebp
pop edi
pop esi
pop ebx
ret

Function at 0x7120c0
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffdf4
push ebx
xor edx, edx
mov dword [ebp - 0x20c], edx
mov ebx, eax
xor eax, eax
push ebp
push 0x712134
push dword fs:[eax]
mov dword fs:[eax], esp
push 0
push 0x1a
lea eax, [ebp - 0x208]
push eax
mov eax, dword [0x7a2004]
push eax
call sub.shell32.dll_SHGetSpecialFolderPathW
lea eax, [ebp - 0x20c]
lea edx, [ebp - 0x208]
mov ecx, 0x104
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
mov eax, dword [ebp - 0x20c]
mov edx, ebx
call sub.rtl120.bpl__Sysutils_IncludeTrailingPathDelimiter_qqrx20System_UnicodeString
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x71213b
lea eax, [ebp - 0x20c]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x712140
Capabilities:
Get disk information

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffdd0
push ebx
push esi
push edi
xor ecx, ecx
mov dword [ebp - 0x230], ecx
mov dword [ebp - 4], ecx
mov dword [ebp - 0xc], edx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x712262
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov dword [eax], 0
mov dword [eax + 4], 0
mov eax, dword [ebp - 0xc]
mov dword [eax], 0
mov dword [eax + 4], 0
lea eax, [ebp - 0x22a]
mov edx, 0x208
call fcn.004024a4
lea eax, [ebp - 0x22a]
push eax
push 0x208
call sub.kernel32.dll_GetLogicalDriveStringsW
mov dword [ebp - 0x10], eax
xor edi, edi
cmp edi, dword [ebp - 0x10]
jae 0x712241
lea eax, [ebp - 4]
movzx edx, word [ebp + edi*2 - 0x22a]
call sub.rtl120.bpl__System__UStrFromWChar_qqrr20System_UnicodeStringb
lea eax, [ebp - 0x230]
mov ecx, 0x71227c
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x230]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_GetDriveTypeW
mov esi, eax
cmp esi, 3
jne 0x712235
mov eax, dword [ebp - 4]
movzx ebx, word [eax]
sub bl, 0x41
inc ebx
mov eax, ebx
call sub.rtl120.bpl__Sysutils_DiskFree_qqruc
mov dword [ebp - 0x20], eax
mov dword [ebp - 0x1c], edx
mov eax, ebx
call sub.rtl120.bpl__Sysutils_DiskSize_qqruc
mov dword [ebp - 0x18], eax
mov dword [ebp - 0x14], edx
mov eax, dword [ebp - 0x18]
mov edx, dword [ebp - 0x14]
mov ecx, dword [ebp - 8]
add dword [ecx], eax
adc dword [ecx + 4], edx
mov eax, dword [ebp - 0x20]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [ebp - 0xc]
add dword [ecx], eax
adc dword [ecx + 4], edx
add edi, 4
cmp edi, dword [ebp - 0x10]
jb 0x7121ba
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x712269
lea eax, [ebp - 0x230]
call sub.rtl120.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret
Function at 0x71fc6c
Capabilities:
Get hostname
Initialize winsock library
Resolve dns

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd68
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor edx, edx
push ebp
push 0x71fcd7
push dword fs:[edx]
mov dword fs:[edx], esp
mov dl, 1
mov al, 1
call fcn.0040247c
lea edx, [ebp - 0x194]
push edx
push eax
call sub.wsock32.dll_WSAStartup
push 0x80
lea eax, [ebp - 0x296]
push eax
call sub.wsock32.dll_gethostname
lea eax, [ebp - 0x296]
push eax
call sub.wsock32.dll_gethostbyname
mov ebx, eax
mov eax, dword [ebp - 4]
mov edx, dword [ebx]
call sub.rtl120.bpl__System__UStrFromPChar_qqrr20System_UnicodeStringpc
call sub.wsock32.dll_WSACleanup
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x71fcf7
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret