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
[课程]FART 脱壳王!加量不加价!FART作者讲授!