任何文件转成bat文件
- 作者: 小三儿5921297
- 来源: 51数据库
- 2022-08-17
Option Explicit
Dim fp,fn,sll,sl,i,slh,bt,r,str
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=sl\65536
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
推荐阅读
