'/**
' * AdminFinder
' *
' * @by @79137913
' * @Ported by Jovani Pérez Damián (@BlackBlex)
' *
' * ==============Information==============
' * Filename: AdminFinder.cml
' * ---------------------------------------
'*/
Importar "Cramel.cml"
Importar "MSVBVM60\MSVBVM60.cml"
Importar "Constantes.cml"
Importar "APIS.cml"
Importar "Archivo.cml"
Importar "Consola.cml"
Importar "HTTPRequest.cml"
Var cmd:Consola
Var archivoC:ArchivoC
Var controlArchivo:Booleano
Var paths[], pathsFound:Cadena
Var contenido, salida:Cadena
Crear archivoC
archivoC.abrir("paths.txt", GENERIC_READ, OPEN_EXISTING)
Si ( archivoC.conseguirPtr <> INVALID_HANDLE ) Entonces
contenido = archivoC.leer()
paths = Separar(contenido, CRLF)
controlArchivo = Verdad
SiNo
Mensaje("El archivo paths.txt no existe, favor de crearlo y poner su lista separada por linea")
controlArchivo = Falso
FinSi
archivoC.cerrar()
Destruir archivoC
Var objetivo:Cadena
Var correcto:Booleano
correcto = Falso
Si ( controlArchivo ) Entonces
Crear cmd
cmd.establecerTitulo("AdminFinder by 79137913 ~ Ported to Cramel Console by BlackBlex")
cmd.escribirLinea(CRLF + " /=======================\\")
cmd.escribirLinea(" Paths encontrados:" + EntCad(&paths))
cmd.escribirLinea(" \\=======================/" + CRLF)
Mientras correcto = Falso
cmd.escribir("(No incluya el http:// al inicio, ni el / al final)" + CRLF + "Ingrese el destino: ")
objetivo = cmd.leer
Si ( Buscar(objetivo, "http://") = Falso ) Entonces
correcto = Verdad
FinSi
FinMientras
Si ( correcto ) Entonces
Si ( buscarObjetivos ) Entonces
cmd.limpiarConsola()
cmd.escribirLinea(CRLF)
cmd.escribirLinea(" URLS encontradas: ")
cmd.escribir(pathsFound + CRLF)
cmd.pausarConsola()
SiNo
cmd.limpiarConsola()
cmd.escribirLinea(CRLF)
cmd.escribirLinea(" No se encontro ninguna url" + CRLF)
cmd.pausarConsola()
FinSi
FinSi
Destruir cmd
FinSi
Proc buscarObjetivos:Booleano
cmd.escribirLinea(" Examinando...")
Var request:HTTP
Var text:Cadena
Var id:Entero
Resultado = Falso
Crear request
id = 0
Contar id a &paths Paso 1
request.Metodo = "GET"
request.Puerto = INTERNET_DEFAULT_HTTP_PORT
request.Servidor = objetivo
request.Dirección = "/" + paths[id]
request.Agente = "RequestTest [GET]"
Si ( request.Conectar ) Entonces
Si ( request.Enviar ) Entonces
cmd.escribir(" http://" + request.Servidor + request.Dirección + " ~ Estado: ")
Si ( request.StatusCode = HTTP_STATUS_OK ) Entonces
cmd.escribirLinea("[OK]")
pathsFound = pathsFound + " http://" + request.Servidor + request.Dirección + CRLF
Resultado = Verdad
SiNo
cmd.escribirLinea("[FAILED]")
FinSi
FinSi
FinSi
Seguir
Destruir request
Pausar(2500)
FinProc