"Proxy" erstellen

Morifize · 8. November 2010, 16:06

Hi,

ich würde gerne ein Proxy (für IE, Mozilla, ...) erstellen.

Kennt jemand ein gutes Tutorial?
Oder weiß jemand wie das geht?

Ich habe bis jetzt nur das hier gefunden vbarchiv.net/workshop/workshop…-eines-proxy-servers.html das braucht aber leider WinSock und das gibt es ja nicht mehr in VB.

LG
Morifize

*Topic verschoben*

Myrax · 8. November 2010, 16:09

Meinst du Server oder Client?
Ist ein Unterschied.
Hier ein Link zu Wikipedia: Klick Mich!

Morifize · 8. November 2010, 16:12

Eigentlich beides

Ich möchte bestimmte URL's blocken/entblocken und das geht doch am einfachsten mit nem "Proxy" oder?

LG
Morifize

jvbsl · 8. November 2010, 16:17

c-sharpcorner.com/UploadFile/p…05001036AM/web_proxy.aspx

der Client ist ja dann eigentlich der Browser

Myrax · 8. November 2010, 16:17

Also: was definierst du unter blocken/entblocken? Wenn du z.B Seiten Umleiten willst, müsstest du szs. eine Manipulierte hosts-Datei in das System schmuggeln.
Hier bei Semper-Video wird erklärt wie das geht (ich hab bei Sempervideo einfach nach Binder gesucht): sempervideo.de/?tag=binder
Viel spass beim Anschauen!

/€: Das war der jvbsl wieder mal schneller

/€²: Hier, hab den Code mal von C# nach VB.NET übersetzen lassen!

VB.NET-Quellcode

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Threading
Namespace WebProxy2
Class WebProxy2
Private clientSocket As Socket
Private read As [Byte]() = New Byte(1023) {}
Private Buffer As [Byte]() = Nothing
Private ASCII As Encoding = Encoding.ASCII
Const HTTP_VERSION As String = "HTTP/1.0"
Const CRLF As String = vbCr & vbLf
Private RecvBytes As [Byte]() = New [Byte](4095) {}
Public Sub New(socket As Socket)
Me.clientSocket = socket
End Sub
Public Sub run()
Dim clientmessage As [String] = " ", sURL As [String] = " "
Dim bytes As Integer = readmessage(read, clientSocket, clientmessage)
If bytes = 0 Then
Return
End If
Dim index1 As Integer = clientmessage.IndexOf(" "C)
Dim index2 As Integer = clientmessage.IndexOf(" "C, index1 + 1)
If (index1 = -1) OrElse (index2 = -1) Then
Throw New IOException()
End If
Console.WriteLine("Connecting to Site: {0}", clientmessage.Substring(index1 + 1, index2 - index1))
Console.WriteLine("Connection from {0}", clientSocket.RemoteEndPoint)
Dim part1 As String = clientmessage.Substring(index1 + 1, index2 - index1)
Dim index3 As Integer = part1.IndexOf("/"C, index1 + 8)
Dim index4 As Integer = part1.IndexOf(" "C, index1 + 8)
Dim index5 As Integer = index4 - index3
sURL = part1.Substring(index1 + 4, (part1.Length - index5) - 8)
Try
Dim IPHost As IPHostEntry = Dns.Resolve(sURL)
Console.WriteLine("Request resolved: ", IPHost.HostName)
Dim aliases As String() = IPHost.Aliases
Dim address As IPAddress() = IPHost.AddressList
Console.WriteLine(address(0))
Dim sEndpoint As New IPEndPoint(address(0), 80)
Dim IPsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
IPsocket.Connect(sEndpoint)
If IPsocket.Connected Then
Console.WriteLine("Socket connect OK")
End If
Dim [GET] As String = clientmessage
Dim ByteGet As [Byte]() = ASCII.GetBytes([GET])
IPsocket.Send(ByteGet, ByteGet.Length, 0)
Dim rBytes As Int32 = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0)
Console.WriteLine("Recieved {0}", +rBytes)
'Buffer = RecvBytes;
Dim strRetPage As [String] = Nothing
strRetPage = strRetPage & ASCII.GetString(RecvBytes, 0, rBytes)
While rBytes > 0
rBytes = IPsocket.Receive(RecvBytes, RecvBytes.Length, 0)
strRetPage = strRetPage & ASCII.GetString(RecvBytes, 0, rBytes)
End While
IPsocket.Shutdown(SocketShutdown.Both)
IPsocket.Close()
sendmessage(clientSocket, strRetPage)
Catch exc2 As Exception
Console.WriteLine(exc2.ToString())
End Try
End Sub
Private Function readmessage(ByteArray As Byte(), ByRef s As Socket, ByRef clientmessage As [String]) As Integer
Dim bytes As Integer = s.Receive(ByteArray, 1024, 0)
Dim messagefromclient As String = Encoding.ASCII.GetString(ByteArray)
clientmessage = DirectCast(messagefromclient, [String])
Return bytes
End Function
Private Sub sendmessage(s As Socket, message As String)
Buffer = New [Byte](message.Length) {}
Dim length As Integer = ASCII.GetBytes(message, 0, message.Length, Buffer, 0)
s.Send(Buffer, length, 0)
End Sub
Private Shared Sub Main(args As String())
Const port As Integer = 8889
Dim tcplistener As New TcpListener(port)
Console.WriteLine("Listening on port {0}", +port)
tcplistener.Start()
While True
Dim socket As Socket = tcplistener.AcceptSocket()
Dim webproxy As New WebProxy2(socket)
Dim thread As New Thread(New ThreadStart(AddressOf webproxy.run))
thread.Start()
End While
End Sub
End Class
End Namespace

