Function at 0x4073e0
Capabilities:
Compress data via winapi

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x401526
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0xac
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x4012e0
mov edi, dword [ebp + 8]
mov eax, dword [edi]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaUbound]
xor ebx, ebx
push eax
push 1
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x3c], ebx
mov dword [ebp - 0x4c], ebx
mov dword [ebp - 0x5c], ebx
mov dword [ebp - 0x6c], ebx
mov dword [ebp - 0x7c], ebx
mov dword [ebp - 0x8c], ebx
call esi
test eax, eax
je 0x4076ea
mov ecx, dword [edi]
push ebx
push ecx
push 1
call esi
mov dword [ebp - 0xa8], eax
fild dword [ebp - 0xa8]
fstp qword [ebp - 0xb0]
fld qword [ebp - 0xb0]
fmul qword [0x4012d8]
fnstsw ax
test al, 0xd
jne 0x407746
call dword [sym.imp.MSVBVM60.DLL___vbaFpI4]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaRedim]
push eax
push 1
push 0x11
lea edx, [ebp - 0x20]
push edx
push 1
push 0x80
call esi
push ebx
push 5
push 1
push ebx
lea eax, [ebp - 0x2c]
push eax
push 0x10
push 0x880
call esi
mov eax, 2
mov dword [ebp - 0x34], eax
mov dword [ebp - 0x3c], eax
mov eax, dword [ebp - 0x2c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov esi, ecx
mov ecx, dword [eax + 0xc]
sub ecx, esi
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaVarMove]
add esp, 0x38
lea edx, [ebp - 0x3c]
call esi
mov edx, dword [ebp - 0x20]
push edx
lea eax, [ebp - 0x24]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryLock]
mov ecx, dword [ebp - 0x24]
cmp ecx, ebx
je 0x40750b
cmp word [ecx], 1
jne 0x40750b
mov ebx, dword [ecx + 0x14]
mov eax, dword [ecx + 0x10]
neg ebx
cmp ebx, eax
jb 0x407507
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov ecx, dword [ebp - 0x24]
mov eax, ebx
jmp 0x407514
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov ecx, dword [ebp - 0x24]
mov ecx, dword [ecx + 0xc]
mov ebx, dword [sym.imp.MSVBVM60.DLL_VarPtr]
add ecx, eax
push ecx
call ebx
lea edx, [ebp - 0x24]
push edx
mov dword [ebp - 0x90], eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryUnlock]
mov eax, dword [ebp - 0x90]
mov dword [ebp - 0x44], eax
mov eax, dword [ebp - 0x2c]
mov dword [ebp - 0x4c], 3
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xb4], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xb4]
sub ecx, eax
lea edx, [ebp - 0x4c]
add ecx, 0x10
call esi
mov ecx, dword [edi]
push ecx
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaUbound]
mov dword [ebp - 0xb8], eax
fild dword [ebp - 0xb8]
mov dword [ebp - 0x5c], 5
mov ecx, 2
lea edx, [ebp - 0x5c]
fstp qword [ebp - 0xc0]
fld qword [ebp - 0xc0]
fmul qword [0x4012d8]
fstp qword [ebp - 0x54]
fnstsw ax
test al, 0xd
jne 0x407746
mov eax, dword [ebp - 0x2c]
sub ecx, dword [eax + 0x14]
shl ecx, 4
add ecx, dword [eax + 0xc]
call esi
mov edx, dword [edi]
push edx
lea eax, [ebp - 0x28]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryLock]
mov ecx, dword [ebp - 0x28]
test ecx, ecx
je 0x4075f4
cmp word [ecx], 1
jne 0x4075f4
mov eax, dword [ecx + 0x14]
mov edx, dword [ecx + 0x10]
neg eax
cmp eax, edx
mov dword [ebp - 0x9c], eax
jb 0x4075fd
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov ecx, dword [ebp - 0x28]
mov eax, dword [ebp - 0x9c]
jmp 0x4075fd
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
mov ecx, dword [ebp - 0x28]
mov ecx, dword [ecx + 0xc]
add ecx, eax
push ecx
call ebx
lea edx, [ebp - 0x28]
push edx
mov dword [ebp - 0x94], eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryUnlock]
mov eax, dword [ebp - 0x94]
mov dword [ebp - 0x64], eax
mov eax, dword [ebp - 0x2c]
mov ecx, 3
mov dword [ebp - 0x6c], ecx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x6c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call esi
mov ecx, dword [edi]
push ecx
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaUbound]
mov dword [ebp - 0x74], eax
mov eax, dword [ebp - 0x2c]
mov edi, 3
mov dword [ebp - 0x7c], edi
mov ecx, 4
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x7c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call esi
lea edx, [ebp - 0x18]
push edx
call ebx
mov dword [ebp - 0x84], eax
mov eax, dword [ebp - 0x2c]
mov dword [ebp - 0x8c], edi
mov edi, dword [eax + 0x14]
mov ecx, 5
sub ecx, edi
mov edi, dword [eax + 0xc]
shl ecx, 4
lea edx, [ebp - 0x8c]
add ecx, edi
call esi
lea eax, [ebp - 0x2c]
push eax
push 0x402f2c
push 0x402ab0
call fcn.004058c0
lea ecx, [ebp - 0x2c]
push ecx
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaErase]
mov eax, dword [ebp - 0x18]
test eax, eax
je 0x4076ea
push 0
sub eax, 1
jo 0x40774b
push eax
push 1
push 0x11
lea edx, [ebp - 0x20]
push edx
push 1
push 0x80
call dword [sym.imp.MSVBVM60.DLL___vbaRedimPreserve]
add esp, 0x1c
lea eax, [ebp - 0x20]
push eax
lea ecx, [ebp - 0x1c]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaAryCopy]
wait
push 0x407730
jmp 0x407723
lea eax, [ebp - 0x20]
push eax
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
ret
jmp 0x40152c
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop