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

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x24
mov eax, dword [0x7286bc]
xor eax, ebp
mov dword [ebp - 4], eax
mov eax, dword [0x73f5f4]
push ebx
mov ebx, dword [ebp + 0xc]
inc eax
mov dword [ebp - 0x1c], edx
mov dword [ebp - 0x14], ebx
mov dword [0x73f5f4], eax
push esi
mov esi, dword [ebp + 8]
mov dword [ebp - 0x18], esi
push edi
mov edi, ecx
mov dword [ebp - 0x24], edi
cmp eax, 1
jne 0x40904c
push 0
call fcn.00643abc
xor eax, 0xbb40e64e
push eax
call fcn.0063eef8
add esp, 8
push ebx
mov edx, esi
mov ecx, edi
call fcn.00408f80
add esp, 4
mov dword [ebp - 0x20], 0
call fcn.0063eed7
mov edx, dword [esi + 8]
mov edi, edx
mov ecx, dword [esi]
and edi, 0xfffd
sar eax, 7
or edi, 2
movzx ebx, al
mov eax, dword [esi]
mov esi, dword [ebp - 0x14]
xor eax, ebx
movzx eax, al
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edx
shr edx, 8
movzx eax, al
xor edx, dword [ecx + eax*4]
mov eax, edi
mov ecx, dword [ebp - 0x20]
xor eax, 1
imul eax, edi
mov dword [esi + 8], edx
shr eax, 8
xor al, bl
mov byte [ebp + ecx - 0x10], al
inc ecx
mov dword [ebp - 0x20], ecx
cmp ecx, 0xa
jl 0x409060
push dword [ebp - 0x14]
mov ecx, dword [ebp - 0x24]
mov edx, esi
call fcn.00408f80
mov ecx, dword [esi]
add esp, 4
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0x10]
and ebx, 0xfffd
xor eax, ecx
mov esi, dword [ebp - 0x14]
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0x10]
mov byte [ecx], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0xf]
and ebx, 0xfffd
mov esi, dword [ebp - 0x14]
xor eax, ecx
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0xf]
mov byte [ecx + 1], al
mov edi, dword [esi + 8]
mov ebx, edi
mov ecx, dword [esi]
and ebx, 0xfffd
movzx eax, byte [ebp - 0xe]
or ebx, 2
mov esi, dword [ebp - 0x14]
xor eax, ecx
movzx eax, al
shr ecx, 8
mov eax, dword [esi + eax*4]
xor eax, ecx
mov esi, dword [ebp - 0x18]
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
xor eax, 1
mov ecx, dword [ebp - 0x1c]
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0xe]
mov byte [ecx + 2], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0xd]
and ebx, 0xfffd
xor eax, ecx
mov esi, dword [ebp - 0x14]
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0xd]
mov byte [ecx + 3], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0xc]
and ebx, 0xfffd
mov esi, dword [ebp - 0x14]
xor eax, ecx
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov ecx, dword [ebp - 0x1c]
mov eax, ebx
xor eax, 1
mov dword [esi + 8], edi
imul eax, ebx
shr eax, 8
xor al, byte [ebp - 0xc]
mov byte [ecx + 4], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0xb]
and ebx, 0xfffd
xor eax, ecx
mov esi, dword [ebp - 0x14]
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0xb]
mov byte [ecx + 5], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 0xa]
and ebx, 0xfffd
mov esi, dword [ebp - 0x14]
xor eax, ecx
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 0xa]
mov byte [ecx + 6], al
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 9]
and ebx, 0xfffd
mov ecx, dword [esi]
or ebx, 2
xor eax, ecx
movzx eax, al
mov esi, dword [ebp - 0x14]
shr ecx, 8
mov eax, dword [esi + eax*4]
xor eax, ecx
mov esi, dword [ebp - 0x18]
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
xor eax, 1
mov ecx, dword [ebp - 0x1c]
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 9]
mov byte [ecx + 7], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 8]
and ebx, 0xfffd
xor eax, ecx
mov esi, dword [ebp - 0x14]
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 8]
mov byte [ecx + 8], al
mov ecx, dword [esi]
mov edi, dword [esi + 8]
mov ebx, edi
movzx eax, byte [ebp - 7]
and ebx, 0xfffd
mov esi, dword [ebp - 0x14]
xor eax, ecx
movzx eax, al
or ebx, 2
shr ecx, 8
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
movzx eax, al
mov ecx, dword [ebp - 0x14]
mov edx, dword [ebp + 0x10]
shr edi, 8
shr edx, 0x10
xor edi, dword [ecx + eax*4]
mov eax, ebx
xor eax, 1
mov ecx, dword [ebp - 0x1c]
imul eax, ebx
mov dword [esi + 8], edi
shr eax, 8
xor al, byte [ebp - 7]
mov byte [ecx + 9], al
mov ecx, dword [esi]
mov eax, ecx
mov edi, dword [esi + 8]
xor eax, edx
mov esi, dword [ebp - 0x14]
mov ebx, edi
movzx eax, al
and ebx, 0xfffd
shr ecx, 8
or ebx, 2
mov eax, dword [esi + eax*4]
mov esi, dword [ebp - 0x18]
xor eax, ecx
mov ecx, dword [ebp - 0x14]
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edi
shr edi, 8
movzx eax, al
xor edi, dword [ecx + eax*4]
mov eax, ebx
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, ebx
mov ebx, dword [ebp + 0x10]
mov dword [esi + 8], edi
shr ebx, 0x18
mov dword [ebp + 0x10], ebx
shr eax, 8
xor al, dl
mov byte [ecx + 0xa], al
mov ecx, dword [esi]
mov eax, ecx
xor eax, ebx
mov edx, dword [esi + 8]
mov ebx, dword [ebp - 0x14]
mov edi, edx
movzx eax, al
and edi, 0xfffd
shr ecx, 8
or edi, 2
mov eax, dword [ebx + eax*4]
xor eax, ecx
mov ecx, ebx
mov dword [esi], eax
movzx eax, al
add eax, dword [esi + 4]
imul eax, eax, 0x8088405
mov ebx, dword [ebp + 0x10]
inc eax
mov dword [esi + 4], eax
shr eax, 0x18
xor eax, edx
shr edx, 8
movzx eax, al
xor edx, dword [ecx + eax*4]
mov eax, edi
mov ecx, dword [ebp - 0x1c]
xor eax, 1
imul eax, edi
mov dword [esi + 8], edx
shr eax, 8
xor al, bl
mov byte [ecx + 0xb], al
mov eax, 0xc
mov ecx, dword [ebp - 4]
pop edi
pop esi
xor ecx, ebp
pop ebx
call fcn.00609802
mov esp, ebp
pop ebp
ret