关于为什么提供打包程序和打包压缩文件.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
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论