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

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


Winsock Terminal示例程序 -VB资料 WinSock断开导致客户端问题-VB资料 把Outlook信箱中的附件另存为 -VB资料 保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 检测运程数据传送的断线-VB资料 简单电子邮件发送程序-VB资料 VB建立拨号联接 -VB资料 将所有窗口最小化-VB资料 VB利用IE控件访问Internet VB利用IE控件设计简易浏览器 VB利用Mscomm32控件判断MODEM是否打开,或者正在工作,并且判断拨号时是否遇忙音 VB利用TAPI进行电话拨号 利用VB访问Internet 利用VB设计聊天室 利用Visual Basic实现无线通讯 VB利用Winsock控件实现局域网通信 VB如何从 Internet 上取回某一个网页的內容? VB如何检测是否已连接到Internet? 注册表和主页的问题!!!!!!!!!!!! 我熟悉C++,请大家推荐几本学习JAVA的基础书! vc转java,怎么转啊。 成语接龙----大家一定要做最长的水贴!!!!!! 打算攒台电脑, 请水友帮忙推荐一个 主板(集成声卡)+ 显卡 , 谢谢 ASP新手请教——动态显示的问题 再开一贴,请同行帮忙,也是100分 如何在DataGrid中处理光标离开某个Cell时的事件? [提问]请问哪里有象记账凭证现金输入式的控件?! 谢谢。 怎样在win2000下隐藏linux的分区? 如何查看表的定义及约束 控制条与对话框的问题 那位老兄有<windows防火墙与网络封包截获技术>的光盘,我光有书,没盘 請問怎樣獲得本頁的文件名(除文件名其他部分都不要﹐包括在框架中使用正確) ForBeginner(No.1):Keyword->RedHat8中文显示,AC97,xmms播放mp3 哪位大虾帮我看看这段代码,不胜感激 能否在JSP,Servlet中用asp(js)写的页面 浏览器被黑--恶意加锁:win98的ie 5.5浏览器打开时出现“分级审查窗口”,必须输入正确的密码才能使用? 请教一个关于微软件的.net开发环境的问题?! 有谁用过“微软公文盖章系统” 50分悬赏||____||一个常识问题 java界面控制 有关ASP+ACCESS的查询数据出错,报错 “超出系统资源。 ” java界面控制 求一用php实现压缩/解压缩的程序. 请问在WORD200中有什么好的方法在下划线中输入文字,而下划线不随字体而改动? Excel中保护工作表? 请问使用16倍速的刻录机能刻32倍速的盘吗 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 作文 那次我真的( )了捕捉挖掘生活中的动情的瞬间,写自己最熟悉最动情的瞬间写出自己被打动的感受.500字就行了 有没有6.5mm的钢珠,在什么地方有卖.我给赏分 大连的街和路是怎么分的啊,比如说街是东西方向,路是南北方向吗 我真的很___ 作文. 谁知道钢珠 抢的设计图和零件尺寸 地下室有个开关,怎么从开关处接个电线插座? 指针和引用有什么区别 请写一个简单的程序说明 有5.5mm或5mm的自行车钢珠吗 1、13个十分之一里有()个千分之一.2、学校里有两块宣传黑板:“校园卫生板”的板长是宽的5倍,周长是宽的5倍,周长是72厘米;“校园通知板”的长是96厘米,那一块面积大?大多少? 指针和引用区别是什么 作文:我真不想长大.每天,我们就这样慢慢长大.读着林海音的《窃读记》,我们真切地体会到她对儿时生活的那份眷恋.回首我们的童年,一定也有许多难忘的人和事温暖着我们,请以《我真不想 一根竹竿截成两段,第一段截去3/5,第二段截去3/5米,两段竹竿的长度,哪段长A.第一段长.B.第二段长,C.一样长,D.不确定 引用与指针有什么区别? 请问什么晶体放入水中,可以涨大,成冰状物体如题 一块长方形黑板,长183,宽98厘米这块黑板周长是多少 引用和指针的区别 不想长大 作文说清理由,字数多点, 一根长10米的竹竿,每一天截去一半,这样连续截5天后,剩余竹竿长____________米. 山东九年级上册物理课本封面上的是什么车? 不想长大作文要写出为什么不想长大 10米长的竹竿,每4/5米截成一段,一共可以接成几段?正确列式是( ) .1、10×4/5 2、10+4/5 3、10-4/5 4、10÷4/5 5、10×(1-4/5) 怎样准备英语专八的翻译?还有阅读 有关不想长大的作文 一根10米长的竹竿,先截1/2,再截1/2米,这时还剩( ) ① 5米 ② 9/2米 ③ 0米 作文《其实,我真的( )》①补充题目②写一篇记叙文③500~600④抒发真实情感⑤(最最重要的一点)求各位高手来帮帮我,只有一天时间呀 如果作文(不想长大)帮帮偶吧m(._.)m 一种运动鞋原价228元,现在打六折出售.学校要给排球队买12双运动鞋,一共要多少元? 英语翻译需要把真题背下来吗? 英语翻译The last required a bit of explanation what would have happily left to a learned third party.09年阅读真题,这篇是一家人去土耳其旅行的游记,这是最后一句,可是我愣没看懂,求高手翻译,最好能句子结构再 以眼光为话题的作文这是作文竞赛的话题,我写的是关于不要在乎他人的眼光,但老师说要改,希望大家给我提供一些素材或者现成的可以用来借鉴的作文~忘记说,这作文要八百以上 英语翻译如题Nor is hanging on to older workers the only way to cope with a falling supply of labour. 线性代数的一道题,我们给的题就一个得数,A=(a,r1,r2),B=(b,k*r1,n*r2)均是三阶方阵,a,b,r1,r2是三维列向量,k,n是两个不为零的实数,若|A|=x,|B|=y,则|A+B|为多少 元旦期间,一种旅游鞋八折优惠,这种旅游鞋原价358元一双,若按优惠价出售每双比原价便宜多少元 美国 澳大利亚 加拿大现在人口是什么型现在这三个国家是原始型 传统型 过渡型还是现代型人口国家 英语翻译如下,求达人帮忙翻译.LZ CET-6水平,因为不懂产品翻译很吃力.Terms and Definitions 术语和定义The following terms with the appropriate definitions are used in the standard 以下术语及相关定义须应用于标准 以眼神为话题的作文700字,不抄袭,可写多件事,运用小标题 座右铭启示 求线性代数题一道.设A={0 3 3}1 1 0-1 2 3 ;且AB=A+2B.求B 电缆桥架与线槽的区别是什么? 两地相距100km在一副地图它们之间的距离是20cm图上距离与实际距离的比是 钢珠是怎么加工的 高屋建瓴的意思 我真想.,作文.我真想干什么,作文 屋顶有钢珠落地的声音 怎么处理我家住顶楼,每天都有类似钢珠落地的声音(多次),有飘移现象,有时声音拖很长,很恐怖,尤其是夜里,夏天及夜里更频繁,请问如何处理? ph=5的H2SO4溶液,加水稀释到500倍,则稀释后[SO4 -2-]与[H+]的比ph=5的H2SO4溶液,加水稀释到500倍,则稀释后[SO4 -2-]与[H+]的比值为? 客货两车从甲乙2地同时相向而行,4小时后两车相距100km又过了2小时,两车又相距100km,问甲乙两地的距离 a,b两地相距skm,从a地到b地,甲车的时间为ah,乙车时间为bh,甲乙两车同时从abl两地出发,相向而行需要多长时间相遇?、、、分式形式 某浓H2SO4溶液加水稀释时,没有发生变化的是A.溶质质量分数 B.溶质质量C.溶剂质量 D.溶液质量 座右铭的启示 甲乙两人骑自行车从相距Skm的两地同时出发,若同方向而行,经过m1时甲追上乙;若相向而行,经过m2时甲乙两人相接上:遇.设甲的速度为v1(KM/H),乙的速度为v2(KM/H)那么v1/v2=? 和“只有一点一点的努力的积累才能实现梦想”这句话相同意思的格言名句有什么马上 专八翻译怎么复习 已知甲从A地走到B地要ah,乙从B地走到A地要bh.若甲乙两人分别从AB两地同时出发,相向而行,那么从出发到相遇需要( )hA.a+b B.(a+b)/2 C.1/a+1/b D.ab/a+b1÷(1/a+1/b)=ab/a+b这个算式是怎么来的, 作文:那次,我真的____了 我想知道,天安门广场现在还是世界上最大的城市广场吗?我在校的时候曾知道天安门广场是世界上最大的城市广场,这是吉尼斯世界纪录,但是现在还是吗? 北京长安街走的车也多行人也多,还是东西方向的怎么就不叫路呢? 作文:那次,我真的( )( )里可以填后悔、高兴、惭愧、痛苦等等再加100! 英语翻译我明年三月考专八,五月考人事部翻译二级,但是我不能两项都专攻,只能复习一样,所以我选了翻译,不知道准备了这个直接去考专八会不会没问题? 如图,AB是东西方向的马路在A点的东南方向1000√2米的地方有一中学C,现有一拖拉机自西向东行驶,拖拉机发出的噪声800米范围内均有影响,该拖拉机在行驶过程中对中学C有影响吗?试说明理由 美国官员:奥巴马早知国安局监听默克尔世界最高人找到真爱将结婚 两人相差7以总理:伊朗有能力在数周内提炼武器级塞尔维亚为铁托遗孀举行国葬 2万多人美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局昆西 琼斯向杰克逊信托人索赔6080潘基文强烈谴责刚果(金)反政府武装袭河南济源回应7公里6个“收费站”称非媒体称养老金并轨已无悬念 执行路线图阿根廷国会选举受瞩目 现总统或丧失部加拿大机场现可疑包裹 警方搜查机场附格陵兰拟向中澳开放铀矿与稀土 仍需丹美国官员:奥巴马早知国安局监听默克尔浙江高校获专业设置“自主权\" 不再网上查询服务试点扩容 信用上网隐私如冀中星行政起诉东莞政府案立案漫步小樽:静谧恬美的浪漫之旅(组图)澳大利亚珠海联谊总会在悉尼正式成立有氧运动有助延年益寿美媒:中国央行显露收紧货币政策意向芜湖无为警方销毁两千多斤黑火药专家评审芜湖古城整治保护规划设计竞赛古树配上“身份证”“前世今生”都揭晓芜湖扫墓踏青客流高峰渐起 两站客流明在芜湖的外国友人也可以办理公共自行车“样本”价值究竟几何?我区出台少数民族事业规划我区首个沙漠治理刊物以公积金政策压“刚需”或致多方不满清代缉盗抗夷名将“赢在冲刺”高考巡讲在深举行惨败日厄齐尔与枪手2将参加女友派对 六安再次开展爱国卫生月活动 四月起全国台办回应反服贸活动:不希望两岸经济社区邀老人外出赏春光内蒙古多处文物遗迹成为日本侵华文物实《前海特报》 全媒体传播引关注用“四个着力”统筹国土资源工作百年天安门(18)公务员考试面试应试技巧公益讲座成功举焦裕禄的羞耻感
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