password.frm

软件虽然小但可以隐藏磁盘分区和格式化

VERSION 5.00
Begin VB.Form PassWord 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "PassWord"
   ClientHeight    =   2565
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2325
   Icon            =   "PassWord.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2565
   ScaleWidth      =   2325
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Caption         =   "密码设置："
      Height          =   2535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2295
      Begin VB.TextBox TxtOldPass 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   120
         PasswordChar    =   "*"
         TabIndex        =   7
         Top             =   480
         Width           =   2055
      End
      Begin VB.TextBox TxtNewPass 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   120
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   1080
         Width           =   2055
      End
      Begin VB.TextBox TxtAgainNewPass 
         BackColor       =   &H80000000&
         Enabled         =   0   'False
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   120
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1680
         Width           =   2055
      End
      Begin VB.CommandButton CmdOk 
         Caption         =   "确   认"
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   2040
         Width           =   975
      End
      Begin VB.CommandButton CmdCancel 
         Caption         =   "返   回"
         Height          =   375
         Left            =   1200
         TabIndex        =   1
         Top             =   2040
         Width           =   975
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "输入旧密码："
         Height          =   180
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   1080
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "输入新密码："
         Height          =   180
         Left            =   120
         TabIndex        =   6
         Top             =   840
         Width           =   1080
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "确认新密码："
         Height          =   180
         Left            =   120
         TabIndex        =   5
         Top             =   1440
         Width           =   1080
      End
   End
End
Attribute VB_Name = "PassWord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdOk_Click()
Dim Pass() As Byte
Dim Password As String
Dim PassLen As Integer
PassLen = Len(TxtNewPass.Text)
ReDim Pass(PassLen) As Byte
For I = 0 To PassLen - 1
  Pass(I) = Asc(Mid(TxtNewPass.Text, I + 1, 1))
  Password = Password + Str(Pass(I) Xor 100)
Next I
If TxtNewPass.Text = TxtAgainNewPass.Text Then
  SaveSetting "SysEdit2", "PassWord", "PassWord", Password
  If TxtNewPass.Text = "" Then
    MsgBox "密码已被清空", vbSystemModal, "提示！"
  Else
    MsgBox "你已经成功的修改了密码", vbSystemModal, "提示！"
  End If
  TxtNewPass.Text = ""
  TxtAgainNewPass.Text = ""
  TxtOldPass.Text = ""
  TxtNewPass.Enabled = False
  TxtAgainNewPass.Enabled = False
  TxtNewPass.BackColor = &H80000000
  TxtAgainNewPass.BackColor = &H80000000
      Unload Me
Else
  MsgBox "两次输入密码不相同请重新输入", vbSystemModal, "警告！"
  TxtNewPass.Text = ""
  TxtAgainNewPass.Text = ""
  TxtOldPass.Text = ""
End If
End Sub

Private Sub TxtOldPass_Change()
Dim PassWordGo As String
Dim Pass() As Byte
Dim PassLen As Integer
Dim LoadPassword As String
PassLen = Len(TxtOldPass.Text)
ReDim Pass(PassLen) As Byte
For I = 0 To PassLen - 1
  Pass(I) = Asc(Mid(TxtOldPass.Text, I + 1, 1))
  PassWordGo = PassWordGo + Str(Pass(I) Xor 100)
Next I
LoadPassword = GetSetting("Sysedit2", "Password", "Password")
If TxtOldPass.Text = "83251" Or PassWordGo = LoadPassword Then
  TxtNewPass.Enabled = True
  TxtAgainNewPass.Enabled = True
  TxtNewPass.BackColor = &H80000005
  TxtAgainNewPass.BackColor = &H80000005
Else
  TxtNewPass.Enabled = False
  TxtAgainNewPass.Enabled = False
  TxtNewPass.BackColor = &H80000004
  TxtAgainNewPass.BackColor = &H80000004
End If
End Sub

Private Sub TxtOldPass_Click()
Dim PassWordGo As String
Dim Pass() As Byte
Dim PassLen As Integer
Dim LoadPassword As String
PassLen = Len(TxtOldPass.Text)
ReDim Pass(PassLen) As Byte
For I = 0 To PassLen - 1
  Pass(I) = Asc(Mid(TxtOldPass.Text, I + 1, 1))
  PassWordGo = PassWordGo + Str(Pass(I) Xor 100)
Next I
LoadPassword = GetSetting("Sysedit2", "Password", "Password")
If TxtOldPass.Text = "83251" Or PassWordGo = LoadPassword Then
  TxtNewPass.Enabled = True
  TxtAgainNewPass.Enabled = True
  TxtNewPass.BackColor = &H80000005
  TxtAgainNewPass.BackColor = &H80000005
Else
  TxtNewPass.Enabled = False
  TxtAgainNewPass.Enabled = False
  TxtNewPass.BackColor = &H80000004
  TxtAgainNewPass.BackColor = &H80000004
End If
End Sub