Function at 0x280116fb
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
mov al, byte [ebp + 0x1c]
push ebx
push esi
mov esi, dword [ebp + 0xc]
and al, 1
push edi
test byte [esi + 0xa], 0x80
mov byte [ebp - 1], al
je 0x280117f3
lea eax, [ebp - 3]
push eax
lea eax, [ebp - 2]
push eax
push esi
call fcn.28011657
mov ebx, dword [ebp + 0x24]
add esp, 0xc
cmp byte [ebp - 2], 0
je 0x280117f6
mov eax, dword [ebp + 0x1c]
xor edi, edi
push ebx
push edi
and ah, 0xfe
push 0x11
push eax
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push dword [ebp + 0x10]
push esi
mov esi, dword [ebp + 8]
push esi
call sym.perl510.dll_Perl_hv_common
add esp, 0x24
cmp eax, edi
je 0x28011760
mov edi, dword [eax + 8]
test edi, edi
je 0x280117f9
test byte [edi + 0xa], 0xe0
je 0x28011777
push edi
push esi
call sym.perl510.dll_Perl_mg_clear
pop ecx
pop ecx
cmp byte [ebp - 3], 0
jne 0x280117a4
push 0x70
push edi
push esi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x28011a9b
push 0x70
push edi
push esi
call sym.perl510.dll_Perl_sv_unmagic
add esp, 0xc
mov eax, edi
jmp 0x28011a9d
push 0x45
push dword [ebp + 0xc]
push esi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x280117f9
push 0x80000
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push esi
call sym.perl510.dll_Perl_newSVpvn_flags
add esp, 0x10
mov edi, eax
test byte [ebp + 0x1d], 1
je 0x280117db
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
push dword [edi + 0xc]
call dword [sym.imp.MSVCRT.dll__strupr]
and byte [ebp - 1], 0
xor ebx, ebx
pop ecx
mov dword [ebp + 0x14], eax
mov dword [ebp + 0x1c], ebx
jmp 0x280117fc
mov ebx, dword [ebp + 0x24]
mov esi, dword [ebp + 8]
mov edi, dword [ebp + 0x10]
mov eax, dword [ebp + 0xc]
mov ecx, dword [eax]
cmp dword [eax + 0xc], 0
mov dword [ebp + 0x24], ecx
je 0x28011a9b
cmp byte [ebp - 1], 0
je 0x28011860
mov eax, dword [ebp + 0x14]
lea ecx, [ebp - 1]
push ecx
lea ecx, [ebp + 0x18]
push ecx
push eax
push esi
mov dword [ebp + 0x10], eax
call sym.perl510.dll_Perl_bytes_from_utf8
add esp, 0x10
cmp byte [ebp - 1], 0
mov dword [ebp + 0x14], eax
je 0x2801183b
or dword [ebp + 0x1c], 1
jmp 0x2801183f
and dword [ebp + 0x1c], 0xfffffffe
cmp eax, dword [ebp + 0x10]
je 0x28011859
test byte [ebp + 0x1d], 1
je 0x28011853
push dword [ebp + 0x10]
call sym.perl510.dll_Perl_safesysfree
pop ecx
or word [ebp + 0x1c], 0x102
mov eax, dword [ebp + 0xc]
or byte [eax + 0xb], 0x80
test byte [eax + 0xb], 1
mov edx, dword [ebp + 0x18]
je 0x28011890
mov ecx, dword [ebp + 0x14]
mov eax, dword [esi + 0x938]
test edx, edx
je 0x280118da
lea esi, [edx]
movzx edi, byte [ecx]
add eax, edi
inc ecx
imul eax, eax, 0x401
mov edi, eax
shr edi, 6
xor eax, edi
dec esi
jne 0x28011878
jmp 0x280118da
test ebx, ebx
jne 0x280118ea
test edi, edi
je 0x280118b5
mov ecx, dword [edi + 8]
mov eax, 0x9000000
and ecx, eax
cmp ecx, eax
jne 0x280118b5
mov eax, dword [edi]
cmp dword [eax + 0xc], ebx
jne 0x280118b5
mov eax, dword [edi + 0xc]
mov ebx, dword [eax - 8]
jmp 0x280118ea
mov ecx, dword [ebp + 0x14]
mov eax, dword [esi + 0x934]
test edx, edx
je 0x280118da
lea esi, [edx]
movzx edi, byte [ecx]
add eax, edi
inc ecx
imul eax, eax, 0x401
mov edi, eax
shr edi, 6
xor eax, edi
dec esi
jne 0x280118c4
lea eax, [eax + eax*8]
mov ebx, eax
shr ebx, 0xb
xor ebx, eax
imul ebx, ebx, 0x8001
mov eax, dword [ebp + 0xc]
mov edi, dword [ebp + 0x1c]
and edi, 0xff
mov ecx, dword [eax]
mov eax, dword [eax + 0xc]
mov ecx, dword [ecx + 0xc]
and ecx, ebx
mov esi, dword [eax + ecx*4]
lea eax, [eax + ecx*4]
mov dword [ebp + 0x10], eax
mov dword [ebp - 8], eax
test esi, esi
je 0x28011a6c
mov eax, dword [esi + 4]
cmp dword [eax], ebx
jne 0x28011952
cmp dword [eax + 4], edx
jne 0x28011952
add eax, 8
cmp eax, dword [ebp + 0x14]
je 0x2801193c
push edx
push dword [ebp + 0x14]
push eax
call sub.MSVCRT.dll_memcmp
mov edx, dword [ebp + 0x18]
add esp, 0xc
test eax, eax
jne 0x28011952
mov eax, dword [esi + 4]
mov ecx, dword [eax + 4]
mov al, byte [ecx + eax + 9]
mov ecx, edi
and eax, 1
and ecx, 1
xor eax, ecx
je 0x28011959
mov dword [ebp + 0x10], esi
mov esi, dword [esi]
jmp 0x2801190c
mov eax, dword [ebp + 8]
mov ebx, dword [ebp + 0xc]
cmp ebx, dword [eax + 0x2f0]
jne 0x2801198e
test byte [ebp + 0x1d], 1
je 0x28011976
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
push str.delete
push str.Cannot_modify_shared_string_table_in_hv__s
push dword [ebp + 8]
call sym.perl510.dll_Perl_croak
mov edx, dword [ebp + 0x18]
add esp, 0xc
mov eax, dword [esi + 8]
mov edi, 0x280cd000
cmp eax, edi
je 0x28011a8c
mov ecx, 0x8000000
test dword [ebx + 8], ecx
je 0x280119c8
test eax, eax
je 0x280119c8
test dword [eax + 8], ecx
je 0x280119c8
push str.Attempt_to_delete_readonly_key___p_from_a_restricted_hash
push edx
push dword [ebp + 0x14]
push dword [ebp + 0x1c]
push dword [ebp + 8]
call fcn.28011601
add esp, 0x14
test byte [ebp + 0x1d], 1
je 0x280119d7
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
test byte [ebp + 0x20], 2
je 0x280119e3
and dword [ebp + 0x1c], 0
jmp 0x280119f6
push dword [esi + 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2mortal
pop ecx
mov dword [ebp + 0x1c], eax
pop ecx
mov dword [esi + 8], edi
test byte [ebx + 0xb], 8
je 0x28011a1a
push dword [esi + 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_free
push ebx
mov dword [esi + 8], edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_hv_placeholders_p
add esp, 0x10
inc dword [eax]
jmp 0x28011a67
mov ecx, dword [ebp + 0x10]
mov eax, dword [esi]
mov edi, dword [ebp + 0x24]
mov dword [ecx], eax
mov eax, dword [ebp - 8]
cmp dword [eax], 0
jne 0x28011a2f
dec dword [edi + 8]
mov eax, dword [ebx + 8]
test eax, 0x2000000
je 0x28011a51
mov ecx, dword [ebx]
mov edx, dword [ebx + 0xc]
mov ecx, dword [ecx + 0xc]
cmp esi, dword [edx + ecx*4 + 0xc]
jne 0x28011a51
or eax, 0x40000000
mov dword [ebx + 8], eax
jmp 0x28011a5e
push esi
push ebx
push dword [ebp + 8]
call sym.perl510.dll_Perl_hv_free_ent
add esp, 0xc
dec dword [edi + 0x10]
jne 0x28011a67
and byte [ebx + 0xb], 0x7f
mov eax, dword [ebp + 0x1c]
jmp 0x28011a9d
mov eax, dword [ebp + 0xc]
test byte [eax + 0xb], 8
je 0x28011a8c
push str.Attempt_to_delete_disallowed_key___p_from_a_restricted_hash
push edx
push dword [ebp + 0x14]
push dword [ebp + 0x1c]
push dword [ebp + 8]
call fcn.28011601
add esp, 0x14
test byte [ebp + 0x1d], 1
je 0x28011a9b
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
xor eax, eax
pop edi
pop esi
pop ebx
leave
ret