Sollte eigentlich C&P sein. Viel spass!

Morifize · 8. November 2010, 16:38

Wow, vielen, vielen Dank :thumbsup:

Ich habe dann jetzt erstmal die Klasse erstellt. Wie kann ich die denn dann von meiner Anwendung aus ausüben lassen? Das geht anders als sonst

jvbsl · 8. November 2010, 16:50

die anwendung muss einfach laufen(kann auch auf dem aktuellen PC sein), dann musst du die Procies von Windows und den Browsern ändern(localhost sollte funktionieren, wenn das Programm auf dem aktuellen PC läuft...)

Morifize · 8. November 2010, 16:58

Habs hinbekommen

Aber es kommt jetzt ne Fehlermeldung bei:

VB.NET-Quellcode

Private Function readmessage(ByVal ByteArray As Byte(), ByRef s As Socket, ByRef clientmessage As [String]) As Integer
Dim bytes As Integer = s.Receive(ByteArray, 1024, 0)
Dim messagefromclient As String = Encoding.ASCII.GetString(ByteArray)
clientmessage = DirectCast(messagefromclient, [String])
Return bytes
End Function

"NullReferenceException wurde nicht behandelt" (bei Dim bytes As Integer = ...)

Aber das Stimm doch alles

Wo liegt der Fehler?

LG
Morifize

jvbsl · 8. November 2010, 17:17

Dim socket As Socket = tcplistener.AcceptSocket()
Dim webproxy As New WebProxy2(socket)

setz da mal Haltepunkte und guck ob socket hier deklariert ist(sollte erst dahin kommen, wenn sich ein Client verbindet - z.B. der IE)...

Morifize · 8. November 2010, 17:22

Hi,

ne, auch wenn ich Haltepunkte setzte kommt noch der Fehler

Woran könnte es noch liegen?

LG
Morifize

Morifize · 9. November 2010, 13:23

Niemand ne Idee?

jvbsl · 9. November 2010, 13:30

ich will nicht wissen, ob der Fehler kommt, sondern ob die socket Variable dort bereits Nothing ist...

Morifize · 9. November 2010, 13:55

Hi,

ich habe grade was gefunden:

VB.NET-Quellcode

Sub New()
' TODO: Complete member initialization
End Sub

Könnte das damit was zu tun haben? Wenn ja, was müsste denn da hin?

LG
Morifize

jvbsl · 9. November 2010, 13:59

