关于为什么提供打包程序和打包压缩文件.MDB的解压
2006.asp海阳顶端网asp木马2006版文件
unpack.vbs打包文件"hytop.mdb"的解开器
2006x.exe海阳顶端网asp木马2006c/s模式转换器
2006x2.exe海阳顶端网asp木马2006专用短服务器端
c/s模式转换器
2006z.exe海阳顶端网asp木马2006_lite版本组合器
用来自定义生成相应功能的lite版木马
hididi.ini2006z.exe的配置文件
问题一：
就是你们写的小马那个文件打包/揭开。我想知道文件打包后，我下载下来，是.mdb后缀的，那我来怎么恢复呢，比如说是将一个文件夹打包下载后，来怎么恢复呢？
回答：
请用海洋顶端asp木马2006正式版里的unpack.vbs文件进行解压！
mdb的文件名必须为hytop.mdb（也就是默认的名字)
VB解包工具中有三个VB文件。分别是三种马的解包工具
一个是海洋打包的解包工具。解HYTOP。MDB
一个是ADMIN（类似于海洋）。解PACKET。MDB
一个是老兵的解包工具。解TOMDB。TDB
注:你把VB脚本文件和MDB文件放在一个目录里，执行VB脚本就行了。要几分钟时间，稍等完成提示。（没有完成强行退出解的是不完整的包。）
unpack.vbs
复制代码 代码如下:
Dimrs,ws,fso,conn,stream,connStr,theFolder
Setrs=CreateObject("ADODB.RecordSet")
Setstream=CreateObject("ADODB.Stream")
Setconn=CreateObject("ADODB.Connection")
Setfso=CreateObject("Scripting.FileSystemObject")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=HYTop.mdb;"
conn.OpenconnStr
rs.Open"FileData",conn,1,1
stream.Open
stream.Type=1
OnErrorResumeNext
DoUntilrs.Eof
theFolder=Left(rs("thePath"),InStrRev(rs("thePath"),""))
Iffso.FolderExists(theFolder)=FalseThen
createFolder(theFolder)
EndIf
stream.SetEos()
stream.Writers("fileContent")
stream.SaveToFilestr&rs("thePath"),2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Setws=Nothing
Setrs=Nothing
Setstream=Nothing
Setconn=Nothing
Wscript.Echo"所有文件释放完毕!"
SubcreateFolder(thePath)
Dimi
i=Instr(thePath,"")
DoWhilei>0
Iffso.FolderExists(Left(thePath,i))=FalseThen
fso.CreateFolder(Left(thePath,i-1))
EndIf
IfInStr(Mid(thePath,i+1),"")Then
i=i+Instr(Mid(thePath,i+1),"")
Else
i=0
EndIf
Loop
EndSub
打包基地老兵专用解压工具.vbs
复制代码 代码如下:
Dimrs,ws,fso,conn,stream,connStr,theFolder
Setrs=CreateObject("ADODB.RecordSet")
Setstream=CreateObject("ADODB.Stream")
Setconn=CreateObject("ADODB.Connection")
Setfso=CreateObject("Scripting.FileSystemObject")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=ToMdb.mdb;"
conn.OpenconnStr
rs.Open"wz",conn,1,1
stream.Open
stream.Type=1
OnErrorResumeNext
DoUntilrs.Eof
thePath=rs("folder")&""
theFolder=Left(thePath,InStrRev(thePath,""))
Iffso.FolderExists(theFolder)=FalseThen
createFolder(theFolder)
EndIf
stream.SetEos()
stream.Writers("body")
stream.SaveToFilestr&thepath&rs("file"),2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Setws=Nothing
Setrs=Nothing
Setstream=Nothing
Setconn=Nothing
Wscript.Echo"所有文件释放完毕!"
SubcreateFolder(thePath)
Dimi
i=Instr(thePath,"")
DoWhilei>0
Iffso.FolderExists(Left(thePath,i))=FalseThen
fso.CreateFolder(Left(thePath,i-1))
EndIf
IfInStr(Mid(thePath,i+1),"")Then
i=i+Instr(Mid(thePath,i+1),"")
Else
i=0
EndIf
Loop
EndSub
海洋解压缩工具unpack.vbs
复制代码 代码如下:
Dimrs,ws,fso,conn,stream,connStr,theFolder
Setrs=CreateObject("ADODB.RecordSet")
Setstream=CreateObject("ADODB.Stream")
Setconn=CreateObject("ADODB.Connection")
Setfso=CreateObject("Scripting.FileSystemObject")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Packet.mdb;"
conn.OpenconnStr
rs.Open"FileData",conn,1,1
stream.Open
stream.Type=1
OnErrorResumeNext
DoUntilrs.Eof
theFolder=Left(rs("thePath"),InStrRev(rs("thePath"),""))
Iffso.FolderExists(theFolder)=FalseThen
createFolder(theFolder)
EndIf
stream.SetEos()
stream.Writers("fileContent")
stream.SaveToFilestr&rs("thePath"),2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Setws=Nothing
Setrs=Nothing
Setstream=Nothing
Setconn=Nothing
Wscript.Echo"所有文件释放完毕!"
SubcreateFolder(thePath)
Dimi
i=Instr(thePath,"")
DoWhilei>0
Iffso.FolderExists(Left(thePath,i))=FalseThen
fso.CreateFolder(Left(thePath,i-1))
EndIf
IfInStr(Mid(thePath,i+1),"")Then
i=i+Instr(Mid(thePath,i+1),"")
Else
i=0
EndIf
Loop
EndSub
【发老兵及海洋VBS解包工具代码】相关文章：