Private Sub cmdOK_Click() '622101
loc_0062211F: call MSVBVM60.DLL.__vbaChkstk
loc_0062212A: var_8 = &H405F48
loc_00622165: var_148 = var_44
loc_0062217D: var_34 = Text1.Text
loc_00622185: var_14C = var_34
loc_006221C7: var_34 = var_34 And 00000000h
loc_006221D1: var_4C = var_34
loc_006221E3: var_64 = @Trim(8)
loc_006221EC: call MSVBVM60.DLL.__vbaStrVarMove(var_64, var_64, arg_8, edi, esi, esi, esi, esi, esi)
loc_006221F6: var_1C = MSVBVM60.DLL.__vbaStrVarMove(var_64, var_64, arg_8, edi, esi, esi, esi, esi, esi)
If Len(var_1C) <> 15 Then
loc_00622226: var_7C = 80020004h
loc_00622237: var_6C = 80020004h
loc_00622245: var_DC = "蚫\O衏:y"
loc_0062224F: var_E4 = 8
loc_00622267: var_CC = &H43C76C
loc_00622271: var_D4 = 8
loc_0062229E: MsgBox("蚫\O衏:y", 00000040h, 10, 10, 10)
loc_006222C0: GoTo loc_00622C4F
End If
loc_006222C8: var_CC = var_1C
loc_006222E3: var_54 = @Ucase(&H4008)
loc_006222EC: call MSVBVM60.DLL.__vbaStrVarMove(var_54)
loc_006222F6: var_1C = MSVBVM60.DLL.__vbaStrVarMove(var_54)
loc_00622315: word ptr var_18 = word ptr var_18 And 0000h
loc_0062231A: GoTo loc_00622331
loc_00622320: var_18 = var_18 + var_150
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622331: 'Referenced from 0062231A
If var_18 <= var_154 Then
loc_00622342: var_4C = 1
loc_00622353: var_CC = var_1C
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622375: movsx eax, ax
loc_00622389: var_6C = 1
loc_0062239A: var_EC = var_1C
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006223BC: movsx eax, ax
loc_006223D3: var_8C = 1
loc_006223EA: var_10C = var_1C
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_0062240F: movsx eax, ax
loc_00622426: var_AC = 1
loc_0062243D: var_12C = var_1C
loc_00622458: var_18 = var_18 + 0001h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622462: movsx eax, ax
loc_00622481: var_34 = @CStr(@Mid$(&H4008, var_18 + 0001h, 2))
loc_00622492: setnl bl
loc_00622495: neg ebx
loc_006224A2: var_38 = @CStr(@Mid$(&H4008, var_18 + 0001h, 2))
loc_006224B3: setle cl
loc_006224B6: neg ecx
loc_006224B8: bx = bx And cx
loc_006224C6: var_3C = @CStr(@Mid$(&H4008, var_18 + 0001h, 2))
loc_006224DE: setnl bl
loc_006224E1: neg ebx
loc_006224EE: var_40 = @CStr(""4)
loc_006224FF: setle cl
loc_00622502: neg ecx
loc_00622504: bx = bx And cx
loc_0062250E: ax = "" Or bx And cx
loc_00622511: not ax
loc_0062256E: movsx eax, word ptr "" Or bx And cx
If "" <> 0 Then
loc_0062257D: var_7C = 80020004h
loc_0062258E: var_6C = 80020004h
loc_0062259C: var_DC = "蚫\O衏:y"
loc_006225A6: var_E4 = 8
loc_006225BE: var_CC = &H43C76C
loc_006225C8: var_D4 = 8
loc_006225F5: MsgBox("蚫\O衏:y", 00000040h, 10, 10, 10)
loc_00622617: GoTo loc_00622C4F
End If
loc_0062261C: GoTo loc_0062231C
End If
If word ptr var_18 > 14 Then
loc_00622644: GoTo loc_0062265B
loc_0062264A: var_18 = var_18 + var_158
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622657: var_18 = var_18
loc_0062265B: 'Referenced from 00622644
If var_18 <= var_15C Then
loc_0062266C: var_4C = 1
loc_0062267A: var_CC = &H66EA28
loc_00622692: movsx eax, word ptr var_18
loc_006226BA: var_24 = Asc(@CStr(@Mid$(&H4008, 2, 2)))
loc_006226D8: var_4C = 1
loc_006226E9: var_CC = var_1C
loc_006226FD: movsx eax, word ptr var_18
loc_0062270D: var_64 = @Mid$(&H4008, 2, 2)
loc_00622725: var_28 = Asc(@CStr(var_64))
If word ptr var_24 >= 48 Then
If word ptr var_24 <= 57 Then
loc_00622755: var_24 = var_24 - 0030h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_0062275F: var_24 = var_24
loc_00622763: GoTo loc_00622785
End If
End If
If word ptr var_24 >= 65 Then
If word ptr var_24 <= 90 Then
loc_00622777: var_24 = var_24 - 0037h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622781: var_24 = var_24
End If
End If
If word ptr var_28 >= 48 Then
If word ptr var_28 <= 57 Then
loc_00622797: var_28 = var_28 - 0030h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006227A1: var_28 = var_28
loc_006227A5: GoTo loc_006227C7
End If
End If
If word ptr var_28 >= 65 Then
If word ptr var_28 <= 90 Then
loc_006227B9: var_28 = var_28 - 0037h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006227C3: var_28 = var_28
End If
End If
loc_006227CB: var_28 = var_28 + 0048h
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006227D5: var_28 = var_28 - var_18
If Err.Number <> 0 Then GoTo loc_00622CF1
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006227EF: idiv cx
loc_006227F2: movsx eax, dx
If var_28 - var_24 > 9 Then
loc_00622801: var_CC = var_2C
loc_00622807: var_D4 = 8
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622822: var_54 = @Chr(var_30 + 00000037h)
loc_00622836: call MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4)
loc_0062283C: call MSVBVM60.DLL.__vbaStrVarMove(MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4))
loc_00622846: var_2C = MSVBVM60.DLL.__vbaStrVarMove(MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4))
loc_0062285D: GoTo loc_006228BE
End If
loc_00622862: var_CC = var_2C
loc_00622868: var_D4 = 8
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622883: var_54 = @Chr(var_30 + 00000030h)
loc_00622897: call MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4)
loc_0062289D: call MSVBVM60.DLL.__vbaStrVarMove(MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4))
loc_006228A7: var_2C = MSVBVM60.DLL.__vbaStrVarMove(MSVBVM60.DLL.__vbaVarCat(var_64, var_54, var_D4))
loc_006228BE: 'Referenced from 0062285D
loc_006228BE: GoTo loc_00622646
End If
loc_006228C6: var_CC = var_2C
loc_006228E2: movsx eax, ax
If IsNumeric(&H4008) = 0 Then
loc_006228ED: var_7C = 80020004h
loc_006228FE: var_6C = 80020004h
loc_0062290C: var_DC = "蚫\O衏:y"
loc_00622916: var_E4 = 8
loc_0062292E: var_CC = &H43C76C
loc_00622938: var_D4 = 8
loc_00622965: MsgBox("蚫\O衏:y", 00000040h, 10, 10, 10)
loc_00622987: GoTo loc_00622C4F
End If
loc_00622994: var_66E164 = @CLng(%x2)
loc_006229B1: GoTo loc_006229C8
loc_006229B7: var_18 = var_18 + var_160
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_006229C4: var_18 = var_18
loc_006229C8: 'Referenced from 006229B1
If var_18 <= var_164 Then
loc_006229E3: idiv cx
loc_006229E6: movsx eax, dx
loc_006229E9: var_30 = var_18
loc_006229EC: var_4C = 1
loc_006229FD: var_CC = var_1C
loc_00622A11: movsx eax, word ptr var_18
loc_00622A21: var_64 = @Mid$(&H4008, 2, 2)
If Err.Number <> 0 Then GoTo loc_00622CF1
loc_00622A34: movsx eax, ax
If var_18 - 0001h - 0001h < 15 Then
loc_00622A46: var_17C = var_17C And 00000000h
loc_00622A4D: GoTo loc_00622A5A
End If
loc_00622A4F: call MSVBVM60.DLL.__vbaGenerateBoundsError
loc_00622A5A: 'Referenced from 00622A4D
loc_00622A62: var_34 = @CStr(var_64)
loc_00622A6F: call MSVBVM60.DLL.__vbaUI1I2
loc_00622A9A: GoTo loc_006229B3
End If
loc_00622A9F: var_7C = 80020004h
loc_00622AB0: var_6C = 80020004h
loc_00622ABE: var_5C = 80020004h
loc_00622ACC: var_CC = &H43C798
loc_00622AD6: var_D4 = 8
loc_00622B03: MsgBox(10, 00000000h, 10, 10, 10)
loc_00622B5B: var_148 = eax
loc_00622B6F: Call FRegister.LblSkycn_Click
loc_00622BB0: GoTo loc_00622C4F
End If
loc_00622BB5: var_7C = 80020004h
loc_00622BC6: var_6C = 80020004h
loc_00622BD4: var_DC = "蚫\O衏:y"
loc_00622BDE: var_E4 = 8
loc_00622BF6: var_CC = &H43C76C
loc_00622C00: var_D4 = 8
loc_00622C2D: MsgBox("蚫\O衏:y", 00000040h, 10, 10, 10)
loc_00622C4F: 'Referenced from 006222C0
loc_00622C5B: GoTo loc_00622CB9
loc_00622CB8: Exit Sub
loc_00622CB9: 'Referenced from 00622C5B
loc_00622CD1: Exit Sub
loc_00622CEE: Exit Sub
loc_00622CF1: 'Referenced from 0622327
loc_00622CF1: call 00407002h ; MSVBVM60.DLL.__vbaErrorOverflow
End Sub
[课程]FART 脱壳王！加量不加价！FART作者讲授！
