Banda Ancha EU

Comunidad de usuarios
de fibra, móvil y ADSL

hosting en interdominios
84 lecturas y 13 respuestas
  • Cerrado

    BocaDePez BocaDePez
    6

    Bajarse primera beta para forzar PUTA-Proxy de actualisar

    Aqui puede bajarse el primero prueba de un proxy
    que actualises el puta-proxy en forza...

    no solo html (como ctrl-actualisar)
    pero tambien imagenes flash etc..
    ideal para diseñadores de paginas web

    es una prueba por ese no tengo ningun resposabilidad!!

    proxy-kille

    perdonna mi español soy holandés

    Este tema es antiguo y puede contener información obsoleta. Abre un nuevo tema para publicar tu mensaje.
    1
    • Cerrado

      6

      Shark lo he visto bien.. publico el codigo, para que me…

      Shark lo he visto bien..

      publico el codigo, para que me ayudeis stabilisando lo..
      es codigo abierto e gran parte cogio del www.

      scimsoft es mi empresa (holandés). Pero hago ya menos por el www. Mas programacion w32

      aqui debajo grande parte del codigo...
      (falta mucho un 'thread' e pareces que necesitamos de hacer un tiempo de espero porque despues mucho nuevo winsock objectos no conectes mas de nuevo...)

      Option Explicit

      Dim s(255) As String
      Dim h(255) As String
      Dim p(255) As String
      Dim i As Integer

      Private Sub cmdStart_Click()
      If cmdStart.Caption = "Start" Then
      wsTCP(0).LocalPort = txtPort
      wsTCP(0).Listen
      lblStatus = "Running..."
      cmdStart.Caption = "Stop"
      Else
      cmdStart.Caption = "Start"
      wsTCP(0).Close
      lblStatus = "Stopped"
      End If
      End Sub

      Private Sub Command1_Click(Index As Integer)
      WriteRegistry HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", ValDWord, "1"
      WriteRegistry HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", ValString, "http=localhost:" & txtPort.Text
      End Sub

      Private Sub Command2_Click(Index As Integer)
      WriteRegistry HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", ValDWord, "0"

      End Sub

      Private Sub wsProxy_Close(Index As Integer)
      On Error Resume Next

      Unload wsProxy(Index)
      wsTCP(Index).SendData p(Index)

      End Sub

      Private Sub wsProxy_Connect(Index As Integer)
      Dim temp As String
      If InStr(UCase(s(Index)), "ACCEPT") > 0 Then
      'temp = insertString("Pragma: no-cache" & vbNewLine & "Cache-control: no-cache" & vbNewLine, s(Index), InStr(UCase(s(Index)), "ACCEPT") - 1)
      temp = insertString("Cache-Control: max-age=0" & vbNewLine, s(Index), InStr(UCase(s(Index)), "ACCEPT") - 1)

      Debug.Print "ok"
      End If

      'temp = Replace(s(Index), "Proxy-Connection: Keep-Alive", "Pragma: no-cache" & vbNewLine & "Cache-control: no-cache" & vbNewLine & "Proxy-Connection: Keep-Alive", , , vbBinaryCompare)
      'temp = s(Index)

      wsProxy(Index).SendData temp
      ' Debug.Print Index
      Debug.Print temp

      End Sub

      Private Sub wsProxy_DataArrival(Index As Integer, ByVal bytesTotal As Long)

      wsProxy(Index).GetData h(Index)
      'Debug.Print "(" & Index & ") " & h(Index)
      p(Index) = p(Index) & h(Index)
      End Sub

      Private Sub wsProxy_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
      'Debug.Print "(" & Index & ") Error Proxy " & Number & ": " & Description
      Unload wsProxy(Index)

      End Sub

      Private Sub wsTCP_Close(Index As Integer)
      Unload wsTCP(Index)

      End Sub

      Private Sub wsTCP_ConnectionRequest(Index As Integer, ByVal requestID As Long)

      i = i + 1

      Load wsTCP(i)
      Load wsProxy(i)
      wsTCP(i).Accept requestID

      Debug.Print requestID

      End Sub

      Private Sub wsTCP_DataArrival(Index As Integer, ByVal bytesTotal As Long)
      wsTCP(Index).GetData s(Index)
      'Debug.Print "(" & Index & ") " & s(Index)
      Dim strHost As String, iPort As Integer
      iPort = 80
      If InStr(UCase(s(Index)), "GET ") > 0 Then
      strHost = Mid(s(Index), InStr(UCase(s(Index)), "GET ") + 4)
      ElseIf InStr(UCase(s(Index)), "PUT ") > 0 Then
      strHost = Mid(s(Index), InStr(UCase(s(Index)), "PUT ") + 4)
      Else
      wsTCP(Index).SendData "Mailformed HTTP request"
      Exit Sub
      End If
      strHost = Left(strHost, InStr(strHost, " ") - 1)
      If InStr(strHost, "://") 0 Then strHost = Mid(strHost, InStr(strHost, "://") + 3)
      If InStr(strHost, ":") 0 Then
      iPort = Val(Mid(strHost, InStr(strHost, ":") + 1))
      strHost = Left(strHost, InStr(strHost, ":") - 1)
      End If
      If InStr(strHost, "/") > 0 Then strHost = Left(strHost, InStr(strHost, "/") - 1)
      'Debug.Print strHost
      'Debug.Print Index & " " & iPort

      Debug.Print wsProxy.LBound
      If wsProxy.Count > 4 Then
      Debug.Print wsProxy.Count
      DoEvents
      Else

      With wsProxy(Index)
      .RemoteHost = strHost
      .RemotePort = iPort
      .Connect
      End With
      End If
      End Sub

      Private Sub wsTCP_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
      'Debug.Print "(" & Index & ") Error TCP" & Number & ": " & Description
      Unload wsTCP(Index)
      End Sub

      Private Sub wsTCP_SendComplete(Index As Integer)

      wsTCP(Index).Close
      End Sub

    • Cerrado

      [Editado 25/01/03 16:34]

      En un principio he sospechado de ti. (Podría ser que esto…

      En un principio he sospechado de ti.

      (Podría ser que esto fuera un troyano y he sospechado)

      He borrado mis comentarios por que no quiero liar al personal.

      Veamos,...

      Con el proxy ese:

      GET / HTTP/1.1
      Host: www.bandaancha.st
      User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20030124
      Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,video/x-mng,image/png,image/jpeg,image/gif;q=0.2,text/css,*/*;q=0.1
      Accept-Language: en-us, en;q=0.50
      Accept-Encoding: gzip, deflate, compress;q=0.9
      Accept-Charset: ISO-8859-1, utf-8;q=0.66, *;q=0.66
      Keep-Alive: 300
      Connection: keep-alive
      Cookie: usuario=XXX
      Cache-Control: max-age=0

      HTTP/1.1 200 OK
      Date: Sat, 25 Jan 2003 22:19:13 GMT
      Server: Apache/1.3.27 (Unix) mod_gzip/1.3.26.1a PHP/4.3.0 mod_ssl/2.8.12 OpenSSL/0.9.6
      X-Powered-By: PHP/4.3.0
      X-Accelerated-By: PHPA/1.3.3r2
      Content-Type: text/html
      Age: 1
      Connection: close

      ....

      Sin el proxy:

      GET http://www.bandaancha.st/inc/estilos.css HTTP/1.1
      Host: www.bandaancha.st
      User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20030124
      Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,video/x-mng,image/png,image/jpeg,image/gif;q=0.2,text/css,*/*;q=0.1
      Accept-Language: en-us, en;q=0.50
      Accept-Encoding: gzip, deflate, compress;q=0.9
      Accept-Charset: ISO-8859-1, utf-8;q=0.66, *;q=0.66
      Keep-Alive: 300
      Proxy-Connection: keep-alive
      Referer: http://www.bandaancha.st/
      Cookie: usuario=XXX
      If-Modified-Since: Wed, 20 Mar 2002 11:35:46 GMT
      If-None-Match: "1ff07-96b-3c987412"
      Cache-Control: max-age=0
      HTTP/1.1 304 Not Modified
      Date: Sat, 25 Jan 2003 21:58:29 GMT
      Etag: "1ff07-96b-3c987412"
      Proxy-Connection: close

      ...

      Por lo tanto el proxy funciona,... hace lo que tiene que hacer (aun q como podeis ver mi mozilla ya lo hacía :P el max-age=0 es obra de el).

      ¿Vás a publicar los fuentes del proxy para que investiguemos entre todos (y veamos como funciona)?

      Perdona que desconfiara de ti (lo hice por el bien de los usuarios del foro)

        • Cerrado

          He desconfiado TANTO que no lo he hecho ni en windows:…

          He desconfiado TANTO que no lo he hecho ni en windows:

          User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20030124

          Hasta hice una cuenta a parte solo para el "evento" xD

          Como se salen los hijos de wine,... xD

          • Cerrado

            Podríais ser menos crípticos?? Ya no sé si la dirección esa…

            Podríais ser menos crípticos?? Ya no sé si la dirección esa te lleva a "autoinstalarte" un troyano, o si es un invento de la timo o qué.

            Pulsé sobre el enlace, pero no ocurrió nada (no llegué a ningún sitio. Parece que no terminaba de cargar...), y ahora no sé si ahora debo borrar las contraseñas almacenadas en mi equipo (Shark??), si debo pasar el antivirus, si debo reinstalar el sistema o colgarme con el cable de la red (que desde la llegada de su primo el proxy, está infrautilizado y se empieza a resentir...).

            A perro flaco,...en fin.

            (Y si ese link lleva a algún sitio o programa más que sospechoso, un mensaje al administrador del foro y que bloquee o borre ese post, avisando al personal del riesgo...)

            :-? :-o

            • Cerrado

              El individuo este (el bocadepez) habia colgado un instalador…

              El individuo este (el bocadepez) habia colgado un instalador en lo que parecía ser su ADSL.

              Dicho instalador contiene una especie de "segundo proxy" que al menos de momento es código cerrado.

              Al parecer dicho proxy si hace lo que dice que hace: modifica las cabeceras (aun que es posible que haga mas cosas,... recordemos que es código cerrado).

              Con respecto a lo de "contraseña cambiada" es pq se me escapó una cookie entre los headers y lo publiqué accidentalmente :P por lo q tube q cambiarla.

              Si ahora medio confío en ese boca de pez es por que segun parece trabaja en una empresa de desarrollo de webs que funciona en españa y que como se puede ver está en inglés (lo cual demuestra la inexperiencia en el idioma :P).

              Por otro lado,... si no te has bajado nada,... no has corrido el riesgo del que he hablado.

              Yo soy uno de los moderadores del foro. Si no he borrado el enlace es por que el proxy del individuo este funciona. (Aun que si que se puede sospechar,...)

              • Cerrado

                ¡Qué descanso¡ me veía ya formateando el disco y reinstalando…

                ¡Qué descanso¡ me veía ya formateando el disco y reinstalando el sistema operativo, por contagio de algo que mi antivirus no terminaba de detectar (y que como es el del oso, suele detectar los intrusos cuando ya han entrado y se han sentado a comer...).

                Bueno, pues thank's por la contestación-aclaración, y seguiremos leyéndonos por aquí.

                Salu2¡¡¡¡ :-D

    • Cerrado

      BocaDePez BocaDePez
      6

      Lo he intentado instalar en XP, se instala, pero al ejecutar…

      Lo he intentado instalar en XP, se instala, pero al ejecutar no funciona. Es normal?

      Gracias

    • Cerrado

      BocaDePez BocaDePez
      6

      % This is the RIPE Whois server. % The objects are in RPSL…

      % This is the RIPE Whois server.
      % The objects are in RPSL format.
      %
      % Rights restricted by copyright.
      % See http://www.ripe.net/ripencc/pub-services/db/copyright.html

      inetnum: 213.96.0.0 - 213.96.255.255
      netname: RIMA
      descr: Telefonica De Espana SAU (NCC#2000013794)
      descr: Red de servicios IP
      descr: Spain
      country: ES
      admin-c: LJP5-RIPE
      tech-c: FLT14-RIPE
      rev-srv: scmrro3.nombres.ttd.es
      rev-srv: scmrro4.nombres.ttd.es
      rev-srv: ns.ripe.net
      status: ASSIGNED PA
      remarks: ***************************************************
      remarks: For ABUSE/SPAM/INTRUSION issues
      remarks: PLEASE CONTACT THROUGH LINK
      remarks: http://www.telefonicaonline.com/nemesys/
      remarks: or send mail to nemesys@telefonica.es
      remarks: any mail to adminis.ripe@telefonica.es will be ignored
      remarks: ***************************************************
      notify: adminis.ripe@telefonica.es
      mnt-by: MAINT-AS3352
      changed: adminis.ripe@telefonica.es 20000302
      changed: adminis.ripe@telefonica.es 20020530
      changed: administracion.ripe@telefonica-data.com 20030121
      source: RIPE

      route: 213.96.64.0/18
      descr: TTDNET (Red de servicios IP)
      origin: AS3352
      mnt-by: MAINT-AS3352
      mnt-routes: MAINT-AS3352
      mnt-lower: MAINT-AS3352
      changed: administracion.ripe@telefonica-data.com 20010306
      changed: administracion.ripe@telefonica-data.com 20020118
      changed: administracion.ripe@telefonica-data.com 20020313
      source: RIPE

      person: L Jimenez
      address: TELEFONICA DE ESPANA
      address: Emilio Vargas, 4
      address: 28043-MADRID
      address: SPAIN
      phone: +34 91 5846497
      fax-no: +34 91 5842650
      e-mail: adminis.ripe@telefonica.es
      nic-hdl: LJP5-RIPE
      remarks: ***************************************************
      remarks: For ABUSE/SPAM/INTRUSION issues
      remarks: PLEASE CONTACT THROUGH LINK
      remarks: http://www.telefonicaonline.com/nemesys/
      remarks: or send mail to nemesys@telefonica.es
      remarks: any mail to adminis.ripe@telefonica.es will be ignored
      remarks: ***************************************************
      notify: ah@telefonica.es
      changed: adminis.ripe@telefonica.es 20020530
      source: RIPE

      person: Francisco Lorenzo de Tuero
      address: TELEFONICA DE ESPANA
      address: Emilio Vargas, 4
      address: 28043-MADRID
      address: SPAIN
      phone: +34 91 5194446
      fax-no: +34 91 5846936
      remarks: ***************************************************
      remarks: For ABUSE/SPAM/INTRUSION issues
      remarks: PLEASE CONTACT THROUGH LINK
      remarks: http://www.telefonicaonline.com/nemesys/
      remarks: or send mail to nemesys@telefonica.es
      remarks: any mail to adminis.ripe@telefonica.es will be ignored
      remarks: ***************************************************
      e-mail: tecnic.ripe@telefonica.es
      nic-hdl: FLT14-RIPE
      notify: ah@telefonica.es
      changed: ah@telefonica.es 20020225
      changed: adminis.ripe@telefonica.es 20020530
      source: RIPE