Function at 0x594704
Capabilities:
Check for sandbox username or hostname
Get common file path
Get hostname

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x38
push 0
push 0
dec ecx
jne 0x59470c
push ecx
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x594f03
push dword fs:[eax]
mov dword fs:[eax], esp
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x14], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x18], eax
mov dl, 1
mov eax, dword [sym.imp.PCommonUtil.bpl__Base64_TBase64_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x20], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 8], eax
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.adortl70.bpl__Adodb_TADOQuery_]
call sub.adortl70.bpl__Adodb_TADOQuery__bctr_qqrp18Classes_TComponent
mov dword [ebp - 0xc], eax
mov byte [ebp - 0x25], 0
xor edx, edx
push ebp
push 0x594eb5
push dword fs:[edx]
mov dword fs:[edx], esp
xor edx, edx
push ebp
push 0x594e59
push dword fs:[edx]
mov dword fs:[edx], esp
cmp byte [ebp - 0x25], 0
jne 0x5947e4
xor eax, eax
push ebp
push 0x5947da
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x158]
mov eax, 0x594f1c
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x158]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5947e4
cmp byte [ebp - 0x25], 0
jne 0x594831
xor eax, eax
push ebp
push 0x594827
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x15c]
mov eax, 0x594f40
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x15c]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x594831
cmp byte [ebp - 0x25], 0
jne 0x59487e
xor eax, eax
push ebp
push 0x594874
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x160]
mov eax, 0x594f64
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x160]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x59487e
cmp byte [ebp - 0x25], 0
jne 0x5948cb
xor eax, eax
push ebp
push 0x5948c1
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x164]
mov eax, 0x594f80
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x164]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x5948cb
cmp byte [ebp - 0x25], 0
jne 0x594918
xor eax, eax
push ebp
push 0x59490e
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x168]
mov eax, 0x594fa4
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x168]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x594918
cmp byte [ebp - 0x25], 0
jne 0x594965
xor eax, eax
push ebp
push 0x59495b
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x16c]
mov eax, 0x594fc8
call sub.rtl70.bpl__Comobj_CreateOleObject_qqrx17System_AnsiString
mov edx, dword [ebp - 0x16c]
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarFromDisp_qqrr8TVarDatax36System__DelphiInterface_t9IDispatch_
mov byte [ebp - 0x25], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x594965
cmp byte [ebp - 0x25], 0
jne 0x59497d
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
call sub.rtl70.bpl__System__TryFinallyExit_qqrv
jmp 0x594ebc
lea eax, [ebp - 0x1c]
push eax
push 0x10
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
lea eax, [ebp - 0x12a]
push eax
mov eax, dword [ebp - 0x1c]
push eax
call sub.shell32.dll_SHGetPathFromIDListA
lea edx, [ebp - 0x170]
lea eax, [ebp - 0x12a]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
mov eax, dword [ebp - 0x170]
mov ecx, dword [ebp - 0x14]
mov edx, 0x594fe8
call fcn.00594534
lea edx, [ebp - 0x174]
mov eax, 0x594ff4
call sub.rtl70.bpl__Sysutils_GetEnvironmentVariable_qqrx17System_AnsiString
mov eax, dword [ebp - 0x174]
mov ecx, dword [ebp - 0x18]
mov edx, 0x594fe8
call fcn.005943f8
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 8]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax]
call dword [ecx + 0x26c]
mov eax, dword [ebp - 0xc]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x59500c
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__LStrClr_qqrpv
mov eax, dword [ebp - 0xc]
mov edx, dword [eax]
call dword [edx + 0x14c]
mov ebx, eax
dec ebx
test ebx, ebx
jl 0x594bc4
inc ebx
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
push 0x595028
mov edx, 0x595048
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x17c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x17c]
push 0x595054
lea eax, [ebp - 0x178]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x178]
push eax
mov eax, dword [ebp - 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
cmp dword [ebp - 0x10], 0
jne 0x594b32
push dword [ebp - 0x10]
push 0x595074
mov edx, 0x595048
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x180]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x180]
push 0x595088
mov edx, 0x5950a0
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x184]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x184]
push 0x5950b0
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
lea edx, [ebp - 0x188]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x188]
push 0x5950c4
lea eax, [ebp - 0x10]
mov edx, 8
call sub.rtl70.bpl__System__LStrCatN_qqrv
jmp 0x594bb5
push dword [ebp - 0x10]
push 0x5950d0
mov edx, 0x595048
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x18c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x18c]
push 0x595088
mov edx, 0x5950a0
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x190]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x190]
push 0x5950b0
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x30]
xor edx, edx
call sub.dbrtl70.bpl__Db_TFields_GetField_qqri
mov edx, dword [eax]
call dword [edx + 0x58]
lea edx, [ebp - 0x194]
call sub.rtl70.bpl__Sysutils_IntToStr_qqri
push dword [ebp - 0x194]
push 0x5950c4
lea eax, [ebp - 0x10]
mov edx, 8
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
dec ebx
jne 0x594a36
mov dword [ebp - 0x24], 0x10
lea eax, [ebp - 0x24]
push eax
lea eax, [ebp - 0x151]
push eax
call sub.kernel32.dll_GetComputerNameA
push 0x5950e4
push dword [ebp - 0x10]
push 0x5950f8
lea edx, [ebp - 0x198]
mov eax, dword [ebp - 0x18]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0x198]
push 0x595114
lea edx, [ebp - 0x19c]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
push dword [ebp - 0x19c]
push 0x59512c
lea edx, [ebp - 0x1a0]
lea eax, [ebp - 0x151]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
push dword [ebp - 0x1a0]
push 0x595148
lea eax, [ebp - 0x1a4]
call sub.PCommonUtil.bpl__Ncutil_GetCurrentWindowUser_qqrv
push dword [ebp - 0x1a4]
push 0x5950c4
lea eax, [ebp - 0x10]
mov edx, 0xb
call sub.rtl70.bpl__System__LStrCatN_qqrv
xor eax, eax
push ebp
push 0x594cb7
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x7530
push 0x2710
push 0x2710
push 0x2710
push 0x59515c
lea eax, [ebp - 0x140]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x1c
push 0
push 0
push 0
push 0x595170
lea eax, [ebp - 0x140]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x18
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x594cc1
push 0
push 0x595188
push 0x5951b8
push 0x5951c0
lea eax, [ebp - 0x140]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x18
push 0x5951d4
push 0x59520c
push 0x59521c
lea eax, [ebp - 0x140]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [ebp - 8]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
push eax
push 0x59523c
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_STRNSDJH]
push dword [eax]
push 0x595268
lea eax, [ebp - 0x1a8]
mov edx, 3
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x1a8]
pop eax
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 8]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jne 0x594d71
mov eax, dword [sym.imp.vcl70.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl70.bpl__Forms_TApplication_Terminate_qqrv
push 0x595274
lea edx, [ebp - 0x1b0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFileName_qqrx17System_AnsiString
push dword [ebp - 0x1b0]
push 0x595288
mov edx, 0x595298
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1b4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1b4]
push 0x5952a8
mov edx, 0x5952b8
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1b8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
push dword [ebp - 0x1b8]
push 0x5952c8
lea edx, [ebp - 0x1bc]
lea eax, [ebp - 0x151]
call sub.rtl70.bpl__Sysutils_StrPas_qqrpxc
push dword [ebp - 0x1bc]
push 0x5952e0
lea eax, [ebp - 0x1c0]
call sym.P_Interface.bpl__Hardwareinfo_GetIdeSerialNumber_qqrv
push dword [ebp - 0x1c0]
push 0x5952ec
lea ecx, [ebp - 0x1c4]
mov edx, dword [ebp - 0x10]
mov eax, dword [ebp - 0x20]
call sub.PCommonUtil.bpl__Base64_TBase64_Base64EncodeStr_qqrx17System_AnsiString
push dword [ebp - 0x1c4]
lea eax, [ebp - 0x1ac]
mov edx, 0xc
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov eax, dword [ebp - 0x1ac]
push eax
push 0x595304
lea eax, [ebp - 0x140]
push eax
push 0
call sub.rtl70.bpl__Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x10
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x594e6f
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x594ebc
mov eax, dword [ebp - 8]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0xc]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x14]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x18]
call sub.rtl70.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x20]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x594f0a
lea eax, [ebp - 0x1c4]
mov edx, 0x16
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x16c]
mov edx, dword [sym.imp.rtl70.bpl___xp_9IDispatch]
mov ecx, 6
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x140]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret