045654666666666666666345546654?
我汗

Private Sub Command1_Click() '404648
  'Data Table: 403CA0
  loc_40432C: On Error Goto loc_404642
              If (Len(Text1.Text) >= 8) Then
  loc_4043A4:   var_C4 = Left(CVar(var_C8), (Len(Text1.Text) - (Len(Text1.Text) - 1))) 'Variant
  loc_404419:   var_E8 = Right(Left(CVar(var_C8), (Len(Text1.Text) - (Len(Text1.Text) - 3))), 1) 'Variant
  loc_404492:   var_F8 = Right(Left(CVar(var_C8), (Len(Text1.Text) - (Len(Text1.Text) - 5))), 1) 'Variant
  loc_40450B:   var_108 = Right(Left(CVar(var_C8), (Len(Text1.Text) - (Len(Text1.Text) - 7))), 1) 'Variant
                If (Text1.Text = "DiDi_IranVig") Then
  loc_40459A:     Me.global_52 = CInt(((((Val(CStr(var_F8)) + Val(CStr(var_108))) - Val(CStr(var_E8))) + Val(CStr(var_C4))) * CDbl(&HA)))
  loc_4045B6:     var_138 = CVar((Me.global_52 + &HC)) 'Variant
  loc_4045C1:     var_158 = "True" 'Variant
  loc_4045C5:     GoTo loc_404640
                End If
  loc_404615:   Me.global_52 = CInt((((Val(CStr(var_F8)) + Val(CStr(var_108))) - Val(CStr(var_E8))) + Val(CStr(var_C4))))
  loc_404631:   var_138 = CVar((Me.global_52 * &H12)) 'Variant
  loc_40463C:   var_158 = "False" 'Variant
  loc_404640:   ' Referenced from: 4045C5
  loc_404642:   ' Referenced from: 40432C
              End If
  loc_404646: Exit Sub
End Sub

Private Sub Timer1_Timer() '4042C8
  'Data Table: 403CA0
  loc_40414A: ' Referenced from: 4041F7
  loc_404151: var_94 = 9 'Variant
              If ((Text1.Text = "IranVig Crackers") And (Me.global_52 = 2008)) Then
  loc_40418C:   var_BC = "OK! This is True!" 'Variant
  loc_4041AD:   GoTo loc_40420A
  loc_4041C2:   Label3.Top = CDbl(CVar(((3 * (5 + (8 Mod Me.global_52))) * &H64)))
  loc_4041E5:   MsgBox("LoL! Could be true but NO!", 0, var_FC, var_11C, var_13C)
  loc_4041F7:   GoTo loc_40414A
  loc_4041FA:   GoTo loc_4042C3
              End If
  loc_404206: var_BC = "This is not a valid code!" 'Variant
  loc_40420A: ' Referenced from: 4041AD
              If (Me.global_52 > 8) Then
  loc_40421F:   Me.global_52 = 8
              End If
              If (Me.global_52 = 0) Then
  loc_404237:   Me.global_52 = 1
              End If
  loc_40427E: var_CC = (((CVar((8 Mod Me.global_52)) + 5) * 3) * 100) 'Variant
              If CBool(var_CC <> CVar(Label3.Top)) Then
  loc_4042BB:   Label3.Top = CDbl(var_CC)
  loc_4042C3:   ' Referenced from: 4041FA
              End If
  loc_4042C7: Exit Sub
End Sub

Thank You Very Good Find My Pass

lunglungyu Please Cracked (Any Serial True Message)

f5 for pcode??原来vb decompiler这么强大了，一直以为gpch出的都是垃圾

Thank forgot For Help