标题:ACCESS数据库密码破解问题
只看楼主
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:324
专家分:435
注 册:2012-1-29
结帖率:88.24%
已结贴  问题点数:20 回复次数:8 
ACCESS数据库密码破解问题
现在ACCESS数据库密码破解用的是怎么个破解方法?
直接修改密码?
直接取消密码?
还是说可以提取出密码,就是把密码显示出来?
希望知道的提供一下资料!
搜索更多相关主题的帖子: 资料 密码破解 数据库 修改密码 
2012-12-05 16:52
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
ACCESS ,加密:
在 数据库里设置了一个标志位。
然后密码是 XOR 放在数据库里的。
所以你说的 直接修改密码,取消密码,查看密码,均可行。

你最好是百度一下。

授人于鱼,不如授人于渔
早已停用QQ了
2012-12-05 17:28
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:324
专家分:435
注 册:2012-1-29
得分:0 
有较好的防破方法吗?

学习--------------学习-------------------学习--------------------!!
2012-12-05 19:53
曙光电子
Rank: 3Rank: 3
等 级:论坛游侠
威 望:2
帖 子:85
专家分:160
注 册:2012-6-9
得分:5 
回复 楼主 wxflw

如下代码能够破解ACCESS97/2000/2003/XP等任意版本
Option Explicit
Dim mbMove As Boolean
Private Sub Command1_Click()
  Dim sFile    As String
  Dim sPasswd  As String
  Dim sVersion As String
  sFile = Text1.Text
    sPasswd = INNER_GetAccessPwd(sFile, sVersion, True)
    If gbExit Then Exit Sub
    Text2.Text = sVersion
    Text3.Text = sPasswd
End Sub

Private Sub Command2_Click()
Text1.Text = INNER_GetFileName(True)
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Image1.Picture = Me.Icon
End Sub
还有不明白的地方可以联系我 QQ:617986369
2012-12-05 20:23
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:324
专家分:435
注 册:2012-1-29
得分:0 
回复 4楼 曙光电子
晕!我是要防破方法不是要破解方法。不过我现在改用2007版ACCESS了不知道还能破不?

学习--------------学习-------------------学习--------------------!!
2012-12-06 08:41
曙光电子
Rank: 3Rank: 3
等 级:论坛游侠
威 望:2
帖 子:85
专家分:160
注 册:2012-6-9
得分:0 
回复 5楼 wxflw
怎么晕?你发贴子的提目是:
ACCESS数据库密码破解问题
现在ACCESS数据库密码破解用的是怎么个破解方法?
直接修改密码?
直接取消密码?
还是说可以提取出密码,就是把密码显示出来?
希望知道的提供一下资料!

2012-12-06 10:14
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:324
专家分:435
注 册:2012-1-29
得分:0 
回复 6楼 曙光电子
额!我是为了怎么防止破解才问的,所以项针对性的防止,但是我现在用了2007的ACCESS不知道还能不能破了

学习--------------学习-------------------学习--------------------!!
2012-12-06 14:56
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:5 
ACCESS2007好象还没有破解软件

无知
2012-12-06 19:45
donstone
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2021-8-10
得分:0 
以下是引用曙光电子在2012-12-5 20:23:42的发言:


如下代码能够破解ACCESS97/2000/2003/XP等任意版本
Option Explicit
Dim mbMove As Boolean
Private Sub Command1_Click()
  Dim sFile    As String
  Dim sPasswd  As String
  Dim sVersion As String
  sFile = Text1.Text
    sPasswd = INNER_GetAccessPwd(sFile, sVersion, True)
    If gbExit Then Exit Sub
    Text2.Text = sVersion
    Text3.Text = sPasswd
End Sub

Private Sub Command2_Click()
Text1.Text = INNER_GetFileName(True)
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Image1.Picture = Me.Icon
End Sub
还有不明白的地方可以联系我 QQ:617986369

请问INNER_GetAccessPwd的过程代码在哪里?
2021-09-13 10:56



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




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

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