Function at 0x28007461
Capabilities:
Encode data using xor

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x28
and dword [ebp - 0x1c], 0
push ebx
mov ebx, dword [ebp + 0x14]
push esi
push edi
mov edi, dword [ebp + 0x10]
cmp edi, ebx
mov ecx, 0xff00
jne 0x280074a3
cmp dword [ebp + 0xc], 0x5b
je 0x280074b6
mov edx, dword [edi + 8]
cmp dl, 1
jne 0x28007493
mov eax, dword [edi + 0xc]
mov eax, dword [eax + 8]
jmp 0x28007495
mov eax, edx
and eax, ecx
test eax, eax
jne 0x280074b6
test edx, 0x200000
jne 0x280074b6
push 0
push 0x280ac738
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_setpvn
add esp, 0x10
mov eax, dword [ebx + 8]
cmp edi, ebx
jne 0x280074f2
and eax, 0x9000c00
mov esi, 0x400
cmp eax, esi
jne 0x280074d8
mov eax, dword [ebx]
mov eax, dword [eax + 8]
mov dword [ebp - 0x14], eax
mov eax, dword [ebx + 0xc]
jmp 0x280074ea
lea eax, [ebp - 0x14]
push 0
push eax
push ebx
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_pvn_force_flags
add esp, 0x10
mov dword [ebp - 8], eax
mov dword [ebp - 0x24], eax
jmp 0x2800753e
mov esi, 0x400
and eax, esi
cmp eax, esi
jne 0x2800750a
mov eax, dword [ebx]
mov eax, dword [eax + 8]
mov dword [ebp - 0x14], eax
mov eax, dword [ebx + 0xc]
jmp 0x2800751c
lea eax, [ebp - 0x14]
push 0x20
push eax
push ebx
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov dword [ebp - 8], eax
mov dword [ebp - 0x24], eax
mov eax, dword [edi + 8]
and eax, 0x9000c00
cmp eax, esi
je 0x2800753e
push 0
push 0
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_pvn_force_flags
add esp, 0x10
mov eax, dword [ebp + 0x18]
mov ecx, dword [eax + 8]
and ecx, esi
cmp ecx, esi
jne 0x28007557
mov ecx, dword [eax]
mov eax, dword [eax + 0xc]
mov ecx, dword [ecx + 8]
mov dword [ebp - 0x18], ecx
jmp 0x2800756b
lea eax, [ebp - 0x18]
push 0x20
push eax
push dword [ebp + 0x18]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov ecx, 0x20000000
mov dword [ebp - 0xc], eax
test dword [ebx + 8], ecx
mov dword [ebp - 0x28], eax
je 0x28007590
mov edx, dword [ebp + 8]
mov edx, dword [edx + 0x100]
test byte [edx + 0x28], 8
jne 0x28007590
mov byte [ebp - 2], 1
jmp 0x28007594
and byte [ebp - 2], 0
mov edx, dword [ebp + 0x18]
test dword [edx + 8], ecx
je 0x280075b1
mov ecx, dword [ebp + 8]
mov ecx, dword [ecx + 0x100]
test byte [ecx + 0x28], 8
jne 0x280075b1
mov byte [ebp - 1], 1
jmp 0x280075b5
and byte [ebp - 1], 0
cmp byte [ebp - 2], 0
je 0x28007623
cmp byte [ebp - 1], 0
jne 0x28007681
push 0x80000
push dword [ebp - 0x18]
push eax
push dword [ebp + 8]
call sym.perl510.dll_Perl_newSVpvn_flags
push 2
push eax
push dword [ebp + 8]
mov dword [ebp + 0x18], eax
call sym.perl510.dll_Perl_sv_utf8_upgrade_flags
mov eax, dword [ebp + 0x18]
add esp, 0x1c
mov eax, dword [eax + 8]
and eax, esi
cmp eax, esi
jne 0x28007603
mov eax, dword [ebp + 0x18]
mov ecx, dword [eax]
mov ecx, dword [ecx + 8]
mov dword [ebp - 0x18], ecx
mov eax, dword [eax + 0xc]
jmp 0x28007617
lea eax, [ebp - 0x18]
push 0x20
push eax
push dword [ebp + 0x18]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov dword [ebp - 0xc], eax
mov dword [ebp - 0x28], eax
mov byte [ebp - 1], 1
jmp 0x28007681
cmp byte [ebp - 1], 0
je 0x28007681
push 0x80000
push dword [ebp - 0x14]
push dword [ebp - 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_newSVpvn_flags
mov ebx, eax
push 2
push ebx
mov dword [ebp + 0x14], ebx
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_utf8_upgrade_flags
mov eax, dword [ebx + 8]
add esp, 0x1c
and eax, esi
cmp eax, esi
jne 0x28007665
mov eax, dword [ebx]
mov eax, dword [eax + 8]
mov dword [ebp - 0x14], eax
mov eax, dword [ebx + 0xc]
jmp 0x28007677
lea eax, [ebp - 0x14]
push 0x20
push eax
push ebx
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_2pv_flags
add esp, 0x10
mov dword [ebp - 8], eax
mov dword [ebp - 0x24], eax
mov byte [ebp - 2], 1
mov edx, dword [ebp - 0x18]
cmp dword [ebp - 0x14], edx
jae 0x2800768c
mov edx, dword [ebp - 0x14]
mov eax, dword [edi]
mov dword [ebp - 0x10], edx
mov dword [ebp - 0x20], edx
mov dword [eax + 8], edx
mov eax, dword [edi + 8]
and eax, 0x5fff00ff
or ah, 0x44
cmp byte [ebp - 2], 0
mov dword [edi + 8], eax
jne 0x280076b1
cmp byte [ebp - 1], 0
je 0x280076c2
cmp edi, ebx
je 0x280077b8
cmp edi, dword [ebp + 0x18]
je 0x280077b8
mov ebx, eax
and ebx, 0xff
cmp ebx, 1
jne 0x280076d7
mov ecx, dword [edi + 0xc]
mov ecx, dword [ecx + 8]
jmp 0x280076d9
mov ecx, eax
and ecx, 0xff00
test ecx, ecx
jne 0x2800772c
cmp ebx, 8
jg 0x2800772c
cmp dword [ebp + 0xc], 0x5b
jne 0x280076f3
mov dword [ebp - 0x1c], edx
jmp 0x28007703
mov ecx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x18]
cmp ecx, eax
mov dword [ebp - 0x1c], ecx
ja 0x28007703
mov dword [ebp - 0x1c], eax
mov esi, dword [ebp - 0x1c]
push 1
lea eax, [esi + 1]
push eax
call sym.perl510.dll_Perl_safesyscalloc
push 0x100
push esi
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_usepvn_flags
mov ebx, dword [edi + 0xc]
add esp, 0x1c
jmp 0x280077da
and eax, 0x9000c00
cmp eax, esi
jne 0x2800773a
mov ebx, dword [edi + 0xc]
jmp 0x2800774f
push 0
push 0
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_pvn_force_flags
mov edx, dword [ebp - 0x10]
add esp, 0x10
mov ebx, eax
mov ecx, dword [edi]
lea eax, [edx + 1]
cmp dword [ecx + 0xc], eax
jae 0x28007781
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_grow
mov ecx, dword [ebp - 0x10]
mov ebx, eax
mov eax, dword [edi]
mov eax, dword [eax + 8]
sub ecx, eax
add eax, ebx
inc ecx
push ecx
push 0
push eax
call sub.MSVCRT.dll_memset
mov edx, dword [ebp - 0x10]
add esp, 0x18
cmp dword [ebp + 0xc], 0x5b
je 0x280077dd
cmp byte [ebp - 2], 0
jne 0x28007793
cmp byte [ebp - 1], 0
je 0x280077f1
mov eax, dword [ebp - 0x18]
mov ecx, dword [ebp - 0x14]
lea eax, [eax + ecx + 1]
mov ecx, dword [edi]
cmp dword [ecx + 0xc], eax
jae 0x280077b3
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_grow
add esp, 0xc
jmp 0x280077d8
mov ebx, dword [edi + 0xc]
jmp 0x280077dd
cmp dword [ebp + 0xc], 0x5b
jne 0x280077c2
mov eax, edx
jmp 0x280077ca
mov eax, dword [ebp - 0x14]
mov ecx, dword [ebp - 0x18]
add eax, ecx
mov dword [ebp - 0x1c], eax
inc eax
push 1
push eax
call sym.perl510.dll_Perl_safesyscalloc
pop ecx
pop ecx
mov ebx, eax
mov edx, dword [ebp - 0x10]
cmp byte [ebp - 2], 0
jne 0x280079e7
cmp byte [ebp - 1], 0
jne 0x280079e7
cmp edx, 0x10
jb 0x28007932
test bl, 3
jne 0x28007932
mov ecx, dword [ebp - 8]
mov eax, dword [ebp - 0xc]
test cl, 3
jne 0x28007938
test al, 3
jne 0x28007938
mov esi, dword [ebp - 0x10]
mov eax, ebx
mov ebx, dword [ebp + 0xc]
mov edi, esi
and edi, 0xf
mov edx, ecx
mov ecx, dword [ebp - 0xc]
shr esi, 4
sub ebx, 0x5b
je 0x280078d7
dec ebx
je 0x2800788e
dec ebx
jne 0x2800791a
mov ebx, esi
dec esi
test ebx, ebx
je 0x2800791a
inc esi
push 4
mov dword [ebp + 0x18], esi
pop esi
mov ebx, dword [ecx]
add ecx, esi
or ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
or ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
mov ebx, dword [ecx]
add ecx, esi
or ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
or ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
dec dword [ebp + 0x18]
jne 0x28007854
jmp 0x2800791a
mov ebx, esi
dec esi
test ebx, ebx
je 0x2800791a
inc esi
push 4
mov dword [ebp + 0x18], esi
pop esi
mov ebx, dword [ecx]
add ecx, esi
xor ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
xor ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
mov ebx, dword [ecx]
add ecx, esi
xor ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
xor ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
dec dword [ebp + 0x18]
jne 0x280078a0
jmp 0x2800791a
mov ebx, esi
dec esi
test ebx, ebx
je 0x2800791a
inc esi
push 4
mov dword [ebp + 0x18], esi
pop esi
mov ebx, dword [ecx]
add ecx, esi
and ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
and ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
mov ebx, dword [ecx]
add ecx, esi
and ebx, dword [edx]
add edx, esi
mov dword [eax], ebx
mov ebx, dword [ecx]
and ebx, dword [edx]
add eax, esi
add ecx, esi
add edx, esi
mov dword [eax], ebx
add eax, esi
dec dword [ebp + 0x18]
jne 0x280078e5
mov dword [ebp - 0xc], ecx
mov ebx, eax
mov eax, dword [ebp - 0xc]
mov dword [ebp - 8], edx
mov dword [ebp - 0x10], edi
mov edi, dword [ebp + 0x10]
mov ecx, edx
mov edx, dword [ebp - 0x10]
jmp 0x28007938
mov ecx, dword [ebp - 8]
mov eax, dword [ebp - 0xc]
mov esi, dword [ebp + 0xc]
sub esi, 0x5b
je 0x280079c9
dec esi
je 0x28007966
dec esi
jne 0x28007c07
mov esi, edx
dec edx
test esi, esi
je 0x2800797c
lea esi, [edx + 1]
mov dl, byte [eax]
or dl, byte [ecx]
mov byte [ebx], dl
inc ebx
inc eax
inc ecx
dec esi
jne 0x28007958
jmp 0x2800797c
mov esi, edx
dec edx
test esi, esi
je 0x2800797c
lea esi, [edx + 1]
mov dl, byte [eax]
xor dl, byte [ecx]
mov byte [ebx], dl
inc ebx
inc eax
inc ecx
dec esi
jne 0x28007970
mov ecx, dword [ebp - 0x18]
cmp ecx, dword [ebp - 0x20]
jbe 0x28007991
mov eax, dword [ebp - 0x20]
push 2
sub ecx, eax
push ecx
mov ecx, dword [ebp - 0x28]
jmp 0x280079a4
mov ecx, dword [ebp - 0x14]
cmp ecx, dword [ebp - 0x20]
jbe 0x280079b8
mov eax, dword [ebp - 0x20]
push 2
sub ecx, eax
push ecx
mov ecx, dword [ebp - 0x24]
add eax, ecx
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_catpvn_flags
add esp, 0x14
jmp 0x28007c07
mov eax, dword [edi]
mov ecx, dword [edi + 0xc]
mov eax, dword [eax + 8]
and byte [eax + ecx], 0
jmp 0x28007c07
mov esi, edx
dec edx
test esi, esi
je 0x280079df
lea esi, [edx + 1]
mov dl, byte [eax]
and dl, byte [ecx]
mov byte [ebx], dl
inc ebx
inc eax
inc ecx
dec esi
jne 0x280079d3
and byte [ebx], 0
jmp 0x28007c07
mov eax, dword [ebp + 0xc]
and dword [ebp - 0x20], 0
mov esi, dword [ebp - 0x14]
mov edi, dword [ebp - 0x18]
sub eax, 0x5b
mov dword [ebp - 0x24], ebx
je 0x28007b7b
dec eax
je 0x28007a9b
dec eax
je 0x28007a3e
mov eax, dword [ebp + 0x10]
cmp eax, dword [ebp + 0x14]
je 0x28007a17
cmp eax, dword [ebp + 0x18]
jne 0x28007a1e
push ebx
call sym.perl510.dll_Perl_safesysfree
pop ecx
mov eax, dword [ebp + 0xc]
push dword [eax*4 + sym.perl510.dll_PL_op_name]
push eax
push str.panic:_do_vop_called_for_op__u___s_
push dword [ebp + 8]
call sym.perl510.dll_Perl_croak
add esp, 0x10
jmp 0x28007bfe
test esi, esi
je 0x28007af0
test edi, edi
je 0x28007afa
lea eax, [ebp - 0x10]
push 0x69
push eax
push esi
push dword [ebp - 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
mov dword [ebp + 0xc], eax
mov eax, dword [ebp - 0x10]
add dword [ebp - 8], eax
sub esi, eax
lea eax, [ebp - 0x10]
push 0x69
push eax
push edi
push dword [ebp - 0xc]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
or eax, dword [ebp + 0xc]
mov ecx, dword [ebp - 0x10]
add dword [ebp - 0xc], ecx
push 0
push eax
push ebx
push dword [ebp + 8]
sub edi, ecx
call sym.perl510.dll_Perl_uvuni_to_utf8_flags
add esp, 0x38
mov ebx, eax
jmp 0x28007a3e
test esi, esi
je 0x28007af0
test edi, edi
je 0x28007afa
lea eax, [ebp - 0x10]
push 0x69
push eax
push esi
push dword [ebp - 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
mov dword [ebp + 0xc], eax
mov eax, dword [ebp - 0x10]
add dword [ebp - 8], eax
sub esi, eax
lea eax, [ebp - 0x10]
push 0x69
push eax
push edi
push dword [ebp - 0xc]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
xor eax, dword [ebp + 0xc]
mov ecx, dword [ebp - 0x10]
add dword [ebp - 0xc], ecx
push 0
push eax
push ebx
push dword [ebp + 8]
sub edi, ecx
call sym.perl510.dll_Perl_uvuni_to_utf8_flags
add esp, 0x38
mov ebx, eax
jmp 0x28007a9b
test edi, edi
je 0x28007afa
push edi
push dword [ebp - 0xc]
jmp 0x28007b02
test esi, esi
je 0x28007b10
push esi
push dword [ebp - 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_savepvn
add esp, 0xc
mov dword [ebp - 0x20], eax
mov eax, dword [ebp + 0x10]
cmp eax, dword [ebp + 0x14]
je 0x28007b1d
cmp eax, dword [ebp + 0x18]
jne 0x28007b36
push 0
push dword [ebp - 0x1c]
push dword [ebp - 0x24]
push dword [ebp + 0x10]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_usepvn_flags
mov eax, dword [ebp + 0x10]
add esp, 0x14
sub ebx, dword [ebp - 0x24]
mov ecx, dword [eax]
test edi, edi
mov dword [ecx + 8], ebx
je 0x28007b58
push 2
push edi
push dword [ebp - 0x20]
push dword [ebp + 0x10]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_catpvn_flags
add esp, 0x14
jmp 0x28007b6d
test esi, esi
je 0x28007b61
push 2
push esi
jmp 0x28007b45
mov ecx, dword [eax]
mov eax, dword [eax + 0xc]
mov ecx, dword [ecx + 8]
and byte [ecx + eax], 0
push dword [ebp - 0x20]
call sym.perl510.dll_Perl_safesysfree
pop ecx
jmp 0x28007bfe
test esi, esi
je 0x28007bd0
test edi, edi
je 0x28007bd0
lea eax, [ebp - 0x10]
push 0x69
push eax
push esi
push dword [ebp - 8]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
mov dword [ebp + 0xc], eax
mov eax, dword [ebp - 0x10]
add dword [ebp - 8], eax
sub esi, eax
lea eax, [ebp - 0x10]
push 0x69
push eax
push edi
push dword [ebp - 0xc]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
and eax, dword [ebp + 0xc]
mov ecx, dword [ebp - 0x10]
add dword [ebp - 0xc], ecx
push 0
push eax
push ebx
push dword [ebp + 8]
sub edi, ecx
call sym.perl510.dll_Perl_uvuni_to_utf8_flags
add esp, 0x38
mov ebx, eax
jmp 0x28007b7b
mov eax, dword [ebp + 0x10]
cmp eax, dword [ebp + 0x14]
je 0x28007bdd
cmp eax, dword [ebp + 0x18]
jne 0x28007bf6
push 0
push dword [ebp - 0x1c]
push dword [ebp - 0x24]
push dword [ebp + 0x10]
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_usepvn_flags
mov eax, dword [ebp + 0x10]
add esp, 0x14
sub ebx, dword [ebp - 0x24]
mov eax, dword [eax]
mov dword [eax + 8], ebx
mov eax, dword [ebp + 0x10]
mov edi, eax
or byte [eax + 0xb], 0x20
mov eax, dword [ebp + 8]
cmp byte [eax + 0x26f], 0
je 0x28007c2f
cmp byte [eax + 0x22e], 0
je 0x28007c2f
xor eax, eax
push eax
push eax
push 0x74
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_sv_magic
add esp, 0x18
pop edi
pop esi
pop ebx
leave
ret