欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

发老兵及海洋VBS解包工具代码

程序员文章站 2022-06-16 17:38:57
关于为什么提供打包程序和打包压缩文件.mdb的解压 2006.asp                海阳顶端网asp木马2006版文件   unpack.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