摘要:随着 Internet 的迅猛发展,电子邮件成为人们相互交流最常使用的工具,于是它也成为新型病毒——电子邮件型病毒的重要载体。最近一两年,出现了许多危害极大的邮件型病毒,如去年闹得沸沸扬扬的 ILOVEYOU 病毒、Melissa 病毒以及更早些时候的“泡泡男孩”等,而最近又有的 “库尔尼科娃”病毒、“Naked Wife” 病毒以及 Homepage 病毒等,这些病毒的特征就是危害较大,主要是利用电子邮件作为传播途径,而且这类病毒一般都是专挑 Windows平台上应用最普遍的邮件客户端——Microsoft Outlook 来下手,其发作和破坏
主要是通过利用 Outlook 的可编程特性来完成的,在收件人使用 Outlook 打开邮件或邮件附件时,里面的病毒就会自动激活并向“通讯簿”的所有人发带有病毒附件的邮件,类似于蠕虫一样“蠕动”,从而导致病毒的大规模迅速传播。如果是在企业环境中,由于网络速度较快,“通讯簿”中人数较多,只要用户打开已感染病毒的邮件,邮件会立即大规模地复制与传播,从而可能致使邮件服务器耗尽资源而瘫痪,其中部分病毒甚至可能破坏用户本地硬盘上数据和文件。
下面我们来分析一下最近出现的 Homepage 病毒,了解它的运行机制,以便对症下药,防毒治毒。
感染了 Homepage 病毒的邮件通常都带有一个名为 Homepage.html.vbs 的附件,很多人本以为他是一个 Html 页面而打开它的同时,这个其实是一个 VBScript 的文件已经开始执行了,这个文件的部分内容如下:-----------------------------------
Execute DeCode("QpGttqtTguwogPgzvUgvYU?EtgcvgQdlgev*UgvHUQ?Etgcvgqdlge...................(省略).....................uqhvyctg^Cp^ockngf0GpfKhPgzvGpfKhPgzvGpfkhGpfHwpevkqp")Function DeCode(Coded)For I = 1 To Len(Coded)CurChar= Mid(Coded, I, 1)If Asc(CurChar) = 15 Then CurChar= Chr(10)ElseIf Asc(CurChar) = 16 Then CurChar= Chr(13)ElseIf Asc(CurChar) = 17 Then CurChar= Chr(32)ElseIf Asc(CurChar) = 18 Then CurChar= Chr(9) Else CurChar = Chr(Asc(CurChar) - 2) End If DeCode = DeCode & CurChar NextEnd Function-------------------------------------
显而易见,病毒对自已的源码进行了加密以加强隐蔽性,加密后的代码就是 DeCode("...") 函数中间的那些乱七八糟的东西,这段 Script 在执行的时候先对利用 Decode 函数对自己进行解密,然后再执行(Execute)解密后的源代码。
我们只要对上述代码稍加修改,就能得到未加密的病毒源代码,修改后的文件另存为 SourceCode.vbs ,如下所示:
--------------------------------------REM 得到病毒源代码strCode = DeCode("QpGttqtTguwogPgzvUgvYU?EtgcvgQdlgev*UgvHUQ?Etgcvgqdlge...................(省略).....................uqhvyctg^Cp^ockngf0GpfKhPgzvGpfKhPgzvGpfkhGpfHwpevkqp")REM 将源代码存放到一个文本文件中Set FSO = CreateObject("Scripting.filesystemobject")Set fCode = FSO.OpenTextFile("Code.txt",2,true)fCode.Write strCodefCode.CloseFSO.CloseREM 解密函数Function Decode(Coded)......(省略).......End Function-------------------------------------
双击运行 SourceCode.vbs ,就可以在同一个目录下生成一个......[
阅读全文]