CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章发老兵及海洋VBS解包工具代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

关于为什么提供打包程序和打包压缩文件.MDB的解压 2006.asp　　　　　　　　　　　　　　　　海阳顶端网asp木马2006版文件　  unpack.vbs　　　　　　　　　　　　　　　　打包文件"hytop.mdb"的解开器　  2006x.exe　　　　　　　　　　　　　　　　海阳顶端网asp木马2006　c/s模式转换器　  2006x2.exe　　　　　　　　　　　　　　　　海阳顶端网asp木马2006　专用短服务器端　  　　　　　　　　　　　　　　　　　　　　　　　　c/s模式转换器　  2006z.exe　　　　　　　　　　　　　　　　海阳顶端网asp木马2006_lite版本组合器　  　　　　　　　　　　　　　　　　　　　　　　　　用来自定义生成相应功能的lite版木马　  hididi.ini　　　　　　　　　　　　　　　　2006z.exe的配置文件　  问题一：　  就是你们写的小马那个文件打包/揭开。我想知道　文件打包后，我下载下来，是.mdb后缀的，那我来怎么恢复呢，比如说是将一个文件夹打包下载后，来怎么恢复呢？　　  回答：　  请用海洋顶端asp木马2006正式版里的unpack.vbs文件进行解压！　  mdb的文件名必须为hytop.mdb（也就是默认的名字)　 VB解包工具中有三个VB文件。分别是三种马的解包工具 一个是海洋打包的解包工具。解HYTOP。MDB 一个是ADMIN（类似于海洋）。解PACKET。MDB 一个是老兵的解包工具。解TOMDB。TDB 注:你把VB脚本文件和MDB文件放在一个目录里，执行VB脚本就行了。要几分钟时间，稍等完成提示。（没有完成强行退出解的是不完整的包。） unpack.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=HYTop.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 。

打包基地老兵专用解压工具.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=ToMdb.mdb;" conn.Open connStr rs.Open "wz", conn, 1, 1 stream.Open stream.Type = 1 On Error Resume Next Do Until rs.Eof         thePath = rs("folder") & "\"         theFolder = Left(thePath, InStrRev(thePath, "\"))         If fso.FolderExists(theFolder) = False Then                 createFolder(theFolder)         End If         stream.SetEos()         stream.Write rs("body")         stream.SaveToFile str & thepath & rs("file"), 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 。

海洋解压缩工具unpack.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 。

最后此篇关于发老兵及海洋VBS解包工具代码的文章就讲到这里了,如果你想了解更多关于发老兵及海洋VBS解包工具代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。