不懂vb，能帮我看一下吗？
  Dim var_198 As Double
  Dim var_10C As Variant
              If (Me.txtZcm.Text = vbNullString) Then
  loc_4A2A7C:   MsgBox "注册失败", 0, "错?", var_EC, var_10C
  loc_4A2A8C:   Exit Sub
              End If
  loc_4A2A8D: Proc_0_33_49AE54()
  loc_4A2A92: var_198 = %x1
  loc_4A2A95: Proc_0_33_49AE54(var_198)
  loc_4A2ABC: var_EC = Mid$(CVar(CStr(var_198)), (Len(CStr(%x1)) - 4), 5)
  loc_4A2AE7: var_10C = var_EC ^ 3
              If (CVar(Me.txtZcm.Text) = (((Left(var_10C, 8) + 56) * 37) - &H96B43F)) Then
  loc_4A2B58:   MsgBox "注册成功！请退出软件重新运??", 0, "恭喜", var_EC, var_10C

Private sub Proc_0_33_49AE54
  'Data Table: 4047E4
  Dim var_B4 As Integer
  Dim var_8C As Double
  loc_49ADB4: New

  loc_49ADB8: var_A0 = %x1 'Address Function
  loc_49ADBF: VarLateMemLdRfVar
  loc_49ADDB: var_90 = CStr(Right(var_B4, 5))
  loc_49ADE7: var_A0 = Nothing 'Address
              For var_C8 = 1 To CInt(Len(var_90)): var_A2 = var_C8 'Integer
  loc_49AE33:   var_8C = CDbl(CStr(var_8C) & CStr(Asc(CStr(Mid$(var_90, CLng(var_A2), 1)))))
              Next var_C8 'Integer
  loc_49AE50: Result %x1: End Sub 'Double
End Sub

[课程]FART 脱壳王！加量不加价！FART作者讲授！