ACCESS数据库密码破解问题 - 编程论坛

#2

风吹过b2012-12-05 17:28

ACCESS ，加密：
在数据库里设置了一个标志位。
然后密码是 XOR 放在数据库里的。
所以你说的直接修改密码，取消密码，查看密码，均可行。

你最好是百度一下。

#3

wxflw2012-12-05 19:53

有较好的防破方法吗？

#4

曙光电子2012-12-05 20:23

回复楼主 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

#5

wxflw2012-12-06 08:41

回复 4楼曙光电子

晕!我是要防破方法不是要破解方法。不过我现在改用2007版ACCESS了不知道还能破不？

#6

曙光电子2012-12-06 10:14

回复 5楼 wxflw

怎么晕?你发贴子的提目是:
ACCESS数据库密码破解问题
现在ACCESS数据库密码破解用的是怎么个破解方法？
直接修改密码？
直接取消密码？
还是说可以提取出密码，就是把密码显示出来？
希望知道的提供一下资料！

#7

wxflw2012-12-06 14:56

回复 6楼曙光电子

额！我是为了怎么防止破解才问的，所以项针对性的防止，但是我现在用了2007的ACCESS不知道还能不能破了

#8

Artless2012-12-06 19:45

ACCESS2007好象还没有破解软件

#9

donstone2021-09-13 10:56

以下是引用曙光电子在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的过程代码在哪里？