[Cramel] AdminFinder by 79137913 [Aplicación + Source]

'/**
' * 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