Function at 0x4803a0
Capabilities:
Encode data using xor
Generate random numbers using the delphi lcg

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x1c
mov eax, dword [0x4ea5e0]
xor eax, ebp
mov dword [ebp - 4], eax
mov eax, dword [ebp + 0xc]
mov dword [ebp - 0x18], eax
mov eax, dword [0x54487c]
push ebx
push esi
mov esi, dword [0x54482c]
inc eax
push edi
mov dword [ebp - 0x14], esi
mov dword [0x54487c], eax
cmp eax, 1
jne 0x4803e7
push 0
call fcn.004a92ca
xor eax, 0xbb40e64e
push eax
call fcn.004a9297
add esp, 8
mov eax, esi
call fcn.00480320
mov dword [ebp - 0x1c], 0
call fcn.004a92a9
mov edi, dword [0x53455c]
mov ebx, dword [0x579f80]
sar eax, 7
and eax, 0xff
mov edx, dword [0x534564]
mov ecx, edi
xor ecx, eax
and ecx, 0xff
shr edi, 8
xor edi, dword [ebx + ecx*4]
mov esi, edx
mov ecx, edi
mov dword [0x53455c], ecx
movzx ecx, cl
add ecx, dword [0x534560]
and esi, 0xfffd
imul ecx, ecx, 0x8088405
inc ecx
mov dword [0x534560], ecx
shr ecx, 0x18
xor ecx, edx
shr edx, 8
and ecx, 0xff
xor edx, dword [ebx + ecx*4]
or esi, 2
mov dword [0x534564], edx
mov edx, esi
xor edx, 1
imul edx, esi
shr edx, 8
xor dl, al
mov eax, dword [ebp - 0x1c]
mov byte [ebp + eax - 0x10], dl
inc eax
mov dword [ebp - 0x1c], eax
cmp eax, 0xa
jl 0x4803f5
mov eax, dword [ebp - 0x14]
call fcn.00480320
xor edi, edi
nop
mov esi, dword [0x53455c]
movzx eax, byte [ebp + edi - 0x10]
xor eax, esi
and eax, 0xff
mov ecx, dword [0x534564]
shr esi, 8
xor esi, dword [ebx + eax*4]
mov edx, ecx
mov eax, esi
mov dword [0x53455c], eax
movzx eax, al
add eax, dword [0x534560]
and edx, 0xfffd
imul eax, eax, 0x8088405
inc eax
mov dword [0x534560], eax
shr eax, 0x18
xor eax, ecx
shr ecx, 8
and eax, 0xff
xor ecx, dword [ebx + eax*4]
mov eax, dword [ebp - 0x18]
mov dword [0x534564], ecx
or edx, 2
mov ecx, edx
xor ecx, 1
imul ecx, edx
push eax
movzx eax, byte [ebp + edi - 0x10]
shr ecx, 8
and ecx, 0xff
xor ecx, eax
push ecx
call fcn.004afb55
mov ebx, dword [0x579f80]
inc edi
add esp, 8
cmp edi, 0xa
jl 0x480490
mov esi, dword [ebp + 8]
mov edi, dword [0x53455c]
mov ecx, dword [0x534564]
mov eax, esi
shr eax, 0x10
mov dword [ebp - 0x14], eax
xor eax, edi
and eax, 0xff
shr edi, 8
xor edi, dword [ebx + eax*4]
mov edx, ecx
mov eax, edi
mov dword [0x53455c], eax
movzx eax, al
add eax, dword [0x534560]
and edx, 0xfffd
imul eax, eax, 0x8088405
inc eax
mov dword [0x534560], eax
shr eax, 0x18
xor eax, ecx
and eax, 0xff
shr ecx, 8
xor ecx, dword [ebx + eax*4]
mov ebx, dword [ebp - 0x18]
or edx, 2
mov eax, edx
xor eax, 1
imul eax, edx
mov dword [0x534564], ecx
mov ecx, esi
shr ecx, 8
xor eax, ecx
shr eax, 8
and eax, 0xff
push ebx
push eax
call fcn.004afb55
mov edi, dword [0x53455c]
mov eax, dword [0x579f80]
mov ecx, dword [0x534564]
shr esi, 0x18
xor esi, edi
and esi, 0xff
shr edi, 8
xor edi, dword [eax + esi*4]
mov esi, dword [0x579f80]
mov eax, edi
mov dword [0x53455c], eax
movzx eax, al
add eax, dword [0x534560]
mov edx, ecx
imul eax, eax, 0x8088405
inc eax
mov dword [0x534560], eax
shr eax, 0x18
xor eax, ecx
shr ecx, 8
and eax, 0xff
xor ecx, dword [esi + eax*4]
and edx, 0xfffd
mov dword [0x534564], ecx
or edx, 2
mov ecx, edx
xor ecx, 1
imul ecx, edx
and ecx, 0xff00
xor ecx, dword [ebp - 0x14]
push ebx
shr ecx, 8
push ecx
call fcn.004afb55
mov ecx, dword [ebp - 4]
add esp, 0x10
pop edi
pop esi
xor ecx, ebp
pop ebx
call fcn.004a8a2f
mov esp, ebp
pop ebp
ret