发老兵及海洋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