cmos.frm

BIOS密码查看器

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "PassWord Snipper"
   ClientHeight    =   1290
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6240
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1290
   ScaleWidth      =   6240
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox SB 
      Align           =   2  'Align Bottom
      AutoRedraw      =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   6180
      TabIndex        =   3
      Top             =   825
      Width           =   6240
      Begin VB.Label lbEmail 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "[e-mail]"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   210
         Left            =   4560
         TabIndex        =   4
         Top             =   120
         Width           =   1470
      End
   End
   Begin VB.CommandButton CmdPass 
      Caption         =   "Get Coms Password"
      Default         =   -1  'True
      Height          =   615
      Left            =   4320
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label lbPassWord 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   0
      TabIndex        =   2
      ToolTipText     =   "此密码可能不与设置时的一样,但是它在多数情况下能够工作!"
      Top             =   240
      Width           =   3975
   End
   Begin VB.Label lbPass 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Superior Password:"
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   1365
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ptin As Boolean
Private Sub CmdPass_Click()
lbPassWord = GetPassWord(PASSHI, PASSLOW)
End Sub

Private Function DecToQuad(ByVal vDec As Integer) As String
Dim vLow As Integer, vHi As Integer 'middle varible
Dim str As String
str = CStr(vDec)
vLow = Val(vDec) Mod 4
vHi = Val(vDec) \ 4
str = CStr(vHi) + CStr(vLow)
DecToQuad = str
End Function

Private Function GetPassWord(ByVal Hi As Integer, ByVal Low As Integer) As String
Dim vRet As Integer, i As Integer
Dim vStr As String, HexStr As String
Dim Index As Integer
For Index = Hi To Low Step -1
    vRet = GetCmosContent(Index)
    HexStr = Hex(vRet)
    For i = 1 To Len(CStr(HexStr))
        vStr = vStr + DecToQuad(Val("&H" + Mid(HexStr, i, 1)))
    Next i
Next Index
GetPassWord = vStr
End Function

Private Function IsPassWordEnable() As Boolean
Dim vRet As Integer
vRet = GetCmosContent(CONFBYTE)
If vRet And 2 Then
    IsPassWordEnable = True
End If
End Function
Private Function PassWordLevel() As Boolean
Dim vRet As Integer
vRet = GetCmosContent(CONFBYTE)
If vRet And 1 Then
    'True is System Level
    PassWordLevel = True
Else
    'False is Setup Level
    PassWordLevel = False
End If
End Function

Private Sub Form_Load()
SB.CurrentY = (SB.ScaleHeight - SB.TextHeight("")) / 2
If IsPassWordEnable Then
    SB.Print "Password:Enable|";
Else
    SB.Print "Password:Disable|";
End If
If PassWordLevel = True Then
    SB.Print "Security Level:System"
Else
    SB.Print "Security Level:Setup"
End If
End Sub

Private Sub lbEmail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not ptin Then
    lbEmail.Font.Underline = True
    lbEmail.ForeColor = vbRed
    ptin = True
End If
End Sub

Private Sub lbEmail_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Call Shell("start.exe mailto:[e-mail]", vbHide)
End If
End Sub

Private Sub SB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ptin Then
    lbEmail.Font.Underline = False
    lbEmail.ForeColor = vbBlue
    ptin = False
End If
End Sub