mdb文件怎么解压?不知道大家有没有接触过,现在在网上有一种mdb格式的的压缩格式,具体叫什么也不清楚。但是解压这样的文件,用常用的rar解压软件是无法解开的,那么mdb文件怎么解压呢?
相信大家都知道,mdb文件是是数据库文件,有网友在百度知道上提问mdb文件怎么解压很多人回复mdb不用解压,用Access打开就可以了。但相信真正提问的用户肯定对这样的答案不会满意的。
其实mdb压缩文件多见于木马的打包,通常是用这种形式把网站所有内容包括图片整体打包,有的为HSH.mdb有的可能是Packet.mdb或者其它是mdb后缀的名称。然后下载到本地再解压,有兴趣的朋友可以网上下载几个木马尝试下,通常的木马文件里都有解压程序。
mdb文件怎么解压?其实还有一个更为简洁的方法,如下:
新建一个文本文档,保存为*.vbs。程序代码
Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject(“ADODB.RecordSet”)
Set stream = CreateObject(“ADODB.Stream”)
Set conn = CreateObject(“ADODB.Connection”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
connStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Packet.mdb;”
conn.Open connStr
rs.Open “FileData”, conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
theFolder = Left(rs(“thePath”), InStrRev(rs(“thePath”), “”))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs(“fileContent”)
stream.SaveToFile str & rs(“thePath”), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
Wscript.Echo “所有文件释放完毕!”
Sub createFolder(thePath)
Dim i
i = Instr(thePath, “”)
Do While i > 0
If fso.FolderExists(Left(thePath, i)) = False Then
fso.CreateFolder(Left(thePath, i – 1))
End If
If InStr(Mid(thePath, i + 1), “”) Then
i = i + Instr(Mid(thePath, i + 1), “”)
Else
i = 0
End If
Loop
End Sub
把mdb文件和该文件放同一个目录里双击解压.vbs即可
注:上述中的红色代码Packet.mdb为你的mdb文件名称。
(转载请注明转自://wsw.waibiduihuan8.com/,谢谢!珍惜别人的劳动成果,就是在尊重自己!)