Function at 0x28010b54
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x14
mov eax, dword [ebp + 0x20]
push ebx
mov ebx, dword [ebp + 0xc]
and eax, 0x20
push esi
push edi
test ebx, ebx
mov dword [ebp - 8], eax
je 0x2801148e
mov eax, dword [ebx + 8]
cmp al, 0xff
je 0x2801148e
mov edi, dword [ebp + 8]
test eax, 0x400000
je 0x28010c03
test eax, 0x200000
je 0x28010c03
test byte [ebp + 0x20], 1
jne 0x28010c03
push 0x55
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
mov esi, eax
add esp, 0xc
test esi, esi
je 0x28010c03
mov eax, dword [esi + 0x14]
mov dword [ebp - 0x10], eax
cmp dword [eax + 4], 0
jne 0x28010c03
mov eax, dword [esi + 0x10]
mov dword [ebp + 0x28], eax
mov eax, dword [ebp + 0x10]
test eax, eax
jne 0x28010bdc
mov eax, dword [ebp + 0x1c]
and eax, 1
shl eax, 0x1d
or eax, 0x80000
push eax
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call sym.perl510.dll_Perl_newSVpvn_flags
add esp, 0x10
mov ecx, dword [ebp - 0x10]
mov dword [esi + 0x10], eax
mov eax, dword [ebp + 0x20]
push esi
push ebx
push edi
mov dword [ecx + 8], eax
call fcn.28015e60
mov eax, dword [esi + 0x10]
add esp, 0xc
mov dword [ebp + 0x10], eax
mov eax, dword [ebp + 0x28]
and dword [ebp + 0x28], 0
mov dword [esi + 0x10], eax
mov esi, dword [ebp + 0x10]
test esi, esi
je 0x28010c7e
test byte [ebp + 0x1d], 1
je 0x28010c19
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov ecx, dword [esi + 8]
mov eax, 0x400
and ecx, eax
cmp ecx, eax
jne 0x28010c34
mov eax, dword [esi]
mov eax, dword [eax + 8]
mov dword [ebp + 0x18], eax
mov eax, dword [esi + 0xc]
jmp 0x28010c44
lea eax, [ebp + 0x18]
push 0x22
push eax
push esi
push edi
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov ecx, dword [esi + 8]
mov dword [ebp + 0x14], eax
shr ecx, 0x1d
and cl, 1
mov eax, 0x9000000
mov byte [ebp + 0xb], cl
mov edx, dword [esi + 8]
and edx, eax
cmp edx, eax
jne 0x28010c78
mov eax, dword [esi]
cmp dword [eax + 0xc], 0
jne 0x28010c78
xor eax, eax
test cl, cl
setne al
or ah, 4
mov dword [ebp + 0x1c], eax
jmp 0x28010c87
and dword [ebp + 0x1c], 0
jmp 0x28010c87
mov cl, byte [ebp + 0x1c]
and cl, 1
mov byte [ebp + 0xb], cl
test byte [ebp + 0x20], 0x40
je 0x28010cb4
push dword [ebp + 0x28]
xor eax, eax
test cl, cl
push dword [ebp + 0x20]
setne al
or eax, dword [ebp + 0x1c]
push eax
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push esi
push ebx
push edi
call fcn.280116fb
add esp, 0x20
jmp 0x280115fc
mov eax, dword [ebx]
mov esi, 0xe00000
mov dword [ebp - 0x10], eax
mov eax, dword [ebx + 8]
test esi, eax
je 0x2801110e
and eax, 0x800000
je 0x28010e7d
test byte [ebp + 0x20], 0xc
jne 0x28010e7d
push 0x50
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
jne 0x28010dbb
test byte [ebx + 0xa], 0x20
jne 0x28010dbb
push 0x45
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x2801110e
xor eax, eax
cmp dword [ebp + 0x18], eax
jbe 0x2801110e
mov ecx, dword [ebp + 0x14]
mov cl, byte [eax + ecx]
cmp cl, 0x61
jl 0x28010d2b
cmp cl, 0x7a
jle 0x28010d36
inc eax
cmp eax, dword [ebp + 0x18]
jb 0x28010d1b
jmp 0x2801110e
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call sym.perl510.dll_Perl_savepvn
push eax
call dword [sym.imp.MSVCRT.dll__strupr]
mov esi, dword [ebp - 8]
push 0
mov ecx, esi
push 0
or ecx, 1
push ecx
push 0x100
push dword [ebp + 0x18]
push eax
push 0
push ebx
push edi
call sym.perl510.dll_Perl_hv_common
add esp, 0x34
mov dword [ebp + 0x24], eax
test eax, eax
jne 0x28010da4
test byte [ebp + 0x20], 0x10
je 0x28010da4
push dword [ebp + 0x28]
push eax
push edi
call sym.perl510.dll_Perl_newSV
pop ecx
or esi, 5
pop ecx
push eax
push esi
push dword [ebp + 0x1c]
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push dword [ebp + 0x10]
push ebx
push edi
call sym.perl510.dll_Perl_hv_common
add esp, 0x24
mov dword [ebp + 0x24], eax
jmp 0x28010db3
test byte [ebp + 0x1d], 1
je 0x28010db3
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov eax, dword [ebp + 0x24]
jmp 0x280115fc
cmp dword [ebp + 0x10], 0
jne 0x28010ddf
mov al, byte [ebp + 0xb]
neg al
sbb eax, eax
and eax, 0x20000000
push eax
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call sym.perl510.dll_Perl_newSVpvn_flags
add esp, 0x10
jmp 0x28010dea
push dword [ebp + 0x10]
push edi
call sym.perl510.dll_Perl_newSVsv
pop ecx
pop ecx
push edi
mov dword [ebp + 0x10], eax
call sym.perl510.dll_Perl_sv_newmortal
push 0xfffffffffffffffe
mov ebx, eax
push dword [ebp + 0x10]
push ebx
push dword [ebp + 0xc]
push edi
call sym.perl510.dll_Perl_mg_copy
mov esi, dword [edi + 0x164]
lea eax, [edi + 0x164]
add esp, 0x18
test esi, esi
je 0x28010e1d
mov ecx, dword [esi]
mov dword [eax], ecx
jmp 0x28010e31
push edi
call fcn.28010a7a
push 0xc
mov esi, eax
call sym.perl510.dll_Perl_safesysmalloc
pop ecx
mov dword [esi + 4], eax
pop ecx
mov eax, dword [esi + 4]
and dword [esi], 0
mov ecx, dword [ebp + 0x10]
push 0xa
mov dword [eax + 4], 0xfffffffe
mov eax, dword [esi + 4]
push ebx
push edi
mov dword [eax + 8], ecx
lea eax, [esi + 8]
mov dword [ebp + 0x10], eax
mov dword [eax], ebx
call sym.perl510.dll_Perl_sv_upgrade
mov eax, dword [ebx]
add esp, 0xc
test byte [ebp + 0x1d], 1
mov byte [eax + 0x28], 0x54
mov eax, dword [ebx]
mov dword [eax + 0x24], esi
je 0x280115ed
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
jmp 0x280115ec
test eax, eax
je 0x28010ff4
test byte [ebp + 0x20], 8
je 0x28010ff4
push 0x50
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
jne 0x28010ef8
test byte [ebx + 0xa], 0x20
jne 0x28010ef8
push 0x45
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x2801110e
push dword [ebp + 0x18]
mov eax, dword [ebp + 0x14]
mov dword [ebp - 0xc], eax
push eax
push edi
call sym.perl510.dll_Perl_savepvn
push eax
call dword [sym.imp.MSVCRT.dll__strupr]
and byte [ebp + 0xb], 0
and dword [ebp + 0x28], 0
and dword [ebp + 0x10], 0
mov esi, 0x100
add esp, 0x10
mov dword [ebp + 0x14], eax
test dword [ebp + 0x1c], esi
je 0x2801110b
push dword [ebp - 0xc]
jmp 0x28011105
push edi
call sym.perl510.dll_Perl_sv_newmortal
push edi
mov esi, eax
call sym.perl510.dll_Perl_sv_newmortal
cmp dword [ebp + 0x10], 0
pop ecx
pop ecx
mov dword [ebp + 0x20], eax
jne 0x28010f35
cmp byte [ebp + 0xb], 0
jne 0x28010f1f
push dword [ebp + 0x18]
push dword [ebp + 0x14]
jmp 0x28010f4c
push 0x20000000
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call sym.perl510.dll_Perl_newSVpvn_flags
add esp, 0x10
jmp 0x28010f40
push dword [ebp + 0x10]
push edi
call sym.perl510.dll_Perl_newSVsv
pop ecx
pop ecx
push 0xfffffffffffffffe
push eax
push edi
call sym.perl510.dll_Perl_sv_2mortal
pop ecx
pop ecx
push eax
push dword [ebp + 0x20]
push ebx
push edi
call sym.perl510.dll_Perl_mg_copy
add esp, 0x14
test byte [ebp + 0x1d], 1
je 0x28010f68
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
push 0x70
push dword [ebp + 0x20]
push edi
call sym.perl510.dll_Perl_mg_find
push eax
push esi
push edi
call fcn.28017083
add esp, 0x18
test esi, esi
jne 0x28010f89
xor eax, eax
jmp 0x280113e1
mov eax, dword [esi + 8]
test ah, 4
je 0x28010fb1
mov dword [edi + 0x4c], esi
mov eax, dword [esi]
test eax, eax
mov dword [edi + 0x50], eax
je 0x28010f82
mov eax, dword [eax + 8]
cmp eax, 1
ja 0x28010fdb
test eax, eax
je 0x28010f82
mov eax, dword [esi + 0xc]
cmp byte [eax], 0x30
jmp 0x28010fd9
test ah, 1
je 0x28010fc7
mov eax, dword [esi]
xor ecx, ecx
cmp dword [eax + 0x10], ecx
setne cl
mov eax, ecx
jmp 0x280113e1
test ah, 2
je 0x28010fe3
mov eax, dword [esi]
fld qword [eax]
fcomp qword [0x280ac570]
fnstsw ax
sahf
je 0x28010f82
push 1
pop eax
jmp 0x280113e1
push esi
push edi
call sym.perl510.dll_Perl_sv_2bool
pop ecx
pop ecx
movsx eax, al
jmp 0x280113e1
test byte [ebp + 0x20], 4
je 0x2801110e
lea eax, [ebp - 3]
push eax
lea eax, [ebp - 1]
push eax
push ebx
call fcn.28011657
add esp, 0xc
cmp byte [ebp - 1], 0
je 0x2801110e
mov al, byte [edi + 0x22e]
cmp dword [ebp + 0x10], 0
mov byte [ebp - 2], al
jne 0x2801105a
cmp byte [ebp + 0xb], 0
jne 0x28011043
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push dword [ebp + 0x24]
push ebx
push edi
call sym.perl510.dll_Perl_mg_copy
add esp, 0x14
jmp 0x280110a8
push 0x20000000
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call sym.perl510.dll_Perl_newSVpvn_flags
add esp, 0x10
mov dword [ebp + 0x10], eax
cmp byte [edi + 0x26f], 0
je 0x28011085
mov eax, dword [ebp + 0x10]
test dword [eax + 8], esi
je 0x2801107d
push eax
push edi
call sym.perl510.dll_Perl_sv_tainted
pop ecx
test al, al
pop ecx
je 0x2801107d
push 1
pop eax
jmp 0x2801107f
xor eax, eax
mov byte [edi + 0x22e], al
push dword [ebp + 0x10]
push edi
call sym.perl510.dll_Perl_newSVsv
push eax
push edi
call sym.perl510.dll_Perl_sv_2mortal
push 0xfffffffffffffffe
push eax
push dword [ebp + 0x24]
mov dword [ebp + 0x10], eax
push ebx
push edi
call sym.perl510.dll_Perl_mg_copy
add esp, 0x24
cmp byte [ebp - 2], 0
je 0x280110b5
mov byte [edi + 0x22e], 1
cmp byte [ebp - 3], 0
je 0x2801147f
push 0x45
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x2801110e
push dword [ebp + 0x18]
mov eax, dword [ebp + 0x14]
mov dword [ebp - 0xc], eax
push eax
push edi
call sym.perl510.dll_Perl_savepvn
push eax
call dword [sym.imp.MSVCRT.dll__strupr]
and byte [ebp + 0xb], 0
and dword [ebp + 0x28], 0
and dword [ebp + 0x10], 0
mov esi, 0x100
add esp, 0x10
mov dword [ebp + 0x14], eax
test dword [ebp + 0x1c], esi
je 0x2801110b
push dword [ebp - 0xc]
call sym.perl510.dll_Perl_safesysfree
pop ecx
or dword [ebp + 0x1c], esi
cmp dword [ebx + 0xc], 0
jne 0x28011155
test byte [ebp + 0x20], 0x14
jne 0x2801113b
test byte [ebx + 0xa], 0x80
je 0x28011130
push 0x45
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
jne 0x2801113b
test byte [ebp + 0x20], 8
jne 0x28011155
jmp 0x2801147f
mov eax, dword [ebp - 0x10]
push 1
mov eax, dword [eax + 0xc]
lea eax, [eax*4 + 4]
push eax
call sym.perl510.dll_Perl_safesyscalloc
pop ecx
mov dword [ebx + 0xc], eax
pop ecx
mov ecx, dword [ebp + 0x1c]
mov al, byte [ebp + 0xb]
not ecx
and eax, 1
shr ecx, 0xa
test cl, al
je 0x280111aa
mov esi, dword [ebp + 0x14]
lea eax, [ebp + 0xb]
push eax
lea eax, [ebp + 0x18]
push eax
push esi
push edi
call sym.perl510.dll_Perl_bytes_from_utf8
add esp, 0x10
cmp byte [ebp + 0xb], 0
mov dword [ebp + 0x14], eax
je 0x2801118b
or dword [ebp + 0x1c], 1
jmp 0x2801118f
and dword [ebp + 0x1c], 0xfffffffe
cmp eax, esi
je 0x280111aa
test byte [ebp + 0x1d], 1
je 0x280111a0
push esi
call sym.perl510.dll_Perl_safesysfree
pop ecx
or word [ebp + 0x1c], 0x102
and dword [ebp + 0x28], 0
test byte [ebx + 0xb], 1
je 0x280111ef
mov edx, dword [ebp + 0x18]
mov ecx, dword [ebp + 0x14]
mov eax, dword [edi + 0x938]
test edx, edx
je 0x280111d6
movzx esi, byte [ecx]
add eax, esi
inc ecx
imul eax, eax, 0x401
mov esi, eax
shr esi, 6
xor eax, esi
dec edx
jne 0x280111c0
lea eax, [eax + eax*8]
mov ecx, eax
shr ecx, 0xb
xor ecx, eax
imul ecx, ecx, 0x8001
or dword [ebp + 0x1c], 4
mov dword [ebp + 0x28], ecx
jmp 0x28011256
cmp dword [ebp + 0x28], 0
jne 0x28011256
mov eax, dword [ebp + 0x10]
test eax, eax
je 0x2801121d
mov edx, dword [eax + 8]
mov ecx, 0x9000000
and edx, ecx
cmp edx, ecx
jne 0x2801121d
mov ecx, dword [eax]
cmp dword [ecx + 0xc], 0
jne 0x2801121d
mov eax, dword [eax + 0xc]
mov eax, dword [eax - 8]
mov dword [ebp + 0x28], eax
jmp 0x28011256
mov edx, dword [ebp + 0x18]
mov ecx, dword [ebp + 0x14]
mov eax, dword [edi + 0x934]
test edx, edx
je 0x28011243
movzx esi, byte [ecx]
add eax, esi
inc ecx
imul eax, eax, 0x401
mov esi, eax
shr esi, 6
xor eax, esi
dec edx
jne 0x2801122d
lea eax, [eax + eax*8]
mov ecx, eax
shr ecx, 0xb
xor ecx, eax
imul ecx, ecx, 0x8001
mov dword [ebp + 0x28], ecx
mov eax, dword [ebp + 0x1c]
and eax, 0xff
mov dword [ebp - 0xc], eax
mov eax, dword [ebx + 0xc]
test eax, eax
jne 0x2801126f
xor esi, esi
jmp 0x280113ef
mov ecx, dword [ebx]
mov ecx, dword [ecx + 0xc]
and ecx, dword [ebp + 0x28]
mov esi, dword [eax + ecx*4]
test esi, esi
je 0x280113ef
mov eax, dword [esi + 4]
mov ecx, dword [ebp + 0x28]
cmp dword [eax], ecx
jne 0x280112c4
mov ecx, dword [ebp + 0x18]
cmp dword [eax + 4], ecx
jne 0x280112c4
add eax, 8
cmp eax, dword [ebp + 0x14]
je 0x280112ad
push ecx
push dword [ebp + 0x14]
push eax
call sub.MSVCRT.dll_memcmp
add esp, 0xc
test eax, eax
jne 0x280112c4
mov eax, dword [esi + 4]
mov ecx, dword [eax + 4]
mov al, byte [ecx + eax + 9]
mov ecx, dword [ebp - 0xc]
and eax, 1
and ecx, 1
xor eax, ecx
je 0x280112c8
mov esi, dword [esi]
jmp 0x2801127a
test byte [ebp + 0x20], 0x14
je 0x280113ba
mov eax, dword [esi + 4]
mov ecx, dword [eax + 4]
movzx edx, byte [ecx + eax + 9]
lea eax, [ecx + eax + 9]
mov ecx, dword [ebp - 0xc]
cmp edx, ecx
je 0x28011359
test byte [ebx + 0xb], 0x20
je 0x28011315
push ecx
push dword [ebp + 0x28]
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call fcn.28013164
push dword [esi + 4]
mov dword [ebp - 0x14], eax
push edi
call fcn.28012f64
mov eax, dword [ebp - 0x14]
add esp, 0x1c
mov dword [esi + 4], eax
jmp 0x2801134f
cmp ebx, dword [edi + 0x2f0]
jne 0x2801134d
test byte [ebp + 0x1d], 1
je 0x2801132c
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
test byte [ebp + 0x20], 0x10
mov eax, str.fetch
jne 0x2801133c
mov eax, str.store
push eax
push str.Cannot_modify_shared_string_table_in_hv__s
push edi
call sym.perl510.dll_Perl_croak
add esp, 0xc
jmp 0x2801134f
mov byte [eax], cl
test byte [ebp - 0xc], 0xf3
je 0x28011359
or byte [ebx + 0xb], 0x80
mov ecx, dword [esi + 8]
lea ebx, [esi + 8]
mov eax, 0x280cd000
cmp ecx, eax
jne 0x280113a9
test byte [ebp + 0x20], 0x10
je 0x28011390
mov eax, dword [ebp + 0xc]
test byte [eax + 0xa], 0xe0
jne 0x280113ec
push 0
push edi
call sym.perl510.dll_Perl_newSV
push dword [ebp + 0xc]
mov dword [ebp + 0x24], eax
push edi
call sym.perl510.dll_Perl_hv_placeholders_p
add esp, 0x10
jmp 0x280113a0
cmp dword [ebp + 0x24], eax
je 0x280113a2
push dword [ebp + 0xc]
push edi
call sym.perl510.dll_Perl_hv_placeholders_p
pop ecx
pop ecx
dec dword [eax]
mov eax, dword [ebp + 0x24]
mov dword [ebx], eax
jmp 0x280113c6
test byte [ebp + 0x20], 4
je 0x280113c6
push ecx
push edi
call sym.perl510.dll_Perl_sv_free
pop ecx
pop ecx
jmp 0x280113a2
cmp dword [esi + 8], 0x280cd000
lea ebx, [esi + 8]
je 0x280113ec
test byte [ebp + 0x1d], 1
je 0x280113d5
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
cmp dword [ebp - 8], 0
mov eax, esi
je 0x280115fc
neg eax
sbb eax, eax
and eax, ebx
jmp 0x280115fc
mov ebx, dword [ebp + 0xc]
test byte [ebp + 0x20], 4
jne 0x28011452
test byte [ebx + 0xa], 0x80
je 0x28011452
push 0x45
push ebx
push edi
call sym.perl510.dll_Perl_mg_find
add esp, 0xc
test eax, eax
je 0x28011452
mov eax, dword [edi + 0x880]
lea ecx, [ebp + 0xc]
push ecx
push dword [ebp + 0x14]
push eax
call dword [eax + 8]
add esp, 0xc
test eax, eax
je 0x28011452
push dword [ebp + 0xc]
push eax
push edi
call sym.perl510.dll_Perl_newSVpvn
add esp, 0xc
cmp byte [edi + 0x26f], 0
mov esi, eax
je 0x2801144c
xor eax, eax
push eax
push eax
push 0x74
push eax
push esi
push edi
call sym.perl510.dll_Perl_sv_magic
add esp, 0x18
push dword [ebp + 0x28]
push esi
jmp 0x280114b7
test esi, esi
jne 0x28011479
test byte [ebx + 0xb], 8
je 0x28011479
test byte [ebp + 0x20], 8
jne 0x28011479
push str.Attempt_to_access_disallowed_key___p_in_a_restricted_hash
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push dword [ebp + 0x1c]
push edi
call fcn.28011601
add esp, 0x14
test byte [ebp + 0x20], 0x14
jne 0x28011495
test byte [ebp + 0x1d], 1
je 0x2801148e
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
xor eax, eax
jmp 0x280115fc
mov eax, dword [ebp + 0x20]
and eax, 0x10
mov dword [ebp + 0x20], eax
je 0x280114d8
push 0
push edi
call sym.perl510.dll_Perl_newSV
test byte [ebx + 0xa], 0xe0
pop ecx
mov dword [ebp + 0x24], eax
pop ecx
je 0x280114d8
push dword [ebp + 0x28]
push eax
mov eax, dword [ebp - 8]
or al, 5
push eax
push dword [ebp + 0x1c]
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push dword [ebp + 0x10]
push ebx
push edi
call sym.perl510.dll_Perl_hv_common
add esp, 0x24
jmp 0x280115fc
cmp dword [ebx + 0xc], 0
jne 0x280114f8
mov eax, dword [ebp - 0x10]
push 1
mov eax, dword [eax + 0xc]
lea eax, [eax*4 + 4]
push eax
call sym.perl510.dll_Perl_safesyscalloc
pop ecx
mov dword [ebx + 0xc], eax
pop ecx
mov eax, dword [ebp - 0x10]
mov ecx, dword [ebx + 0xc]
push edi
mov eax, dword [eax + 0xc]
and eax, dword [ebp + 0x28]
lea eax, [ecx + eax*4]
mov dword [ebp + 0xc], eax
call fcn.28010a7a
test byte [ebx + 0xb], 0x20
pop ecx
mov esi, eax
je 0x28011530
push dword [ebp + 0x1c]
push dword [ebp + 0x28]
push dword [ebp + 0x18]
push dword [ebp + 0x14]
push edi
call fcn.28013164
add esp, 0x14
jmp 0x2801157c
cmp ebx, dword [edi + 0x2f0]
jne 0x28011568
test byte [ebp + 0x1d], 1
je 0x28011547
push dword [ebp + 0x14]
call sym.perl510.dll_Perl_safesysfree
pop ecx
cmp dword [ebp + 0x20], 0
mov eax, str.fetch
jne 0x28011557
mov eax, str.store
push eax
push str.Cannot_modify_shared_string_table_in_hv__s
push edi
call sym.perl510.dll_Perl_croak
add esp, 0xc
jmp 0x2801157f
push dword [ebp + 0x1c]
push dword [ebp + 0x28]
push dword [ebp + 0x18]
push dword [ebp + 0x14]
call fcn.28010ad0
add esp, 0x10
mov dword [esi + 4], eax
mov ecx, dword [ebp + 0x24]
lea eax, [esi + 8]
mov dword [ebp + 0x10], eax
cmp ecx, 0x280cd000
mov dword [eax], ecx
mov eax, dword [ebp + 0xc]
mov edx, dword [eax]
mov dword [esi], edx
mov dword [eax], esi
jne 0x280115a6
push ebx
push edi
call sym.perl510.dll_Perl_hv_placeholders_p
inc dword [eax]
pop ecx
pop ecx
test byte [ebp - 0xc], 0xf3
je 0x280115b0
or byte [ebx + 0xb], 0x80
mov eax, dword [ebp - 0x10]
mov ecx, dword [esi]
inc dword [eax + 0x10]
mov edx, dword [eax + 0x10]
test ecx, ecx
jne 0x280115c4
inc dword [eax + 8]
jmp 0x280115ed
cmp edx, dword [eax + 0xc]
jg 0x280115e4
test byte [ebx + 0xb], 1
jne 0x280115ed
mov eax, dword [ecx]
push 1
test eax, eax
pop edx
je 0x280115ed
mov eax, dword [eax]
inc edx
test eax, eax
jne 0x280115d8
cmp edx, 0xe
jbe 0x280115ed
push ebx
push edi
call fcn.28011aa2
pop ecx
pop ecx
cmp dword [ebp - 8], 0
mov eax, esi
je 0x280115fc
neg eax
sbb eax, eax
and eax, dword [ebp + 0x10]
pop edi
pop esi
pop ebx
leave
ret