Function at 0x280136b2
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x14
push ebx
push esi
mov esi, dword [ebp + 0x10]
mov ebx, 0x400
push edi
mov eax, dword [esi + 8]
and eax, ebx
cmp eax, ebx
jne 0x280136d9
mov eax, dword [esi]
mov eax, dword [eax + 8]
mov dword [ebp - 0xc], eax
mov eax, dword [esi + 0xc]
jmp 0x280136eb
lea eax, [ebp - 0xc]
push 0x22
push eax
push esi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov edi, dword [ebp + 0x14]
mov dword [ebp - 0x14], eax
mov eax, dword [esi + 8]
xor ecx, ecx
shr eax, 0x1d
and al, 1
mov dword [ebp - 8], ecx
mov byte [ebp - 1], al
mov eax, dword [edi + 8]
mov edx, eax
mov dword [ebp - 0x10], ecx
and edx, ebx
jne 0x280137a5
test ah, 1
je 0x2801377b
mov byte [ebp + 0x13], 0x20
mov dword [ebp - 8], ecx
mov dword [ebp + 0x14], 1
mov ecx, dword [ebp - 0xc]
mov edx, dword [ebp + 0x14]
mov eax, dword [ebp + 8]
lea ecx, [edx + ecx + 0x17]
mov eax, dword [eax + 0x878]
push ecx
push eax
call dword [eax]
cmp byte [ebp + 0x13], 0x40
mov esi, eax
mov eax, dword [ebp + 0xc]
pop ecx
pop ecx
mov dword [esi], eax
jne 0x280137dd
mov eax, dword [ebp - 8]
inc eax
push eax
lea eax, [esi + 0x15]
push dword [ebp - 0x10]
push eax
call sub.MSVCRT.dll_memcpy
mov eax, dword [ebp - 8]
add esp, 0xc
mov dword [esi + 0xc], eax
test byte [edi + 0xb], 0x20
je 0x280137fd
mov byte [ebp + 0x13], 0x50
jmp 0x280137fd
cmp edi, 0x280cd000
jne 0x28013789
mov byte [ebp + 0x13], 0x10
jmp 0x2801371a
cmp al, 1
jne 0x28013793
mov eax, dword [edi + 0xc]
mov eax, dword [eax + 8]
and eax, 0xff00
cmp eax, ecx
jne 0x280137a5
and byte [ebp + 0x13], 0
jmp 0x2801371a
cmp edx, ebx
mov byte [ebp + 0x13], 0x40
jne 0x280137ba
mov eax, dword [edi]
mov eax, dword [eax + 8]
mov dword [ebp - 8], eax
mov eax, dword [edi + 0xc]
jmp 0x280137cc
lea eax, [ebp - 8]
push 0x22
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 8]
add eax, 2
mov dword [ebp + 0x14], eax
jmp 0x28013724
cmp byte [ebp + 0x13], 0x20
jne 0x280137fd
mov ecx, dword [edi + 8]
mov eax, 0x80000100
and ecx, eax
cmp ecx, eax
mov eax, dword [edi]
mov eax, dword [eax + 0x10]
mov dword [esi + 0xc], eax
jne 0x280137fd
mov byte [ebp + 0x13], 0x30
cmp byte [ebp - 1], 0
mov bl, byte [ebp + 0x13]
je 0x2801382b
lea eax, [ebp - 1]
push eax
lea eax, [ebp - 0xc]
push eax
push dword [ebp - 0x14]
push dword [ebp + 8]
call sym.perl510.dll_Perl_bytes_from_utf8
add esp, 0x10
cmp byte [ebp - 1], 0
mov edi, eax
sete bl
inc ebx
or bl, byte [ebp + 0x13]
jmp 0x2801382e
mov edi, dword [ebp - 0x14]
mov eax, dword [ebp + 8]
mov edx, dword [ebp - 0xc]
test edx, edx
mov eax, dword [eax + 0x934]
mov ecx, edi
je 0x2801385b
mov dword [ebp + 8], edx
movzx edx, byte [ecx]
add eax, edx
inc ecx
imul eax, eax, 0x401
mov edx, eax
shr edx, 6
xor eax, edx
dec dword [ebp + 8]
jne 0x28013843
lea eax, [eax + eax*8]
mov ecx, eax
shr ecx, 0xb
xor ecx, eax
imul ecx, ecx, 0x8001
mov dword [esi + 4], ecx
mov eax, dword [ebp - 0xc]
mov dword [esi + 8], eax
mov eax, dword [ebp + 0x14]
push dword [ebp - 0xc]
lea eax, [esi + eax + 0x14]
push edi
push eax
call sub.MSVCRT.dll_memcpy
add esp, 0xc
test bl, 2
je 0x28013894
push edi
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov byte [esi + 0x14], bl
mov dword [esi + 0x10], 1
mov eax, esi
pop edi
pop esi
pop ebx
leave
ret