Les traigo el siguiente Port de una aplicación echa por
@79137913 (https://underc0de.org/foro/index.php?action=profile;u=21192) en el post de Crea tu propio AdminFinder con VB.NET en solo 3 pasos! (https://underc0de.org/foro/visual-studio-net/crea-tu-propio-adminfinder-con-vb-net-en-solo-3-pasos!/)
Esta aplicación por el momento esta realizada en modo Consola, en los siguientes días les traeré el modo gráfico.
(http://i.imgur.com/ytezOSF.png)
(http://i.imgur.com/UDoci4b.png)
Descarga: Mega (https://mega.nz/#!2cwgDBgR!2cIgThrnUsrs2yc-kVuAba0M_6qv2I84vR3Eai2TaeE)
Para funcionar la aplicación necesita de un diccionario(
paths.txt) donde contendrá todas las posibles carpetas de admins o archivos de login
Código fuente
Información
- Compatible con Cramel: 2.0.0.362
- Librerías requeridas: [Cramel] Consola.cml (https://underc0de.org/foro/cramel/(cramel)-consola-cml-4-de-marzo-del-2017), [Cramel] Archivo.cml ~ Lee y escribe archivos (https://underc0de.org/foro/cramel/(cramel)-archivo-cml-lee-y-escribe-archivos) & [Cramel] HTTPRequest.cml ~ Haz peticiones GET & POST (https://underc0de.org/foro/cramel/(cramel)-httprequest-cml-~-haz-peticiones-get-post/)
Aquí les traigo el source del AdminFinder, como verán usa el mismo método de detección (cargar una lista, e ir comprobando cada una)
Archivo
AdminFinder.cml'/**
' * 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
Muy copada la aplicación, yo también estaba pensando en traducir los códigos de numéritos.
Me interesa ver el código fuente, espero con ansias la publicación!
salu2
No tienes permitido ver los links.
Registrarse o Entrar a mi cuenta
Muy copada la aplicación, yo también estaba pensando en traducir los códigos de numéritos.
Me interesa ver el código fuente, espero con ansias la publicación!
salu2
Listo, acabo de agregar el source en el mismo post, iba a hacer uno aparte, pero lo vi innecesario, jeje.
Cualquier sugerencia, o error, comentame.