A veces las formas de bromear a amigos como enviar mensajes trol, redirigirlo a una web phishing… tienen tanta fama, que las “víctimas” de tanto ser troleadas aprenden de la experiencia, así que la próxima vez que los “trolees” de esta forma ya no es interesante.
¿Por qué no intentar gastar una broma a tus amigos con un “virus”, intentar crear un virus inofensivo y luego enviárselo a tus amigos? Seguramente tus amigos tendrán que “gritar” cuando sepan que su computadora está infectada con un “virus falso”.
En este artículo, esgeeks en modo bromista, te guiará sobre cómo crear un virus falso para engañar a tus amigos con el Bloc de notas y VBScript. Los pasos son extremadamente fáciles.
Paso 1: Abre un Nuevo Bloc de notas (Notepad)
Es tan sencillo como buscar “Bloc de notas” o “Notepad” en el menú de aplicaciones. Otra alternativa, es usar un comando para ejecutar. Esto es: Windows + R, escribir “notepad” y pulsa el botón “Aceptar“.
Paso 2: Agrega este Código al Bloc de Notas
Copia y pega el siguiente código en el Bloc de notas:
Set WshShell = WScript.CreateObject("WScript.Shell")
strName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )
x=msgbox ("CrÌtico: Tu sistema está gravemente afectado por múltiples amenazas. Para abortar todos los procesos, pulsa 'Anular'. Para volver a escanear, pulsa 'Reintentar'. Para continuar con todos los procesos, pulsa 'Omitir'." ,2+16, "Virus encontrando por Windows Defender©")
WScript.sleep 2000
msgbox "Fallo del sistema en %WINDIR%",48,ERROR
WshShell.Run "cmd"
WScript.sleep 200
wshshell.sendkeys "cls"
WScript.sleep 300
wshshell.sendkeys "{ENTER}"
WScript.sleep 300
wshshell.sendkeys "E"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys "t"
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys "u"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys "t"
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "d"
WScript.sleep 200
wshshell.sendkeys "o"
WScript.sleep 200
wshshell.sendkeys ","
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys strName
WScript.sleep 200
wshshell.sendkeys "?"
x=msgbox ("?",4)
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "cls"
wshshell.sendkeys "{ENTER}"
if x=6 Then
WScript.sleep 200
wshshell.sendkeys "B"
WScript.sleep 200
wshshell.sendkeys "i"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "n"
WScript.sleep 200
wshshell.sendkeys ","
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "P"
WScript.sleep 200
wshshell.sendkeys "u"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 300
wshshell.sendkeys "d"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "b"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "r"
WScript.sleep 200
wshshell.sendkeys "i"
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "."
wshshell.sendkeys "{ENTER}"
WScript.sleep 100
wshshell.sendkeys "exit"
WScript.sleep 100
wshshell.sendkeys "{ENTER}"
End If
if x=7 Then
WScript.sleep 200
wshshell.sendkeys "N"
WScript.sleep 200
wshshell.sendkeys "o"
WScript.sleep 200
wshshell.sendkeys "?"
WScript.sleep 500
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "P"
WScript.sleep 200
wshshell.sendkeys "u"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys " "
WScript.sleep 200
wshshell.sendkeys "D"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "b"
WScript.sleep 200
wshshell.sendkeys "e"
WScript.sleep 200
wshshell.sendkeys "r"
WScript.sleep 200
wshshell.sendkeys "i"
WScript.sleep 200
wshshell.sendkeys "a"
WScript.sleep 200
wshshell.sendkeys "s"
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 200
wshshell.sendkeys "."
WScript.sleep 400
wshshell.sendkeys "{ENTER}"
WScript.sleep 100
wshshell.sendkeys "exit"
WScript.sleep 100
wshshell.sendkeys "{ENTER}"
End If
WshShell.Run "cmd"
WScript.sleep 500
wshshell.sendkeys "dir"
WScript.sleep 100
wshshell.sendkeys "{ENTER}"
WScript.sleep 1000
wshshell.sendkeys "dir"
WScript.sleep 100
wshshell.sendkeys "{ENTER}"
WScript.sleep 2000
wshshell.sendkeys "cls"
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 40
wshshell.sendkeys "prompt eliminando cookies..."
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 40
wshshell.sendkeys "cls"
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 2000
wshshell.sendkeys "prompt eliminando Usuarios..."
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 40
wshshell.sendkeys "cls"
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 2000
wshshell.sendkeys "prompt eliminando disco 'C:'..."
WScript.sleep 200
wshshell.sendkeys "{ENTER}"
WScript.sleep 40
wshshell.sendkeys "cls"
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 1000
x=msgbox ("¿Estás seguro de que quieres borrar permanentemente todos los archivos, carpetas y subcarpetas de la variable de entorno: '%ALLDATA%'? " ,4+32, "C:\")
WScript.sleep 2000
wshshell.sendkeys "prompt eliminando system32..."
WScript.sleep 70
wshshell.sendkeys "{ENTER}"
WScript.sleep 40
wshshell.sendkeys "cls"
WScript.sleep 40
wshshell.sendkeys "{ENTER}"
WScript.sleep 1000
wshshell.sendkeys "exit"
WScript.sleep 200
wshshell.sendkeys "{ENTER}"
WScript.sleep 4000
msgbox "Solo estaba bromeando -EsGeeks- :)"Paso 3: Guarda el Archivo como .VBS
Procede a guardar el archivo del Bloc de notas nuevamente. Puedes guardar el Bloc de notas con el nombre que desees, pero la extensión debe ser “.vbs“. Por ejemplo, puedes guardar el Bloc de notas como virusfalso.vbs.
En la sección Tipo de Guardar como, selecciona Todos los archivos. En codificación, elige ANSI.
Paso 4: Crea y Personaliza un Acceso Directo
Haz clic con el botón derecho en cualquier espacio del Escritorio, seleccione Nuevo => Acceso directo, luego haga clic en Examinar y busca la ubicación del archivo del Bloc de notas que guardaste.
Nombra el acceso directo con algo que sea fácil de recordar, o algo que llame la atención del amigo curioso.
Es momento de personalizar el acceso directo. Haz clic con el botón derecho en el acceso directo que acabas de crear y luego haz clic en Propiedades. En la ventana Propiedades, selecciona Cambiar icono…., cambia el icono de acceso directo por un icono que creas que llamará la atención de la “víctima”.
Paso 5: Lanza la Broma
Solo queda esperar que la víctima haga clic en el acceso directo y se lleve el susto de su vida.
Algunos Consejos y Advertencias
- Puedes cerrar el programa en cualquier momento que desees abriendo el Administrador de tareas (presione Ctrl + Alt + Supr), luego selecciona la pestaña Proceso y finaliza “
wscript.exe“. - Hacer clic en cualquier ventana o salir de la ventana del símbolo del sistema mientras el programa se está ejecutando puede provocar un error al abrir aleatoriamente cualquier archivo en el escritorio.
- Siempre puedes editar el contenido del texto, eliminar algunas funciones o añadir nuevas funciones.
Por último, ten cuidado con el nuevo código que vayas añadir. Siempre asegúrate de conocer el funcionamiento de cada cosa, o primero testéalo en una máquina virtual. ¡Feliz broma!
