外挂编程

开发平台：
Visual Basic

内测版验证.frm：源码内容
							VERSION 5.00
Begin VB.Form 内测版验证 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "内测资格验证"
   ClientHeight    =   3090
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4815
   Icon            =   "内测版验证.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4815
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "请输入内测通行证："
      Height          =   2895
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   4575
      Begin VB.CommandButton Command2 
         Caption         =   "离开"
         Height          =   375
         Left            =   3240
         TabIndex        =   7
         Top             =   2280
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "注册"
         Height          =   375
         Left            =   1680
         TabIndex        =   5
         Top             =   2280
         Width           =   1095
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   840
         TabIndex        =   0
         Top             =   1575
         Width           =   3495
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00000000&
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   840
         Locked          =   -1  'True
         TabIndex        =   3
         Top             =   975
         Width           =   3495
      End
      Begin VB.Label Label3 
         Caption         =   "　　为了防止内测版本流失,每位内测员只能在一台机器上使用!"
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   120
         TabIndex        =   6
         Top             =   360
         Width           =   4215
      End
      Begin VB.Label Label2 
         Caption         =   "通行证："
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "机器码："
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   1080
         Width           =   855
      End
   End
End
Attribute VB_Name = "内测版验证"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Text2.Text = Mid(Trim(Text2.Text), 1, 32)
If Len(Text2.Text) <> 32 Then
   MsgBox "通行证错误！请重新输入！", 0, "失败"
Else
   SaveSetting "Bl", "yz", "key", Text2.Text
   MsgBox "通行证已经写入,请重新启动软件！", 0, "提示"
   End
End If
End Sub
Private Sub Command2_Click()
   End
End Sub
Private Sub Form_Load()
On Error Resume Next
Call Mac '调用Mac号
Text1.Text = Mid(md5(Mac_name), 5, 16)
Call yzkey(Text1.Text)
End Sub
Sub yzkey(key As String)
On Error Resume Next
Dim a13$, s$
Dim a1 As String, a2 As String, a3 As String, a4 As String, a5 As String
Dim a6 As String, a7 As String, a8 As String, a9 As String, a10 As String
Dim a11 As String, a12 As String, a14 As String, a15 As String
Dim md As String, md1 As String, ws As Integer, a As String
Dim tem As String
md = md5(key)
a1 = Mid(md, 10, 1)
a5 = Mid(md, 20, 1)
a10 = Asc(Mid(md, 18, 1))
a11 = Mid(md, 4, 1)
a12 = Asc(Mid(md, 1, 1))
a6 = Asc(Mid(md, 16, 1))
a7 = Mid(md, 2, 1)
a8 = Mid(md, 8, 1)
a9 = Asc(Mid(md, 2, 1))
a2 = Mid(md, 18, 1)
a3 = Mid(md, 25, 1)
a4 = Mid(md, 1, 1)
a = a2 & a4 & a1 & a7 & a5 & a2 & a6 & a9 & a8 & a1 & a10 & a12
ws = Len(a)
a13 = Mid(a, ws - 12, 6)
md1 = md5(a13)
a14 = Mid(md1, 19, 3)
a15 = Mid(md1, 18, 3)
tem = GetSetting("Bl", "yz", "key")
If tem = md5(UCase(a14 & a13 & a15)) Then
   Main.Visible = False
   Unload 内测版验证
End If
End Sub

						