说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

破解WINDOWS屏幕保护密码 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
破解WINDOWS屏幕保护密码 -VB资料
大家都知道,屏幕保护密码最多为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)
  7: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(13)) & Chr(CryptographStr(14))) Xor &HA1)
  6: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(11)) & Chr(CryptographStr(12))) Xor &H69)
  5: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(9)) & Chr(CryptographStr(10))) Xor &H67)
  4: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(7)) & Chr(CryptographStr(8))) Xor &H1D)
  3: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(5)) & Chr(CryptographStr(6))) Xor &H76)
  2: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(3)) & Chr(CryptographStr(4))) Xor &HEE)
  1: PWstr = PWstr & Chr((“&H" & Chr(CryptographStr(1)) & Chr(CryptographStr(2))) Xor &H48)
  For i = i To 1 Step -1 '所得PWstr的值为密码的倒序列,将其倒置便得出密码。
   PassWord = PassWord & Mid(PWstr, i, 1)
  Next i
  Text1.Text = PassWord '在文本框内显示密码。
  End Sub
  2、模块代码:
  Option Explicit
  Const ERROR_SUCCESS = 0&
  Const ERROR_BADDB = 1009&
  Const ERROR_BADKEY = 1010&
  Const REG_EXPAND_SZ = 2&
  Const REG_BINARY = 3&
  Const KEY_QUERY_VALUE = &H1&
  Const KEY_ENUMERATE_SUB_KEYS = &H8&
  Const KEY_NOTIFY = &H10&
  Const READ_CONTROL = &H20000
  Const STANDARD_RIGHTS_READ = READ_CONTROL
  Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
  Const HKEY_CURRENT_USER = &H80000001
  Dim hKey As Long, MainKeyHandle As Long
  Dim rtn As Long, lBuffer As Long, sBuffer As String, SubKey As String
  Dim lBufferSize As Long
  Declare Function RegOpenKeyEx Lib “advapi32.dll" Alias “RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  Declare Function RegCloseKey Lib “advapi32.dll" (ByVal hKey As Long) As Long
  Declare Function RegQueryValueEx Lib“advapi32.dll" Alias“Reg QueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
  Function GetBinaryValue(Entry As String)
  MainKeyHandle = HKEY_CURRENT_USER
  SubKey = “Control Panel\desktop\"
  rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey)
   If rtn = ERROR_SUCCESS Then '如果HKEY_CURRENT_USER\Control Panel\desktop键被成功打开
   lBufferSize = 1
   rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, 0, lBufferSize) '读取ScreenSave_Data的值
   sBuffer = Space(lBufferSize)
   rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, sBuffer, lBufferSize)
   If rtn = ERROR_SUCCESS Then '如果读取ScreenSave_Data的值成功
   rtn = RegCloseKey(hKey)
   GetBinaryValue = sBuffer '函数返回ScreenSave_Data的值
   Else '如果读取ScreenSave_Data的值不成功
   Call ErrorMsg
   End
   End If
  Else '如果HKEY_CURRENT_USER\Control Panel\desktop键不能打开
   Call ErrorMsg '调用ErrorMsg()过程
   End
   End If
  End Function
  Private Sub ErrorMsg() '显示错误信息过程
   Select Case rtn
   Case ERROR_BADDB
   MsgBox (“您的计算机注册表有错误!")
  Case ERROR_BADKEY, REG_EXPAND_SZ
   MsgBox (“您的计算机未设屏保密码!")
  Case Else
   MsgBox (“破解过程中遇到未知错误,错误号:" & Str$(rtn))
   End Select
  End Sub(成都 田茂均 )


《近匠》UPYUN——从开发者变为服务者 移动开发者必须了解的10大跨平台工具 不差钱:30+收购案,170亿美元投资,IBM再度出手收购Cloudant 微软反击谷歌:Windows授权费降七成+硬件要求减少一半 [测试] 你的HTML5知识够金质吗? 基于OpenStack的虚拟机在线迁移 当64bit遇上8核心:高通发布Snapdragon 615 深圳Maker Faire创客市集:国内外创客组团来参展 腾讯正式发布QQ浏览器微信版 摩托罗拉今年推智能手表,有望提高续航能力 众筹未来必拥抱众智 果合报告:iOS趋势及手游开发六大核心策略 无视OpenStack的前车之鉴,SAP等毅然支持Cloud Foundry 轻松搞定TB级数据,开源GraphLab突破人类图计算“极限值” 英特尔至强E7 v2处理器:2倍性能提升,3倍内存容量,4倍I/O带宽 著名工业设计师Yves Béhar:“我们并不需要三星智能手表。” 跨平台的.NET运行环境 Mono 3.2.7发布! Google石博盟:抓住全球化和移动化的机遇 ShareSDK针对Unity发布社交化组件 2014 CocoaChina开发者大会将公布触控奖学金等高校合作计划 中低端智能手机热销,未来市场或主打价格战 Facebook开源flint:一个用D语言编写的C++静态代码分析器 AMD携手BlueStacks,下半年推出零售版双操作系统 历时6年 Github发布基于Web的桌面文本编辑器:Atom Ratchet:构建移动应用原型,新版支持Android 13个最狂帅炫酷的前沿科技研究项目 打动面试官的五大技能 乐视TV和NBA签约三年互联网电视版权 首度披露大屏运营策略 支撑4.5亿活跃用户的WhatsApp架构概览 免费使用Windows?微软推Windows 8.1 with Bing实验项目 C/C++开发者必不可少的15款编译器+IDE 不明白.. 请问遇到连接错误该如何解决? pws的日志在什么地方? 在VBA中如何使用ClipBoard 哪里可以下载mastering delphi 6,或者其他有关delphi6的书籍。 vb和access的问题 C++Builder不支持tif或tiff格式怎么办? 为何我的TQuery为只读? 用Winsock传送文件如何判断一个文件已经传送完毕?(一定给分!) VC程序方法的请教。 请问如何禁用一个页面的cache 不好意思,怎么把引号赋给一个变量?thank 关于字体的保存,用序列化 关于oracle连接的一个简单问题 一个构件地址35分,快快来吧。 如何实现实时监测注册表的变化呢??????????? 如何锁定一个SQL SERVER的表? 哪里有Rose2000? MMGG Redhat7.2Ftp,硬盘安装问题求救! 请问怎样设置phpmyadmin带用户名和密码的登陆界面? 本来打算跳楼的,想想还是先来这试试...... 下面代码有什么用? 想问一下关于BDE和ADO组件的对应关系 就是这本《VC++技术内幕》……哎……我认了…… MSSQL2000 为什么我的log文件拼命往上涨 如何将用jsp得到的数据用javascript显示出来? 关于画声音波形曲线的问题.高手请帮帮忙(效果像flash加入声音时那样) TNND , 连个回复都不行 , 真恶心 (yeti_lee) 信用卡代理网站的可靠性 关于sqlserver联接问题帮一下了在线等待 小问题,高分啦!!:) 真的没有高手么,真的没人会么? 我为了使鼠标指向SpeedButton上时它的Caption颜色改变,在SpeedButtonMouseMove()和PanleMouseMove()中写了代码,但是很不敏感,鼠标移动快一点,就会有延时? 如何在Delphi5种调用windows自身的拨号网络实现点到点通过modem连接 回贴老是出错(该页无法显示。。。),试试发主贴怎么样。 哎!!!!帮帮忙吧!!!!!!! 高分求助!!!谁能告诉我在ASP下上传任意文件? 一个很菜的问题,和var有关 关于其他数据表/库文件转换进MySQL库的问题 请问在win98 下面安装 SQL Server 7.0 DESKTOP版 需不需要哪台机有网卡?? 关于网络设计师考试? 再发一次吧。昨天发晚了,人少.比较BCB和DELPHI我差点哭了,原来是这样,我以前的看法错了。BCB,你的路还长.BCB真比DELPHI慢得多,你们认为呢,有谁一起比过呢?来说说吧 对于SDK(win32 api)精通、熟悉、了解或者正在努力中的同志,希望能多多交流.qq:4911756 如何控制2000域用户上网权限 有没有用来关闭计算机的函数或消息呀! 很菜的问题,不要错过机会阿。拿分把 请问从哪里可以下载到免费的jsp的编译软件,谢谢帮忙!! 难得问问题,给个高一点的分,win95下的驱动程序怎么移植到windows me下面?(问题圆满解决可以加到400分,剩这么点了,呵呵) 谁能告诉我几个Activex控件的下载网址,我给他分 关于dll在代理中的运行问题?(H) 那一次,我懂得了 500字作文新颖 要有议论 友谊的作文400字 作文《假如只有一天生命》800字左右看好题目写,太短的不要,最低也是600字左右,回答满意的, 那一次,我懂得了尊重别人作文500字左右 关于友谊d的作文400字 帮我看看这样的开头和结尾如何?(作文题目为珍惜)大海广阔无垠,因为他珍惜每一条小溪;树叶发荣滋长,因为他珍惜每一缕阳光;群山连绵巍峨,因为他珍惜每一块砾石,而我,因为懂得了珍 那一次,我懂得了爱 作文600字 生命——永恒的乐章.谁有这篇作文····差点的,我用来应付老师的······那个我要的差点的作文啊·····老师不会相信这是我写出来的···· 我的好朋友 作文 400 作文:《生命的灯塔》结尾有文采一点 求一篇关于亲情的作文.要写家庭里的,这是我们的作业...我就是不知道写什么事例.最好是那种父爱母爱都写的,差不多初一水平就行了.至少500字. 以亲情为话题的作文 带评语!500字 关于友谊的文章该写什么题目 关于亲情的一篇作文500字作文,速求一篇! 亲情为题的作文细节描写500字我今天晚上的作业!要细节描写多的 要一篇关于民间工艺品剪纸的作文400字 找一篇关于亲情的作文要适合初中生(3)使用,语言优美,但不要无病而呻;要真实,有环境渲染,有细节描写,能够打动人心好的追加50分 关于亲情的作文500字 求一篇游记作文400字要有意义的 找一篇关于亲情的优秀作文 400字作文《我的好朋友》 以‘生命的灯塔’为话题的议论文800字左右,谢了 求一篇800字左右以发现为话题的作文.内容不要太深奥.初中水平就好 四年级我的好朋友作文400字,我的朋友是廖嘉钦 谁有《生命的灯塔 议论文》 是议论文哦! 诉求350字的描写男同学的作文 作文《 记忆深处的风景》 开头,结尾, 以生命的灯塔为话题写一篇议论文800字左右 同学如手足350字作文………………………………………… 珍惜时间的作文以景开头和结尾 生命的灯塔 议论文下面的一段文字,你读后有什么感想?请以“生命的灯塔”为话题写一篇议论文.古代希腊传说中有一个很凄美的故事.美丽的女教士希洛与阿拜多斯城的一位少年利安得尔相 与同学瞬间相识作文350字.今晚就要 急需一篇以感动为话题的写人的作文,800字 找一篇有关亲情的作文要有题目,范文,评价哦,不好意思,我还要这篇作文的题,和点评 关于同学之间诚信的作文350字 急 作文生命因什么而精彩800字 求关于亲情作文一篇记叙文800字要细节描写我不想要百度一艘就能搜到的 生命——永恒的乐章为话题的作文自拟题目我要题目 《一道风景线》的结尾 心目中的虎 初中作文急 一篇关于亲情的作文王勃的《腾王阁序》 急求一篇以“生命永恒的乐章”为话题的作文.两天内, 友情作文怎么写 写你和一个朋友友谊的作文 400字左右 以“站台”为主题的作文 话题作文 生命的灯塔人生在艰难中最希望看到引路的明灯,我们要寻找自己人生引路的灯塔,同时也要为别人点亮希望的灯.请以“生命的灯塔”为话题写一篇作文,文体不限,字数600字左右. 写友情的作文400字 关于《月台》这篇文章的阅读答案是起点也是终点,是开始也是结束; 是欢聚也是离散,是出发也是归宿.从来没有一个地方,能汇集如许人的流动量,从来没有一个地方,能拥有如许悲欢离合.从 以生命的灯塔为话题作文话题:“生命的灯塔” 阅读下面材料,按要求作文.古希腊传说中有一个很凄美的故事:美丽的女教士希洛为对岸阿拜多斯城的一位少年利安得尔所爱.希洛每晚在楼上 生命永恒的乐章,作文 求描写风景的开头和结尾,还有怎么写,怎样才写得好?最好在两天之内.描写城市风景的开头和结尾,写作结构。最好与环保有关 求作文 那一次,我懂得了真情 作文“生命,永恒的乐章”主题为“生命,永恒的乐章”,800字,记叙文,角度小一点,不要偏题,题材即可! 写事作文“最美的风景”怎么开头,结尾? 描写人物友情的文章,要500字! 生命,永恒的乐章,作文,高中生的水平.800字以上! 我的好朋友作文,400字急.他叫乔明朝,幽默风趣,成绩中下,大方! 我眼中的风景范文急用 我的另一片天地 600字 写一篇亲情的作文300字
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn