如何读取 access 数据库的信息！（即打开access数据库文件->数据库属性这一页上的信息）

[wwcz898]

rt
xx大虾
我在网上居然没有说明。。。。
指点一下xx！

[wwwwb]

请问office系列软件的密码是怎么获得的：
具体不太清楚 ，大概是这样，OFFICE系列密码储存在文件中某个地方，
经过一系列计算，不能直接看到，用VB、DELPHI等语言做逆运算得到
密码。与属性不一样，只能用间接方法得到某些内容。

[wwwwb]

而且MS并没有公开OFFICE文件的结构

[gxlishuxin]

用dao读取Microsoft Access 定义的属性例子：

Dim db As Database
Dim doc As Document
Dim strMsg As String
Set db = CurrentDb
'假设你的数据库属性-自定义-编辑者上有个文本值，现在读出
Set doc = db.Containers("Databases")![UserDefined]
strMsg = doc.Properties![编辑者]
MsgBox strMsg, 64
'假设你的数据库属性-摘要-标题上有一段文字，现在读出
Set doc = db.Containers("Databases")![SummaryInfo]
strMsg = doc.Properties![Title]
MsgBox strMsg, 64

[wwcz898]

office 密码好像是使用的直接读取文件为流 然后使用偏移到密码存放的位置直接读出

不过对于sql数据库可以读取数据库的一些属性如：
DATABASEPROPERTY
返回给定数据库和属性名的命名数据库属性值。



重要 使用 Microsoft® SQL Server™ 2000 函数 DATABASEPROPERTYEX 获得有关数据库选项的当前设置或指定数据库属性的信息。提供 DATABASEPROPERTY 函数是为了向后兼容。


语法
DATABASEPROPERTY( database , property )



测试一下能不能应用在access数据库中！ 关键是看怎么yong

[wwcz898]

