elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)  (Leído 3,598 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 683



Ver Perfil WWW
[BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)
« en: 28 Septiembre 2017, 02:13 am »
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:

Código
  1. @echo off
  2. title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
  3. if exist %temp%\pass.txt del %temp%\pass.txt >nul
  4. if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
  5. if exist %temp%\bas.bat del %temp%\bas.bat >nul
  6. :menu & cls  
  7. color a
  8. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
  9. echo ³                                                               ³     Version 
  10. echo ³        Este Programa Portable sirve para poner                ³         (0.1)
  11. echo ³             Contrasena a cualquier archivo.                   ³
  12. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  13. echo ³      Creada especialmente para (Orni1)                        ³ BATCH       ³
  14. echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  15. echo ³                                                               ³     SECURITY³
  16. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  17. echo ³    PASOS A SEGUIR:                                            ³ Para:
  18. echo ³                                                               ³    F  
  19. echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
  20. echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
  21. echo ³                                                               ³       o
  22. echo ³    2) Escriba el Pass (Contraseña). Todo menos simbolos.      ³   El    
  23. echo ³                                                               ³ H
  24. echo ³    3) Listo..... :v                                           ³  a
  25. echo ³                                                               ³   c
  26. echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
  27. echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
  28. echo ³                                                               ³      r
  29. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  30. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  31. set /p op= Escriba el nombre de el archivo a cifrar : 
  32. if not defined op (goto:menu) >NUL
  33. if not exist %op% (goto:err) >NUL
  34. Ping -n 2 Localhost >NUL
  35.  
  36. set p=set
  37. set t=var
  38. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
  39.  
  40. :si
  41. set /p ps= el archivo si existe escriba una contraseña : 
  42. if not defined ps goto :si >NUL
  43. echo %ps%>>%temp%\pass1.txt
  44. Ping -n 2 Localhost >NUL
  45. set archivo=%temp%\pass1.txt
  46.  
  47. :::::::::::::::::
  48. :Ofuscador
  49. :::::::::::::::::
  50.  
  51. :Lineas
  52. Set Linea=0
  53. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  54.  
  55. :Leer_Ofuscador
  56. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  57.  
  58. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  59.     Echo: Ofuscando: "%%a"
  60.     Set /A Linea+=1
  61.     Set "String=%%a"
  62.     If not defined string (Goto :Leer_Ofuscador)
  63.     Echo %%a>"%TEMP%\String.tmp"
  64.     FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  65.     Goto :Ofuscar
  66. )
  67.  
  68.  
  69. :Ofuscar
  70.  
  71.  
  72. If "%Count%" EQU "%Longitud%" (
  73.     call :Write_Ofuscador
  74.     Goto :Leer_Ofuscador)
  75.  
  76. ::Comilladoble
  77. Set "String=%String:"=€%"& rem "
  78.  
  79. ::Espacio
  80. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  81.  
  82. ::Alpha
  83. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  84. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  85. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  86. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  87. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  88. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  89. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  90. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  91. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  92. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  93. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  94. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  95. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  96. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  97. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  98. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  99. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  100. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  101. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  102. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  103. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  104. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  105. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  106. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  107. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  108. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  109. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  110. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  111. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  112. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  113. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  114. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  115. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  116. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  117. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  118. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  119. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  120. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  121. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  122. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  123. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  124. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  125. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  126. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  127. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  128. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  129. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  130. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  131. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  132. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  133. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  134. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  135.  
  136. ::Numeric
  137. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
  138. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
  139. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
  140. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
  141. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
  142. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
  143. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
  144. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
  145. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
  146. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
  147.  
  148. Set "String=%String:~1%"
  149. Set /A Count+=1
  150. Goto :Ofuscar
  151.  
  152. :Write_Ofuscador
  153. Set "New_String=%New_String:€="%"& rem "
  154. Echo %New_String%>>%temp%\pass.txt
  155. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  156. Set "New_String="
  157. Set "Count="
  158. Goto :EOF
  159.  
  160. :Fin_Ofuscador
  161. Del /Q "%TEMP%\String.tmp"
  162. Cls
  163. echo Fin | More
  164. Ping -n 2 Localhost >NUL
  165.  
  166. for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
  167.  
  168. :hsss
  169. (
  170. echo @echo off
  171. echo %p% %t%^=%resultado%
  172. echo color a
  173. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
  174. echo echo ³                                                               ³     Version 
  175. echo echo ³                                                               ³          0.1
  176. echo echo ³                                                               ³
  177. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  178. echo echo ³      Creada especialmente para *Orni1*                        ³ BATCH       ³
  179. echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  180. echo echo ³                                                               ³     SECURITY³
  181. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  182. echo echo ³    PASOS A SEGUIR:                                            ³ Para:
  183. echo echo ³     1. Escriba el Pass *Contraseña*. Todo menos simbolos.     ³    F  
  184. echo echo ³                                                               ³     o
  185. echo echo ³     2. Listo..... :v                                          ³      r
  186. echo echo ³                                                               ³       o
  187. echo echo ³     4. En caso de no entender nada de los pasos a segui       ³   El    
  188. echo echo ³                     Vayase a la mierrrrr...da                 ³ H
  189. echo echo ³                                                               ³  a
  190. echo echo ³                                                               ³   c
  191. echo echo ³                                                               ³    k
  192. echo echo ³                                                               ³     e
  193. echo echo ³                                                               ³      r
  194. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  195. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  196. echo set /p c= Escriba la contraseña del archivo cifrado :
  197. echo if not defined c  ^exit  
  198. echo If ^%%c%%^=^= %psw% goto d  
  199. echo exit
  200. echo :d
  201. echo ^(
  202. 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
  203. echo ECHO E
  204. echo ^) ^| EDLIN /B ^"%op% cifrado.bat^" 
  205. echo copy /b ^"%op% cifrado.bat^" ^"%op%^") > %temp%\bas.bat
  206.  
  207. :co
  208. copy /b "%temp%\bas.bat" + "%op%" "%op% cifrado.bat%
  209. goto f
  210.  
  211. :f
  212. echo Proceso terminado Gracias por usar Batch Archive Security
  213. echo Salvador F. Krilewski.    **Aincrad**
  214. pause & exit
  215.  
  216. ::::::::::::::::::::::::::::
  217. :err
  218. ::::::::::::::::::::::::::::
  219. color c
  220. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  221. echo echo ³                                                               ³
  222. echo echo ³                                                               ³
  223. echo echo ³                                                               ³
  224. echo echo ³                                                               ³
  225. echo echo ³          no se ha Encontrado el Archivo Especificado.         ³
  226. echo echo ³                                                               ³
  227. echo echo ³                                                               ³
  228. echo echo ³                  ERROR CODE (2111995x32)                      ³
  229. echo echo ³                                                               ³
  230. echo echo ³                                                               ³
  231. echo echo ³                                                               ³
  232. echo echo ³                                                               ³
  233. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  234. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  235. pause & exit

para cifrar:


el archivo cifrado:




                                          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
« Última modificación: 29 Septiembre 2017, 21:21 pm por **Aincrad** » En línea


n1sen

Desconectado Desconectado

Mensajes: 122



Ver Perfil
Re: [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)
« Respuesta #1 en: 28 Septiembre 2017, 02:59 am »
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...


« Última modificación: 28 Septiembre 2017, 03:02 am por n1sen » En línea
null
**Aincrad**


Desconectado Desconectado

Mensajes: 683



Ver Perfil WWW
Re: [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos)
« Respuesta #2 en: 28 Septiembre 2017, 03:06 am »
Nunca debe faltar el humor en un pograma.  ;D  ;D  :laugh:

Me despido por hoy , hasta mañana.


HAIL HYDRA . .. . . . . .




Se ha subido la versión 0.2 , esta versión no tiene ningún defecto



-------------------------------------------------      Bach Archive Security 0.2      ------------------------------------------------------------------

                                                                                     COMENTEN
« Última modificación: 29 Septiembre 2017, 01:46 am por **Aincrad** » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[BATCH/¿APORTE?] Contraseña para entrar en carpetas.
Scripting 		Ori-chan 3 2,810 Último mensaje 23 Diciembre 2012, 22:17 pm
por Meine programmen
[APORTE] [BATCH] Acentos en los programas Batch - La mejor solución
Scripting 		Príncipe_Azul 5 13,279 Último mensaje 2 Mayo 2014, 00:09 am
por cyberalejo17
[batch] [aporte] batch archive security v0.3
Scripting 		**Aincrad** 9 5,707 Último mensaje 26 Noviembre 2018, 22:29 pm
por MCKSys Argentina
[batch] [aporte] Batch to vbs Converter v0.2
Scripting 		**Aincrad** 0 2,533 Último mensaje 1 Febrero 2018, 03:00 am
por **Aincrad**
[BATCH] [APORTE] Batch Auto Hide Start [BAHS]
Scripting 		**Aincrad** 0 2,382 Último mensaje 20 Julio 2018, 20:15 pm
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines