pashow.frm

通过硬盘系列号对通行密码加密,保证只能让本机使用

VERSION 5.00
Begin VB.Form pashow 
   Caption         =   "通行检验"
   ClientHeight    =   2325
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4530
   LinkTopic       =   "Form1"
   ScaleHeight     =   2325
   ScaleWidth      =   4530
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   2160
      TabIndex        =   5
      Top             =   1680
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   1680
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   1215
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   4215
      Begin VB.TextBox Text2 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1800
         MaxLength       =   10
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   720
         Width           =   2175
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   1800
         MaxLength       =   10
         TabIndex        =   2
         Top             =   240
         Width           =   2175
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   120
         Picture         =   "Pashow.frx":0000
         Top             =   360
         Width           =   480
      End
      Begin VB.Label Label1 
         Caption         =   "姓名："
         Height          =   375
         Left            =   840
         TabIndex        =   1
         Top             =   240
         Width           =   975
      End
   End
End
Attribute VB_Name = "pashow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
i = 0

Dim ty As String
ty = "c:\"
lserial = GetSerialNumber(ty)
i = Len(Trim(lserial))
okp = ""
J = 1
Do While J <= i
p = Mid(Trim(lserial), J, 1)
Select Case p
 Case "1"
  okp = okp + "A"
 Case "2"
  okp = okp + "B"
 Case "3"
  okp = okp + "C"
   Case "4"
  okp = okp + "D"
 Case "5"
  okp = okp + "E"
 Case "6"
  okp = okp + "F"
 Case "7"
  okp = okp + "G"
 Case "8"
  okp = okp + "X"
 Case "9"
  okp = okp + "Y"
 Case "0"
  okp = okp + "Z"
End Select
J = J + 1
Loop
Text1.Text = okp

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

i = 0
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If Trim(Adodc1.Recordset.Fields("useno")) = Trim(Text1.Text) Then
If Trim(Adodc1.Recordset.Fields("usepa")) = Trim(Text2.Text) Then
xmxm = Trim(Text1.Text)
Dim ty As String
ty = "c:\"
lserial = GetSerialNumber(ty)
i = Len(Trim(Adodc1.Recordset.Fields("usezc")))
okp = ""
J = 1
Do While J <= i
p = Mid(Trim(Adodc1.Recordset.Fields("usezc")), J, 1)
Select Case p
 Case "A"
  okp = okp + "1"
 Case "B"
  okp = okp + "2"
 Case "C"
  okp = okp + "3"
 Case "D"
  okp = okp + "4"
 Case "E"
  okp = okp + "5"
 Case "F"
  okp = okp + "6"
 Case "G"
  okp = okp + "7"
 Case "X"
  okp = okp + "8"
 Case "Y"
  okp = okp + "9"
 Case "Z"
  okp = okp + "0"
End Select
J = J + 1
Loop
If lserial = Val(okp) Then
no1 = Text1.Text
 Unload pashow
 hamain.Show

Else
uu = MsgBox("软件未注册！", vbInformation + vbOKOnly, "提示：")
Exit Do
End If

Else
io = MsgBox("密码错误", vbOKOnly, "提示：")
Exit Do
End If
Else
Adodc1.Recordset.MoveNext
End If
Loop



End If









End Sub