Test Your VB Reversing Skills

[TheMinistered]

I went through and semi-reversed this function in an application my friend gave me, and as an additional clue (after I having figured it out), it has everything to do with iago!

Code Select Expand


.text:00401A10                 push    ebp
.text:00401A11                 mov     ebp, esp
.text:00401A13                 sub     esp, 0Ch
.text:00401A16                 push    offset loc_4010C6
.text:00401A1B                 mov     eax, large fs:0
.text:00401A21                 push    eax
.text:00401A22                 mov     large fs:0, esp
.text:00401A29                 sub     esp, 9Ch
.text:00401A2F                 push    ebx
.text:00401A30                 push    esi
.text:00401A31                 push    edi
.text:00401A32                 mov     [ebp-0Ch], esp
.text:00401A35                 mov     dword ptr [ebp-8], offset loc_4010B0
.text:00401A3C                 xor     esi, esi
.text:00401A3E                 mov     [ebp-4], esi
.text:00401A41                 mov     eax, [ebp+8]
.text:00401A44                 push    eax
.text:00401A45                 mov     ecx, [eax]
.text:00401A47                 call    dword ptr [ecx+4]
.text:00401A4A                 mov     edx, [ebp+0Ch]
.text:00401A4D                 xor     bl, bl
.text:00401A4F                 lea     ecx, [ebp-20h]
.text:00401A52                 mov     [ebp-18h], esi
.text:00401A55                 mov     [ebp-20h], esi
.text:00401A58                 mov     [ebp-2Ch], bl
.text:00401A5B                 mov     [ebp-30h], esi
.text:00401A5E                 mov     [ebp-40h], esi
.text:00401A61                 call    ds:__vbaStrCopy
.text:00401A67                 mov     esi, ds:__vbaUI1I2
.text:00401A6D                 mov     ecx, 7
.text:00401A72                 call    esi ; __vbaUI1I2
.text:00401A74                 mov     ecx, 2
.text:00401A79                 mov     [ebp-64h], al
.text:00401A7C                 call    esi ; __vbaUI1I2
.text:00401A7E                 mov     ecx, 1
.text:00401A83                 mov     [ebp-60h], al
.text:00401A86                 call    esi ; __vbaUI1I2
.text:00401A88                 mov     edi, ds:__vbaStrMove
.text:00401A8E                 mov     esi, ds:__vbaFpUI1
.text:00401A94                 mov     [ebp-28h], al
.text:00401A97
.text:00401A97 loc_401A97:                             ; CODE XREF: .text:00401B27j
.text:00401A97                 mov     dl, [ebp-28h]
.text:00401A9A                 mov     al, [ebp-64h]
.text:00401A9D                 cmp     dl, al
.text:00401A9F                 ja      loc_401B2C
.text:00401AA5                 mov     ecx, [ebp-28h]
.text:00401AA8                 mov     edx, [ebp-20h]
.text:00401AAB                 lea     eax, [ebp-40h]
.text:00401AAE                 and     ecx, 0FFh
.text:00401AB4                 push    eax
.text:00401AB5                 push    ecx
.text:00401AB6                 push    edx
.text:00401AB7                 mov     dword ptr [ebp-38h], 1
.text:00401ABE                 mov     dword ptr [ebp-40h], 2
.text:00401AC5                 call    ds:rtcMidCharBstr
.text:00401ACB                 mov     edx, eax
.text:00401ACD                 lea     ecx, [ebp-30h]
.text:00401AD0                 call    edi ; __vbaStrMove
.text:00401AD2                 push    eax
.text:00401AD3                 call    ds:rtcR8ValFromBstr
.text:00401AD9                 mov     eax, [ebp-2Ch]
.text:00401ADC                 fstp    qword ptr [ebp-58h]
.text:00401ADF                 and     eax, 0FFh
.text:00401AE4                 mov     [ebp-78h], eax
.text:00401AE7                 fild    dword ptr [ebp-78h]
.text:00401AEA                 fstp    qword ptr [ebp-80h]
.text:00401AED                 fld     qword ptr [ebp-80h]
.text:00401AF0                 fadd    qword ptr [ebp-58h]
.text:00401AF3                 fnstsw  ax
.text:00401AF5                 test    al, 0Dh
.text:00401AF7                 jnz     loc_401D9A
.text:00401AFD                 call    esi ; __vbaFpUI1
.text:00401AFF                 mov     bl, al
.text:00401B01                 lea     ecx, [ebp-30h]
.text:00401B04                 mov     [ebp-2Ch], bl
.text:00401B07                 call    ds:__vbaFreeStr
.text:00401B0D                 lea     ecx, [ebp-40h]
.text:00401B10                 call    ds:__vbaFreeVar
.text:00401B16                 mov     cl, [ebp-60h]
.text:00401B19                 mov     al, [ebp-28h]
.text:00401B1C                 add     cl, al
.text:00401B1E                 jb      loc_401D9F
.text:00401B24                 mov     [ebp-28h], cl
.text:00401B27                 jmp     loc_401A97
.text:00401B2C ; ---------------------------------------------------------------------------
.text:00401B2C
.text:00401B2C loc_401B2C:                             ; CODE XREF: .text:00401A9Fj
.text:00401B2C                 mov     ecx, 8
.text:00401B31                 call    ds:__vbaUI1I2
.text:00401B37                 mov     ecx, 2
.text:00401B3C                 mov     [ebp-6Ch], al
.text:00401B3F                 call    ds:__vbaUI1I2
.text:00401B45                 mov     ecx, 2
.text:00401B4A                 mov     [ebp-68h], al
.text:00401B4D                 call    ds:__vbaUI1I2
.text:00401B53                 mov     [ebp-28h], al
.text:00401B56
.text:00401B56 loc_401B56:                             ; CODE XREF: .text:00401C60j
.text:00401B56                 mov     dl, [ebp-28h]
.text:00401B59                 mov     al, [ebp-6Ch]
.text:00401B5C                 cmp     dl, al
.text:00401B5E                 ja      loc_401C65
.text:00401B64                 mov     ecx, [ebp-28h]
.text:00401B67                 mov     edx, [ebp-20h]
.text:00401B6A                 lea     eax, [ebp-40h]
.text:00401B6D                 and     ecx, 0FFh
.text:00401B73                 push    eax
.text:00401B74                 push    ecx
.text:00401B75                 push    edx
.text:00401B76                 mov     dword ptr [ebp-38h], 1
.text:00401B7D                 mov     dword ptr [ebp-40h], 2
.text:00401B84                 call    ds:rtcMidCharBstr
.text:00401B8A                 mov     edx, eax
.text:00401B8C                 lea     ecx, [ebp-30h]
.text:00401B8F                 call    edi ; __vbaStrMove
.text:00401B91                 push    eax
.text:00401B92                 call    ds:rtcR8ValFromBstr
.text:00401B98                 call    esi ; __vbaFpUI1
.text:00401B9A                 lea     ecx, [ebp-30h]
.text:00401B9D                 mov     [ebp-1Ch], al
.text:00401BA0                 call    ds:__vbaFreeStr
.text:00401BA6                 lea     ecx, [ebp-40h]
.text:00401BA9                 call    ds:__vbaFreeVar
.text:00401BAF                 mov     al, [ebp-1Ch]
.text:00401BB2                 mov     cl, 2
.text:00401BB4                 imul    cl
.text:00401BB6                 mov     [ebp-1Ch], al
.text:00401BB9                 mov     edx, [ebp-1Ch]
.text:00401BBC                 and     edx, 0FFh
.text:00401BC2                 mov     [ebp-84h], edx
.text:00401BC8                 fild    dword ptr [ebp-84h]
.text:00401BCE                 fstp    qword ptr [ebp-8Ch]
.text:00401BD4                 fld     qword ptr [ebp-8Ch]
.text:00401BDA                 cmp     dword_403000, 0
.text:00401BE1                 jnz     short loc_401BEB
.text:00401BE3                 fdiv    ds:dbl_4010A8
.text:00401BE9                 jmp     short loc_401BFC
.text:00401BEB ; ---------------------------------------------------------------------------
.text:00401BEB
.text:00401BEB loc_401BEB:                             ; CODE XREF: .text:00401BE1j
.text:00401BEB                 push    dword ptr ds:dbl_4010A8+4
.text:00401BF1                 push    dword ptr ds:dbl_4010A8
.text:00401BF7                 call    _adj_fdiv_m64
.text:00401BFC
.text:00401BFC loc_401BFC:                             ; CODE XREF: .text:00401BE9j
.text:00401BFC                 fnstsw  ax
.text:00401BFE                 test    al, 0Dh
.text:00401C00                 jnz     loc_401D9A
.text:00401C06                 call    ds:__vbaFPInt
.text:00401C0C                 movzx   ax, byte ptr [ebp-1Ch]
.text:00401C11                 cwd
.text:00401C13                 mov     cx, 0Ah
.text:00401C17                 idiv    cx
.text:00401C1A                 xor     ax, ax
.text:00401C1D                 mov     al, bl
.text:00401C1F                 add     dx, ax
.text:00401C22                 jo      loc_401D9F
.text:00401C28                 movsx   ecx, dx
.text:00401C2B                 mov     [ebp-90h], ecx
.text:00401C31                 fild    dword ptr [ebp-90h]
.text:00401C37                 fstp    qword ptr [ebp-98h]
.text:00401C3D                 fadd    qword ptr [ebp-98h]
.text:00401C43                 fnstsw  ax
.text:00401C45                 test    al, 0Dh
.text:00401C47                 jnz     loc_401D9A
.text:00401C4D                 call    esi ; __vbaFpUI1
.text:00401C4F                 mov     dl, [ebp-68h]
.text:00401C52                 mov     bl, al
.text:00401C54                 add     dl, [ebp-28h]
.text:00401C57                 jb      loc_401D9F
.text:00401C5D                 mov     [ebp-28h], dl
.text:00401C60                 jmp     loc_401B56
.text:00401C65 ; ---------------------------------------------------------------------------
.text:00401C65
.text:00401C65 loc_401C65:                             ; CODE XREF: .text:00401B5Ej
.text:00401C65                 mov     [ebp-2Ch], bl
.text:00401C68                 mov     eax, [ebp-2Ch]
.text:00401C6B                 and     eax, 0FFh
.text:00401C70                 mov     [ebp-9Ch], eax
.text:00401C76                 fild    dword ptr [ebp-9Ch]
.text:00401C7C                 fstp    qword ptr [ebp-0A4h]
.text:00401C82                 fld     qword ptr [ebp-0A4h]
.text:00401C88                 cmp     dword_403000, 0
.text:00401C8F                 jnz     short loc_401C99
.text:00401C91                 fdiv    ds:dbl_4010A8
.text:00401C97                 jmp     short loc_401CAA
.text:00401C99 ; ---------------------------------------------------------------------------
.text:00401C99
.text:00401C99 loc_401C99:                             ; CODE XREF: .text:00401C8Fj
.text:00401C99                 push    dword ptr ds:dbl_4010A8+4
.text:00401C9F                 push    dword ptr ds:dbl_4010A8
.text:00401CA5                 call    _adj_fdiv_m64
.text:00401CAA
.text:00401CAA loc_401CAA:                             ; CODE XREF: .text:00401C97j
.text:00401CAA                 fnstsw  ax
.text:00401CAC                 test    al, 0Dh
.text:00401CAE                 jnz     loc_401D9A
.text:00401CB4                 call    esi ; __vbaFpUI1
.text:00401CB6                 xor     cx, cx
.text:00401CB9                 mov     cl, al
.text:00401CBB                 imul    cx, 0Ah
.text:00401CBF                 jo      loc_401D9F
.text:00401CC5                 xor     dx, dx
.text:00401CC8                 mov     dl, bl
.text:00401CCA                 sub     cx, dx
.text:00401CCD                 jo      loc_401D9F
.text:00401CD3                 call    ds:__vbaUI1I2
.text:00401CD9                 mov     [ebp-24h], al
.text:00401CDC                 mov     eax, [ebp-20h]
.text:00401CDF                 push    1
.text:00401CE1                 push    eax
.text:00401CE2                 call    ds:rtcRightCharBstr
.text:00401CE8                 mov     edx, eax
.text:00401CEA                 lea     ecx, [ebp-30h]
.text:00401CED                 call    edi ; __vbaStrMove
.text:00401CEF                 push    eax
.text:00401CF0                 call    ds:rtcR8ValFromBstr
.text:00401CF6                 mov     ecx, [ebp-24h]
.text:00401CF9                 fstp    qword ptr [ebp-58h]
.text:00401CFC                 and     ecx, 0FFh
.text:00401D02                 mov     [ebp-0A8h], ecx
.text:00401D08                 fild    dword ptr [ebp-0A8h]
.text:00401D0E                 fstp    qword ptr [ebp-0B0h]
.text:00401D14                 fld     qword ptr [ebp-58h]
.text:00401D17                 call    ds:__vbaFpR8
.text:00401D1D                 fcomp   qword ptr [ebp-0B0h]
.text:00401D23                 fnstsw  ax
.text:00401D25                 test    ah, 40h
.text:00401D28                 jz      short loc_401D31
.text:00401D2A                 mov     eax, 1
.text:00401D2F                 jmp     short loc_401D33
.text:00401D31 ; ---------------------------------------------------------------------------
.text:00401D31
.text:00401D31 loc_401D31:                             ; CODE XREF: .text:00401D28j
.text:00401D31                 xor     eax, eax
.text:00401D33
.text:00401D33 loc_401D33:                             ; CODE XREF: .text:00401D2Fj
.text:00401D33                 neg     eax
.text:00401D35                 lea     ecx, [ebp-30h]
.text:00401D38                 mov     esi, eax
.text:00401D3A                 call    ds:__vbaFreeStr
.text:00401D40                 test    si, si
.text:00401D43                 jz      short loc_401D4C
.text:00401D45                 mov     dword ptr [ebp-18h], 0FFFFFFFFh
.text:00401D4C
.text:00401D4C loc_401D4C:                             ; CODE XREF: .text:00401D43j
.text:00401D4C                 wait
.text:00401D4D                 push    offset loc_401D71
.text:00401D52                 jmp     short loc_401D67
.text:00401D54 ; ---------------------------------------------------------------------------
.text:00401D54                 lea     ecx, [ebp-30h]
.text:00401D57                 call    ds:__vbaFreeStr
.text:00401D5D                 lea     ecx, [ebp-40h]
.text:00401D60                 call    ds:__vbaFreeVar
.text:00401D66                 retn
.text:00401D67 ; ---------------------------------------------------------------------------
.text:00401D67
.text:00401D67 loc_401D67:                             ; CODE XREF: .text:00401D52j
.text:00401D67                 lea     ecx, [ebp-20h]
.text:00401D6A                 call    ds:__vbaFreeStr
.text:00401D70                 retn
.text:00401D71 ; ---------------------------------------------------------------------------
.text:00401D71
.text:00401D71 loc_401D71:                             ; DATA XREF: .text:00401D4Do
.text:00401D71                 mov     eax, [ebp+8]
.text:00401D74                 push    eax
.text:00401D75                 mov     edx, [eax]
.text:00401D77                 call    dword ptr [edx+8]
.text:00401D7A                 mov     eax, [ebp+10h]
.text:00401D7D                 mov     cx, [ebp-18h]
.text:00401D81                 mov     [eax], cx
.text:00401D84                 mov     eax, [ebp-4]
.text:00401D87                 mov     ecx, [ebp-14h]
.text:00401D8A                 pop     edi
.text:00401D8B                 pop     esi
.text:00401D8C                 mov     large fs:0, ecx
.text:00401D93                 pop     ebx
.text:00401D94                 mov     esp, ebp
.text:00401D96                 pop     ebp
.text:00401D97                 retn    0Ch
.text:00401D9A ; ---------------------------------------------------------------------------
.text:00401D9A
.text:00401D9A loc_401D9A:                             ; CODE XREF: .text:00401AF7j
.text:00401D9A                                         ; .text:00401C00j ...
.text:00401D9A                 jmp     loc_4010CC
.text:00401D9F ; ---------------------------------------------------------------------------
.text:00401D9F
.text:00401D9F loc_401D9F:                             ; CODE XREF: .text:00401B1Ej
.text:00401D9F                                         ; .text:00401C22j ...
.text:00401D9F                 call    ds:__vbaErrorOverflow