könntest du noch bitte etwas Code darüber und darunter posten, weil so seh ich nicht, wo das dazu gehören könnte...

Morifize · 9. November 2010, 14:01

Hi,

hier ein bisschen mehr Code:

VB.NET-Quellcode

Public Sub New(ByVal socket As Socket)
Me.clientSocket = socket
End Sub
Sub New()
' TODO: Complete member initialization
End Sub
Public Sub run()
Dim clientmessage As [String] = " ", sURL As [String] = " "
Dim bytes As Integer = readmessage(read, clientSocket, clientmessage)
If bytes = 0 Then
Return
End If
Dim index1 As Integer = clientmessage.IndexOf(" "c)
Dim index2 As Integer = clientmessage.IndexOf(" "c, index1 + 1)
If (index1 = -1) OrElse (index2 = -1) Then
Throw New IOException()
End If
Console.WriteLine("Connecting to Site: {0}", clientmessage.Substring(index1 + 1, index2 - index1))
Console.WriteLine("Connection from {0}", clientSocket.RemoteEndPoint)

Und starten tue ich so:

VB.NET-Quellcode

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim cls As New WebProxy2.WebProxy2()
cls.run()
End Sub

LG
Morifize

jvbsl · 9. November 2010, 14:06

Starten tust du so:

VB.NET-Quellcode

Const port As Integer = 8889
Dim tcplistener As New TcpListener(port)
Console.WriteLine("Listening on port {0}", +port)
tcplistener.Start()
While True
Dim socket As Socket = tcplistener.AcceptSocket()
Dim webproxy As New WebProxy2(socket)
Dim thread As New Thread(New ThreadStart(AddressOf webproxy.run))
thread.Start()
End While

Morifize · 9. November 2010, 14:16

Hi

also wenn ich Deinen Code so benutze wie er ist, kommen Fehlermeldungen, wenn ich die Besietige kommt zwar keine Fehlermeldung mehr (auch im gestarteten Programm) Aber es öffnet sich auch keine Console, ...

VB.NET-Quellcode

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Const port As Integer = 8889
Dim tcplistener As New Net.Sockets.TcpListener(port)
Console.WriteLine("Listening on port {0}", +port)
tcplistener.Start()
While True
Dim socket As Net.Sockets.Socket = tcplistener.AcceptSocket()
Dim webproxy As New WebProxy2.WebProxy2(socket)
Dim thread As New Threading.Thread(New ThreadStart(AddressOf webproxy.run))
thread.Start()
End While
End Sub

LG
Morifize

jvbsl · 9. November 2010, 14:24

das liegt daran, dass du eine WindowsForms Anwendung hast, da läuft das ganze auch nicht in einer Konsolenanwendung ab;)

Außerdem müsstest du den Code aus dem Button, wohl am besten in einen extra Thread packen, da ansonsten das gesamte Programm einfriert(einfacher wäre aber auch bei der Kommunikation mit dem Benutzer eine Konsolenanwendung...)

Morifize · 9. November 2010, 14:31

Sorry, ich bin blöd

theoretisch müsste ich dann wenn ich das Programm gestartet habe und dann IE öffne mit dem port "8889" ins Internet gehen, oder? Also über den Proxy. Wenn ich aber im CMD "netstat" eigebe erscheint nicht der Port, da erscheint mein ganz normaler :wacko:

Fehlt da vielleicht doch nicht noch was in der "Sub new"? Da steht ja auch "'TO DO ..."

Ich habe den Code auch nochmal in der Konsole ausprobiert. Da kommt zwar dann "Listening on port 8889" aber sonst auch nix

LG
Morifize

jvbsl · 9. November 2010, 14:42

das Todo interessiert nicht, da du den anderen Konstruktor ja verwendest

du musst den Proxy im IE und Co. auf localhost setzen und den Port auf den entsprechenden...

Wenn du den Code in eine Konsole gepackt hast(und den Proxy ausführst), mit dem IE connectest, dann sollte dir das in der Konsole deutlich gemacht werden...

"Proxy" erstellen

"Proxy" erstellen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben