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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: 1 ... 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 [55] 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 ... 72
541  Foros Generales / Foro Libre / Re: Los bomberos liberan a un hombre al que se le quedó atrapado el pene en una pesa en: 13 Noviembre 2017, 15:28 pm
si , tienen razón ,tal vez buscaba nuevas experiencias .

pero creo que buscar esa experiencia a través de una pesa es demasiado. Creo que como excusa tonta le diría a los bomberos que el hizo eso para ejercitar su pene. JAJAJA.

bueno lo único que se me viene a la cabeza es esto:

542  Programación / .NET (C#, VB.NET, ASP) / ayuda en VB.NET en: 13 Noviembre 2017, 15:05 pm
hola a todos.

bueno tengo un pequeño problemilla. tengo el siguiente code:
Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3
  3. Dim oFileStream, oVoice
  4.  
  5. Set oFileStream = CreateObject("SAPI.SpFileStream")
  6. oFileStream.Format.Type = SAFT48kHz16BitStereo
  7. oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite ' Aqui el directorio que quiero cambiar por un SaveFileDialog1.FileName
  8.  
  9. Set oVoice = CreateObject("SAPI.SpVoice")
  10. Set oVoice.AudioOutputStream = oFileStream
  11. oVoice.Speak(ben.Text, 3)
  12.  
  13. oVoice.WaitUntilDone(10000)
  14.  
  15. oFileStream.Close

y lo que quiero es cambiar ese directorio por un SaveFileDialog1.FileName
y me quedaria algo como esto:

Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3
  3. SaveFileDialog1.DefaultExt = ".wav"
  4. Dim oFileStream, oVoice
  5.  
  6.  
  7. Set oFileStream = CreateObject("SAPI.SpFileStream")
  8. oFileStream.Format.Type = SAFT48kHz16BitStereo
  9. oFileStream.Open SaveFileDialog1.FileName, SSFMCreateForWrite
  10.  
  11. Set oVoice = CreateObject("SAPI.SpVoice")
  12. Set oVoice.AudioOutputStream = oFileStream
  13. oVoice.Speak "Hello world", 3
  14.  
  15. oVoice.WaitUntilDone(10000)
  16.  
  17. oFileStream.Close

no se si me explique , en pocas palabras lo que quiero es aplicar el SaveFileDialog1.FileName al primer code que puse , pero no logro hacerlo , disculpen mi ignorancia.   

gracias de antemano.  ;D
543  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 03:06 am
En ese caso como no te has dado cuenta , aqui te lo dejo:  :silbar:

Código
  1. @echo off
  2. for %%i in (*.txt *.pdf *.jpg) do (IF EXIST %%i (goto del) else (goto sla) )
  3.  
  4. :::::::::::::::::::::::::::::
  5. :del
  6. :::::::::::::::::::::::::::::
  7. echo abrira la calculadora
  8. calc.exe
  9. exit
  10.  
  11. :::::::::::::::::::::::::::::
  12. :sla
  13. :::::::::::::::::::::::::::::
  14. echo abrir paint
  15. mspaint.exe
  16. cls
  17. pause

te habia dicho donde estaba el error pero no me has prestado atención , en fin te lo dejo como lo queria en un principio.
 el error era el símbolo ) que pusiste en
Código:
mspaint.exe
)
cls

ese paréntesis es mal ubicado . para la próxima haber si te fijas . XD  :silbar:

                                             Comenta si te funciono.
544  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 02:32 am
un ejemplo de lo que te quiero decir :

Código:
if exist *.txt == (goto del) else (goto sla)
if exist *.pdf == (goto del) else (goto sla)
if exist *.jpg == (goto del) else (goto sla)

este code es lo mismo que for %%i in (*.txt *.pdf *.jpg) como ves ya con la primera linea el batch se salta la segunda y la tercera.

osea le dices : si existe elgun txt te vas a del y si no te vas a sla . y ya con eso el batch no lee las otras dos lineas . no se si me di a entender .
545  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 02:26 am
si, lo querias hacer de esta forma:

Código:
for %%i in (*.txt *.pdf *.jpg) do (
IF EXIST %%i (goto del) else (goto sla)

déjame decirte que el *.pdf *.jpg no tenían ninguna función hay.

ya que el BATCH al verificar si existe algún txt  "*.txt" va a obviar los  *.pdf *.jpg .

no se si me explico . lo que quiero decir es que si quieres que el batch busque *.pdf *.jpg tienes que hacerlo por paso . como el code que te puse . en cambio si lo haces de la forma for %%i in (*.txt *.pdf *.jpg) que de paso esta mal codeado , el batch va a obviar los *.pdf *.jpg osea no los va a buscar.


546  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 02:07 am
Perdón , como tengo el internet lentísimo no me di de cuenta que el code no se había publicado .  :)

PD:              TE FUNCIONO? 
547  Programación / Scripting / Re: Problema con condigo If Exist y For en: 11 Noviembre 2017, 00:50 am
bueno el codigo que pusiste arriba el error esta en for %%i in (*.txt *.pdf *.jpg) do

bueno mejor haslo de esta manera:  

Código
  1. @echo off
  2. :txt
  3.       if exist *.txt == (goto del) else (goto pdf)
  4. :pdf
  5.       if exist *.pdf == (goto del) else (goto jpg)
  6. :jpg
  7.       if exist *.jpg == (goto del) else (goto sla)
  8. exit
  9.  
  10. :::::::::::::::::::::::::::::
  11. :del
  12. :::::::::::::::::::::::::::::
  13. echo abrira la calculadora
  14. calc.exe
  15. exit
  16.  
  17. :::::::::::::::::::::::::::::
  18. :sla
  19. :::::::::::::::::::::::::::::
  20. echo abrir paint
  21. mspaint.exe
  22. cls
  23. pause
  24.  
  25.  
548  Seguridad Informática / Análisis y Diseño de Malware / Re: Crypters Pack v0.1 . Pack de Encryptadores FUD Gratis . en: 7 Noviembre 2017, 19:04 pm
BUENO , estos Crypters los encontré en la deepweb.

dejo el link PARA AL QUE LE INTERESE. Tengan cuidado al navegar por esos lados:

http://cerberussssc7cat.onion/index.php

                                        COMENTEN
549  Seguridad Informática / Análisis y Diseño de Malware / Crypters Pack v0.1 . Pack de Encryptadores FUD Gratis . en: 7 Noviembre 2017, 18:09 pm
hola a todos los del foro les traigo Crypters Pack totalmente gratis.  ;-)

me tome la libertad de buscar todos los Crypters y subirlos en un solo exe .

el Programa tiene los siguientes Crypters:

Código:
    2012-Crypter
    Anonymous Joiner
    Assassins Creed Bin
    C-51-Crypter
    Camuflaje-Crypter
    Camuflaje-Simplev1
    Camuflaje-Simplev2
    Cardi Crypter
    ChukyCrypter
    Cold Seal Cracked
    Cruz-Crypter
    CyRuX-Crypter v1
    Cyrux Crypter
    Estrella-Crypter
    Ferrari v1
    Grab link
    InsidiousCrypter
    Islas Malvinas-Crypter
    Kill Zone
    Lito Vitale Crypter
    Machine Fud
    Masters Hackers
    Matatan-Crypter
    Metal Crypter
    Metal_Kingdom-Crypter v1
    Mueran Avs Crypter v1
    Mueran Avs Crypter v2
    PRIVATE M3
    Paz Crypter
    Pedro-Crypter
    Poison123-Crypter
    Poyson Ivy protector
    S.C By M3
    SEXY v1
    Sexy v2
    Sexy v3
    Sexy v4
    Techo negro
    Tesuda
    UD tools
    UDTools-Crypter
    Under M3
    Yeikel-Crypter
    cattyperryCrypter
    chronic
    chucky
    coluche
    conejitacrypter
    crypterdeathnote

