Proxy

Übersicht

BlitzBasic

Allgemein

	Appart Betreff: Proxy	Do, Jun 11, 2009 14:20 Antworten mit Zitat
Hallo Ich wollte heute mal etwas ausprobieren. Ich wollte meinen eigenen Proxy server erstellen also auf dem localhost und dann bei firefox als proxy den local host angeben. Ich habe auch schon folgenden source jedoch kommt immer ein Fehler im Firefox und zwar dass ich eine ungültige Kompression verwende. Hier mal der Source Code: [AUSKLAPPEN] [EINKLAPPEN] TCPServer = CreateTCPServer( 80 ) Dim daten$(999) Repeat Stream = AcceptTCPStream(TCPServer) If Stream Repeat in$ = ReadLine(Stream) If Instr(in$,"Host:",1) host$ =in$ host$ = Replace(host$,"Host:","") host$ = Replace(host$," ","") EndIf anz = anz + 1 daten$(anz) = in$ Until in$ = "" tcp = OpenTCPStream(host$,80) For anzs = 0 To anz If Not daten$(anzs) ="" WriteLine tcp, daten$(anzs) EndIf DebugLog daten$(anzs) Next WriteLine tcp ,"" While Not Eof(tcp) Readin$ = ReadLine(tcp) DebugLog Readin$ WriteLine Stream,Readin$ Wend WriteLine Stream,"" CloseTCPStream Stream EndIf Forever End MFG Appart

Appart

Betreff: Proxy

Do, Jun 11, 2009 14:20
Antworten mit Zitat

Hallo
Ich wollte heute mal etwas ausprobieren. Ich wollte meinen eigenen Proxy server erstellen also auf dem localhost und dann bei firefox als proxy den local host angeben. Ich habe auch schon folgenden source jedoch kommt immer ein Fehler im Firefox und zwar dass ich eine ungültige Kompression verwende.
Hier mal der Source

Code: [AUSKLAPPEN]

TCPServer = CreateTCPServer( 80 )

Dim daten$(999)

Repeat
Stream = AcceptTCPStream(TCPServer)
If Stream

Repeat

in$ = ReadLine(Stream)

If Instr(in$,"Host:",1)
host$ =in$
host$ = Replace(host$,"Host:","")
host$ = Replace(host$," ","")
EndIf

anz = anz + 1

daten$(anz) = in$

Until in$ = ""

tcp = OpenTCPStream(host$,80)

For anzs = 0 To anz
If Not daten$(anzs) =""
WriteLine tcp, daten$(anzs)
EndIf
DebugLog daten$(anzs)

Next
WriteLine tcp ,""

While Not Eof(tcp)
Readin$ = ReadLine(tcp)
DebugLog Readin$
WriteLine Stream,Readin$

Wend
WriteLine Stream,""

CloseTCPStream Stream
EndIf

Forever
End

MFG Appart

	Thunder	Fr, Jun 12, 2009 23:04 Antworten mit Zitat
Also bei mir funktioniert es mit dem IE, nach einer änderung des Ports fast perfekt. Ich hab den Port 9557 genommen. Vll. hilft dir das weiter.
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Fr, Jun 12, 2009 23:04
Antworten mit Zitat

Also bei mir funktioniert es mit dem IE, nach einer änderung des Ports fast perfekt. Ich hab den Port 9557 genommen. Vll. hilft dir das weiter.

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit