hola a todos acabo de terminar la versión 0.3 de mi Batch Archive Security
bueno con esta nueva versión se puede cifrar cualquier tipo de archivo sin importar que sea. osea con esta herramienta pueden ponerle contraseña hasta a su porn....xxx jeje.
atención para cifrar varios archivos a la vez dentro de un batch solo metan los archivos a cifrar dentro de una carpeta y listo , al cifrar colocan el nombre de esa carpeta. y así cifran varios archivos en uno.
bueno he aquí el código fuente pero no les va a servir ya que necesita un complemento para funcionar por eso lo tienen que descargar:
link del programa completo:
https://mega.nz/#!Y4FTFTwS!hTwpRhg6F51Ie9aTefouTLVa9HyZlb2U1kYGsu_gYh4
CODE:
Código
@echo off title Bienbenido %USERNAME% --- Batch Archive Security --- goto mksys :menu & cls color a echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse echo ³ ³ Version echo ³ Este Programa Portable sirve para poner ³ (0.3) echo ³ Contrase¤a a cualquier archivo. ³ echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo ³ Creada especialmente para (Foro el Hacker.NET) ³ BATCH ³ echo ³ De Parte de **Aincrad** ³ ARCHIVE ³ echo ³ ³ SECURITY³ echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo ³ PASOS A SEGUIR: ³ Para: echo ³ ³ F echo ³ 1) Escriba el nombre de el archivo a cifrar. y tambien ³ o echo ³ Su formato. Ej: (.txt , .exe , .rar , .jar) etc.. ³ r echo ³ ³ o echo ³ 2) Escriba el Pass (Contrase¤a). Todo menos simbolos. ³ El echo ³ ³ H echo ³ 3) Listo..... :v ³ a echo ³ ³ c echo ³ 4) En caso de no entender nada de los pasos, escriba ³ k echo ³ help y si no entiende Vayase a la mierrrrr...da ³ e echo ³ ³ r echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ .NET echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad** set /p op= Escriba el nombre de el archivo a cifrar : if not defined op (goto:menu) >NUL If ["%op%"]==["help"] goto help >NUL if not exist %op% (goto:err) >NUL Ping -n 2 Localhost >NUL set p=set set t=var set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" " :si set /p ps= el archivo si existe escriba una contrase¤a : if not defined ps goto :si >NUL echo %ps%>>%temp%\pass1.txt Ping -n 2 Localhost >NUL set archivo=%temp%\pass1.txt ::::::::::::::::: :Ofuscador ::::::::::::::::: :Lineas Set Linea=0 For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a) :Leer_Ofuscador If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador) For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do ( Echo: Ofuscando: "%%a" Set /A Linea+=1 Set "String=%%a" If not defined string (Goto :Leer_Ofuscador) Echo %%a>"%TEMP%\String.tmp" FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 ) Goto :Ofuscar ) :Ofuscar If "%Count%" EQU "%Longitud%" ( call :Write_Ofuscador Goto :Leer_Ofuscador) ::Comilladoble Set "String=%String:"=€%"& rem " ::Espacio If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ") ::Alpha If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%") If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%") If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%") If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%") If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%") If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%") If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%") If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%") If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%") If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%") If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%") If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%") If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%") If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%") If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%") If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%") If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%") If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%") If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%") If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%") If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%") If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%") If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%") If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%") If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%") If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%") If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%") If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%") If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%") If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%") If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%") If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%") If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%") If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%") If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%") If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%") If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%") If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%") If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%") If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%") If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%") If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%") If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%") If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%") If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%") If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%") If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%") If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%") If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%") If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%") If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%") If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%") ::Numeric If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%") If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%") If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%") If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%") If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%") If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%") If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%") If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%") If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%") If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%") Set "String=%String:~1%" Set /A Count+=1 Goto :Ofuscar :Write_Ofuscador Set "New_String=%New_String:€="%"& rem " Echo %New_String%>>%temp%\pass.txt If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1) Set "New_String=" Set "Count=" Goto :EOF :Fin_Ofuscador Del /Q "%TEMP%\String.tmp" Cls echo ESPERE... | More Ping -n 2 Localhost >NUL for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x) start %temp%\CSS.exe a "%temp%\ar1" "%op%" Ping -n 2 Localhost >NUL :hsss ( echo @echo off echo %p% %t%^=%resultado% echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul echo if not exist %op%.dll goto aci ^>nul echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul echo goto sad echo :aci echo title Error en api . . . . . . . echo MODE con:cols=66 lines=18 echo color c echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo echo ³ ³ echo echo ³ ³ echo echo ³ ERROR : ³ echo echo ³ ³ echo echo ³ Se necesita el Archivo .dll para descifrar ³ echo echo ³ ³ echo echo ³ ³ echo echo ³ ERROR CODE ^(2111996x32^) ³ echo echo ³ ³ echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo pause echo exit echo :sad echo MODE con:cols=80 lines=26 echo color a echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse echo echo ³ ³ Version echo echo ³ ³ 0.3 echo echo ³ ³ echo echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo echo ³ Creada especialmente para *Foro el Hacker.NET* ³ BATCH ³ echo echo ³ De Parte de **Aincrad** ³ ARCHIVE ³ echo echo ³ ³ SECURITY³ echo echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo echo ³ PASOS A SEGUIR: ³ Para: echo echo ³ 1. Escriba el Pass *Contrase¤a*. Todo menos simbolos. ³ F echo echo ³ ³ o echo echo ³ 2. Listo..... :v ³ r echo echo ³ ³ o echo echo ³ 4. En caso de no entender nada de los pasos a seguir ³ El echo echo ³ Vayase a la mierrrrr...da ³ H echo echo ³ ³ a echo echo ³ ³ c echo echo ³ ³ k echo echo ³ ³ e echo echo ³ ³ r echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ .NET echo echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad** echo set /p c= Escriba la contrase¤a del archivo cifrado : echo if not defined c ^exit echo If ^%%c%%^=^= %psw% goto d echo goto e echo :e echo title Error - contrase¤a Incorrecta. echo MODE con:cols=66 lines=18 echo color c echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo echo ³ ³ echo echo ³ ³ echo echo ³ ERROR : ³ echo echo ³ ³ echo echo ³ Contrase¤a Incorrecta - Porfavor vuelva a intentar ³ echo echo ³ ³ echo echo ³ ³ echo echo ³ ERROR CODE ^(2111996x34^) ³ echo echo ³ ³ echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo pause ^& goto sad echo goto sad echo :d echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^" echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^" echo exit) > %temp%\bas.bat :co tasklist | find /i "rar.exe" && ( echo ESPERE PORFAVOR . . . . ) || ( Ping -n 4 Localhost >NUL echo Proceso terminado. copy /b "%temp%\bas.bat" + "%temp%\ar1.rar" "%op% cifrado.bat% copy /b "apc.dll" "%op%.dll" goto f ) goto co :f echo Proceso terminado Gracias por usar Batch Archive Security echo Salvador F. Krilewski. **Aincrad** pause & exit :::::::::::::::::::::::::::: :err :::::::::::::::::::::::::::: title Error . . . . . . . MODE con:cols=66 lines=18 color c echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ no se ha Encontrado el Archivo Especificado. ³ echo ³ ³ echo ³ ³ echo ³ ERROR CODE (2111995x32) ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad** echo/ pause & exit :api :::::::::::::::::::::::::::: title Error . . . . . . . MODE con:cols=66 lines=18 color c echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo ³ ³ echo ³ ³ echo ³ ERROR ENCONTRADO : ³ echo ³ ³ echo ³ no se ha Encontrado el Archivo api.dll . ³ echo ³ ³ echo ³ ³ echo ³ ERROR CODE (2111996x32) ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad** echo/ pause & exit :::::::::::::::::::::::::::: :help :::::::::::::::::::::::::::: title help me . . . MODE con:cols=66 lines=18 color a echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ ³ echo ³ Vallase a la *****. Bruto ignorante. :V JAJA ³ echo ³ ³ echo ³ ³ echo ³ ERROR CODE (Usted=BURRO) ³ echo ³ ³ echo ³ ³ echo ³ By S4Lsalsoft ³ echo ³ ³ echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad** echo/ pause & exit :mksys if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul if not exist apc.dll goto api >nul if exist %temp%\ar1.rar del %temp%\ar1.rar >nul if exist %temp%\pass.txt del %temp%\pass.txt >nul if exist %temp%\pass1.txt del %temp%\pass1.txt >nul if exist %temp%\bas.bat del %temp%\bas.bat >nul goto menu
Recuerden el batch solo no les va a funcionar, tienen que descargarla .
imagen del programa:
Y Para los desconfiados les dejo el reporte de virus-total :
https://www.virustotal.com/#/file/06df70be4d670fefdbdde4879513cb75aa5aac860b4023baf9ca1b5db3355f36/detection
comenten sus criticas y opiniones