ADSL/VDSL

Bajarse primera beta para forzar PUTA-Proxy de actualisar

BocaDePez 25 enero 2003 12:31

⋮

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 está cerrado a nuevas respuestas. Abre un nuevo tema para retomar la conversación.

BocaDePez 25 enero 2003 13:18

⋮

% This is the RIPE Whois server.
% The objects are in RPSL format.
%
% Rights restricted by copyright.
% See (link roto)

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: 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: 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: 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

✖

DeliriumT 26 enero 2003 09:40

⋮

Oye, solo para estár seguro... estás diciendo que después de usar un rato el programa este, la Timo te ha escaneado???? :-| :-| :-|

DeliriumT

✖

Pagasarri 26 enero 2003 10:32

⋮

Es normal que no funcione en XP? O me tengo que empezar a preocupar?

✖

Shark 26 enero 2003 13:55

⋮

Segun he podido apreciar cuando he estado probando en el emulador, he necesitado las runtimes de visual basic 6 y mswinsck.ocx

Pagasarri 25 enero 2003 14:58

⋮

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

Gracias

Shark 25 enero 2003 16:26 ✎

⋮

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 (link roto) 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: 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)

✖

Shark 25 enero 2003 16:41

⋮

Contraseña cambiada xDDD

DeliriumT 26 enero 2003 09:43

⋮

JEJEJEE, no has sido el único... nunca se sabe, y menos por Internet. ;)

DeliriumT

✖

Shark 26 enero 2003 13:35

⋮

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

✖

Beijing 27 enero 2003 18:57

⋮

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

✖

Shark 28 enero 2003 05:19

⋮

✖

Beijing 28 enero 2003 14:18

⋮

Scim 28 enero 2003 11:09

⋮

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