Code -> frmRegister -> Command1_Click_56126C

Private Sub Command1_Click() '56126C
  'Data Table: 40EEC4
  Dim var_90 As Variant
  Dim var_DC As Variant
  Dim var_FC As Integer
  Dim var_13C As Integer
  Dim var_88 As Long
  Dim var_EC As Long
  Dim var_11C As String
  Dim MemVar_6483C4 As Global
  loc_561052: var_BC = Chr(&HD)
  loc_56107B: var_8C = Replace(Replace(Replace(Me.Text2.Text, "-", vbNullString, 1, -1, 1),

CStr(Chr(&HA)), vbNullString, 1, -1, 1), CStr(var_BC), vbNullString, 1, -1, 1)
  loc_5610AD: var_8C = CStr(Trim(var_8C))
  loc_5610BB: If (var_8C = vbNullString) Then
  loc_5610D7:   MsgBox "请输入注册码!", &H30, var_BC, var_10C, var_12C
  loc_5610E7:   Exit Sub
  loc_5610E8: End If
  loc_5610EB: MemVar_645078 = var_8C
  loc_5610EF: var_DC = "RegisterCode"
  loc_5610F5: var_FC = 0
  loc_5610FB: var_13C = 0
  loc_561113: Set var_90 = MemVar_645058.Environment
  loc_561119: Call {779D218B-CECE-41CC-A400B8A1445930EF}.DispID_A0(True)
  loc_561125: var_88 = CLng(False)
  loc_561135: var_EC = 1
  loc_56114E: Set var_90 = MemVar_645058.Environment
  loc_561154: LateIdCallSt
  loc_56116B: SaveSetting("EGRID_SOFT_2005","user","registercode",var_8C)
  loc_561170: var_DC = "askforhelp"
  loc_56118B: Set var_90 = MemVar_645058.Environment
  loc_561191: Call {779D218B-CECE-41CC-A400B8A1445930EF}.DispID_A0(0)
  loc_5611AF: If (CLng(0) >= 0) Then
  loc_5611B9:   var_EC = 1
  loc_5611C2:   var_11C = vbNullString
  loc_5611D1:   Set var_90 = MemVar_645058.Environment
  loc_5611D7:   LateIdCallSt
  loc_5611E2: End If

后面的这可能是比较的部分，算法帮看下
Private Sub Form_Load() '569064
  'Data Table: 40EEC4
  Dim var_9C As TextBox
  Dim var_E0 As Variant
  Dim var_B0 As Variant
  Dim var_140 As Integer
  Dim var_90 As Long
  loc_568D9D: For var_98 = 1 To 5: var_8C = var_98 'Long
  loc_568E2C:   Me.Text1.Text = CStr(CVar(Me.Text1.Text) & IIf((var_8C = 1), vbNullString, "-") & Mid$(Proc_27_7_56FB40(), (((var_8C - 1) * 4) + 1), 4))
  loc_568E53: Next var_98 'Long
  loc_568E7E: Me.Text1.Text = Me.Text1.Text & "-VL"
  loc_568E91: var_B0 = "RegisterCode"
  loc_568E97: var_E0 = 0
  loc_568E9D: var_140 = 0
  loc_568EB5: Set var_9C = MemVar_645058.Environment
  loc_568EBB: Call {779D218B-CECE-41CC-A400B8A1445930EF}.DispID_A0(True)
  loc_568EC7: var_90 = CLng(False)
  loc_568ED9: If (var_90 >= 0) Then
  loc_568EF5:   Set var_9C = MemVar_645058.Environment
  loc_568EFB:   Call {779D218B-CECE-41CC-A400B8A1445930EF}.DispID_82(1)
  loc_568F06:   var_88 = CStr(var_90)
  loc_568F12: Else
  loc_568F15:   var_88 = vbNullString
  loc_568F18: End If
  loc_568F22: If (Len(var_88) > 4) Then
  loc_568F32:   For var_1D0 = 1 To 6: var_8C = var_1D0 'Long
  loc_568F60:     var_D0 = vbNullString
  loc_568FC1:     Me.Text2.Text = CStr(CVar(Me.Text2.Text) & IIf((var_8C = 1), var_D0, "-") & Mid$(var_88, (((var_8C - 1) * 4) + 1), 4))
  loc_568FE8:   Next var_1D0 'Long
  loc_568FED: End If
  loc_568FF7: If (Len(var_88) > &H18) Then
  loc_569043:   Me.Text2.Text = CStr(CVar(Me.Text2.Text & "-") & Mid$(var_88, &H19, var_D0))
  loc_569061: End If
  loc_569061: Exit Sub
End Sub

[课程]Linux pwn 探索篇！