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

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


电信开放平台应用内计费SDK 助力App小额快捷支付 专心做设计!开源跨平台应用开发框架Appverse Mobile 无线盛宴尽在阿里百川开放大会 医学界的Instagram:加拿大重症监护医生开发照片分享应用 2014中国移动开发者大调查第二批获奖名单揭晓 基于OpenStack的私有云开发部署实践 亚马逊云平台的迁移过程 【干货】微信企业号开发资源集锦 CSS生日快乐:CSS之父Håkon Wium Lie访谈录 好友近2000万,绑定银行卡过千万,日会话近百万,招商服务号成功之道 一名程序员十年技术之路的思考与感悟 聚焦企业号、服务号典型案例 微信开发者大会深圳站正式开启 Objective-C之父Brad Cox访谈:我的编程之路 【先锋】完成B轮融资的TalkingData新商业模式:平台理念+跨界分析+技术开源 1/10计算资源,1/3耗时,Spark颠覆MapReduce保持的排序记录 Cookie已死,看Facebook、Google、Apple如何追踪用户 Clay.io基于AWS、Docker、HAProxy等的10X架构打造 经典服务/企业号案例来袭!2014微信开发者大会(深圳)亮点抢先看 移动应用云APICloud宣布完成A轮500万美金融资 从Apache Storm学到的经验教训 【CTO俱乐部走进天津】探讨如何成为技术团队管理者 不容错过!参加MDCC 2014移动开发者大会八个理由 你的钱被洗劫了么!APP安全问题来袭 10大最常见的数据库安全问题 南航微信服务号是如何炼成的? 超40项功能改进,虚幻引擎4.5正式发布! 【工具推荐】ER:可轻松构建一站式AJAX Web应用的开发框架 GraphLab:将大数据分析从理念运用到生产 支持Android 5.0:完全用Ruby的Ruboto框架迎1.2.0更新! 万物互联第一步:采用AllJoyn技术的智能硬件 【专访】敏捷专家何勉:让测试成为拉动组织敏捷实施的力量 新手的问题(asp的源代码): vector&父类子类的问题 单片机如何实现霓虹灯控制,谢谢。 ASP操作oracle数据库,是不是只能用SQL语句实现 哪里有介绍NAT(网络地址转换)原理的网站? win2000下,的计算机管理--磁盘管理--选中c盘--右键--属性--工具--查错,选中扫描并试图恢复坏扇区........... Session会无故消失!! 请大家注意FAQ的提交! ---如何在linux下编译IDL文件--- 求Rational purifyplus for Linux 的license 简单sql语句问题 VB编译好的程序为何不能在没装VB上运行? vector&父类子类的问题 有关三角矩阵乘法 如何编写ASP类? servlet调用Oracle,如何使用jdbc直接进行连接?高分相赠 我的2000 pro 总是出现超频保护 大家快来接分了!!!! 怎样让一个窗体总是在桌面的最前面,不会被其他程序的窗口挡住? 送分啦 dshow的入门级问题,请指教 那种开发工具开发效率较高 xp的问题 "处理中的数据超过允许的极限"是怎么回事? 为什么我的.net在建web工程设置断点后无法调试,加上了button后无法显示。谢谢了。 我现在大概有10万资金,可以做什么投资回报比较大呢?? 请教关于动态控件内存释放问题~(老问题新谈,高手请进)~~ SQL的一个问题!(高手请进!!!) 发个笑话,爆笑(转贴) 通过远程视图不能修改记录 cet-8跟英语专业八级是一回事吗? 关于图象处理 急急~~!!在哪儿能下载Flash插件呢!! 如何设定一个窗体的弹出广告在找开后自动关闭 水晶报表一对多问题?? 一个关于表单提交的超级简单,超级奇怪的问题? 怎样实现vb6中datagrid控件的打印 SQL select 语句如何对images进行操作? 怎样实现vb6中datagrid控件的打印 水晶报表一对多问题?? 使用oracle传递日期型数据问题 好好急啊 如何当数据集的纪录移动的时候,触发一个事件,以响应我需要的作的工作?? 有关括号配对,在先求救! c#中制作安装程序,如何包含.net框架程序。 在制作rpm包的过程能不能进行写文件操作,也就是说把我要运行的应用程序的路径写到某个脚本文件中去? 使用VC编一个算法遇到的调试问题,紧急求救! 硬盘分区的问题,help 请问access里有几万条数据,用asp访问,会不会很慢啊? 请问谁有农历的算法,我想写个日历。谢谢! 请问谁有农历的算法,我想写个日历。谢谢! 怎样可以看到内存泄漏以及泄漏多少? 该怎么写生活日记 王八蛋是什么样子的? 爱是永恒的吗 生活日记要怎么样写 用VF求10000000以内质数 爱是永恒的(作文) tpo9综合写作的听力文本! 王八蛋是谁 1某中学组织同学们春游,如果每个车座54人,有18人没座位,如果每个车座72人,那么空出一辆车,其余车刚好做满,问有几个车,有多少个同学?2.小明一年前存入一笔钱,年利率为2.25%,但要缴纳20%的利 TPO9的听力是不是特别难啊?我总共扣了7分算是怎么样的水平啊?0714考的话现在应该做些什么准备啊? 怎么有效提高生物和地理成绩别说废话 说点有用的我知道学 有什么好方法 Disney Mirrors American Culture翻译 tpo9 听力的section1为什么tpo9 听力的section1 第三篇讲shrub的第一个选项选A啊?不是开始就说的是气温影响的吗?我认为是b 寒假生活日记 600左右 英语翻译这句话怎么翻译啊?American culture values over politeness to degree,whereas in China I have seen a number of occasions politeness valued over candor(直率).尤其是values over politeness to degree这个怎么理解啊? 在等式y=ax的2次方+bx+c中,当x=0时,y=0;当x=1时,y=1;求当x=2时,y的值. 5篇日记. 英语翻译Thedominant American culture is English-speaking,Western European,Protestant and middle-class in character.The first immigrants formed the land’sbasic cultural values as freedom,equality and desire to work hard for a higherstandard of l 已知等式y=ax的2次方+bx+c,当x=1时,y=3;当x=-1时,y=1;当x=-2时,y=9.求a,b,c的值 五篇生活日记,必须5篇只要关于生活的就行,100到200字 6月用水量相当于第二季度总量的百分之几?)4月用水:40吨5月用水:50吨6月用水:45吨为毛我算出来除不尽啊?(>_ 哪些动物是畜生 讨论罗尔定理 李奶奶家第三季度的用水量比第二季度增加了10%第四季度又比第三季度减少了8%李奶奶家第四季度的用水量相当于第二季度的百分之几 高一的几个生物填空题,可我没学过 帮忙翻译sino-japanese relationship 问几个英语六级答题的细节问题1.深度阅读第一篇填空需不需要填最简的答案,比如09年六月卷的最后一小题给出的答案是"make money",我把原文的".make money"好长的一句话写上去行不行?(是更具 畜生和牲畜 magical sino-USA谁能帮我翻译这个英语短句谢谢, 某工厂4月份用水138吨,3月份用水155吨,3月份用水比4月份多了百分之几? 杭人游湖 翻译 最具讽刺性的一句话有木有反驳 损人 我是六级水平 您觉得 多长时间过的了雅思 7.5 畜生与牲畜区别在哪里? 问问四级要多少经验?多少积分?五级呢?六级呢?七级呢?…… 十八级呢?? 求,如何应付爱占小便宜的人我遇到个人,是我大学同学,这个人很喜欢喊人请他吃饭,帮点小忙就喊请吃饭,一开始我以为他只是说着玩,不过后来感觉不对劲了.只要我答应他说的请吃饭要求,他 折线统计图不但可以表示( ),而且( ). 畜生和牲畜有什么区别 用一句话,讽刺一个瞧不起人的人 ∫x/(4+x)^0.5 dx如题! 日本人属于畜生还是属于牲口? 弱弱地问一句,大学英语六级在找工作是重要么,行政管理的,拜托有经验的同学回答. ∫((X+5)^4)dx 不定积分 我记的有个化学知识,记不清了有关活泼金属与热水冷水有关他究竟是什么,还有这类反应中热水都加剧反应吗,有热水减缓反应的例子吗 用最讽刺的一句话来针对只说不做的人我身边有个人 一天到晚在那里乱叫自己要怎么怎么努力 或者在生活上 未来各个方面 以及梦想 等等等等好多好多方面作死的乱叫自己要怎么做怎么做 ∫(x^5+x^4-8)/x^3-x dx求不定积分具体过程 金属Mg和水反应吗?如果和水反应,那么Mg和冷水以及热水反应有没有区别? 约12万人,上半年接待游客数占全年的2分之1,第三季度接待游客数是上半年的3分之1,第四季度接待游客多少人? 英语. 这高一生物题的两个空怎么填?下列是探究pH对酶活性的影响的实验材料:淀粉酶溶液,蒸馏水,NaOH溶液,可溶性淀粉溶液,盐酸,菲林试剂,双缩脲试剂,苏丹3染液.试管1:新鲜的淀粉酶溶液,蒸馏水, 求问如何准备大学英语六级?我想考六级,知道它比四级难,但不知道难在哪里.求有经验的朋友解答下:1.是否有必要报新东方一类的六级补习班?2.详细说明下听力啊阅读啊作文啊各项的准备方 25.谁能帮我全部 怎么写.高一生物 爱是无形的,它需要用心灵去感受,爱是永恒的,它使人终生难忘爱是什么的 它什么 爱是什么的 设函数f(x)=ax+4/x(x>0),a∈正 R (1)当a=2时,用函数单调性定义求f(x)的单调递减区间 (2)的两个空 爱是无形的,它需要用心灵去感受,爱是永恒的,它使人终身难忘,爱是()的,它(),爱是(). 设函数f(x)=x-2/x-1 1.用定义证明函数f(x)在区间(1,正无穷)上是单调递减函数2.若f(t2-t+2)-2<0,求实数t的取值范围.(根据函数单调性来解答)重点是第二问! 王八蛋是什么 爱是无形的,它需要用用心灵来感受;爱是永恒的,它使人终生难忘.仿写例句1个.结构:爱是……,它………………. 英国乔治王子穿蕾丝长袍受洗礼 模样超马尼拉议员抵港就人质事件道歉 家属重上海自贸区将设立离岸产权交易中心 首中央再选十地展开巡视 更加强调对“一北京推7折商品房无户籍限制 业内称将山东青州豪华车站成形象工程 1天仅卖老汉旅店约见网友开房 发现对方系自己辽宁舰低调出海 或赴西太平洋参加军演杭州绕城高速施工多 过往车辆尽量绕行百度“百发”引发关注 互联网金融呼吁记协就陈永洲被捕事件联系公安部:确保大鲨鱼穿行沪宁杭 我国最新型高速动车上海海事大学\"海事一号\"ARV新民进党“独派”大佬欲选台北市长 靠组二战著名“野马”战斗机美国得州坠毁 上海车牌价再破8万 下月起继续实施有2013韩国小姐素颜照曝光 网友高呼温州:民资发起设立民营银行试点方案已冷空气今起渗透影响 明后天早晨稍微有国考报名人数预计破130万 仍有20俄防长:叙利亚例子表明恐怖分子获得化崛起的天府新区之夜市民期待出租车司机“红黑榜”早日出炉“儿童守护使”与你一同守护儿童暂别冷空气 今日重回20℃体彩开奖信息(10月12日)以习近平总书记重要讲话精神统一思想行李克强抵达莫斯科开始俄罗斯之行广东福建北京完成“裸官”整改投身青少年关爱 只为留住“天使的心灵100万元特聘专家加快建设西部金融中摄影师与模特完美互动去年全国户外运动48人身亡 为有记录成都艺术品保税仓库挂牌成立成都市太极拳冠军赛昨开战节后旅游价格大跳水 最高降价五成改良水稻品种 带领群众收入翻番国家行政学院副院长何家成被查 曾和国传递好榜样正能量 为身边好人点个赞构建“一委、两办、一中心” 让公共资《两天一夜》发布会男神“吐苦水”魔登一起缺席火箭训练 霍华德:会为杜
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