Function at 0x65ea04
Capabilities:
Set file attributes

Disassembly:
push ebp
mov ebp, esp
mov ecx, 7
push 0
push 0
dec ecx
jne 0x65ea0c
push ecx
push ebx
push esi
push edi
mov ebx, edx
mov dword [ebp - 8], eax
xor eax, eax
push ebp
push 0x65f0c0
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 9], 1
mov eax, dword [ebp - 8]
call fcn.0065e9d0
xor ecx, ecx
mov dl, 1
mov eax, dword [0x656de4]
call fcn.006573cc
mov esi, eax
mov eax, dword [ebp - 8]
mov dword [eax + 0xb8], esi
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x78]
mov dword [esi + 0x80], eax
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x7c]
mov dword [esi + 0x144], eax
mov eax, dword [ebp - 8]
mov dword [esi + 0x10c], eax
mov dword [esi + 0x108], 0x65e340
mov eax, dword [ebp - 8]
mov dword [esi + 0x14c], eax
mov dword [esi + 0x148], 0x65e964
mov eax, dword [ebp - 8]
mov dword [esi + 0x12c], eax
mov dword [esi + 0x128], 0x65e640
mov eax, dword [ebp - 8]
mov dword [esi + 0x114], eax
mov dword [esi + 0x110], 0x65e3f8
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov edx, dword [eax]
lea ecx, [ebp - 4]
mov eax, dword [0x65c4a8]
call fcn.0065cc10
lea ecx, [ebp - 0x14]
mov edx, dword [ebp - 4]
mov eax, dword [0x65c4a8]
call fcn.0065d1f0
mov edx, dword [ebp - 0x14]
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrLAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xc8
mov edx, dword [ebp - 4]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov edx, dword [eax + 8]
lea eax, [ebp - 0x18]
mov ecx, 0x65f0e0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
call fcn.0065bd48
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov eax, dword [eax + 0x100]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x65ec48
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov eax, dword [eax + 8]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x65ec48
xor eax, eax
push ebp
push 0x65ebf2
push dword fs:[eax]
mov dword fs:[eax], esp
push 0xa0
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov eax, dword [eax + 8]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_SetFileAttributesW
push 0x11
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov ecx, dword [eax + 8]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TFileStream_]
call sub.rtl120.bpl__Classes_TFileStream__bctr_qqrx20System_UnicodeStringus
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0xb8]
mov dword [edx + 0x9c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65ed3b
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov eax, dword [eax + 0x100]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
je 0x65ec74
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov eax, dword [eax + 0x100]
call sub.rtl120.bpl__Sysutils_DeleteFile_qqrx20System_UnicodeString
xor eax, eax
push ebp
push 0x65ecea
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov eax, dword [eax + 8]
lea edx, [ebp - 0x20]
call sub.rtl120.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Sysutils_ForceDirectories_qqr20System_UnicodeString
push 0xffff
mov eax, dword [ebp - 8]
mov edx, dword [eax + 0x68]
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0x88]
call fcn.0065fba8
mov ecx, dword [eax + 8]
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TFileStream_]
call sub.rtl120.bpl__Classes_TFileStream__bctr_qqrx20System_UnicodeStringus
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0xb8]
mov dword [edx + 0x9c], eax
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x65ed3b
mov eax, ebx
sub al, 1
jb 0x65ed54
je 0x65ee22
dec al
je 0x65ef8f
jmp 0x65f09d
lea edx, [ebp - 0x2c]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x2c]
lea eax, [ebp - 0x28]
mov edx, 0x65f158
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x28]
mov eax, dword [ebp - 8]
call fcn.0065db38
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xcc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd4
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xe8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xf0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xec
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov byte [eax + 0xf4], 0
jmp 0x65f09d
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov ecx, dword [eax + 0xc8]
mov dl, 1
mov eax, dword [0x65d994]
call fcn.0065fabc
mov dword [ebp - 0x10], eax
xor eax, eax
push ebp
push 0x65ef88
push dword fs:[eax]
mov dword fs:[eax], esp
jmp 0x65ee63
mov eax, dword [sym.imp.vcl120.bpl__Forms_Application]
mov eax, dword [eax]
call sub.vcl120.bpl__Forms_TApplication_ProcessMessages_qqrv
push 0xa
call sub.kernel32.dll_Sleep
mov eax, dword [ebp - 0x10]
cmp byte [eax + 0x10], 0
je 0x65ee50
lea edx, [ebp - 0x34]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x34]
lea eax, [ebp - 0x30]
mov edx, 0x65f158
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 8]
call fcn.0065db38
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov dword [eax + 0x80], 1
mov eax, dword [ebp - 8]
add eax, 0x50
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
add eax, 0x48
mov edx, dword [ebp - 0x10]
mov edx, dword [edx + 0x44]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xcc
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd4
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x50]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd8
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xe8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xf0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xec
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov byte [eax + 0xf4], 2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x65f09d
mov eax, dword [ebp - 0x10]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
lea edx, [ebp - 0x3c]
movzx eax, bl
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x3c]
lea eax, [ebp - 0x38]
mov edx, 0x65f158
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x38]
mov eax, dword [ebp - 8]
call fcn.0065db38
mov eax, dword [ebp - 8]
mov ebx, dword [eax + 0xb8]
mov dword [ebx + 0x80], 1
lea eax, [ebx + 0xcc]
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd4
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x50]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xd8
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x48]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xdc
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x54]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xe0
mov edx, dword [ebp - 8]
mov edx, dword [edx + 0x4c]
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xe8
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xf0
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
add eax, 0xec
xor edx, edx
call sub.rtl120.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 8]
mov eax, dword [eax + 0xb8]
mov byte [eax + 0xf4], 2
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x65f0c7
lea eax, [ebp - 0x3c]
mov edx, 0xb
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret