hola a todos acabo de terminar la versión 0.3 de mi Batch Archive Security
![;D](https://foro.elhacker.net/Smileys/navidad/grin.gif)
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:
![](http://i63.tinypic.com/30szywh.jpg)
Y Para los desconfiados les dejo el reporte de virus-total :
https://www.virustotal.com/#/file/06df70be4d670fefdbdde4879513cb75aa5aac860b4023baf9ca1b5db3355f36/detection
comenten sus criticas y opiniones