Espero que les sirva a los del foro .   ;-)

                            BUENO HE AQUI EL LINK :

Crypters Pack v0.1  (Resubido)



                                                   COMENTEN PORFAVOR
550  Programación / Scripting / Re: Acceso denegado. >:( en: 3 Noviembre 2017, 18:57 pm
si lo que quieres es que tu bat se ejecute con permisos de administrador te lo dejo aqui:

code:

Código
  1. @echo off
  2.  
  3. REM .bat con permisos de administrador
  4. :-------------------------------------
  5. REM  --> Analizando los permisos
  6.    IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
  7. >nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
  8. ) ELSE (
  9. >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
  10. )
  11.  
  12. REM --> Si hay error es que no hay permisos de administrador.
  13. if '%errorlevel%' NEQ '0' (
  14.    echo Solicitando permisos de administrador... Requesting administrative privileges... Anfordern Administratorrechte ...
  15.    goto UACPrompt
  16. ) else ( goto gotAdmin )
  17.  
  18. :UACPrompt
  19.    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
  20.    set params = %*:"=""
  21.    echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
  22.  
  23.    "%temp%\getadmin.vbs"
  24.    del "%temp%\getadmin.vbs"
  25.    exit /B
  26.  
  27. :gotAdmin
  28.    pushd "%CD%"
  29.    CD /D "%~dp0"
  30. goto menu
  31. :Menu
  32. cls
  33. color 0c
  34. echo.
  35. echo ============================================================================
  36. echo =                                2017-2018                                 =
  37. echo =         CCCCCCC     CCCCCCC   CC       CC    CCCCCCC    CCCCCCCCC        =
  38. echo =         CC    CC   CC     CC  CCCC     CC   CC         CC       CC       =
  39. echo =         CC    CC   CC     CC  CC CC    CC   CC         CC       CC       =
  40. echo =         CCCCCCC    CC     CC  CC  CC   CC   CC         CC       CC       =
  41. echo =         CC    CC   CCCCCCCCC  CC   CC  CC   CC         CC       CC       =
  42. echo =         CC    CC   CC     CC  CC    CC CC   CC         CC       CC       =
  43. echo =         CCCCCCC    CC     CC  CC     CCCC    CCCCCCC    CCCCCCCCC        =
  44. echo =                                AkiraOSSL                                 =
  45. echo ============================================================================
  46. echo.
  47. echo.
  48. echo                        Bienvenido al banco Adsidleum
  49. echo                        -----------------------------
  50. echo.
  51. echo                        1.Iniciar sesion
  52. echo                        2.Registrarse
  53. echo.
  54. set/p RoL=¿Que necesita?:
  55. if %Rol%==1 goto IS
  56. if %Rol%==2 goto R
  57. echo No has ingresado nada
  58. pause>nul
  59. goto Menu
  60.  
  61. :IS
  62. cls
  63. set/p CSDSI=<CSDS%CSDS%.txt
  64. set/a CSDSID=%CSDSI%
  65. cls
  66. echo.
  67. set/p CSDS=Ingresa tu CSDS:
  68. if %CSDS%==%CSDSI% goto MENUIN
  69. if CSDSI=="" goto IS
  70.  
  71.  
  72. :MENUIN
  73. cls
  74. set/p DINTI=<Din%CSDS%.txt
  75. set/a DINT=%DINTI%
  76. cls
  77. color 0c
  78. echo.
  79. echo ============================================================================
  80. echo =                                2017-2018                                 =
  81. echo =         CCCCCCC     CCCCCCC   CC       CC    CCCCCCC    CCCCCCCCC        =
  82. echo =         CC    CC   CC     CC  CCCC     CC   CC         CC       CC       =
  83. echo =         CC    CC   CC     CC  CC CC    CC   CC         CC       CC       =
  84. echo =         CCCCCCC    CC     CC  CC  CC   CC   CC         CC       CC       =
  85. echo =         CC    CC   CCCCCCCCC  CC   CC  CC   CC         CC       CC       =
  86. echo =         CC    CC   CC     CC  CC    CC CC   CC         CC       CC       =
  87. echo =         CCCCCCC    CC     CC  CC     CCCC    CCCCCCC    CCCCCCCCC        =
  88. echo =                                AkiraOSSL                                 =
  89. echo ============================================================================
  90. echo.
  91. echo.
  92. echo                        Bienvenido al banco Adsidleum
  93. echo                        -----------------------------
  94. echo.
  95. echo                        1.Depositar
  96. echo                        2.Retirar
  97. echo                        3.Historial de cuenta
  98. echo                        4.Salir
  99. echo                        5.Cambiar CSDS
  100. echo.
  101. echo                               Tienes %DINT%$
  102. echo.
  103. set/p OPCI=Ingresa la opcion de lo que quieras:
  104. if %OPCI%==1 goto DP
  105. if %OPCI%==2 goto RT
  106. if %OPCI%==3 goto HC
  107. if %OPCI%==4 exit
  108. if %OPCI%==5 goto CSDSC
  109. echo                           No seleccionaste nada  
  110. pause>nul
  111. goto MENUIN
  112.  
  113. :HC
  114. cd HDM
  115. DIR
  116. set/p HP=Ingresa el nombre del historial que deseas ver:
  117. start %HP%
  118. set/p ODH=Ingresa 1 para salir al menu o 2 para ver otro historial
  119. if %ODH%==1 goto menu
  120. if %ODH%==2 goto HC
  121. echo No seleccionaste nada
  122. pause>nul
  123. goto menu
  124.  
  125. :CSDSC
  126. cls
  127. color 0c
  128. echo.
  129. echo ============================================================================
  130. echo =                                2017-2018                                 =
  131. echo =         CCCCCCC     CCCCCCC   CC       CC    CCCCCCC    CCCCCCCCC        =
  132. echo =         CC    CC   CC     CC  CCCC     CC   CC         CC       CC       =
  133. echo =         CC    CC   CC     CC  CC CC    CC   CC         CC       CC       =
  134. echo =         CCCCCCC    CC     CC  CC  CC   CC   CC         CC       CC       =
  135. echo =         CC    CC   CCCCCCCCC  CC   CC  CC   CC         CC       CC       =
  136. echo =         CC    CC   CC     CC  CC    CC CC   CC         CC       CC       =
  137. echo =         CCCCCCC    CC     CC  CC     CCCC    CCCCCCC    CCCCCCCCC        =
  138. echo =                                AkiraOSSL                                 =
  139. echo ============================================================================
  140. echo.
  141. echo.
  142. echo                               Cambiar CSDS
  143. echo                        -----------------------------
  144. echo.
  145. echo                        Tu CSDS Actualmente es %CSDS%
  146. echo.                      
  147. echo                           Ingresa tu nuevo CSDS
  148. echo.
  149. set/p CCSDSY=
  150. ren CSDS%CSDS%.txt CSDS%CCSDSY%.txt
  151. ren din%CSDS%.txt din%CCSDSY%.txt
  152. cd HDM
  153. echo Cambio de CSDS a %CCSDSY%:%Date%,%hour% > HISTORIALCambioCSDS%CSDS%%random%.txt
  154. cd C:\Users\User\Desktop\Banco
  155. echo ¡Listo!
  156. pause>nul
  157. goto menu
  158.  
  159.  
  160. :RT
  161. cls
  162. echo.
  163. echo ============================================================================
  164. echo =                                2017-2018                                 =
  165. echo =         CCCCCCC     CCCCCCC   CC       CC    CCCCCCC    CCCCCCCCC        =
  166. echo =         CC    CC   CC     CC  CCCC     CC   CC         CC       CC       =
  167. echo =         CC    CC   CC     CC  CC CC    CC   CC         CC       CC       =
  168. echo =         CCCCCCC    CC     CC  CC  CC   CC   CC         CC       CC       =
  169. echo =         CC    CC   CCCCCCCCC  CC   CC  CC   CC         CC       CC       =
  170. echo =         CC    CC   CC     CC  CC    CC CC   CC         CC       CC       =
  171. echo =         CCCCCCC    CC     CC  CC     CCCC    CCCCCCC    CCCCCCCCC        =
  172. echo =                                AkiraOSSL                                 =
  173. echo ============================================================================
  174. echo.
  175. echo.
  176. echo                            RETIRO AL CSDS %CSDS%
  177. echo                        -----------------------------
  178. echo.
  179. echo                   Ingresa la cantidad que quieres retirar
  180. echo.
  181. set/p RTS=
  182. echo Tu retiro a sido finalizado correctamente
  183. set/a DINT=%DINT%-%RTS%
  184. echo %DINT% > DIN%CSDS%.txt
  185. attrib +h DIN%CSDS%.txt
  186. cd HDM
  187. echo Retiro de %RTS%$:%Date%,%Hour% > HISTORIALRetiro%CSDS%%random%.txt
  188. cd C:\Users\User\Desktop\Banco
  189. set/p OPCDP=Ingresa 1 para salir al menu o ingresa 2 para volver a retirar:
  190. if %OPCDP%==1 goto Menu
  191. if %OPCDP%==2 goto RT
  192. echo No seleccionaste nada
  193. pause>nul
  194. goto Menu
  195.  
  196.  
  197. :DP
  198. cls
  199. echo.
  200. echo ============================================================================
  201. echo =                                2017-2018                                 =
  202. echo =         CCCCCCC     CCCCCCC   CC       CC    CCCCCCC    CCCCCCCCC        =
  203. echo =         CC    CC   CC     CC  CCCC     CC   CC         CC       CC       =
  204. echo =         CC    CC   CC     CC  CC CC    CC   CC         CC       CC       =
  205. echo =         CCCCCCC    CC     CC  CC  CC   CC   CC         CC       CC       =
  206. echo =         CC    CC   CCCCCCCCC  CC   CC  CC   CC         CC       CC       =
  207. echo =         CC    CC   CC     CC  CC    CC CC   CC         CC       CC       =
  208. echo =         CCCCCCC    CC     CC  CC     CCCC    CCCCCCC    CCCCCCCCC        =
  209. echo =                                AkiraOSSL                                 =
  210. echo ============================================================================
  211. echo.
  212. echo.
  213. echo                           DEPOSITO AL CSDS %CSDS%
  214. echo                        -----------------------------
  215. echo.
  216. echo                  Ingresa la cantidad que quieres depositar
  217. echo.
  218. set/p DIN=
  219. echo Tu deposito a sido ingresado exitosamente
  220. set/a DINT=%DINT%+0
  221. set/a DINT=%DIN%+%DINT%
  222. echo %DINT% > din%CSDS%.txt
  223. Attrib +h din%CSDS%.txt
  224. cd HDM
  225. echo Deposito de %DIN%$:%date%,%hour% > HISTORIALDeposito%CSDS%%random%.txt
  226. cd C:\Users\User\Desktop\Banco
  227. set/p OPCDP=Ingresa 1 para salir al menu o ingresa 2 para volver a depositar:
  228. if %OPCDP%==1 goto Menu
  229. if %OPCDP%==2 goto DP
  230. echo No seleccionaste nada
  231. pause>nul
  232. goto Menu
  233.  
  234.  
  235.  
  236.  
  237.  
  238. :R
  239. cls
  240. echo.
  241. set/p CSDSR=Escribe un nuevo CSDS (Codigo Secreto De Seguridad) Ejemplo,0C0C (4 digitos) :
  242. echo %CSDSR% > CSDS%CSDSR%.txt
  243. attrib +h CSDS%CSDSR%.txt
  244. echo Tu cuenta ha sido creada exitosamente.
  245. pause>nul
  246. goto Menu
  247.  

                                            COMENTA SI TE FUNCIONO
Páginas: 1 ... 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 [55] 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 ... 72
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines