Antes de empezar, con esto no vas a hackear nada, ni tampoco es un virus de PC que haga daños, ni nada peligroso. Es un código VBS (Visual Basic Script) creado por mi para hacerle bromas a gente con poco conocimiento informático. Aparte de eso, explico un poco las lineas del código para que puedan entenderlo y probar ustedes por su cuenta.
Hola gente, como andan, hace mucho que no hacia un post.
Últimamente trabajo de programador, programo en lenguaje c#, y estoy trabajando para una empresa Argentina muy conocida, que me paga 4 dolares la hora y hago el mismo trabajo que a otras personas le están pagando 50 dolares en el exterior, pero bue no viene al tema y ya los voy a aburrir.
Hace unos días, por suerte tuve 3 horitas libes, y se me ocurrió idear algo para molestar a mis amigos. Empecé a programar un archivo que se pueda ejecutar rápido en cualquier compu con Windows.
Lo que va a hacer nuestro "Virus", es activar y desactivar las teclas Bloq Mayus, Blocq Num y Bloq Despl, haciendo imposible escribir bien un texto, y de yapa le vamos a abrir y cerrar las lectoras de cd.
Bueno, empecemos...
Lo primero que vamos a hacer, es hacer click derecho en el escritorio y crear un nuevo Documento de texto
Una vez creado, lo abrimos y pegamos la siguiente linea
Set wshShell =wscript.CreateObject("WScript.Shell" )
Ahí vamos a crear el objeto para alternar las teclas, pensemos como que acabamos de crear un teclado virtual.
Después de esa linea, lo que vamos a hacer es abrir un bucle, para que al abrir el archivo, se alternen las teclas hasta que se cierre el mismo. Para eso vamos a escribir en una nueva linea
do
El do nos permite ejecutar un conjunto de código hasta que se cumpla una condición. Como en este caso queremos que nunca pare, no escribimos una condición, o podríamos poner una que nunca se va a cumplir: do 0>1, ya que 0 nunca va a ser mayor que 1.
Ahora nomas nos queda hacer el código que se repita, así que vamos a alternar las teclas. En una nueva linea pegamos:
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
Acá le indicamos, con la linea wscript.sleep 100 que debe frenar en ese lugar 100 mili-segundos. Podemos cambiar este numero para aumentar o disminuir el tiempo con el que se pulsan las teclas de bloqueo.
Las otras 3 lineas restantes son las encargadas de alternar el estado de las teclas.
Ahora nos queda abrir y cerrar la lectora.
Pero si abrimos y cerramos la lectora en solo 100 mili segundos, trabaríamos el programa y no funcionaria bien. Entonces lince maquina de las estepas, que hacemos?
Vamos a hacer un contador, para contar que al alternar X cantidad de veces las teclas, se active la lectora.
Vamos a escribir un par de lineas mas.
Antes del Do que escribimos en el paso anterior, vamos a declarar una variable y le vamos a decir que va a tener el valor 0.
Dim contador
contador = 0
Ahora volvemos a la linea que estábamos al final de nuestro documento de texto, y vamos a preguntar si el contador es igual a 100, para saber si ya se realizó 100 veces el bucle. Nuevamente aca podemos poner el numero que queremos, para aumentar o disminuir los tiempos.
Para esto necesitamos hacer una condición
If contador = 100 Then
Entonces si el contador es igual a 100 va a realizar lo siguiente.
Le vamos a indicar que abra y cierre las lectora, pero antes tenemos que encontrar las lectoras conectadas. Vamos a crear un objeto como creamos anteriormente para alternar las teclas
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Ahora tenemos que obtener todas las lectoras que tiene este objeto
Set colCDROMs = oWMP.cdromCollection
El siguiente paso es preguntar si tiene lectoras, entonces vamos a utilizar una condición nuevamente
if colCDROMs.Count then
Ya tenemos identificadas y contadas nuestras lectoras, vamos a pasar a recorrerlas para abrirlas y cerrarlas
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
En las anteriores lineas, recorremos las lectoras con la sentencia For, indicando que comienzan en la 0 i = 0 y diciéndole que recorra hasta la cantidad de lectoras -1, porque sino tendríamos que empezar a contar la primera como la numero 1 y no es una buena practica, por lo menos los contadores me gusta inicializarlos en 0.
En la siguiente linea abrimos las lectoras, y nuevamente volvemos a escribir la linea para cerrarla, y con Next pasamos a la siguiente lectora.
Ahora vamos a terminar cerrando las condición en la que contamos las lectoras y diciendo
End If
Debemos volver el contador a 0, para volver a contar que se ejecuten 100 veces el pulsado de las teclas.
contador = 0
Cerramos la condición en la que preguntamos si el pulsado se ejecutó 100 veces
End If
Contamos que el pulsado de teclas se completó una vez mas
contador = contador +1
No hay mucho que explicar, decimos que contador va a tener el valor que tiene actualmente y le somamos 1
Y por ultimo cerramos el bucle do
loop
Bueno, si ya seguimos todos los pasos, tenemos ya el código, ahora nos queda ejecutarlo.
Vamos a cambiar la exención de nuestro archivo. Vamos a pasarla de .txt a .vbs.
Nos va a quedar algo asi:
Ahora solo ejecutamos el .vbs y tenemos ya un programa echo por nosotros!!!
Otro tick que les voy a dejar antes de retirarme es, si queremos ejecutarlo en una pc y que nadie se de cuenta, agreguemos una linea de espera al comienzo del documento. Vamos a decirle que espere un tiempo, por ejemplo en este caso 10 minutos antes de actuar:
10 minutos equivalen a 600000 milisegundos.
Vamos a tirar letras a un txt, cambiarle la extención y hacer que se pulsen las teclas de bloqueo del teclado y abrir y cerrar las lectoras.
Pegamos el siguiente código en un txt, le cambiamos la extención de .txt .vbs y abrimos el archivo
Set wshShell =wscript.CreateObject("WScript.Shell" )
Dim contador
contador = 0
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
If contador = 100 Then
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If
contador = 0
End If
contador = contador +1
loop
Bueno, espero que molesten a mucha gente con esto.
Mi código ya avanzó bastante y ya pude hacer que se trasmita por dispositivos usb, que se inicie al prender la pc y que apague la pc al accionar diferentes opciones desplegadas a partir de un cartel de windows como el siguiente:
Pueden modificar lo que quieran para hacer el código a su gusto y aprender algo de programación.
Si me dejan un par de puntines voy a volver para dejarles un par de lineas mas y explicarles para que sirven cada 1.
Este lenguaje se llama VisualBasicScript, y todo lo desarrollado lo hice solamente investigando en 2 horas, pueden investigar y agregarles nuevas funciones, o crear programas útiles para ustedes.
Hola gente, como andan, hace mucho que no hacia un post.
Últimamente trabajo de programador, programo en lenguaje c#, y estoy trabajando para una empresa Argentina muy conocida, que me paga 4 dolares la hora y hago el mismo trabajo que a otras personas le están pagando 50 dolares en el exterior, pero bue no viene al tema y ya los voy a aburrir.
Hace unos días, por suerte tuve 3 horitas libes, y se me ocurrió idear algo para molestar a mis amigos. Empecé a programar un archivo que se pueda ejecutar rápido en cualquier compu con Windows.
Lo que va a hacer nuestro "Virus", es activar y desactivar las teclas Bloq Mayus, Blocq Num y Bloq Despl, haciendo imposible escribir bien un texto, y de yapa le vamos a abrir y cerrar las lectoras de cd.
Bueno, empecemos...
Lo primero que vamos a hacer, es hacer click derecho en el escritorio y crear un nuevo Documento de texto
Una vez creado, lo abrimos y pegamos la siguiente linea
Set wshShell =wscript.CreateObject("WScript.Shell" )
Ahí vamos a crear el objeto para alternar las teclas, pensemos como que acabamos de crear un teclado virtual.
Después de esa linea, lo que vamos a hacer es abrir un bucle, para que al abrir el archivo, se alternen las teclas hasta que se cierre el mismo. Para eso vamos a escribir en una nueva linea
do
El do nos permite ejecutar un conjunto de código hasta que se cumpla una condición. Como en este caso queremos que nunca pare, no escribimos una condición, o podríamos poner una que nunca se va a cumplir: do 0>1, ya que 0 nunca va a ser mayor que 1.
Ahora nomas nos queda hacer el código que se repita, así que vamos a alternar las teclas. En una nueva linea pegamos:
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
Acá le indicamos, con la linea wscript.sleep 100 que debe frenar en ese lugar 100 mili-segundos. Podemos cambiar este numero para aumentar o disminuir el tiempo con el que se pulsan las teclas de bloqueo.
Las otras 3 lineas restantes son las encargadas de alternar el estado de las teclas.
Ahora nos queda abrir y cerrar la lectora.
Pero si abrimos y cerramos la lectora en solo 100 mili segundos, trabaríamos el programa y no funcionaria bien. Entonces lince maquina de las estepas, que hacemos?
Vamos a hacer un contador, para contar que al alternar X cantidad de veces las teclas, se active la lectora.
Vamos a escribir un par de lineas mas.
Antes del Do que escribimos en el paso anterior, vamos a declarar una variable y le vamos a decir que va a tener el valor 0.
Dim contador
contador = 0
Ahora volvemos a la linea que estábamos al final de nuestro documento de texto, y vamos a preguntar si el contador es igual a 100, para saber si ya se realizó 100 veces el bucle. Nuevamente aca podemos poner el numero que queremos, para aumentar o disminuir los tiempos.
Para esto necesitamos hacer una condición
If contador = 100 Then
Entonces si el contador es igual a 100 va a realizar lo siguiente.
Le vamos a indicar que abra y cierre las lectora, pero antes tenemos que encontrar las lectoras conectadas. Vamos a crear un objeto como creamos anteriormente para alternar las teclas
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Ahora tenemos que obtener todas las lectoras que tiene este objeto
Set colCDROMs = oWMP.cdromCollection
El siguiente paso es preguntar si tiene lectoras, entonces vamos a utilizar una condición nuevamente
if colCDROMs.Count then
Ya tenemos identificadas y contadas nuestras lectoras, vamos a pasar a recorrerlas para abrirlas y cerrarlas
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
En las anteriores lineas, recorremos las lectoras con la sentencia For, indicando que comienzan en la 0 i = 0 y diciéndole que recorra hasta la cantidad de lectoras -1, porque sino tendríamos que empezar a contar la primera como la numero 1 y no es una buena practica, por lo menos los contadores me gusta inicializarlos en 0.
En la siguiente linea abrimos las lectoras, y nuevamente volvemos a escribir la linea para cerrarla, y con Next pasamos a la siguiente lectora.
Ahora vamos a terminar cerrando las condición en la que contamos las lectoras y diciendo
End If
Debemos volver el contador a 0, para volver a contar que se ejecuten 100 veces el pulsado de las teclas.
contador = 0
Cerramos la condición en la que preguntamos si el pulsado se ejecutó 100 veces
End If
Contamos que el pulsado de teclas se completó una vez mas
contador = contador +1
No hay mucho que explicar, decimos que contador va a tener el valor que tiene actualmente y le somamos 1
Y por ultimo cerramos el bucle do
loop
Bueno, si ya seguimos todos los pasos, tenemos ya el código, ahora nos queda ejecutarlo.
Vamos a cambiar la exención de nuestro archivo. Vamos a pasarla de .txt a .vbs.
Nos va a quedar algo asi:
Ahora solo ejecutamos el .vbs y tenemos ya un programa echo por nosotros!!!
Otro tick que les voy a dejar antes de retirarme es, si queremos ejecutarlo en una pc y que nadie se de cuenta, agreguemos una linea de espera al comienzo del documento. Vamos a decirle que espere un tiempo, por ejemplo en este caso 10 minutos antes de actuar:
wscript.sleep 600000
10 minutos equivalen a 600000 milisegundos.
Resumen taringueros nivel 5 o para todo aquel que no le salga o no tenga ganas de leer:
Vamos a tirar letras a un txt, cambiarle la extención y hacer que se pulsen las teclas de bloqueo del teclado y abrir y cerrar las lectoras.
Pegamos el siguiente código en un txt, le cambiamos la extención de .txt .vbs y abrimos el archivo
Set wshShell =wscript.CreateObject("WScript.Shell" )
Dim contador
contador = 0
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
If contador = 100 Then
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If
contador = 0
End If
contador = contador +1
loop
Bueno, espero que molesten a mucha gente con esto.
Mi código ya avanzó bastante y ya pude hacer que se trasmita por dispositivos usb, que se inicie al prender la pc y que apague la pc al accionar diferentes opciones desplegadas a partir de un cartel de windows como el siguiente:
Pueden modificar lo que quieran para hacer el código a su gusto y aprender algo de programación.
Si me dejan un par de puntines voy a volver para dejarles un par de lineas mas y explicarles para que sirven cada 1.
Este lenguaje se llama VisualBasicScript, y todo lo desarrollado lo hice solamente investigando en 2 horas, pueden investigar y agregarles nuevas funciones, o crear programas útiles para ustedes.