Function at 0x4221058
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffedc
push ebx
push esi
push edi
xor ebx, ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x124], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov ebx, eax
mov edi, dword [ebp + 8]
xor eax, eax
push ebp
push 0x42213c6
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, 1
mov eax, ebx
call fcn.04220944
test al, al
jne 0x42210e5
lea eax, [ebp - 0x18]
push eax
lea edx, [ebp - 0x120]
mov eax, dword [ebx]
call sub.rtl60.bpl__System_TObject_ClassName_qqrp17System_TMetaClass
lea eax, [ebp - 0x120]
mov dword [ebp - 0x20], eax
mov byte [ebp - 0x1c], 4
lea eax, [ebp - 0x20]
push eax
lea edx, [ebp - 0x124]
mov eax, dword [0x424015c]
call sub.rtl60.bpl__System_LoadResString_qqrp20System_TResStringRec
mov eax, dword [ebp - 0x124]
xor ecx, ecx
pop edx
call sub.rtl60.bpl__Sysutils_Format_qqrx17System_AnsiStringpx14System_TVarRecxi
mov edx, dword [ebp - 0x18]
mov eax, 3
call fcn.042207d4
mov eax, dword [ebp - 4]
mov dword [ebp - 0xc], eax
mov esi, dword [ebp - 8]
xor eax, eax
mov al, byte [ebx + 0x14]
cmp eax, 7
ja case.default.0x42210fc
jmp dword [eax*4 + 0x4221103]
cmp esi, dword [ebp - 0xc]
je 0x4221146
mov edx, esi
mov eax, dword [ebp - 0xc]
mov ecx, edi
call sub.rtl60.bpl__System_Move_qqrpxvpvi
jmp 0x4221146
mov edx, esi
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x30]
mov eax, dword [ebx + 0x24]
add esi, eax
sub edi, eax
cmp edi, dword [ebx + 0x24]
jge 0x4221136
test edi, edi
jle case.default.0x42210fc
mov edx, dword [ebx + 0x2c]
mov eax, esi
mov ecx, edi
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, dword [ebx + 0x2c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov edx, esi
mov eax, dword [ebx + 0x2c]
mov ecx, edi
call sub.rtl60.bpl__System_Move_qqrpxvpvi
jmp case.default.0x42210fc
cmp esi, dword [ebp - 0xc]
je 0x422118b
mov edx, esi
mov eax, dword [ebp - 0xc]
mov ecx, edi
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebx + 0x34]
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 0x2c]
mov dword [ebp - 0x14], eax
jmp 0x42211d9
mov edx, dword [ebp - 0x14]
push edx
mov ecx, eax
mov edx, dword [ebp - 0x10]
mov eax, esi
call fcn.04210bcc
mov edx, esi
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x30]
push esi
mov ecx, dword [ebx + 0x24]
mov edx, dword [ebp - 0x10]
mov eax, esi
call fcn.04210bcc
mov eax, dword [ebp - 0x14]
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0x10]
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0xc]
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 0x24]
add esi, eax
sub edi, eax
mov eax, dword [ebx + 0x24]
cmp edi, eax
jge 0x4221199
mov eax, dword [ebx + 0x34]
cmp eax, dword [ebp - 0x10]
je 0x42211f5
mov edx, eax
mov eax, dword [ebp - 0x10]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
test edi, edi
jle case.default.0x42210fc
mov edx, dword [ebx + 0x2c]
mov eax, dword [ebx + 0x34]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, dword [ebx + 0x2c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
push esi
mov ecx, edi
mov edx, esi
mov eax, dword [ebx + 0x2c]
call fcn.04210bcc
mov eax, dword [ebx + 0x34]
push eax
mov ecx, dword [ebx + 0x24]
mov edx, eax
mov eax, dword [ebx + 0x2c]
call fcn.04210bcc
jmp case.default.0x42210fc
cmp esi, dword [ebp - 0xc]
je 0x4221249
mov edx, esi
mov eax, dword [ebp - 0xc]
mov ecx, edi
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebx + 0x34]
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 0x2c]
mov dword [ebp - 0x14], eax
jmp 0x4221292
mov edx, dword [ebp - 0x14]
mov ecx, esi
xchg ecx, eax
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, esi
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x30]
push esi
mov ecx, dword [ebx + 0x24]
mov edx, esi
mov eax, dword [ebp - 0x10]
call fcn.04210bcc
mov eax, dword [ebp - 0x14]
mov dword [ebp - 0xc], eax
mov eax, dword [ebp - 0x10]
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 0xc]
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 0x24]
add esi, eax
sub edi, eax
mov eax, dword [ebx + 0x24]
cmp edi, eax
jge 0x4221257
mov eax, dword [ebx + 0x34]
cmp eax, dword [ebp - 0x10]
je 0x42212ae
mov edx, eax
mov eax, dword [ebp - 0x10]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
test edi, edi
jle case.default.0x42210fc
mov edx, dword [ebx + 0x2c]
mov eax, dword [ebx + 0x34]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, dword [ebx + 0x2c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
push esi
mov ecx, edi
mov edx, dword [ebx + 0x2c]
mov eax, esi
call fcn.04210bcc
mov eax, dword [ebx + 0x34]
push eax
mov ecx, dword [ebx + 0x24]
mov edx, eax
mov eax, dword [ebx + 0x2c]
call fcn.04210bcc
jmp case.default.0x42210fc
test edi, edi
jle case.default.0x42210fc
mov edx, dword [ebx + 0x2c]
mov eax, dword [ebx + 0x34]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, dword [ebx + 0x2c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov ecx, dword [ebx + 0x24]
dec ecx
mov eax, dword [ebx + 0x34]
push eax
inc eax
pop edx
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebx + 0x34]
mov edx, dword [ebx + 0x24]
mov ecx, dword [ebp - 0xc]
mov cl, byte [ecx]
mov byte [eax + edx - 1], cl
mov eax, dword [ebp - 0xc]
mov al, byte [eax]
mov edx, dword [ebx + 0x2c]
xor al, byte [edx]
mov byte [esi], al
inc esi
inc dword [ebp - 0xc]
dec edi
test edi, edi
jg 0x42212f9
jmp case.default.0x42210fc
test edi, edi
jle case.default.0x42210fc
mov edx, dword [ebx + 0x2c]
mov eax, dword [ebx + 0x34]
mov ecx, dword [ebx + 0x24]
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov edx, dword [ebx + 0x2c]
mov eax, ebx
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov eax, dword [ebp - 0xc]
mov al, byte [eax]
mov edx, dword [ebx + 0x2c]
xor al, byte [edx]
mov byte [esi], al
mov ecx, dword [ebx + 0x24]
dec ecx
mov eax, dword [ebx + 0x34]
push eax
inc eax
pop edx
call sub.rtl60.bpl__System_Move_qqrpxvpvi
mov eax, dword [ebx + 0x34]
mov edx, dword [ebx + 0x24]
mov ecx, dword [ebx + 0x2c]
mov cl, byte [ecx]
mov byte [eax + edx - 1], cl
inc esi
inc dword [ebp - 0xc]
dec edi
test edi, edi
jg 0x422134a
jmp case.default.0x42210fc
push edi
mov ecx, dword [ebp - 8]
mov edx, dword [ebp - 4]
mov eax, ebx
call fcn.04220c44
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x42213cd
lea eax, [ebp - 0x124]
call sub.rtl60.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x18]
call sub.rtl60.bpl__System__LStrClr_qqrpv
ret