Function at 0x411de8
Capabilities:
Encrypt data using aes via winapi
Encrypt or decrypt via wincrypt
Hash data with md5
Initialize hashing via wincrypt

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
push 0x4023b6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x88
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401320
mov eax, dword [ebp + 8]
mov eax, dword [eax]
not eax
not eax
push eax
call fcn.00402330
mov dword [ebp - 0x18], eax
call fcn.004120f6
mov dword [ebp - 0x24], eax
lea eax, [ebp - 0x20]
push eax
push 0
push 0
push 0x8003
push dword [ebp - 0x24]
call sub.ADVAPI32.DLL_CryptCreateHash
push 0
push 3
push 1
push 0
lea eax, [ebp - 0x4c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x20]
mov dword [ebp - 0x64], eax
mov dword [ebp - 0x6c], 0x4003
lea edx, [ebp - 0x6c]
mov eax, dword [ebp - 0x4c]
xor ecx, ecx
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x4c]
mov eax, dword [eax + 0xc]
add ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
mov eax, dword [ebp + 0xc]
push dword [eax]
call fcn.00401e8a
mov dword [ebp - 0x30], eax
mov dword [ebp - 0x38], 8
lea eax, [ebp - 0x38]
push eax
call fcn.00411d70
mov dword [ebp - 0x74], eax
mov dword [ebp - 0x7c], 3
lea edx, [ebp - 0x7c]
mov eax, dword [ebp - 0x4c]
push 1
pop ecx
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x4c]
mov eax, dword [eax + 0xc]
add ecx, eax
call sub.MSVBVM60.DLL___vbaVarMove
mov eax, dword [ebp + 0xc]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL_rtcLenCharVar
lea edx, [ebp - 0x48]
mov eax, dword [ebp - 0x4c]
push 2
pop ecx
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x4c]
mov eax, dword [eax + 0xc]
add ecx, eax
call sub.MSVBVM60.DLL___vbaVarZero
and dword [ebp - 0x84], 0
mov dword [ebp - 0x8c], 2
lea edx, [ebp - 0x8c]
mov eax, dword [ebp - 0x4c]
push 3
pop ecx
sub ecx, dword [eax + 0x14]
shl ecx, 4
mov eax, dword [ebp - 0x4c]
mov eax, dword [eax + 0xc]
add ecx, eax
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x4c]
push eax
mov eax, dword [0x4131f8]
push 0x15
pop ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [0x4131f8]
mov eax, dword [eax + 0xc]
push dword [eax + ecx*4]
call fcn.0040206b
mov dword [ebp - 0x90], eax
lea eax, [ebp - 0x4c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
xor eax, eax
cmp dword [ebp - 0x90], 0
sete al
neg eax
mov word [ebp - 0x94], ax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaFreeVar
lea eax, [ebp - 0x14]
push eax
push 0
push dword [ebp - 0x20]
push 0x6610
push dword [ebp - 0x24]
call sub.ADVAPI32.DLL_CryptDeriveKey
mov eax, dword [ebp + 8]
push dword [eax]
lea eax, [ebp - 0x28]
push eax
call sub.MSVBVM60.DLL___vbaAryLock
lea eax, [ebp - 0x18]
push eax
mov eax, dword [ebp - 0x28]
xor ecx, ecx
sub ecx, dword [eax + 0x14]
mov eax, dword [ebp - 0x28]
mov eax, dword [eax + 0xc]
add eax, ecx
push eax
push 0
push 1
push 0
push dword [ebp - 0x14]
call sub.ADVAPI32.DLL_CryptDecrypt
mov dword [ebp - 0x90], eax
lea eax, [ebp - 0x28]
push eax
call sub.MSVBVM60.DLL___vbaAryUnlock
or word [ebp - 0x1c], 0xffff
push 0x412009
jmp 0x412008
ret