| 网站首页 | JAVA文章 | AppServers | Web开发 | 应用开发 | 资源下载 | 论坛
    想学好编程，学好外语很重要  [enadd  2006年12月25日]        
设为首页 加入收藏 联系站长
您现在的位置： 编程笔记网 >> 应用开发 >> vb >> VB加密 >> 文章正文
破解WINDOWS屏幕保护密码            【字体：小 大】
破解WINDOWS屏幕保护密码
作者：未知    文章来源：-    点击数：    更新时间：2006-8-9

破解WINDOWS屏幕保护密码





　　一日，忽然发现用自己输入的密码不能上网，知道自己的健忘症又犯了，于是便坐下来苦苦回忆线索……只记得当初为方便记忆，上网与屏幕保护程序使用的是同一密码。于是找出大叠资料，意欲破解屏幕保护密码！

　　大家都知道，屏幕保护密码最多为16个字符。微软内置了16字节的密钥：48 EE 76 1D 67 69 A1 1B 7A 8C 47 F8 54 95 97 5F。Windows便用上述密钥加密你输入的密码。其加密过程为：首先将你输入的密码字符逐位转换为其16进制的ASCⅡ码值（小写字母先转为大写字母），再依次与对应密钥逐位进行异或运算，把所得16进制值的每一位当作字符，转换为其16进制ASCII码，并在其尾加上00作为结束标志，存入注册表HKEY_CURRENT_USER\Control Panel\desktop下的二进制键ScreenSave_Data中。

　　懂得其加密原理后，便不难编程破解我的屏幕保护密码（即上网密码）了。本人用VB6.0编制了一读取注册表中ScrrenSave_Data值的函数GetBinaryValue(Entry As String),读出其值为31 43 41 33 33 43 35 35 33 34 32 31 00,去掉其结束标志00，把余下字节转换为对应的ASCII字符，并把每两个字符组成一16进制数：1C A3 3C 55 34 21，显然，密码为6位，将其与前6字节密钥逐一异或后便得出密码的ASCII码（16进制值）：54 4D 4A 48 53 48,对应的密码明文为TMJHSH，破解成功！用它拔号一试，呵，立刻传来Modem欢快的叫声。

　　附VB源程序：(程序中使用了窗体Form1，文本框Text1，命令按钮Command1)

　　1、窗体代码：

　　Option Explicit

　　Dim Cryptograph As String

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　Dim CryptographStr(32) As Integer

　　Dim PWstr As String

　　Dim PassWord As String

　　Private Sub Command1_Click()

　　PWstr = “"

　　PassWord = “"

　　Text1.Text =“"

　　Cryptograph = GetBinaryValue(“ScreenSave_Data")

　　k = Len(Cryptograph)

　　For j = 1 To k － 1

　　 For i = 32 To 126

　　 If Mid(Cryptograph, j, 1) = Chr(i) Then

　　 CryptographStr(j) = i

　　 End If

　　 Next i

　　Next j

　　i = (k － 1) / 2 '密码位数为(h－1)/2,根据位数选择解密过程。

　　Select Case i

　　Case 16

　　 GoTo 16

　　Case 15

　　 GoTo 15

　　Case 14

　　 GoTo 14

　　Case 13

　　 GoTo 13

　　Case 12

　　 GoTo 12

　　Case 11

　　 GoTo 11

　　Case 10

　　 GoTo 10

　　Case 9

　　 GoTo 9

　　Case 8

　　 GoTo 8

　　Case 7

　　 GoTo 7

　　Case 6

　　 GoTo 6

　　Case 5

　　 GoTo 5

　　Case 4

　　 GoTo 4

　　Case 3

　　 GoTo 3

　　Case 2

　　 GoTo 2

　　Case 1

　　 GoTo 1

　　Case Else

　　 End

　　End Select

　　16: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(31)) ＆ Chr(CryptographStr(32))) Xor ＆H5F)

　　15: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(29)) ＆ Chr(CryptographStr(30))) Xor ＆H97)

　　14: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(27)) ＆ Chr(CryptographStr(28))) Xor ＆H95)

　　13: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(25)) ＆ Chr(CryptographStr(26))) Xor ＆H54)

　　12: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(23)) ＆ Chr(CryptographStr(24))) Xor ＆HF8)

　　11: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(21)) ＆ Chr(CryptographStr(22))) Xor ＆H47)

　　10: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(19)) ＆ Chr(CryptographStr(20))) Xor ＆H8C)

　　9: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(17)) ＆ Chr(CryptographStr(18))) Xor ＆H7A)

　　8: PWstr = PWstr ＆ Chr((“＆H" ＆ Chr(CryptographStr(15)) ＆ Chr(CryptographStr(16))) Xor ＆H1B

[1] [2] [3] 下一页  
文章录入：enadd    责任编辑：enadd 
  • 上一篇文章：

  • 下一篇文章：
    • 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    最新热点 最新推荐 相关文章
  • 用VB编写DirectX7.0游戏（下…

  • 用VB编写DirectX7.0游戏（上…

  • 使用OLE DB和ADO调用返回记录…

  • 使用VB调用Oracle程序包内的…

  • VB中用ADO对象动态创建数据库…

  • fffff

  • 如何用MSComm Control传Bina…

  • MultiLink的WinSock Server程…

  • 用VB制作浏览器

  • 用VB编写网络寻呼机

    		•
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
    Copyright ©2000 - 2005 Enadd.com
    备案序号:辽ICP备06005595号 QQ:1656107
    站长：enadd