Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: rubeng en 15 Agosto 2007, 18:12 PM

Título: proxy en webbrowser
Publicado por: rubeng en 15 Agosto 2007, 18:12 PM
alguien tiene idea de como cambiar la ip en un webbrowser o esconderla y mostrar otra?
salu2
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 19 Agosto 2007, 07:51 AM
Puedes utilizar un proxy, para utilizar un proxy por medio de un componente podes utilizar el componente Microsoft Internet Transfer Control 6.0, y en la propiedad Proxy pones el servidor proxy que queres usar.
Tambien por medio del componente Microsoft Winsock Control 6.0 cuando te comuniques con la web utiliza la cabecera x_forwarded_for.
Ejemplo.
GET /index.php HTTP/1.1
Host: www.elhacker.net
X_Forwarded_For: 127.0.0.1
Connection: keep-alive

No se si es la respuesta a tu pregunta, pero no la entiendo muy bien xD
saludos!
Título: Re: proxy en webbrowser
Publicado por: rubeng en 19 Agosto 2007, 16:43 PM
gracias por tu ayuda.. pero esto como se usa?
GET /index.php HTTP/1.1
Host: www.elhacker.net
X_Forwarded_For: 127.0.0.1
Connection: keep-alive

algun ejemplo o algo?
salu2
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 19 Agosto 2007, 23:50 PM
Con el componente Winsock, pero eso seria una proxy transparente, osea en los registros del servidor queda que tu ip es 127.0.0.1, pero si desde php se hace <?php echo $_SERVER['REMOTE_ADDR']; ?>, entonces aparecera tu ip tal como es.

Código (vb) [Seleccionar]

Private Sub Command1_Click()
Winsock1.Connect "foro.elhacker.net",80
End Sub

'Cuando este Conectado
Private Sub Command2_Click()
Winsock1.Senddata "GET /index.php HTTP/1.1" & vbCrLf & _
                             "Host: foro.elhacker.net" & vbCrLf & _
                             "X_Forwarded_For: 127.0.0.1" & vbCrLf & _
                             "Connection: close" & vbCrLf & vbCrLf
End Sub

Espero que te sirva :P
Título: Re: proxy en webbrowser
Publicado por: rubeng en 19 Agosto 2007, 23:56 PM
gracias por todo. ya esta
salu2
Título: Re: proxy en webbrowser
Publicado por: rubeng en 20 Agosto 2007, 19:55 PM
ya que estamos en el tema se puede hacer un get de un jpg meterlo en un picturebox o un image?
salu2
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 20 Agosto 2007, 22:32 PM
Bueno, podes hacerlo de la siguiente forma.
Todo paso a paso, despues lo podes automatizar

El codigo es:
Código (vb) [Seleccionar]

'Se neceseitan 3 command button, y un objeto de imagen (Image1)
Private Sub Command1_Click()
Wk.Connect "localhost", 80    'Conectamos al host
End Sub

Private Sub Command2_Click()
Wk.SendData "GET /juacker.jpg HTTP/1.1" & vbCrLf & _        'Hacemos la peticion de la image
            "Host: localhost" & vbCrLf & _
            "Connection: keep-alive" & vbCrLf & vbCrLf
End Sub

Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim Imagen$, Imagen2$, Headers   'Declaramos las variables
Wk.GetData Imagen
If InStr(1, Imagen, vbCrLf & vbCrLf, vbTextCompare) <> 0 Then      'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es una parte de la imagen.
    Headers = Split(Imagen, vbCrLf & vbCrLf, 2)
    Imagen2 = Headers(1)     'Es la parte de la imagen, sin las cabeceras del servidor
Else
    Imagen2 = Imagen       'Si no se estan enviando las cabeceras, entonces asignamos a imagen2 el valor de imagen. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo. si es una imagen de una mega, no nos manda la mega al tope, nos la manda por pedazos, por eso tenemos que poner este codigo
End If
Open App.Path & "\imagen.jpg" For Binary Access Write As #1      'Abrimos el archivo imagen.jpg, puede ser cualquier otro tipo de archivo, en modo binario
Put #1, LOF(1) + 1, Imagen2       'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor
Close #1
End Sub

Private Sub Command3_Click()
Image1.Picture = LoadPicture(App.Path & "\imagen.jpg")      'Cargamos la imagen que hemos pedido
End Sub


Creo que es asi :P, si hay alguna forma mas simple, me gustaria saberla
saludos
Título: Re: proxy en webbrowser
Publicado por: rubeng en 22 Agosto 2007, 01:50 AM
una cosa se me guarda la imagen pero todo en blanco :P por que pasa esto :S
ayuda!! xD no hay drama que sea png¿
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 22 Agosto 2007, 01:56 AM
los image no soportan el tipo del png, mira si en el directorio esta creada la imagen y abrela con un editor normal, te debe salir tal cual la bajaste, el codigo que te pase ahi sirve para bajar cualquier tipo de archivo.
Depronto ejecutaste dos o mas veces el codigo con el archivo ya creado, si haces esto, los datos se escriben al final del archivo logrando deformarlo.
Para que te de bien el codigo el archivo "imagen.jpg" no debe estar creado.
saludos ;)
Título: Re: proxy en webbrowser
Publicado por: satan69 en 22 Agosto 2007, 03:32 AM
como tan hablando de webbrowser.. pues mi pregunta es..

www.blabla.com/bla.txt 
seria asi

WebBrowser1.Navigate "www.blabla.com/bla.txt"

