Function at 0x28011aa2
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x20
push ebx
push esi
mov esi, dword [ebp + 0xc]
and dword [ebp - 0x10], 0
push edi
mov ecx, dword [esi]
mov dword [ebp - 4], ecx
mov eax, dword [ecx + 0xc]
inc eax
cmp dword [ecx + 0x14], 0
mov dword [ebp - 0xc], eax
lea edi, [eax + eax]
mov dword [ebp + 0xc], edi
je 0x28011ad7
push esi
push dword [ebp + 8]
call sym.perl510.dll_Perl_hv_placeholders_get
pop ecx
pop ecx
jmp 0x28011ad9
xor eax, eax
test eax, eax
je 0x28011aee
test byte [esi + 0xb], 8
jne 0x28011aee
push esi
push dword [ebp + 8]
call sym.perl510.dll_Perl_hv_clear_placeholders
pop ecx
pop ecx
mov eax, dword [ebp + 8]
mov ebx, 0x2000000
mov byte [eax + 0x712], 1
mov ecx, dword [esi + 8]
mov eax, edi
and ecx, ebx
shl eax, 2
neg ecx
sbb ecx, ecx
and ecx, 0x14
add ecx, eax
push ecx
call sym.perl510.dll_Perl_safesysmalloc
mov edi, eax
pop ecx
test edi, edi
jne 0x28011b2c
mov eax, dword [ebp + 8]
and byte [eax + 0x712], 0
jmp 0x28011df2
mov eax, dword [ebp - 0xc]
shl eax, 2
push eax
push dword [esi + 0xc]
push edi
call sub.MSVCRT.dll_memcpy
add esp, 0xc
test dword [esi + 8], ebx
je 0x28011b64
mov eax, dword [esi]
mov ecx, dword [esi + 0xc]
push 0x14
mov eax, dword [eax + 0xc]
lea eax, [ecx + eax*4 + 4]
push eax
mov eax, dword [ebp + 0xc]
shl eax, 2
add eax, edi
push eax
call sub.MSVCRT.dll_memcpy
add esp, 0xc
mov eax, dword [ebp - 0xc]
cmp eax, 0x40
jl 0x28011b8e
mov ecx, dword [esi + 8]
and ecx, ebx
neg ecx
sbb ecx, ecx
and ecx, 0x14
shl eax, 2
add ecx, eax
push ecx
push dword [esi + 0xc]
push dword [ebp + 8]
call fcn.280706cd
add esp, 0xc
jmp 0x28011b97
push dword [esi + 0xc]
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov eax, dword [ebp + 8]
and byte [eax + 0x712], 0
mov eax, dword [ebp - 0xc]
mov ecx, eax
imul ecx, ecx, 0x3fffffff
add ecx, dword [ebp + 0xc]
shl eax, 2
shl ecx, 2
push ecx
add eax, edi
push 0
push eax
call sub.MSVCRT.dll_memset
mov edx, dword [ebp - 4]
mov ecx, dword [ebp - 0xc]
and dword [ebp - 0x14], 0
add esp, 0xc
dec dword [ebp + 0xc]
mov dword [ebp - 8], edi
mov eax, dword [ebp + 0xc]
mov dword [edx + 0xc], eax
mov dword [esi + 0xc], edi
test ecx, ecx
jle 0x28011df2
mov eax, dword [edi]
and dword [ebp - 0x18], 0
and dword [ebp - 0x1c], 0
test eax, eax
je 0x28011c5a
shl ecx, 2
add ecx, edi
mov dword [ebp - 0x20], edi
test eax, eax
je 0x28011c3c
mov edx, dword [eax + 4]
mov edx, dword [edx]
and edx, dword [ebp + 0xc]
cmp edx, dword [ebp - 0x14]
je 0x28011c28
mov edi, dword [ebp - 0x20]
mov edx, dword [eax]
mov dword [edi], edx
mov edx, dword [ecx]
mov dword [eax], edx
cmp dword [ecx], 0
mov edx, dword [ebp - 4]
jne 0x28011c21
inc dword [edx + 8]
inc dword [ebp - 0x1c]
mov dword [ecx], eax
jmp 0x28011c33
inc dword [ebp - 0x18]
mov edx, dword [ebp - 4]
mov edi, eax
mov dword [ebp - 0x20], edi
mov eax, dword [edi]
test eax, eax
jne 0x28011bfe
mov edi, dword [ebp - 8]
cmp dword [edi], 0
jne 0x28011c44
dec dword [edx + 8]
mov eax, dword [ebp - 0x18]
cmp eax, dword [ebp - 0x10]
jle 0x28011c4f
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 0x1c]
cmp eax, dword [ebp - 0x10]
jle 0x28011c5a
mov dword [ebp - 0x10], eax
inc dword [ebp - 0x14]
mov ecx, dword [ebp - 0xc]
add edi, 4
cmp dword [ebp - 0x14], ecx
mov dword [ebp - 8], edi
jl 0x28011be4
cmp dword [ebp - 0x10], 0xe
jle 0x28011df2
mov eax, dword [esi + 8]
test eax, 0x1000000
jne 0x28011df2
mov ecx, dword [ebp + 8]
cmp esi, dword [ecx + 0x2f0]
je 0x28011df2
inc dword [ebp + 0xc]
and eax, ebx
mov ecx, dword [ebp + 0xc]
push 1
mov edi, ecx
shl edi, 2
neg eax
sbb eax, eax
and eax, 0x14
add eax, edi
push eax
call sym.perl510.dll_Perl_safesyscalloc
test dword [esi + 8], ebx
pop ecx
mov dword [ebp - 0x1c], eax
pop ecx
je 0x28011cd8
mov ecx, dword [esi]
mov edx, dword [esi + 0xc]
push 0x14
add edi, eax
mov ecx, dword [ecx + 0xc]
lea ecx, [edx + ecx*4 + 4]
push ecx
push edi
call sub.MSVCRT.dll_memcpy
add esp, 0xc
mov eax, dword [esi + 8]
and eax, 0x20000000
mov dword [ebp - 0x14], eax
mov eax, dword [ebp - 4]
and dword [eax + 8], 0
mov eax, dword [esi + 8]
and eax, 0xdfffffff
or eax, 0x1000000
mov dword [esi + 8], eax
mov eax, dword [esi + 0xc]
mov dword [ebp - 8], eax
mov eax, dword [ebp + 0xc]
test eax, eax
jle 0x28011de3
mov dword [ebp - 0x20], eax
mov eax, dword [ebp - 8]
mov edi, dword [eax]
test edi, edi
je 0x28011dd6
mov eax, dword [edi]
mov dword [ebp - 0xc], eax
mov eax, dword [edi + 4]
mov edx, dword [eax + 4]
lea ecx, [eax + 8]
mov dword [ebp - 0x10], ecx
mov dword [ebp - 0x18], ecx
mov ecx, dword [ebp + 8]
mov ebx, edx
dec edx
mov ecx, dword [ecx + 0x938]
test ebx, ebx
je 0x28011d5e
inc edx
mov dword [ebp + 0xc], edx
mov edx, dword [ebp - 0x18]
movzx ebx, byte [edx]
add ecx, ebx
inc edx
imul ecx, ecx, 0x401
mov ebx, ecx
shr ebx, 6
xor ecx, ebx
dec dword [ebp + 0xc]
jne 0x28011d46
lea ecx, [ecx + ecx*8]
mov ebx, ecx
shr ebx, 0xb
xor ebx, ecx
imul ebx, ebx, 0x8001
cmp dword [ebp - 0x14], 0
je 0x28011da0
mov ecx, dword [eax + 4]
movzx eax, byte [ecx + eax + 9]
push eax
push ebx
push ecx
push dword [ebp - 0x10]
call fcn.28010ad0
push dword [edi + 4]
mov dword [ebp + 0xc], eax
push dword [ebp + 8]
call fcn.28012f64
mov eax, dword [ebp + 0xc]
add esp, 0x18
mov dword [edi + 4], eax
jmp 0x28011da2
mov dword [eax], ebx
mov eax, dword [edi + 4]
mov edx, dword [ebp - 0x1c]
mov ecx, dword [eax + 4]
or byte [ecx + eax + 9], 4
lea eax, [ecx + eax + 9]
mov ecx, dword [ebp - 4]
mov eax, dword [ecx + 0xc]
and eax, ebx
cmp dword [edx + eax*4], 0
lea eax, [edx + eax*4]
jne 0x28011dc8
inc dword [ecx + 8]
mov ecx, dword [eax]
mov dword [edi], ecx
mov dword [eax], edi
mov edi, dword [ebp - 0xc]
jmp 0x28011d13
add dword [ebp - 8], 4
dec dword [ebp - 0x20]
jne 0x28011d0e
push dword [esi + 0xc]
call sym.perl510.dll_Perl_safesysfree
mov eax, dword [ebp - 0x1c]
pop ecx
mov dword [esi + 0xc], eax
pop edi
pop esi
pop ebx
leave
ret