转点资料：
如果你过分信任 Access 2000数据库的密码保护，你可能会因此而蒙受损失。这是因为Access 2000的数据库级密码并不安全，相反它很脆弱，甚至下面这段非常小的程序就可以攻破它：  程序一（VB6）：Access 2000密码破译 Private Sub Command1_Click() Const Offset = &H43 文件偏移地址：Access数据库从此处开始存放加密密码 Dim bEmpty(1 To 2) As Byte, bPass(1 To 2) As Byte Dim i As Integer, Password As String 打开一个空数据库作为参照 Open "D:VB6_TestMDB_PasswordNew_Empty_DB.mdb" For Binary As #1 打开被密码保护的数据库 Open "D:VB6_TestMDB_PasswordPass_Protected_DB.mdb" For Binary As #2 Seek #1, Offset Seek #2, Offset For i = 1 To 20 ' Access 2000 数据库密码最长允许20位 Get #1, , bEmpty ' 其中每位密码占两个字节 Get #2, , bPass ' 一个汉字也仅是一位密码，占两个字节 If (bEmpty(1) Xor bPass(1)) <> 0 Then Password = Password + Chr(bEmpty(1) Xor bPass(1)) ' 将密码解密 End If Next Close 1, 2 MsgBox "Password:" + Password ' 显示密码 End Sub
一、深入分析 上述程序成功的关键是使用了一个空数据库（New_Empty_DB.mdb）。该数据库的创建日期必须与被密码保护的数据库（Pass_Protected_DB.mdb）相一致。 换句话说，Access 2000 仅仅是使用“数据库创建日期”来加密用户密码。
应注意的是：上面的“创建日期”只是操作系统级的，也就是 Windows记录在文件夹目录里的信息（根据文件名的长短，每个文件在目录里占用至少32个字节，包括：文件名、属性、文件大小、首蔟号、创建时间、修改时间和访问时间等）。 Access 2000 在数据库中也记录了该数据库的“创建日期”。加密数据库密码的正是数据库内部记录的这个“创建日期”。该日期只有在数据库被成功打开后才能看到。但在一般情况下，操作系统级的以及数据库内保存的“创建日期”是完全一样的，因此这为破译者提供了方便。 上述程序中还有一点需要说明：为简明起见，解密密码时仅处理了双字节的首字节，因此它仅对非汉字密码有效。若要解密汉字密码，须对双字节均做处理。 二、防范措施 1、隐藏“创建日期” 从上面的分析可以看出，既然“创建日期”是破译的关键，那么我们应“对症下药”，将真实的“创建日期”隐藏起来。 第一步，创建数据库时，使用一个“不可思议的、别人不易猜测”的日期。做法为：修改 Windows系统日期，例如改为2026年05月15日，创建数据库后再将系统日期改回。这个“不可思议”的日期即为该数据库的真实“创建日期”。 第二步，修改操作系统级的“创建日期”。上述第一步完成后，该数据库在操作系统级的创建日期也是2026年05月15日，必须加以修改，以达到隐藏真实创建日期的目的。修改操作系统级的“创建日期”可以由下面的程序二完成。  程序二（VB6）：修改文件在操作系统级的“创建日期” Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Const GENERIC_WRITE = &H40000000 Private Const OPEN_EXISTING = 3 Private Const FILE_SHARE_READ = &H1 Private Const FILE_SHARE_WRITE = &H2 Private Declare Function SetFileTimeWrite Lib "kernel32" Alias _ "SetFileTime" (ByVal hFile As Long, lpCreateTime As FILETIME, _ ByVal NullP As Long, ByVal NullP2 As Long) As Long Private Declare Function SystemTimeToFileTime Lib "kernel32" _ (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _ (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal _ dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal _ dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, _ ByVal hTemplateFile As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _ As Long Private Declare Function LocalFileTimeToFileTime Lib "kernel32" _ (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long Private Sub Command1_Click() Dim Year As Integer, Month As Integer, Day As Integer Dim Hour As Integer, Minute As Integer, Second As Integer Dim TimeStamp As Variant, Filename As String, X As Integer Year = 2001: Month = 3: Day = 13 ' 准备设定的“创建日期” Hour = 12: Minute = 0: Second = 26 TimeStamp = DateSerial(Year, Month, Day) + TimeSerial(Hour, Minute, Second) Filename = "D:VB6_TestMDB_PasswordPass_Protected_DB.mdb" ' 目标文件名 X = ModifyFileStamp(Filename, TimeStamp) End Sub Function ModifyFileStamp(Filename As String, TimeStamp As Variant) As Integer Dim X As Long, Handle As Long, System_Time As SYSTEMTIME Dim File_Time As FILETIME, Local_Time As FILETIME System_Time.wYear = Year(TimeStamp): System_Time.wMonth = Month(TimeStamp) System_Time.wDay = Day(TimeStamp) System_Time.wDayOfWeek = Weekday(TimeStamp) - 1 System_Time.wHour = Hour(TimeStamp): System_Time.wSecond = Second(TimeStamp) System_Time.wMilliseconds = 0 X = SystemTimeToFileTime(System_Time, Local_Time) X = LocalFileTimeToFileTime(Local_Time, File_Time) ' 转换成可用的类型 Handle = CreateFile(Filename, GENERIC_WRITE, FILE_SHARE_READ Or _ FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0) ' 打开文件 X = SetFileTimeWrite(Handle, File_Time, ByVal 0&, ByVal 0&) ' 设置日期 CloseHandle Handle ' 关闭文件 End Function 图三显示的是数据库的真实“创建日期”以及经程序二伪装的操作系统级的“假象”日期。
可以看出，隐藏“创建日期”的方法对破译者来说只是增大了破译的工作量，增加了破解试验的次数。只有将该方法与下述的“方法二”相结合，才能达到“既治标又治本”的效果。不过在一般的情况下“方法一”已够用，因为如果破译者起始使用的测试日期与最终的真实日期相差百年，他需要付出数万次的努力！ 2、使用用户级安全机制 通过设置不同的用户帐号和组帐号对数据库中的各种资源进行权限管理。这种加强了的安全机制虽然给日常使用（尤其是单用户使用）带来了不便，但在有安全隐患的地方依然有设置的必要。 设置各种帐号及相应权限的简单方法是使用“设置安全机制向导”（见图四）。图四还显示了安全机制启动后要求用户登录的画面。
三、结论 所谓“道高一尺魔高一丈”，因为这世上并没有绝对的安全。上述方法一的目的是提高破译的成本以达到常人难以接受的程度；而方法二的初衷是增加密码的数量。两种方法的结合足以使破译者望而却步。不过这并不意味着百分之百的安全。但从思想上提高安全意识，防患于未然，这毕竟是正确的选择。

[wwcz898]

sorry
可能是我比较菜！
vb中dsofile 这种方法在fat32下不能实现
ntfs可以
不过好像是文件摘要 从ntfs复制到fat32下文件摘要丢失
用DAO这种方法 编译的时候提示 CurrentDb 这个没发现之类
我重新安装了dao360.dll
运行了Regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll
提示安装成功！
不过还是不行
。。。。。。。。。。。。。
不用dao 用ADO能实现这种功能么？
谢谢changechange

[changechange]

不用dao 用ADO能实现这种功能么？－－－－－不能

[changechange]

sorry
可能是我比较菜！
vb中dsofile 这种方法在fat32下不能实现
ntfs可以
不过好像是文件摘要 从ntfs复制到fat32下文件摘要丢失
－－－－－－－我这里成功了。没问题。是你自己没有安装好吧？

[changechange]

用DAO这种方法 编译的时候提示 CurrentDb 这个没发现之类
我重新安装了dao360.dll
运行了Regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll
提示安装成功！
不过还是不行－－－－－－－
－－－－－
认真看看本版块的公告，这里不回答 VB 问题，只回答 VBA 问题

在 VBA 中 CURRENTDB 对象相当于已经打开的 DAO.DATABASE 对象，我想如何打开 DATABASE 对象不用我再说了吧？否则你就是完全不动脑子了

[wwcz898]

。。。
晕 我还以为是vb代码！！
谢谢阿！！
我再找找其他办法！ 谢谢

[wwcz898]

to
gxlishuxin()
谢谢 请问一下怎么写呢！！谢谢？
以此为例
假设你的数据库属性-摘要-标题上有一段文字，现在读出
Set doc = db.Containers("Databases")![SummaryInfo]
strMsg = doc.Properties![Title]
MsgBox strMsg, 64
是不是写入的话

就是
doc.properties![Title]="XXX"

[changechange]

彻底列出所有属性，包括楼主要的所有信息

Function DisplayAllProperty()
Dim db As DAO.Database
Set db = CurrentDb
Dim p As Container, pp
Dim d As DAO.Document, dp
For Each p In db.Containers
For Each d In p.Documents
For Each dp In d.Properties
Debug.Print "properties for document", p.Name, d.Name, dp.Name, dp.Value
DoEvents
Next
Next
For Each pp In p.Properties
Debug.Print "Container Property", p.Name, pp.Name, pp.Value
Next
Next
End Function

[changechange]

你要做的只是在

For Each dp In d.Properties
Debug.Print "properties for document", p.Name, d.Name, dp.Name, dp.Value
DoEvents
Next
中判断 p.name是否database

[wwcz898]

to
changechange
这个是否支持fat32格式的硬盘！
怎么写入呢？是否是
以此为例
假设你的数据库属性-摘要-标题上有一段文字，现在读出
Set doc = db.Containers("Databases")![SummaryInfo]
strMsg = doc.Properties![Title]
MsgBox strMsg, 64
是不是写入的话

就是
doc.properties![Title]="XXX"

[changechange]

请参考以下文章及其相关文章：

如何获取数据库属性？
http://www.access911.net/?kbid;72FAB11E1ADCE9F3

[changechange]

上述文章中读取和写入全部都有了，你自己看吧

[wwcz898]

收到 谢谢！！

[changechange]

楼主搞定了没有？

我自己测试了，两种方法全都可以的

[changechange]

还要找什么？你在 VB 里面用 DAO 不会么？

[wwcz898]

hehe DAO我真么用过 hh
vb里我用的是ado
现在捣置delphi呢！！！刚学一个月了吧 ，，呵呵 谢谢直点