VBS 11 months ago red.ghostwolflab.com 2 minutes VBS是一种由微软开发的脚本语言,它可以在Microsoft Windows上或Internet Information Server上运行。它和Visual Basic有很多相似之处,但也有一些不同之处。VBS可以实现各种功能,例如数据类型、文件输入输出、应用程序控制等。它也可以支持类和继承等面向对象的特性。 编写脚本 第一种方法:编写以下代码到down.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 然后在终端中输入如下命令即可下载文件到Windows主机: cscript down.vbs http://192.168.1.103/test/test.txt 第二种方法:编写以下代码到down1.vbs文件: url = "http://192.168.1.103/test/test.txt" '网络上的文件地址 saveas = "C:\Users\snowwolf\Desktop\test.txt" '保存成的本地文件 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 xmlhttp = Nothing Set stream = Nothing 然后输入以下命令即可下载: cscript down1.vbs 第三种方法编写以下代码到down2.vbs文件: Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://192.168.1.103/test/test.txt",0 '下载文件的地址 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Users\snowwolf\Desktop\test.txt",2 '保存文件的路径和文件名 然后输入以下命令即可下载: cscript down2.vbs 工具 混淆VBScript_Obfuscatorhttps://github.com/DoctorLai/VBScript_ObfuscatorVBS Obfuscator in Pythonhttps://github.com/kkar/VBS-Obfuscator-in-Python反混淆vbeDecoderhttps://github.com/sbruyere/vbeDecoder