|
 | 作者: windflower [windflower]
 论坛用户 |
登录 |
| 用VB写了个大小240K的程序，可以破解access数据库的密码，不知谁想要？直接联系我。 |
| 地主 发表时间: 04-01-15 01:20 |
 | 回复: 286 [unique] 版主 |
登录 |
|
Access版本有要求吗？ 98？2000？还是都有？ |
| B1层 发表时间: 04-01-15 09:22 |
| 回复: windflower [windflower] 论坛用户 |
登录 |
|
有要求 不同版本有不同的加密方式 97，2000，2003 但原理基本相同 |
| B2层 发表时间: 04-01-15 15:30 |
 | 回复: naitai [naitai]  论坛用户 |
登录 |
|
天天上早就有了!!!还不错!! |
| B3层 发表时间: 04-01-15 21:39 |
 | 回复: aserict [aserict]  论坛用户 |
登录 |
|
我好想要呀，我发了一个帖子没有人回复。气死我了，你就是我的救命星 |
| B4层 发表时间: 04-01-18 19:32 |
 | 回复: kenter1643 [kenter1643]  论坛用户 |
登录 |
|
迟D我会在这里公布原代码 我也编了个。支持几种的，方法都不同的，不同版本的要不同的方法解决 |
| B5层 发表时间: 04-01-18 19:52 |
| 回复: 286 [unique] 版主 |
登录 |
|
OK，非常好。欢迎源代码开放，本人也有此打算。 |
| B6层 发表时间: 04-01-19 09:05 |
| 回复: kenter1643 [kenter1643] 论坛用户 |
登录 |
|
ACCESS 97密码破解 Private Sub Form_Load() Dir1.Path = App.Path End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Dim chart(13) As Byte Dim datafile As String text1 = "" If Len(File1.Path) > 3 Then datafile = File1.Path + "\" + File1.FileName Else datafile = File1.Path & File1.FileName End If If Right(File1.FileName, 3) = "mdb" Then '判断是否为assecc 数据库 Open Trim(datafile) For Binary Access Read As #1 Get #1, 67, chart Close #1 '关闭文件 If ((chart(0) Xor 134) = 0) Then text1.Text = File1.Name & " 数据库没有设置密码" Else text1 = text1 & Chr$(chart(0) Xor &H86) '获得密码的第一个数 text1 = text1 & Chr$(chart(1) Xor &HFB) text1 = text1 & Chr$(chart(2) Xor &HEC) text1 = text1 & Chr$(chart(3) Xor &H37) text1 = text1 & Chr$(chart(4) Xor &H5D) text1 = text1 & Chr$(chart(5) Xor &H44) text1 = text1 & Chr$(chart(6) Xor &H9C) text1 = text1 & Chr$(chart(7) Xor &HFA) text1 = text1 & Chr$(chart(8) Xor &HC6) text1 = text1 & Chr$(chart(9) Xor &H5E) text1 = text1 & Chr$(chart(10) Xor &H28) text1 = text1 & Chr$(chart(11) Xor &HE6) text1 = text1 & Chr$(chart(12) Xor &H13) End If Else text1 = "非access数据库！" End If End Sub Private Sub Command1_Click() End End Sub ACCESS 2000破解 Dim j As Integer Private Sub Form_Load() Dir1.Path = App.Path j = 0 End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() Dim chart(30) As Byte Dim datafile As String text1 = "" Dim strbytes As Long If Len(File1.Path) > 3 Then datafile = File1.Path + "\" + File1.FileName Else datafile = File1.Path & File1.FileName End If Open Trim(datafile) For Binary Access Read As #1 Get #1, 67, chart Close #1 text1 = text1 & Chr$(chart(0) Xor &HA7) text1 = text1 & Chr$(chart(2) Xor &HEC) text1 = text1 & Chr$(chart(4) Xor &H7C) text1 = text1 & Chr$(chart(6) Xor &H9C) text1 = text1 & Chr$(chart(8) Xor &HE7) text1 = text1 & Chr$(chart(10) Xor &H28) text1 = text1 & Chr$(chart(12) Xor &H32) text1 = text1 & Chr$(chart(14) Xor &H8A) text1 = text1 & Chr$(chart(16) Xor &H75) text1 = text1 & Chr$(chart(18) Xor &H7B) text1 = text1 & Chr$(chart(20) Xor &HD4) text1 = text1 & Chr$(chart(22) Xor &HDF) text1 = text1 & Chr$(chart(24) Xor &H56) text1 = text1 & Chr$(chart(26) Xor &H13) text1 = text1 & Chr$(chart(28) Xor &HEE) text1 = text1 & Chr$(chart(30) Xor &HB1) End Sub Private Sub Command1_Click() End End Sub [此贴被 kenter1643(kenter1643) 在 01月21日22时52分 编辑过] |
| B7层 发表时间: 04-01-21 15:30 |
 | 回复: k4shaoye [k4shaoye]  论坛用户 |
登录 |
|
高手 不知道管用不哦 |
| B8层 发表时间: 04-01-22 10:34 |
| 回复: windflower [windflower] 论坛用户 |
登录 |
|
1643: 2000版本的密码最多可以20位，因此依你和程序 chart应该要40。。。 对不对？ |
| B9层 发表时间: 04-01-22 11:56 |
| 回复: kenter1643 [kenter1643] 论坛用户 |
登录 |
|
怎么会有人把密码设置到15位以上的？？ 你会啊？？？？ [此贴被 kenter1643(kenter1643) 在 01月22日13时57分 编辑过] |
| B10层 发表时间: 04-01-22 13:55 |
| 回复: kenter1643 [kenter1643] 论坛用户 |
登录 |
|
2000针对版本不同的破解有很多种，上面只是其中一种 |
| B11层 发表时间: 04-01-22 13:59 |
| 回复: windflower [windflower] 论坛用户 |
登录 |
|
重要的是，你知道它的加密方式就够了。 怎么解，一千种方法我也相信有。 但既是解密，就应该考虑所有的可能，你说呢。 |
| B12层 发表时间: 04-01-22 14:18 |
| 回复: jfyygymtdh [jfyygymtdh] 论坛用户 |
登录 |
|
请问一下。上面的程序是用什么编写的啊？ |
| B13层 发表时间: 04-01-26 13:20 |
| 回复: windflower [windflower] 论坛用户 |
登录 |
|
VB |
| B14层 发表时间: 04-01-26 13:28 |
| 回复: jfyygymtdh [jfyygymtdh] 论坛用户 |
登录 |
|
用C-FREE来看是不是不行啊? |
| B15层 发表时间: 04-01-26 20:00 |
| 回复: kenter1643 [kenter1643] 论坛用户 |
登录 |
|
有无搞错C语言和VB都分去清楚啊！！！！！ 差甘远的两种东西 |
| B16层 发表时间: 04-01-27 13:52 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: Access数据库密码破解