hola , al foro. ;D
Estaba ayudando a un usario del foro llamado Orni1 con su script y se me ocurrio hacer un programa en batch para colocar contraseña a cualquier tipo
de archivo (exepto imajenes , si se cifran imajenes tienes que pasarlas a rar)
bueno con esta herramienta puede poner contraseña a tus archivos (exe,mp3,mp4
jar, entre otros formatos).( las imajenes se deben comprimir un .zip y luego cifrar)
code:
@echo off
title Bienbenido %USERNAME% --- Batch Archive Security ---
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
:menu & cls
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse
echo ³ ³ Version
echo ³ Este Programa Portable sirve para poner ³ (0.1)
echo ³ Contrasena a cualquier archivo. ³
echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Creada especialmente para (Orni1) ³ 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 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 Fin | More
Ping -n 2 Localhost >NUL
for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
:hsss
(
echo @echo off
echo %p% %t%^=%resultado%
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse
echo echo ³ ³ Version
echo echo ³ ³ 0.1
echo echo ³ ³
echo echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³ Creada especialmente para *Orni1* ³ 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 segui ³ 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 exit
echo :d
echo ^(
echo ECHO 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d
echo ECHO E
echo ^) ^| EDLIN /B ^"%op% cifrado.bat^"
echo copy /b ^"%op% cifrado.bat^" ^"%op%^") > %temp%\bas.bat
:co
copy /b "%temp%\bas.bat" + "%op%" "%op% cifrado.bat%
goto f
:f
echo Proceso terminado Gracias por usar Batch Archive Security
echo Salvador F. Krilewski. **Aincrad**
pause & exit
::::::::::::::::::::::::::::
:err
::::::::::::::::::::::::::::
color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³ ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ no se ha Encontrado el Archivo Especificado. ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ERROR CODE (2111995x32) ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
pause & exit
para cifrar:
(http://i63.tinypic.com/30szywh.jpg)
el archivo cifrado:
(http://i63.tinypic.com/2dkbhix.jpg)
Comenten plis.. ;-)
VERSION 0.2 LISTA.
--------------------------------TODOS LOS BUG CORREGIDOS. --------------------------------
Esta versión no tiene ningún defecto y se pueden cifrar toda clase de archivos .
(imágenes, músicas, vídeos , ejecutables ,documentos , entre muchas cosas mas)
no tiene ningún error. atencion no se comparte el code de la version 0.2 ya que es la version definitiva sin ningun problema
link:
Batch Archive Security (https://mega.nz/#!skVDmD4K!Ohk3SsGKP9YjyKuHzId9UTuHH8P7QH_ExL-lrVlzJ0Y)
Ingenioso, buen aporte :)
Citar
4. En caso de no entender nada de los pasos a seguir
Vayase a la mierrrrr...da
mmm, ya estamos advertidos...
Nunca debe faltar el humor en un pograma. ;D ;D :laugh:
Me despido por hoy , hasta mañana.
HAIL HYDRA . .. . . . . .
(http://i64.tinypic.com/aphe13.jpg)
Se ha subido la versión 0.2 , esta versión no tiene ningún defecto
------------------------------------------------- Bach Archive Security 0.2 (https://mega.nz/#!skVDmD4K!Ohk3SsGKP9YjyKuHzId9UTuHH8P7QH_ExL-lrVlzJ0Y)------------------------------------------------------------------
COMENTEN