解压MDB文件

作者: admin 分类: 这个世界 发布时间: 2008-10-14 10:03 ė 6 没有评论

MDB文件是木马压缩下来的压缩包,
这些文件通常很有价值,
这里有一个脚本语言,转来的,可以解压
地址
http://www.namipan.com/d/c6d1de01a37ea7c239a61c8558a223d196399cdc07050000

还有代码

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.eu5.cn/post/24.htm

发表评论

电子邮件地址不会被公开。 必填项已用*标注

Ɣ回顶部

无觅相关文章插件,快速提升流量