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

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


用Scala重构19楼——SDCC 2013讲师王治专访 10款最新且超实用的开发框架 创业公司为什么应该写博客? 向iOS SDK看齐:Facebook Android SDK迎来重大更新 闯向海外:对话AppFlood产品总监陈霄 高手爱跨界:联想智能桌面,27寸大Pad抢先试玩 惠普第三季度收入272亿美元同比下降8% 高管重新布局 原来我们会出这个价钱购买“廉价”iPhone Web设计过程中该做和不该做的 新细节披露:通过电信合作 美国75%网络遭NSA监控 实时Bug检测工具Bugsnag发布API更新 【观察】一大三小:亚马逊,微软、谷歌、IBM ,IaaS四足鼎立 “化云为雨”一小滴:北京,3G手机+蓝牙打印机实现智能抄表 金山云与蓝汛联合提供云基础设施服务 MongoDB出新招,增加对Hive的支持 编程语言收入榜 Java排第三 直接拿来用!10段超有用的Git命令行代码 Google Cast SDK正式版发布:自动适配,修复Bug 频受红杉资本青睐,商业智能初创公司Birst靠的是什么? 2013百度世界大会要点精华回顾 WebApp开发框架Clouda、轻应用... 对新手有用的JavaScript开发小建议 磨剑三载,且看从容应对14.3万TPS的Twitter是怎样炼成的! 兰亭集势:被高估的“长尾式采购” 谁说WP手机不行?微软称已成拉丁美洲第二大移动平台 Windows 8之父Steven Sinofsky加盟风投机构A16Z SDCC 2013演讲议题抢先看 腾讯、阿里、支付宝、网易…… [开源推荐]Google开源基于Deep Learning的word2vec工具 【开源专访】DWZ团队:致力打造最简单的Web前端开发方式 Linux黑客车库创业:服务器操作系统CoreOS颠覆互联网 时间序列数据处理的角逐:MongoDB vs. Cassandra 移动周报:Sphinx游戏引擎的前世今生 老话题:三层结构中blob字段的存取出问题了? run-time类是怎么回事? 当多个程序对同一个文件进行读写操作,如何防止同时写入造成混乱? 求银行家算法的c程序! 请问W2K下面鼠标阴影的效果是用哪个API实现的? 我提议有编程经验的朋友们,一起来研究一种真正符合我们实际开发工作的模板 我用上kylix了!!!!!!! 请教,关于NT域用户的问题!NT账号,怎么设定唯一性呀?比如有aa的用户,我用aa登陆后,别人不能用aa同时登陆了?应该在那儿设置呀? Mfm1992?是个什么东西呀! 如何在informix/esql c中使用大事物? 如何保存收下來的email呢???!!!!! 关于一个网站建设的问题,望高手指点。 求救;如何建立一个登陆页面? 谁能给出一个远程访问互联网ACCESS数据库的经典代码?有28分送上! 怎样将-个十六进制数转换为十进制? 如何将java程序编译成dll文件 cannot focus a disabled or invisible window 一表我想通过文本框来增加记录,为何不能发送到表中,不要告诉我是没有post的原因。 奇怪,borland的开发能力这么强,为什么几乎没有一个象office那样流行的应用软件呢?如果它的应用软件很多,就不会象现在这样穷了吧? Delphi 数据库不如Power Builder 吗? 请问怎么安装新的控件? B样条曲线:如何由经过点反算控制点? Berzer曲线:如何由经过点反算控制点? 关于activereport的字符集问题 有没有计算曲线长度和交点的好方法? Install Shield For VC6怎么用???????????????????? ODBC数据库 ****有没有计算曲线长度和交点的好方法? ****Berzer曲线:如何由经过点反算控制点? ****B样条曲线:如何由经过点反算控制点? 有谁知道"边缘频率"、"中间频率"、"双频分析" 请问oicq登陆以后的住界面的我的蚝油dock是如何实现的,是什么vcl,或者自己写,如何实现?请指点! pfc的好处? 一个伪程序员的自白 不但给分,还给¥ 散分给喝过酒兄弟姐妹们(今天心情很不好,我深爱的人不爱我,苦痛,郁闷,多喝了几坛,请ghj1976、3B、roani谅解,最后一坛酒,感谢水园的朋友们) 怎样准备高程考试,还有三个月! 人生自古谁无错 -- 对青年时代的林仙儿心理活动的分析 小的大三,放暑假了,现在上海找一个单位实习,各位知情者请告知,定重谢! 请问如何让我做的程序一直在最底层呢、?? Oracle的外键是否能让所有有关联的表一起改变? 创建子窗口,子窗口又创建子窗口,在创建子子窗口时如何释放子窗口? 几个问题,能解决吗? 简单C语言字符串问题 (***** InterBase 6 的中文字段名问题 *****) vb6.0界面主页链接如何让鼠标变成手形?谢谢! 请问BCB如何实现象网络蚂蚁一样(一个小窗口)获取IE托动链接? 如何做ico图标????谢谢 怎样制多页表 (****** InterBase 6 的中文字段名问题 ******) tcpip连接的服务器端,是否要为每一个连接起一个线程? 怎样能提高英语听力、完形、阅读理解的能力?我现在已经是高二下学期了, 一道完形试题的选择The ( )driver thinks that accidents only happens to other peopleA average B common C general应选什么?为什么?标准答案选A 快捷英语周周练 完形填空(七年级下)第41篇答案 如何做英语的完形填空和阅读理解和听力 问一道英语完形选择Fox's Shadow once met one of her online friends face to face.It was a girl who was a comic fan like______and they went to a comic show together.空格处选项B.her C.herself答案是C为什么要用反身代词,her为什 七年级仁爱英语下册,UNIT5,TOPIC3试卷完形填空 我英语一般,听力听的不太好,阅读理解做的也不行,完形填空还能说的过去.怎样才能提高英语成绩呢? 英语完型填空选择once there lived an old couple who had a goose.Their goose was not___1___ the other geese because its eggs were different.They were __2___ gold.Every day the goose laid a golden egg for the old man and the old woman.They___3__ 英语完形填空(七年级)题目 英语听力不好该怎么吧!阅读理解怎么提高? 英语选择完形填空 七年级英语完形填空题在哪个网站可以下载七年级下册有关内容的阅读及完形填空的题! 怎样做英语听力题 提高英语听力 初一英语完形填空 25篇 七年级英语一题 完形填空During the day we work and play,and at night we sleep.Our body rests while we are__1__.In the morning we are ready __2__again.Our body grows __3__while we are asleep.Children who are tired usually__4__sleep.We can do 英语翻译听力有最低分吗,听说保底份有95,是不是、急710份的新四级在线等待 初一英语完形填空题(在线等)She like pandas,because they're interesting and ( )shyA.a kind B.kinds of c.kind of D.a kind of这是局部,原因也要 有关春天的英语完形填空Fill in the blanks below with words from this box: sprouts cherrycountrysidehatchseedseggs meltsshowersflowersreturnbudsweathertulipsbuildseasonwakeswarmcrops sunshinebears frogshibernationwh 英语翻译 求初一英语完形填空 越多越好```求求各位大哥大姐 给个能用的资源哈`` 春天经常人们会做什么呀拜托了各位 谢谢 我英语四级 快速阅读对了7个,听力17个,仔细阅读5个,完形15个,选词填空3个,翻译2个,作文OK,请问能过 初一英语完形填空题,越多越好(最好有答案,还要有为什么这样选的理由)谢谢了我现在还差18篇,还有, 春天经常人们会做什么呀 快速阅读10中7,听力30中25,选词填空中10中1,阅读10中5,完形填空20中6,翻译5中3,作文一般般,有希望过四级吗 仁爱英语同步练习与测试七年级上册答案 春天你最喜欢做什么?我喜欢放自己做的风筝.还喜欢玩风车! 四级快速阅读对了5个听力对了17个,选词对了5个,阅读理解对了8个,完形9个.作文8~9分翻译1个能过吗? 英语七年级下册仁爱英语同步练习与测试答案Unit 5 Topic 2 综合提升 晚上上课要用呢.我还一字没挨的. 请你回忆春天,你喜欢做什么?给你留下了什么印象? 英语翻译 英语七年级上册同步练习与测试答案 怎么做完形填空 怎样做好英语考卷的完形填空和选词填空? 跪求七年级上册仁爱英语同步练习与测试Unit 3 请问这个完形填空怎么做? 怎样做好初中英语完形填空做好初中英语完形填空,使错误最少,有啥诀窍吗? 怎样做好英语的选词填空?不是完形填空! 求仁爱英语七年级上册同步练习册Unit2 Topic1的答案 英语四级 阅读理解里的选词填空和完形填空哪个分值多?大谢大谢! 英语完形选词填空.Jim Green is an announcer for the program.Most of the girls①boys like the program.They②like Jim Green.Some of them often make phone calls to him and thank him③his work.There are lots of④to him every day too.Jim Green 七年级下册仁爱英语同步练习册答案 英语(选词填空,阅读理解):1.(also ,as well)Mr green can_______sing the song in chinese.She is the teacher and the singer______.2.她与她的朋友们相处很融洽.She_____ _____ _____ _____ _____her friends.(共有5个空格)3.父母 怎么提高英语完形填空和选词填空 七年级下册的英语同步练习册答案-----仁爱的 (初中英语)选词填空.谢! 英语完型填空选择 Passage 2Mick was one of the main foods for people long before history was written.Maybe 1 will remain an important food as long as there are 2 that give milk.The old word “ milk” 3 Sanskirt(梵文),one of the oldest 4 kn 仁爱英语七年级上册全部的答案 选词填空. 英语完形填空(选择) 七年级英语上册完形填空激情英语活页卷最新版答案下午要,好的还可以加分.12到30页!麻烦你们了!就是下面出示的这种啊!什么时候都行啊 manage depend burn know art 1.There is going to be a talk on fine ____ this afternoon.2.The secrets between the two girls were _____ except themselves.3.To be _____ is a very important character of a person.4.Winning the competition led her first int 英语完型填空题选择Mrs.Jones did not have a husband,but she had two sons.They were big,strong bboys,but they were __1___.On Staurday they did not go to school,and then their mother always said' Please cut __2__ in the garden this afternoon,bo 跪求中学七年级的英语阅读练习题和七年级的英语完型填空题,人教版(要有答案的) 选词适当形式填空1~6题初中英语 一道英语完形填空.别乱选!One day the animals of the forest came together to see who __1__the most beautiful.All the animals were happy and excited .But the snake was very sad.__2__she knew she wasn’t beautiful.The cock was very __3__to he 快捷英语周周七年级上练阅读理解与完形填空答案 求初中英语选词填空答案( 1 )well ,soft,second ,better ,may ,strongly,afraid,sand ,stay up,if,now,house We can’t stop an earthquake(地震),but we can do things to make sure they don’t destroy(毁坏) whole cities.First,it is not a 1 .__ 做一个完形填空,要有过程(就是为什么要选这个.)During the day we work and play,and at night we sleep.Our bodies rest while we are __1__.In the morning we are ready____2___ again.Our bodies grow ____3____ while we are asleep.Child 急求!:!七年级上册快捷英语阅读理解与完形填空周周练答案 重赏哦!各位大哥大姐,帮帮忙把、这不、快要开学了,我这作业.要的是七年级上册快捷英语阅读理解与完形填空周周练标准答案,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn