Function at 0x423370
Capabilities:
Get hostname

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffe48
push ebx
mov dword [ebp - 0xac], eax
mov eax, 0x4bc9d0
call fcn.00497a7c
mov word [ebp - 0x98], 0x14
lea eax, [ebp - 0xc]
call fcn.00402a14
mov edx, eax
inc dword [ebp - 0x8c]
mov ecx, dword [sym.imp.vcl60.bpl__Forms_Application]
mov eax, dword [ecx]
call sub.vcl60.bpl__Forms_TApplication_GetExeName_qqrv
lea edx, [ebp - 0xc]
push dword [edx]
lea eax, [ebp - 0x10]
call fcn.00402a14
mov edx, eax
inc dword [ebp - 0x8c]
pop eax
call sub.rtl60.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea edx, [ebp - 0x10]
push edx
lea eax, [ebp - 4]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
mov edx, 0x4b3588
lea eax, [ebp - 0x14]
call fcn.00497bd0
inc dword [ebp - 0x8c]
lea edx, [ebp - 0x14]
pop ecx
pop eax
call fcn.00497e78
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x14]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x10]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0xc]
mov edx, 2
call fcn.00497e20
mov word [ebp - 0x98], 8
mov dl, 1
mov eax, dword [sym.imp.rtl60.bpl__Classes_TStringList_]
call fcn.00402a44
mov dword [ebp - 0xb0], eax
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xb0]
mov ecx, dword [eax]
call dword [ecx + 0x68]
mov edx, 0x4be2d8
lea eax, [ebp - 0x1c]
call fcn.00499e08
inc dword [ebp - 0x8c]
push dword [eax]
lea eax, [ebp - 0x20]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0042b748
add esp, 8
lea edx, [ebp - 0x20]
push dword [edx]
mov word [ebp - 0x98], 0x20
mov edx, 0x4b35c2
lea eax, [ebp - 0x18]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x18]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x20]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x1c]
mov edx, 2
call fcn.00499e7c
mov edx, 0x4be2e0
lea eax, [ebp - 0x28]
call fcn.00499e08
inc dword [ebp - 0x8c]
push dword [eax]
lea eax, [ebp - 0x2c]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0042b748
add esp, 8
lea edx, [ebp - 0x2c]
push dword [edx]
mov word [ebp - 0x98], 0x2c
mov edx, 0x4b35ce
lea eax, [ebp - 0x24]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x24]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x2c]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x28]
mov edx, 2
call fcn.00499e7c
mov dl, 1
mov eax, dword [sym.imp.rtl60.bpl__Classes_TMemoryStream_]
call fcn.00407abc
mov dword [ebp - 0xb4], eax
mov eax, 0x4d8714
call fcn.00404308
push eax
mov eax, 0x4d8714
call fcn.00402a98
mov edx, eax
mov eax, dword [ebp - 0xb4]
pop ecx
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov word [ebp - 0x98], 0x38
mov edx, 0x4b35d7
lea eax, [ebp - 0x30]
call fcn.00497bd0
inc dword [ebp - 0x8c]
push dword [eax]
push dword [ebp - 0xb4]
call fcn.0043bd28
add esp, 8
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x30]
mov edx, 2
call fcn.00497e20
mov word [ebp - 0x98], 0x44
push dword [ebp - 0xb4]
lea eax, [ebp - 8]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0043b914
add esp, 8
mov word [ebp - 0x98], 8
push 0
push 0
mov eax, dword [ebp - 0xb4]
call sub.rtl60.bpl__Classes_TStream_SetPosition_qqrxj
lea eax, [ebp - 8]
call fcn.00404308
push eax
lea eax, [ebp - 8]
call fcn.00402a98
mov edx, eax
mov eax, dword [ebp - 0xb4]
pop ecx
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov word [ebp - 0x98], 0x50
mov edx, 0x4b35e1
lea eax, [ebp - 0x34]
call fcn.00497bd0
inc dword [ebp - 0x8c]
push dword [eax]
push dword [ebp - 0xb4]
call fcn.0043bd28
add esp, 8
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x34]
mov edx, 2
call fcn.00497e20
mov word [ebp - 0x98], 0x5c
push dword [ebp - 0xb4]
lea eax, [ebp - 0x38]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0043b914
add esp, 8
lea edx, [ebp - 0x38]
lea eax, [ebp - 8]
call fcn.00497e50
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x38]
mov edx, 2
call fcn.00497e20
mov ecx, dword [ebp - 0xb4]
mov dword [ebp - 0x40], ecx
cmp dword [ebp - 0x40], 0
je 0x42370f
mov eax, dword [ebp - 0x40]
mov edx, dword [eax]
mov dword [ebp - 0x3c], edx
mov word [ebp - 0x98], 0x74
mov edx, 3
mov eax, dword [ebp - 0x40]
mov ecx, dword [eax]
call dword [ecx - 4]
mov word [ebp - 0x98], 0x68
lea eax, [ebp - 0x48]
call fcn.00402a14
mov edx, eax
inc dword [ebp - 0x8c]
mov eax, dword [ebp - 8]
call sub.rtl60.bpl__System_AnsiToUtf8_qqrx17System_AnsiString
lea edx, [ebp - 0x48]
push dword [edx]
mov word [ebp - 0x98], pe_nt_image_headers32
mov edx, 0x4b35eb
lea eax, [ebp - 0x44]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x44]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x48]
mov edx, 2
call fcn.00497e20
lea eax, [ebp - 0x50]
call fcn.00402a14
mov edx, eax
inc dword [ebp - 0x8c]
mov eax, dword [0x4be2dc]
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
lea edx, [ebp - 0x50]
push dword [edx]
mov word [ebp - 0x98], 0x8c
mov edx, 0x4b35f4
lea eax, [ebp - 0x4c]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x4c]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x50]
mov edx, 2
call fcn.00497e20
lea eax, [ebp - 0x58]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0043e41c
pop edx
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
lea ecx, [ebp - 0x58]
push dword [ecx]
mov word [ebp - 0x98], 0x98
mov edx, 0x4b35f9
lea eax, [ebp - 0x54]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x54]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x58]
mov edx, 2
call fcn.00497e20
call fcn.0043e980
mov edx, eax
lea eax, [ebp - 0x60]
call fcn.00499d94
inc dword [ebp - 0x8c]
push dword [eax]
lea eax, [ebp - 0x64]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0042b748
add esp, 8
lea edx, [ebp - 0x64]
push dword [edx]
mov word [ebp - 0x98], 0xa4
mov edx, 0x4b3603
lea eax, [ebp - 0x5c]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x5c]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x64]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x60]
mov edx, 2
call fcn.00499e7c
lea eax, [ebp - 0x6c]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
mov eax, dword [sym.servercontrol.exe__SdServerForm]
call fcn.0040861c
pop edx
call sub.rtl60.bpl__Sysutils_IntToStr_qqri
lea ecx, [ebp - 0x6c]
push dword [ecx]
mov word [ebp - 0x98], 0xb0
mov edx, 0x4b360f
lea eax, [ebp - 0x68]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x68]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x6c]
mov edx, 2
call fcn.00497e20
mov dword [ebp - 0xb8], 0xff
lea ecx, [ebp - 0xb8]
push ecx
lea eax, [ebp - 0x1b8]
push eax
call sub.kernel32.dll_GetComputerNameA
mov word [ebp - 0x98], 0xbc
lea edx, [ebp - 0x1b8]
lea eax, [ebp - 0x70]
call fcn.00497bd0
inc dword [ebp - 0x8c]
lea edx, [ebp - 0x70]
mov eax, 0x4d8718
call fcn.00497e50
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x70]
mov edx, 2
call fcn.00497e20
mov edx, 0x4d8718
lea eax, [ebp - 0x78]
call fcn.00499e08
inc dword [ebp - 0x8c]
push dword [eax]
lea eax, [ebp - 0x7c]
call fcn.00402a14
push eax
inc dword [ebp - 0x8c]
call fcn.0042b748
add esp, 8
lea edx, [ebp - 0x7c]
push dword [edx]
mov word [ebp - 0x98], 0xc8
mov edx, 0x4b361b
lea eax, [ebp - 0x74]
call fcn.00497bd0
inc dword [ebp - 0x8c]
mov edx, dword [eax]
mov eax, dword [ebp - 0xb0]
pop ecx
call sub.rtl60.bpl__Classes_TStrings_SetValue_qqrx17System_AnsiStringt1
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x74]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x7c]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 0x78]
mov edx, 2
call fcn.00499e7c
mov edx, dword [ebp - 4]
mov eax, dword [ebp - 0xb0]
mov ecx, dword [eax]
call dword [ecx + 0x74]
mov eax, dword [ebp - 0xb0]
mov dword [ebp - 0x84], eax
cmp dword [ebp - 0x84], 0
je 0x423aa2
mov edx, dword [ebp - 0x84]
mov ecx, dword [edx]
mov dword [ebp - 0x80], ecx
mov word [ebp - 0x98], 0xe0
mov edx, 3
mov eax, dword [ebp - 0x84]
mov ecx, dword [eax]
call dword [ecx - 4]
mov word [ebp - 0x98], 0xd4
dec dword [ebp - 0x8c]
lea eax, [ebp - 8]
mov edx, 2
call fcn.00497e20
dec dword [ebp - 0x8c]
lea eax, [ebp - 4]
mov edx, 2
call fcn.00497e20
mov ecx, dword [ebp - 0xa8]
mov dword fs:[0], ecx
pop ebx
mov esp, ebp
pop ebp
ret