y me abre lo que tengo en bla.txt  ahora mi preguntita seria como mando el resultado a un text1.text

si pongo

text1.text= webbrowser1   ----> me manda el nombre de controlador jejejeje
como seria tonces  ;D ;D ;D ;D


y gracias de antemano
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 22 Agosto 2007, 04:38 AM
Bueno, no he abierto el visual pero te pongo el codigo xD, si te sale algun error me dices lo corrijo, es que no tengo mucho tiempo pa responder :P.
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:
Código (vb) [Seleccionar]

private sub command1_click()
winsock1.connect "www.blabla.com",80
'esperas a que se conecte, luego undes command2
end sub

private sub command2_click()
winsock1.senddata "GET /bla.txt HTTP/1.1" & vbcrlf & _
                            "Host: www.blabla.com" & vbcrlf & _
                            "Connection: close" & vbcrlf & vbcrlf
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Texto$, Texto2$, header
'$ = string
Winsock1.GetData Texto
header = split(texto,vbcrlf & vbcrlf)
texto2 = header(1)
Text1.text = texto2
end sub


Mira si te funciona, bytes ;)
jiji, perdon, se me habia olvidado xD, en eso estaba pensando mientras iba por mi comida, weno, creo que asi debe funcionar. digo creo porque todavia no he abierto el visual.
End Sub
Título: Re: proxy en webbrowser
Publicado por: Ferсhu en 22 Agosto 2007, 04:53 AM
Hades creo q te falto saltar la info de la cabecera de respuesta, es decir hay q guardar el texto dsp de q aparezca "Content-Type: text/plain"  :)

Pero asi debe funcionar igual.
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 22 Agosto 2007, 04:59 AM
ya esta, gracias <~>FeRcHu<~> ;)
Título: Re: proxy en webbrowser
Publicado por: satan69 en 28 Agosto 2007, 04:35 AM
Cita de: HaDeS, - en 22 Agosto 2007, 04:38 AM
Bueno, no he abierto el visual pero te pongo el codigo xD, si te sale algun error me dices lo corrijo, es que no tengo mucho tiempo pa responder :P.
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:
Código (vb) [Seleccionar]

private sub command1_click()
winsock1.connect "www.blabla.com",80
'esperas a que se conecte, luego undes command2
end sub

private sub command2_click()
winsock1.senddata "GET /bla.txt HTTP/1.1" & vbcrlf & _
                            "Host: www.blabla.com" & vbcrlf & _
                            "Connection: close" & vbcrlf & vbcrlf
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Texto$, Texto2$, header
'$ = string
Winsock1.GetData Texto
header = split(texto,vbcrlf & vbcrlf)
texto2 = header(1)
Text1.text = texto2
end sub


Mira si te funciona, bytes ;)
jiji, perdon, se me habia olvidado xD, en eso estaba pensando mientras iba por mi comida, weno, creo que asi debe funcionar. digo creo porque todavia no he abierto el visual.
End Sub


yo decia por el webbrower porque toda pc tiene navegador IE... es mejor en cierta forma para que lo quieres....y si utilizo el winsock.. pues tendria que enviarselo a la victima .. y mucho problema .. mas kb para infectar...

si tienes alguna sugerencia con el webbrowser.... gracias de antemano
Título: Re: proxy en webbrowser
Publicado por: HaDeS, - en 28 Agosto 2007, 05:04 AM
Pues la verdad a mi me funciona bastante mal ese componente, porque cuando lo quiero agregar, salen errores y de todo, por eso nunca uso componentes, uso es una clase que encontre por ahi del winsock, que no tengo que agregar componentes.
con ese del webbrowser, me parece que lo utilice hace como dos años, intenta si con text1.text = webbrowser1.openurl(...
me parece que asi es, pero ni pi xD
saludos ;)
Título: Re: proxy en webbrowser
Publicado por: pablincn en 23 Octubre 2007, 00:29 AM
hola a todos quiero saber si se puede enviar variables de sesion desde el control winsock a php si pude enviar variables post y get, lo que pasa es que se desconecta el control y se me pierden las variables de sesion como el usuario y el pass si alguien me puede ayudar por favor
Título: Re: proxy en webbrowser
Publicado por: sircid en 28 Octubre 2007, 11:43 AM
Cita de: satan69 en 22 Agosto 2007, 03:32 AM
como tan hablando de webbrowser.. pues mi pregunta es..

www.blabla.com/bla.txt 
seria asi

WebBrowser1.Navigate "www.blabla.com/bla.txt"

y me abre lo que tengo en bla.txt  ahora mi preguntita seria como mando el resultado a un text1.text

si pongo

text1.text= webbrowser1   ----> me manda el nombre de controlador jejejeje
como seria tonces  ;D ;D ;D ;D


y gracias de antemano

text1.text = webbrowser1.document.documentelement.outerhtml

En cualquier pagina html te incluiria en el text1.text todo el codigo html con sus tags <html><body>... etc etc. Pero al mostrar un txt el codigo de fuente es el txt integro.

Por cierto, como HaDeS decia, utilizar el winsock y el protocolo http x ti mismo es mucho mejor que usar el webbrowser. webbrowser va a tener todos los errores que el internet explorer tiene, y ademas al utilizarlo en vb6 a mi no me daba nada mas que errores. me pase a winsock y protocolo http para construir mi propio webbrowser, tienes maximo control sobre la informacion que se va a enviar al servidor(cookies) y sobre todo como se va a enviar esa informacion (headers)... etc.

el protocolo http es muy facil, si tienes dudas no tienes nada mas que preguntar.