论坛风格切换切换到宽版
  • 112544阅读
  • 5回复

网站打包成.mdb格式的网站 解压方法?(解压工具) [复制链接]

上一主题 下一主题
离线admin
 

发帖
17308
金钱
88510810
威望
88
贡献值
20070
只看楼主 倒序阅读 使用道具 0 发表于: 2007-07-25

有很多网友,入侵别人的网站,然后将别人的站点打包成mdb的文件格式!别人的整站会形成一个**.MDB的文件格式,这样子就可以将整个网站下载下来!
也有很多朋友拿到这个**.mdb的文件后,不知道怎么用,这不是一种数据文件,也不能用WINrar来解压缩,因为他是一种木马打包的形式!
解压这种压缩包,你可以在网上找海洋打包工具进行解压缩!但我这里向大家介绍的方法更简单!

将**.MDB的文件放在本地的某个文件夹,把下面代码写进记事本,保存为.vbs文件,把待解压文件改名为Packet.mdb后执行解压
为什么要改成packet.mdb请大家注意红色部分!

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

使用这段代码的兄弟,记得开上杀毒软件哦,因为这类型是用木马进行压缩的!所以注意自己清理一下存在的木马!


注:打包基地老兵专用解压工具下载地址:
http://www.ee44.net/read-htm-tid-22541.html
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
离线adsl

发帖
340
金钱
14293
威望
0
贡献值
0
只看该作者 1 发表于: 2007-10-08
能学习一下怎么打包网站就好了
离线kuangren
发帖
84
金钱
22160
威望
0
贡献值
0
只看该作者 2 发表于: 2007-11-22
学习啦
离线nxhyzx2002
发帖
137
金钱
20328
威望
0
贡献值
0
只看该作者 3 发表于: 2008-02-28
学习了
离线whs164
发帖
11
金钱
22210
威望
0
贡献值
0
只看该作者 4 发表于: 2008-03-13
学习了哈
离线nctmh

发帖
110
金钱
9133
威望
0
贡献值
0
只看该作者 5 发表于: 2011-05-05
学习了,太有用了~:)
快速回复
限100 字节
 
上一个 下一个