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

破解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(成都 田茂均 )


感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 机器学习的时代来临,人类应该做点什么? 云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? 为什么JavaScript有能力成为未来企业级编程语言? Red Hat CEO:拥抱开源 拥抱克隆 小米手机-HAXLR8on硬件黑客马拉松 开团了! 移动周报:雷军做红米的N个理由 Pangea Software CEO:08年App Store游戏降价大战的真相 揭秘MongoDB最新Java驱动:更好的JVM支持,指日可期的异步 不仅只有IE Mozilla将于发布Win8平台Metro版Firefox 360搜索发布新产品“我的搜索” 引入网民评价和网站名片功能 AppScale:Google App Engine的开源实现 近期十大优秀jQuery插件推荐 通过语音识别来编程 速度远超键盘 BrowserStack:多系统跨浏览器兼容性测试工具API发布 帮帮忙好吗? 二个关于字符串中对子串的替换与删除的问题? 怎样实现虚构造函数? 请问各位高手,手机图片和手机铃声是什么格式的?在电脑上能不能打开?应该怎么制作? 请大家帮个忙,有个小问题,如何用showmessage输出括号内的内容('%K%')?在线等待 A simple problem!? 救命,对话框显示的奇怪问题!!! An error 1069 (由于登录而无法启动服务器) 请问为什么向Oracle表里加不上记录? 我在局域网中用些东西常被主机防火墙隔了,有什么办法绕过防火墙 谁有MPEG-LAYER3的详细资料或连接? 我用一些软件如音乐大师等,一打开程序,该程序窗口就被关闭了,而在光盘上进行都可以? 如何判断一个大整数是素数,如何找出整数的模逆 怎样使用C#做互相通信的client/server程序 image类型字段,如何用update命令更新 请问指针的指针,二维数组,指针数组,之间有何区别 PB数据库连接字符串的问题 如何购买NFS软件,是Windows pc 访问AIX用的? 请囊相授求mcsd信息 为什么对话框程序最小化时占用内存会减少很多呢?(VC6) 备份主域控制器加入后,登陆不进去了 新手上路,DDE的,绝对给分!!! 帮帮我 怎样修改一个窗口的系统菜单? 怎样将自己做的ASP.NET程序放到IIS服务器上去?服务器需要怎么配置? 在线等待一个问题!!!解决问题就散帖 关于NETANT的有不健康连接的通知????? 一个关于SQL_Server2000复制时发生的问题,请大家帮忙!(在线等待) 当我删除一条记录时会跳出错误,谁帮我看看 请囊相授求帮助 对这个程序实现上大家有什么想法? 触发器一行更新与多行更新有什么区别 请问如何能让我的Cricheditctrl最多输入100个字符???谢谢!!!!! 关于向数据库中插入时间的问题 在局域网中如何判断是否连到服务器?(用delphi) 有没有嘉兴的高手?QQ13136276mailsunrace@163.com 150分:怎样实现类似Delphi中的TClass.Create的功能? 请大家给我这个oracle初学者一些入门指点(偏重Developer 和discoverer方面) 请教! 关于winnt4的救命问题,如何共享上网? 急!!小弟现在用midas做一个三层的系统,用Dcom连接,但是在客户端连接服务器说类字符串未注册 关于选择菜单的这个功能怎么实现 高分求书:用DELPHI搞数据库的书! 关于Potoshop编程的有关问题,知道的请进! 如何改变列表题背景颜色,数据窗口控件用的是动态sql语句。 如何把unsigned long型的对方IP地址,设在ClientSocket的IP中 开发游戏软件一般要用到什么编程工具和编程语言? 为什么 semaphore 和 event variables 是不好的? 在dos下,如何用汇编语句获知XXX盘符是否为网络盘或本地盘或substed盘??? 如何实现字符串种的准确查询! 灰头土脸的问 关于爱国思乡的诗句 一个晒盐场用600千克海水晒出18千克盐.如果一块盐田一次放入485000吨海水,那么可以晒出多少吨盐? 甲乙两个仓库共有化肥48吨,如果甲仓库运出百分之二十,乙仓库运进2.4吨,那来两个仓库相等,各有多少吨? 表达思乡爱国的诗具体 蜜蜂踉50克蜂蜜要采8000次,平均采一次花粉要粮蜂蜜多少?50除以8000=1/160 甲乙两个仓库有化肥48吨,甲运出20﹪,乙运进2.4吨,这时甲乙化肥一样多,甲乙原来有多少化肥? like和ae 的词性与用法 意思是看起来像 有1块合金铜,含铜和锌,铜占锌60%,加入锌8克后,锌比铜多75%.求原来锌有多少克 英语题 -------lily and lucy from beijing? -------Yes,-----------A.DO:they do. B.Are:they are 英语语法小问题,It sound like a train.其中like的词性是什么?这是什么用法, 如何确定一种动物属于昆虫 Lucy and Lily have long hair.Am i right?A.Yes,they are.B.Yes ,they do.C,yes they does. 做一个长12厘米,宽6厘米,高5厘米的长方体框架,至少需要铁丝多少厘米?在这个框架外做一个长12厘米,宽6厘米,高5厘米的长方体框架,至少需要铁丝多少厘米?在这个框架外糊一层纸,至少需要( Lucy and Lily look the same.(改为同义句)Lucy_____ _____ Lily Lily and Lucy are twins.They have the same l___ 一个晒盐厂用100克海水可晒出3克盐,如果一块盐田放入5850吨海水,可晒出多少吨盐? Lily and Lucy look the same.(写出同义句)Lily ___ ___ Lucy shoes和a pair of shoes的单复数怎么区分 一个晒盐场用100克海水可以晒3克盐.如果一块盐田一次放入5850吨海水,可以晒出多少吨盐?急啊!快,在线等! Lucy and Lily look the same改为同义句是:Lucy and Lily is have______ _______ ______.以上怎么填? 1.lily and lucy are c______.they are in the same class.2.we enjoy c___________with each other on the Internet 一块长方形的菜地,有一条长边靠墙,其他三边用竹篱笆围起来,这块菜地的长为30CM,宽为16CM.这道题其中一问:如果不靠墙,用竹篱笆围一块正方形菜地,菜地有多少平方米?应该怎样理解? Lucy and Lily look the same.变同义句 甲、乙两车分别从A、B两地相对开出,甲车每小时行96千米,乙车每小时行88千米.相遇时,距A、B两地的中点40千米.A、B两地一共相距多少千米? like father like son 中like的词性Like father like son 中两个like的词性? Lucy and Lily look the same.(改为同一句) 甲乙两辆车分别从AB两地相向而行,甲车每小时行驶96千米,乙车每小时行驶88千米.甲乙两车相遇时距离AB两地的中点40千米,问AB两地的距离. feel like中like 当feel like后跟从句的时候like的词性是连词吧那当feel like doingfeel like sth的时候like的词性是什么?是介词么?如果是介词的话like的词义又是什么呢?我在牛高里查的说做为介词的时 她去买冰淇淋 用英语怎么说? 晚上睡前喝一杯蜂蜜水好吗? 用铁丝做一个长10厘米,宽5厘米,高3厘米的长方体框架 至少需要多长的铁丝必须有算式, 五个月小孩可以喝蒙牛未来星儿童成长牛奶呢?或者别的牛奶,多大小孩适合喝牛奶 有甲、乙两个粮仓,甲乙存粮是乙仓的4倍,从甲仓中运出115/4吨,往乙仓中运进4.25吨,两仓存粮吨数正好相等.甲、乙两个粮仓原来各存粮多少吨? 用铁丝做一个长、宽、高分别是10厘米、5厘米、3厘米的长方体框架,至少要多少厘米的铁丝?如果将它做一个无盖的铁盒,并使盖口尽量小,那么至少要多少平方厘米的铁皮? 甲乙两个仓库共有化肥42吨,如果从甲库中取出2吨,两库就相等.求甲乙两库原有化肥多少吨? If your uncle's sister is not your aunt,who is she?想一想猜一猜 蔡志忠 关于橘子 作文素材 Lucy look like Lily.怎么改同义句 apple,tea,egg,banana中哪个不可数 一个晒盐场用100&海水可以晒出3&盐.照这样计算,如果一块盐田一次放入58500吨海水,可以晒出多少吨?多少吨海水可以晒出9吨盐? Lucy ____(look) like Lily.They look the same. noodle potato tomato rice egg哪个可数哪个不可数哪个即可数又不可数 (1+3+5+.+2001+2009)-(2+4+6+.+2000+2008) “这还有一个冰淇淋.”用英语怎么说 鸡蛋 egg 是可数还是不可数?(是two eggs 还是two egg?) 李大爷有一块平行四边形的菜地,一边紧靠围墙.他准备在菜地的四周围上篱笆,篱笆的长度应是多少这块菜地的面积是多少 Lucy and Lily like watching TV的同义句 甲乙两车分别从两地相对开出,甲车每时行96千米,乙车每时行88千米,相遇时的地点距两地中点40千米,两地相距多少千米? 把bob likes hamburgers改为一般疑问句.急 like做“像”的意思时,它的词性为? 甲乙两车同时从AB不两地相对开岀,甲车每小时行驶96千米,乙车每小时行驶88千米.相遇时距A、B两地的中点有40千米.A、B两地相距多少千米.’ Linda likes hamburgers for dinner.(改为一般疑问句) like father like son中的like是什么词性?Like father like son中的like是什么词性? She likes milk.怎么改成一般疑问并作肯定句 Frank likes hamburgers for breakfast改为特殊疑问句划线的是hamburgers 甲乙两个仓库共有化肥48吨,甲仓运出20%,乙仓运进2.4吨,两仓库的化肥正好相等,甲乙仓库各有化肥多少吨要算试的 the pair of jeans后的谓语动词应用是单数还是复数? David likes some hamburgers and salad(改为一般疑问句) 甲乙两仓库有48吨化肥,如果从甲仓库运出20%,乙仓运进2.要讲清为什麽? a pair of ...后面谓语动词什么时候用复数,什么时候用单数?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