Function at 0x4a6ea3
Capabilities:
Encrypt data using aes via winapi

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
push 0x401326
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0xcc
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401220
mov eax, dword [ebp + 8]
xor esi, esi
mov dword [ebp - 0x14], esi
mov dword [ebp - 0x28], esi
push dword [eax]
mov dword [ebp - 0x2c], esi
mov dword [ebp - 0x30], esi
mov dword [ebp - 0x34], esi
mov dword [ebp - 0x38], esi
mov dword [ebp - 0x48], esi
mov dword [ebp - 0x4c], esi
mov dword [ebp - 0x5c], esi
mov dword [ebp - 0x6c], esi
mov dword [ebp - 0x7c], esi
mov dword [ebp - 0x8c], esi
mov dword [ebp - 0x9c], esi
mov dword [ebp - 0xac], esi
mov dword [ebp - 0xb4], esi
call fcn.0044cff9
mov dword [ebp - 0x18], eax
mov eax, dword [ebp + 0xc]
lea edx, [ebp - 0x5c]
lea ecx, [ebp - 0x28]
mov eax, dword [eax]
mov dword [ebp - 0x5c], 8
mov dword [ebp - 0xc4], eax
mov dword [ebp - 0x54], eax
call sub.MSVBVM60.DLL___vbaVarCopy
call fcn.004a74cc
cmp eax, esi
mov dword [ebp - 0x34], eax
je 0x4a748a
push esi
push 4
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x34]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov edi, ecx
mov ecx, dword [eax + 0xc]
sub ecx, edi
call sub.MSVBVM60.DLL___vbaVarZero
mov eax, dword [ebp - 0x4c]
push 3
pop edi
mov dword [ebp - 0x64], 0x8003
mov dword [ebp - 0x6c], edi
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov ebx, ecx
mov ecx, dword [eax + 0xc]
sub ecx, ebx
lea edx, [ebp - 0x6c]
add ecx, 0x10
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp - 0x4c]
push 2
pop ebx
mov dword [ebp - 0x74], esi
mov ecx, ebx
mov dword [ebp - 0x7c], ebx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x7c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp - 0x4c]
mov ecx, edi
mov dword [ebp - 0x84], esi
mov dword [ebp - 0x8c], ebx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x8c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x30]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0x94], eax
mov eax, dword [ebp - 0x4c]
push 4
mov dword [ebp - 0x9c], edi
pop ecx
lea edx, [ebp - 0x9c]
sub ecx, dword [eax + 0x14]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x14
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
mov dword [ebp - 0xb0], eax
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
cmp dword [ebp - 0xb0], esi
je 0x4a7322
push esi
push edi
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x30]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xc8], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xc8]
sub ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
push dword [ebp - 0xc4]
call fcn.0044cb53
mov dword [ebp - 0x40], eax
lea eax, [ebp - 0x48]
push eax
mov dword [ebp - 0x48], 8
call fcn.004a6e28
mov dword [ebp - 0x64], eax
mov eax, dword [ebp - 0x4c]
mov dword [ebp - 0x6c], edi
lea edx, [ebp - 0x6c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xcc], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xcc]
sub ecx, eax
add ecx, 0x10
call sub.MSVBVM60.DLL___vbaVarMove
push dword [ebp - 0xc4]
call sub.MSVBVM60.DLL___vbaLenBstr
mov dword [ebp - 0x74], eax
mov eax, dword [ebp - 0x4c]
mov ecx, ebx
mov dword [ebp - 0x7c], edi
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x7c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp - 0x4c]
mov ecx, edi
mov dword [ebp - 0x84], esi
mov dword [ebp - 0x8c], ebx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x8c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x15
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
mov dword [ebp - 0xb0], eax
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
xor eax, eax
cmp dword [ebp - 0xb0], esi
lea ecx, [ebp - 0x48]
sete al
neg eax
mov dword [ebp - 0xbc], eax
call sub.MSVBVM60.DLL___vbaFreeVar
cmp word [ebp - 0xbc], si
jne 0x4a7322
lea eax, [ebp - 0x14]
push eax
push esi
push dword [ebp - 0x30]
push 0x6610
push dword [ebp - 0x34]
call sub.ADVAPI32.DLL_CryptDeriveKey
test eax, eax
je 0x4a7322
push esi
push 5
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x14]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xd0], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xd0]
sub ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
mov eax, dword [ebp - 0x4c]
mov dword [ebp - 0x64], esi
mov dword [ebp - 0x6c], ebx
lea edx, [ebp - 0x6c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xd4], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xd4]
sub ecx, eax
add ecx, 0x10
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp - 0x4c]
mov ecx, ebx
mov dword [ebp - 0x74], 1
mov dword [ebp - 0x7c], ebx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x7c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp - 0x4c]
mov ecx, edi
mov dword [ebp - 0x84], esi
mov dword [ebp - 0x8c], ebx
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x8c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp + 8]
push dword [eax]
lea eax, [ebp - 0x38]
push eax
call sub.MSVBVM60.DLL___vbaAryLock
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax + 0xc]
sub ecx, dword [eax + 0x14]
push ecx
call sub.MSVBVM60.DLL_VarPtr
mov ebx, eax
lea eax, [ebp - 0x38]
push eax
call sub.MSVBVM60.DLL___vbaAryUnlock
mov eax, dword [ebp - 0x4c]
push 4
pop ecx
mov dword [ebp - 0x94], ebx
mov dword [ebp - 0x9c], edi
sub ecx, dword [eax + 0x14]
lea edx, [ebp - 0x9c]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
mov ebx, dword [ebp - 0x18]
lea eax, [ebp - 0xb4]
push eax
mov dword [ebp - 0xb4], ebx
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xa4], eax
mov eax, dword [ebp - 0x4c]
push 5
mov dword [ebp - 0xac], edi
pop ecx
lea edx, [ebp - 0xac]
sub ecx, dword [eax + 0x14]
shl ecx, 4
add ecx, dword [eax + 0xc]
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x17
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
dec ebx
push esi
push ebx
push 1
push 0x11
push dword [ebp + 8]
push 1
push pe_nt_image_headers32
call sub.MSVBVM60.DLL___vbaRedimPreserve
add esp, 0x1c
or dword [ebp - 0x2c], 0xffffffff
cmp dword [ebp - 0x14], esi
je 0x4a7395
push esi
push esi
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
mov ebx, 0x880
push 0x10
push ebx
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x14]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xd8], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xd8]
sub ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x19
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
jmp 0x4a739a
mov ebx, 0x880
cmp dword [ebp - 0x30], esi
je 0x4a7406
push esi
push esi
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
push 0x10
push ebx
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x30]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov dword [ebp - 0xdc], ecx
mov ecx, dword [eax + 0xc]
mov eax, dword [ebp - 0xdc]
sub ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x1a
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
cmp dword [ebp - 0x34], esi
je 0x4a748a
push esi
push 1
push 1
lea eax, [ebp - 0x4c]
push esi
push eax
push 0x10
push ebx
call sub.MSVBVM60.DLL___vbaRedim
lea eax, [ebp - 0x34]
mov dword [ebp - 0x5c], 0x4003
mov dword [ebp - 0x54], eax
mov eax, dword [ebp - 0x4c]
add esp, 0x1c
lea edx, [ebp - 0x5c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov ebx, ecx
mov ecx, dword [eax + 0xc]
sub ecx, ebx
call sub.MSVBVM60.DLL___vbaVarZero
mov eax, dword [ebp - 0x4c]
mov dword [ebp - 0x64], esi
mov dword [ebp - 0x6c], edi
lea edx, [ebp - 0x6c]
mov ecx, dword [eax + 0x14]
shl ecx, 4
mov edi, ecx
mov ecx, dword [eax + 0xc]
sub ecx, edi
add ecx, 0x10
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4ab1f8]
push 0x1b
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0044cd34
lea eax, [ebp - 0x4c]
push eax
push esi
call sub.MSVBVM60.DLL___vbaErase
push 0x4a74b7
jmp 0x4a74ae
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaFreeVar
ret