' HTTP BruteForcer Post Method
' Coder: Rollth
' Underc0de.org
' hackingd0.blogspot.com.es
' whateversec.blogspot.com.es

' Llamada de librerias

Importar "Cramel.cml"
Importar "Archivo.cml"
Importar "Consola.cml"
Importar "Sockets\Sockets.cml"

' Declaracion de socket

Var Socket:Entero

TCPIniciar

' Declaracion de variables

Var archivo1:FILE
Var archivo2:FILE
Var archivo3:FILE
Var puerto, acierto, intentos, ContentLength:Entero
Var ip, host, mensajeAcierto, form, user, pass, user1, pass1, men, men2, ContentLength2:Cadena
Var Consola:ConsolaEstructura

acierto = 0
intentos = 0

Consola = initConsole()
Consola.establecerTitulo("HTTP BruteForce By Rollth")

' Simple decoracion

Consola.escribirLinea("###############################")
Consola.escribirLinea("#HTTP BruteForcer Post Method #")
Consola.escribirLinea("#Coder: Rollth                #")
Consola.escribirLinea("#Underc0de.org                #")
Consola.escribirLinea("#hackingd0.blogspot.com.es    #")
Consola.escribirLinea("#whateversec.blogspot.com.es  #")
Consola.escribirLinea("###############################" + LF)

' Introduccion de variables

Consola.escribir("IP del servidor a atacar: ")
Consola.leer(ip)
Consola.escribir("Host: ")
Consola.leer(host)
Consola.escribir("Puerto a atacar(80 si es HTTP o 443 si es HTTPS): ")
Consola.leer(puerto)
Consola.escribir("Nombre de la variable de user: ")
Consola.leer(user);
Consola.escribir("Nombre de la variable de password: ")
Consola.leer(pass)
Consola.escribir("Direccion del form: ")
Consola.leer(form)
Consola.escribir("Mensaje de acierto al logearse: ")
Consola.leer(mensajeAcierto)

' Configurar conexion socket

Socket = TCPConectar(ip, puerto)

' Final del programa

TCPDesconectar(Socket)
TCPDetener
Consola.pausar()