help_outline
Ayudanos!
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Agenda en Batch by Hendrix

  • 3 Respuestas
  • 2533 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5427
  • Actividad:
    35%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 18, 2011, 08:40:39 pm »
Les dejo este code de Hendrix, Es una agenda personal hecha en batch

Código: DOS
  1. @echo off
  2. Title Agenda Personal
  3. color 0a
  4. cls
  5. echo Bienvenido a la Agenda personal.
  6. cls
  7. if exist "C:\Windows\hendrixagenda" (goto intro) else (mkdir C:\Windows\hendrixagenda && goto intro)
  8. :intro
  9. cls
  10. echo Selecciona:
  11. echo 1. Crear un nuevo usuario
  12. echo 2. Borrar un usuario
  13. echo 3. Entrar a tu cuenta
  14. echo 4. Salir del programa
  15. set /p option=
  16. if %option%==1 goto newu
  17. if %option%==2 goto delu
  18. if %option%==3 goto usersesion
  19. if %option%==4 goto fin
  20. :newu
  21. cls
  22. echo Aqui podras ingresar un nuevo usuario.
  23. echo Introduce el nombre:
  24. set /p nom=
  25. echo Introduce la pass:
  26. set /p pass=
  27. cls
  28. echo Procesando datos...
  29. mkdir C:\Windows\hendrixagenda\%nom% > nul
  30. echo Nombre:%nom% Pass:%pass% > C:\Windows\hendrixagenda\%nom%\info.txt
  31. attrib +H C:\Windows\hendrixagenda\%nom%\info.txt
  32. ping 127.0.0.1 -2 > nul
  33. cls
  34. echo Cuenta creada satisfactoriamente!!!
  35. goto intro
  36. :delu
  37. cls
  38. echo Selecciona el nombre del usuario:
  39. set /p usdel=
  40. echo Introduce la pass del usuario:
  41. set /p uspass=
  42. If exist "C:\Windows\hendrixagenda\%usdel%" (goto 1) else (echo No existe el nombre del usuario && pasue > nul && goto delu)
  43. :1
  44. FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\%usdel%\info.txt) do set key=%%A
  45. If %key%==%uspass% (cd C:\Windows\hendrixagenda\%usdel% && del /s /q *.* && rd C:\Windows\hendrixagenda\%usdel% && goto 4) else (echo pass incorrecta && pause > nul && goto delu)
  46. :4
  47. cls
  48. echo Usuario Borrado con exito!!!
  49. echo Pulse una tecla para volver al menu principal:
  50. goto intro
  51. :deladmin
  52. cls
  53. echo NOTA: va a borrar todos los datos de este software, esta seguro??? (S/N)
  54. set /p segur=
  55. If /i %segur%==s goto cont
  56. If /i %segur%==n goto intro
  57. :cont
  58. cls
  59. echo Introduce la Pass del Admin:
  60. set /p passmin=
  61. FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\admin\info.txt) do set key=%%A
  62. If %key%==%passmin% (goto 2) else (echo Pass incorrecta && pause && goto cont)
  63. :2
  64. rd C:\Windows\hendrixagenda
  65. cls
  66. echo Todo lo relacionado con este software esta borrado.
  67. goto intro
  68. :usersesion
  69. cls
  70. echo Introduce el nombre del usuario:
  71. set /p numu=
  72. echo Introduce la pass:
  73. set /p contrase=
  74. If exist "C:\Windows\hendrixagenda\%numu%" (goto 3) else (echo No existe el usuario && pause && goto usersesion)
  75. :3
  76. FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\%numu%\info.txt) do set key=%%A
  77. If %key%==%contrase% (goto sesion) else (echo pass incorrecta && pause > nul && goto usersesion)
  78. :sesion
  79. cls
  80. echo Bienvenido %numu%, selecciona:
  81. echo 1. Agregar archivo a la agenda personal
  82. echo 2. Borrar un archivo
  83. echo 3. Ver tus archivos
  84. echo 4. Comprimir un archivo
  85. echo 5. Comprimir todos mis archivos
  86. echo 6. Esconder mis archivos
  87. echo 7. Salir de la cuenta
  88. echo 8. Salir del software
  89. set /p usoptio=
  90. If %usoptio%==1 goto new
  91. If %usoptio%==2 goto borra
  92. If %usoptio%==3 goto miron
  93. If %usoptio%==4 goto compr1
  94. If %usoptio%==5 goto compr
  95. If %usoptio%==6 goto stealth
  96. If %usoptio%==7 goto intro
  97. If %usoptio%==8 goto fin
  98. :new
  99. cls
  100. echo Aqui es donde se configurara tu agenda personal:
  101. cls
  102. echo Introduce el nombre (sin la extension) del archivo para guardarlo:
  103. set /p nenuko=
  104. cls
  105. echo Introduce los siguientes datos de la persona:
  106. set /p nom1=Nombre:
  107. set /p ape1=Apellidos:
  108. set /p dire1=Direccion:
  109. set /p tele1=Numero telefono:
  110. set /p poble1=Poblacion:
  111. set /p postal1=Codigo postal:
  112. set /p notita1=Nota para este contacto:
  113. cls
  114. echo Guardando datos....
  115. cd C:\Windows\hendrixagenda\%numu%
  116. echo Nombre: %nom1% > %nenuko%.txt
  117. echo Apellidos: %ape1% >> %nenuko%.txt
  118. echo Direccion: %dire1% >> %nenuko%.txt
  119. echo Numero telefono: %tele1% >> %nenuko%.txt
  120. echo Poblacion: %poble1% >> %nenuko%.txt
  121. echo Codigo Postal: %postal1% >> %nenuko%.txt
  122. echo Nota para este Contecto: %notita1% >> %nenuko%.txt
  123. ping 127.0.0.1 -n 3 > nul
  124. cls
  125. echo Guardado con exito!!!
  126. goto sesion
  127. :borra
  128. cls
  129. dir C:\Windows\hendrixagenda\%numu%
  130. echo Escribe el nombre del archivo a borrar:
  131. set /p limon=
  132. cd C:\Windows\hendrixagenda\%numu%\
  133. del /s /q %limon%
  134. cls
  135. echo Bien, archivo borrado con exito
  136. goto sesion
  137. :miron
  138. cls
  139. dir C:\Windows\hendrixagenda\%numu%
  140. echo Selecciona un archivo para verlo o escribe salir para volver al menu:
  141. set /p eskorbuto=
  142. If /i %eskorbuto%==sair (goto sesion) else (start C:\Windows\hendrixagenda\%numu%\%eskorbuto%)
  143. goto sesion
  144. :compr1
  145. cls
  146. dir C:\Windows\hendrixagenda\%numu%
  147. echo Escribe el nombre del archivo a comprimir:
  148. set /p naranja=
  149. echo Introduce la ruta y el nombre del archivo .rar que se creara:
  150. set /p manzana=
  151. cd C:\Windows\hendrixagenda\%numu%
  152. start winrar.exe a %manzana% %naranja%
  153. cls
  154. echo Archivos comprimidos con exito!!!
  155. goto sesion
  156. :compr
  157. echo Introduce la ruta y el nombre del archivo .rar que se creara:
  158. set /p lima=
  159. start winrar.exe a %lima% C:\Windows\hendrixagenda\%numu%\
  160. cls
  161. echo Comprimido!!!
  162. goto sesion
  163. :stealth
  164. cd C:\Windows\hendrixagenda\%numu%\
  165. attrib +H *.*
  166. cls
  167. echo Completado!!!
  168. goto sesion
  169. :fin
  170. color 07
  171. cls
  172. echo                 **********************************************
  173. echo                 *     SOFTWARE DEVOLOPED BY HENDRIX          *
  174. echo                 **********************************************


Desconectado JaAViEr

  • *
  • Underc0der
  • Mensajes: 163
  • Actividad:
    0%
  • Reputación 0
  • http://codigo.ga
    • Ver Perfil
    • Blog de Programación :: Python
« Respuesta #1 en: Julio 18, 2011, 08:46:13 pm »
Hola, buen día.
Hay un par de errores en el code, pero nada importante
Por ejemplo en la línea 211 hay doble exit.
Se recomienda utilizar variables de entorno en los Batchs
para evitar errores C:\WINDOWS lo cambiaría por
%windir% y para detectar la unidad %homedrive%\ ya que no
siempre es C:\
Luego sigo revisandolo...
Good Job-.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5427
  • Actividad:
    35%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #2 en: Julio 18, 2011, 08:52:07 pm »
Si tenes razon. Pero no quise modificar el codigo original.
Este code lo saque de unos post viejos en CPH. creo que del 2007 jajaja

Saludos!


Desconectado JaAViEr

  • *
  • Underc0der
  • Mensajes: 163
  • Actividad:
    0%
  • Reputación 0
  • http://codigo.ga
    • Ver Perfil
    • Blog de Programación :: Python
« Respuesta #3 en: Julio 18, 2011, 08:54:43 pm »
Jajajja si lo noté , solo por el nick de Hendrix
Que era moderador en aquella epoca.
Solo lo decía por si un usuario lee el topic, sepa
que se puede mejorar o evitar errores :D

 

¿Te gustó el post? COMPARTILO!



""MSN"" en batch

Iniciado por Elle Lawliet

Respuestas: 6
Vistas: 2520
Último mensaje Julio 18, 2011, 01:35:47 am
por JaAViEr
Detecta Autorun.Inf + Eliminación de Archivo Infectado - JaAViEr - Batch

Iniciado por JaAViEr

Respuestas: 4
Vistas: 2275
Último mensaje Julio 18, 2011, 06:36:47 pm
por LucaSthefano
[Código-Batch] Consola de Comandos Versión Arcoiris - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1574
Último mensaje Julio 17, 2011, 05:29:39 am
por JaAViEr
[Código-Batch] Usuarios del PC & Procesos Ejecución - WMIC - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1316
Último mensaje Julio 17, 2011, 05:21:18 am
por JaAViEr
[Código-Batch] Saber si un número es entero - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1277
Último mensaje Julio 17, 2011, 05:19:17 am
por JaAViEr