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


 


Tema destacado: Píldoras formativas en seguridad de la información


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18
81  Programación / Scripting / [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos) en: 28 Septiembre 2017, 02:13
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
82  Programación / Scripting / Re: el signo = en: 28 Septiembre 2017, 01:54
 :o . Elektro le escribiste un testamento .. ..  :o  :laugh:  ;D
83  Programación / Scripting / Re: No cierra cmd con edlin en: 28 Septiembre 2017, 01:52
a mi si me cierra la cmd , si me funciona.  :¬¬

comprime el archivo zip y le pone contraseña sin problemas. y si se cierra la cmd.

yo tengo windows vista. y corre perfecto.  ;D
84  Programación / Scripting / Re: [Python 3.6] Un intento de no se que... en: 27 Septiembre 2017, 00:57
tu mismo te criticas?  :huh:

abres el tema y luego te troleas......   :laugh:  :laugh:  :laugh:  :D  :D  :D XD



85  Programación / Scripting / Re: No cierra cmd con edlin en: 27 Septiembre 2017, 00:04
1) el code no funciona.  ::)

en una parte de el code  el batch llama unos archivos txt que nunca se crearon .

Código
  1. :Busca_datos
  2.    dir %file%\*.pna /S /B >%temp%\ttdje\temp2.txt
  3.    >Nul Ping -n 2 Localhost
  4.    <"%temp%\ttdje\temp2.txt" set /p "pna=" >nul
  5.    set "pna" >nul
  6.    copy "%pna%" "%temp%\ttdje" >Nul
  7.    >Nul Ping -n 2 Localhost
  8.    type "%pna%" > "%temp%\ttdje\temp3.txt"
  9.    >Nul Ping -n 2 Localhost
  10.    type "%pna%" > "%temp%\ttdje\temp4.txt"
  11.    >Nul Ping -n 2 Localhost
  12. Goto Serie
  13. :Serie
  14. setlocal enabledelayedexpansion
  15.    for /f "tokens=* delims=" %%x in ('type %temp%\ttdje\temp3.txt') do (
  16.    set linea=%%x
  17.    set linea=!linea:fecha=!
  18.    call :show1 !linea!
  19.    )
  20. Goto Version
  21. :Version
  22.    Set Ruta=%temp%\ttdje
  23.    Set Archivo=temp5
  24. If Not Exist "%temp%\ttdje\%Archivo%.txt" (
  25.        cls
  26. Echo No se ha encontrado el archivo solicitado, intente nuevamente.
  27. Goto version
  28. ) Else (
  29.  
  30. Goto Backup
  31. )

los archivos temp.txt - temp2.txt - temp3.txt - temp4.txt y temp5.txt. nunca se llegan a crear en el directorio tamporal.

y por eso tira este error:




en la parte de el code:

Código
  1. :Version
  2.    Set Ruta=%temp%\ttdje
  3.    Set Archivo=temp5
  4. If Not Exist "%temp%\ttdje\%Archivo%.txt" (
  5.        cls
  6. Echo No se ha encontrado el archivo solicitado, intente nuevamente.
  7. Goto version
  8. ) Else (
  9.  
  10. Goto Backup
  11. )

aqui revisa si no existe el archivo  temp5.txt y como nunca se creo ese archivo
mustra un bucle infinito en la pantalla mostrando el munsaje:

Código:
No se ha encontrado el archivo solicitado, intente nuevamente.

en pocas palabras revisa el code ya que nunca se crean esos archivos txt y ese es el error.
revisa por que nunca se crean esos txt (temp.txt - temp2.txt - temp3.txt - temp4.txt y temp5.txt)
86  Programación / Scripting / Re: No cierra cmd con edlin en: 26 Septiembre 2017, 01:23
Necesito saber algo . Ese bat utiliza alguna herramienta comandline?

por ejemplo algún .exe?

si , utiliza algún exe por-favor mandamelo , necesito saber que hace ese bat.

aunque por encima que he visto este bat parece un tipo de compresor para poner contraseña a los archivos.
87  Programación / Scripting / Re: No cierra cmd con edlin en: 25 Septiembre 2017, 19:08
Si quieres que te ayude , pon el script que no cierra  la cmd y
pon lo que contiene el texto que vas a modificar.

yo probé el batch que pusiste arriba y si me funciono.

a mi me cierra la cmd, con este batch:

Código
  1. @echo off
  2. (
  3. echo 3,3,1M
  4. echo e
  5. ) | edlin /b texto2.txt
  6. (
  7. echo 4,4,1M
  8. echo e
  9. ) | edlin /b texto2.txt
  10. cls
  11. exit

y el texto a modificar es:

Código:
juan
antonio
el_bueno
el_bueno2
pedro
                            Ami me funciona y si cierra la cmd.
    publica tu code que no cierra la cmd y también el texto a modificar.
    Para poder a ayudarte
88  Programación / Scripting / Re: Args en python en: 25 Septiembre 2017, 01:50
Lo se, solo que como puso que:

cita de Sentex
Citar
la salida seria asi:

hola

y por eso le puse un code fácil que mostrara en pantalla hola.   ;) entendí mal. solo me deje llevar por lo que queria que saliera en pantalla.
89  Programación / .NET / Re: Libreria Open Computer Vision (openCV) como usarla? en: 25 Septiembre 2017, 01:10
Gracias de nuevo Elecktro , el Emgu CV se ve mejor voy a empezar a trabajar en ello .  ;-)
90  Programación / Scripting / Re: Args en python en: 25 Septiembre 2017, 00:44
hola , hay muchas maneras de hacer lo que pides.

Te lo pongo con códigos super simples:

code 1:

Código
  1. raw_input("hola")

code 2:

Código
  1. print ("hola")
  2. raw_input("Pulsa una tecla para continuar...")

code 3:
Código
  1. print ("hola")
  2. raw_input()

                              Mas simple imposible, Comenta si te funciono.
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines