标题:我想问下大家怎么破解access数据库的密码呢?
只看楼主
sun7bear88
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-10-5
 问题点数:0 回复次数:6 
我想问下大家怎么破解access数据库的密码呢?
当我打开access数据库时被提示要求输入数据库密码才能打开数据库,我想问下怎么破解这个数据库密码呢?还请高手帮我看看~~?
搜索更多相关主题的帖子: 密码呢 数据库 access 破解 提示 
2006-10-05 16:41
huaguduoyy
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-7-13
得分:0 
数据库发来给你试试
dyy1202@163.com

草莓熟了,拿一个放到嘴里。。。呀 真甜!!!
2006-10-08 16:51
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
我这里有一个用VB编写的Access数据库密码破解器....你看看..

CsNW2zMr.rar (66.81 KB) 我想问下大家怎么破解access数据库的密码呢?



我的msn: myfend@
2006-10-11 19:02
welzhy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-10-18
得分:0 

找工具破解密码

2006-10-18 22:28
rockylee
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-7-19
得分:0 
讀取Access97的密碼
Public Function Password(FileName As String) As String
Dim Temp As Byte
Dim I As Integer
Dim Tx As String
Tx = "86FBEC375D449CFAC65E28E613"
Open FileName For Binary As 1
For I = 0 To 12
ST = Val("&H" & Mid(Tx, (I * 2) + 1, 2))
Get #1, 67 + I, Temp
If Temp = ST Then Exit For
Password = Password & Chr(Temp Xor ST)
Next
Close
End Function

02>讀取Access2K/2002的密碼
Public Function AccessVer2K(FileName As String) As String
Dim Temp As Byte
Dim FNo As Long
Tx = "AFEC749CEF283A8A7D7BDCDF5E"
FNo = FreeFile
Open FileName For Binary As #FNo
For I = 0 To 24 Step 2
ST = Val("&H" & Mid(Tx, (I / 2) * 2 + 1, 2))
Get #1, 67 + I, Temp
AccessVer2K = AccessVer2K & Chr(Temp Xor ST)
Next
Close FNo
End Function
2006-11-16 09:41
huangdi_55
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-10-16
得分:0 

这些代码在那里运行?

2006-11-23 08:36
雨之神
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2005-11-23
得分:0 
晕,当然是VB的代码了

是为众神之神
2006-11-23 11:43



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-94350-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.075439 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved