to: jafi(加肥猫) leskey(阿康) 取得cmos中的开机密码的例子已发出,取得的密码不是原始设置的密码,而是一组四进制数字
我有一个award的bios密码读取器(VB写的),要的话留email或到我的主页下载.
jshyjyw(紫狐): 谁说要再开机画面之前执行? 当然是模拟机器重启动
Option Explicit Dim ptin As Boolean Private Sub command1_Click() Text1.Text = GetPassWord(PASSHI, PASSLOW) End SubPrivate 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 FunctionPrivate 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'以下在moduleOption Explicit Public Const CONFBYTE = &H11 Public Const PASSLOW = &H1C Public Const PASSHI = &H1D Public Const USERPASSLOW = &H4D Public Const USERPASSHI = &H4E Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer) Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer) Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer Public Function GetCmosContent(ByVal nData As Integer) As Integer vbOut &H70, nData GetCmosContent = vbInp(&H71) End Function
to fishboyok(fish): DeityFox(神狐): CodeDemon(CWL): nothingneed(玄痴):谢谢! My Email: [email protected] My QQ:3300756 很希望和你成为朋友,有空我们多联系
to fishboyok(fish): DeityFox(神狐): CodeDemon(CWL): nothingneed(玄痴): woowindice(黑山老妖): 谢谢! My Email: [email protected] My QQ:3300756 很希望和你们成为朋友,有空我们多联系
to woowindice(黑山老妖): 执行语句:vbOut &H70, nData时发生“48”错误。 "文件没找到,win95io.dll"
作木马模拟开机画面,也不可能在开机口令之前出现啊?有没有办法读出CMOS里的信息?
我记得好象在哪看到动态改变CMOS密码的文章,但怎么也找不到了。
out &h71,&0
jshyjyw,搞定了发一个给我行吗? :)[email protected]
我另外给50分
[email protected]
leskey(阿康)
取得cmos中的开机密码的例子已发出,取得的密码不是原始设置的密码,而是一组四进制数字
谁说要再开机画面之前执行?
当然是模拟机器重启动
Dim ptin As Boolean
Private Sub command1_Click()
Text1.Text = GetPassWord(PASSHI, PASSLOW)
End SubPrivate 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 FunctionPrivate 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'以下在moduleOption Explicit
Public Const CONFBYTE = &H11
Public Const PASSLOW = &H1C
Public Const PASSHI = &H1D
Public Const USERPASSLOW = &H4D
Public Const USERPASSHI = &H4E
Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Public Function GetCmosContent(ByVal nData As Integer) As Integer
vbOut &H70, nData
GetCmosContent = vbInp(&H71)
End Function
DeityFox(神狐):
CodeDemon(CWL):
nothingneed(玄痴):谢谢!
My Email: [email protected]
My QQ:3300756
很希望和你成为朋友,有空我们多联系
DeityFox(神狐):
CodeDemon(CWL):
nothingneed(玄痴):
woowindice(黑山老妖):
谢谢!
My Email: [email protected]
My QQ:3300756
很希望和你们成为朋友,有空我们多联系
执行语句:vbOut &H70, nData时发生“48”错误。
"文件没找到,win95io.dll"
得出的密码与原来的不一样,但是也能打开。
ASII码,然后转换回来,就可以了,黑山老妖讲的太复杂,有没有简单的吗,难道这高手
都不会:P
但我在网上找到一个小软件可以读出CMOS的密码,名为cmos.exe,才53.6K,得出的密码与原来的不一样,但是也能打开。
因此,这个问题就告一段落。