在逆一个crackme,vb写的,注册成功,标签上有提示,注册失败,标签上无提示,对于VB程序的套路,我还是不太熟悉,
贴上一些VB函数
00401000 >72A49841 msvbvm60.__vbaVarTstGt
00401004 >72A477EA msvbvm60.__vbaVarSub
00401008 >72A20507 msvbvm60.__vbaStrI2
0040100C >72A39386 msvbvm60._CIcos
00401010 >72A309F9 msvbvm60._adj_fptan
00401014 >72A20537 msvbvm60.__vbaStrI4
00401018 >72A46AEE msvbvm60.__vbaVarMove
0040101C >72A46831 msvbvm60.__vbaFreeVar
00401020 >72A0C244 msvbvm60.__vbaAryMove
00401024 >72A21929 msvbvm60.__vbaStrVarMove
00401028 >72A26A9B msvbvm60.__vbaLenBstr
0040102C >72A476B2 msvbvm60.__vbaVarIdiv
00401030 >72A47262 msvbvm60.__vbaFreeVarList
00401034 >72A302BA msvbvm60._adj_fdiv_m64
00401038 >72A19FC3 msvbvm60.__vbaFreeObjList
0040103C >72A270B7 msvbvm60.rtcAnsiValueBstr
00401040 >72A21A7C msvbvm60.__vbaStrErrVarCopy
00401044 >72A30941 msvbvm60._adj_fprem1
00401048 >72A26A76 msvbvm60.__vbaStrCat
0040104C >72A1A274 msvbvm60.__vbaHresultCheckObj
00401050 >72A3026E msvbvm60._adj_fdiv_m32
00401054 >72A43940 msvbvm60.__vbaAryVar
00401058 >72A495DB msvbvm60.__vbaVarXor
0040105C >72A1C1FE msvbvm60.__vbaAryDestruct
00401060 >72A493CC msvbvm60.__vbaVarForInit
00401064 >72A1CD05 msvbvm60.rtcRandomNext
00401068 >72A1CD3A msvbvm60.rtcRandomize
0040106C >72A2499D msvbvm60.__vbaOnError
00401070 >72A19FF1 msvbvm60.__vbaObjSet
00401074 >72A30306 msvbvm60._adj_fdiv_m16i
00401078 >72A30406 msvbvm60._adj_fdivr_m16i
0040107C >72A394EE msvbvm60._CIsin
00401080 >72A1C0FD msvbvm60.__vbaErase
00401084 >72A2702F msvbvm60.rtcMidCharVar
00401088 >72A362EA ASCII "QWP="
0040108C >72A09B74 msvbvm60.EVENT_SINK_AddRef
00401090 >72A1C410 msvbvm60.__vbaGenerateBoundsError
00401094 >72A1C6AE msvbvm60.__vbaAryConstruct2
00401098 >72A21A08 msvbvm60.__vbaI2I4
0040109C >72A47534 msvbvm60.__vbaFpUI1
004010A0 >72A309F6 msvbvm60._adj_fpatan
004010A4 >72A1C30A msvbvm60.__vbaRedim
004010A8 >72A09B87 msvbvm60.EVENT_SINK_Release
004010AC >72A219DC msvbvm60.__vbaUI1I2
004010B0 >72A39593 msvbvm60._CIsqrt
004010B4 >72A49589 msvbvm60.__vbaVarAnd
004010B8 >72A09A85 msvbvm60.EVENT_SINK_QueryInterface
004010BC >72A47660 msvbvm60.__vbaVarMul
004010C0 >72A247DF msvbvm60.__vbaExceptHandler
004010C4 >72A37DDB msvbvm60.rtcSplit
004010C8 >72A30689 msvbvm60._adj_fprem
004010CC >72A303BA msvbvm60._adj_fdivr_m64
004010D0 >72A20F56 msvbvm60.rtcVarBstrFromAnsi
004010D4 >72A47513 msvbvm60.__vbaFPException
004010D8 >72A2738D msvbvm60.__vbaInStrVar
004010DC >72A28FE9 msvbvm60.rtcStrConvVar2
004010E0 >72A1C65A msvbvm60.__vbaUbound
004010E4 >72A21948 msvbvm60.__vbaStrVarVal
004010E8 >72A2697D msvbvm60.__vbaVarCat
004010EC >72A3942B msvbvm60._CIlog
004010F0 >72A0E867 msvbvm60.__vbaErrorOverflow
004010F4 >7294A296 msvbvm60.__vbaInStr
004010F8 >72A43AEC msvbvm60.__vbaVar2Vec
004010FC >72A3033A msvbvm60._adj_fdiv_m32i
00401100 >72A3043A msvbvm60._adj_fdivr_m32i
00401104 >72A26C4A msvbvm60.__vbaStrCopy
00401108 >72A21381 msvbvm60.rtcHexVarFromVar
0040110C >72A26C01 msvbvm60.__vbaFreeStrList
00401110 >72A3036E msvbvm60._adj_fdivr_m32
00401114 >72A211CA msvbvm60.__vbaPowerR8
00401118 >72A2FDA9 msvbvm60._adj_fdiv_r
0040111C >729435A4 msvbvm60.ThunRTMain
00401120 >72A24E2F msvbvm60.__vbaI4Var
00401124 >72A477C1 msvbvm60.__vbaVarAdd
00401128 >72A46DF6 msvbvm60.__vbaVarDup
0040112C >72A47559 msvbvm60.__vbaFpI2
00401130 >72A476DB msvbvm60.__vbaVarMod
00401134 >72A392C0 msvbvm60._CIatan
00401138 >72A0C20D msvbvm60.__vbaAryCopy
0040113C >72A26C30 msvbvm60.__vbaStrMove
00401140 >72A2980A msvbvm60.__vbaR8IntI4
00401144 >72A2EEED msvbvm60._allmul
00401148 >72A39644 msvbvm60._CItan
0040114C >72A24E13 msvbvm60.__vbaUI1Var
00401150 >72A493FA msvbvm60.__vbaVarForNext
00401154 >72A2DD11 msvbvm60._CIexp
00401158 >72A26BEC msvbvm60.__vbaFreeStr
0040115C >72A19FAF msvbvm60.__vbaFreeObj
00401160 >72A1325A msvbvm60.rtcR8ValFromBstr