学步园

Imports System.Net<br /> Imports System.Net.Sockets<br /> Imports System.Text</p> <p>Public Class SockProxy<br /> Private m_RequireAuthorize As Boolean = False<br /> Private m_user As String = String.Empty<br /> Private m_pass As String = String.Empty</p> <p> ''' <summary><br /> ''' 读取或设置代理是否需要认证<br /> ''' </summary><br /> ''' <value>是否要认证</value><br /> ''' <returns></returns><br /> ''' <remarks></remarks><br /> Property RequireAuthorize() As Boolean<br /> Get<br /> Return m_RequireAuthorize<br /> End Get<br /> Set(ByVal value As Boolean)<br /> m_RequireAuthorize = value<br /> End Set<br /> End Property</p> <p> ''' <summary><br /> ''' 读取或设置代理的用户名<br /> ''' </summary><br /> ''' <value>用户名</value><br /> ''' <returns></returns><br /> ''' <remarks></remarks><br /> Property Username() As String<br /> Get<br /> Return m_user<br /> End Get<br /> Set(ByVal value As String)<br /> Me.m_user = value<br /> End Set<br /> End Property</p> <p> ''' <summary><br /> ''' 读取或设置代理的密码<br /> ''' </summary><br /> ''' <value>密码</value><br /> ''' <returns></returns><br /> ''' <remarks></remarks><br /> Property Password() As String<br /> Get<br /> Return Me.m_pass<br /> End Get<br /> Set(ByVal value As String)<br /> Me.m_pass = value<br /> End Set<br /> End Property</p> <p> ''' <summary><br /> ''' 连接代理<br /> ''' </summary><br /> ''' <param name="strRemoteHost">要访问的IP</param><br /> ''' <param name="iRemotePort">要访问的端口</param><br /> ''' <param name="sProxyServer">代理的socket</param><br /> ''' <returns>是否成功</returns><br /> ''' <remarks></remarks><br /> Function ConnectProxyServer(ByVal strRemoteHost As String, ByVal iRemotePort As Integer, ByVal sProxyServer As socket) As Boolean<br /> Dim bySock5Send(9) As Byte<br /> Dim bySock5Receive(9) As Byte<br /> '构造Socks5代理服务器第一连接头(无用户名密码)<br /> bySock5Send(0) = 5<br /> bySock5Send(1) = 1<br /> bySock5Send(2) = IIf(Me.RequireAuthorize, 2, 0)</p> <p> '发送Socks5代理第一次连接信息<br /> sProxyServer.Send(bySock5Send, 3, SocketFlags.None)<br /> Dim iRecCount As Integer = sProxyServer.Receive(bySock5Receive, bySock5Receive.Length, SocketFlags.None)</p> <p> '用户验证<br /> If bySock5Receive(1) = 2 And Me.RequireAuthorize = False Then<br /> Throw New Exception("代理服务器需要进行身份确认。")<br /> ElseIf bySock5Receive(1) = 2 Then</p> <p> '构造Socks5代理服务器第一连接头(无用户名密码)<br /> Dim bUser() As Byte = Encoding.Default.GetBytes(Username)<br /> Dim bPass() As Byte = Encoding.Default.GetBytes(Password)<br /> Dim dl As Integer = 3 + bUser.Length + bPass.Length<br /> ReDim bySock5Send(dl - 1)<br /> bySock5Send(0) = 5<br /> bySock5Send(1) = bUser.Length<br /> Array.Copy(bUser, 0, bySock5Send, 2, bUser.Length)<br /> bySock5Send(2 + bUser.Length) = bPass.Length<br /> Array.Copy(bPass, 0, bySock5Send, 3 + bUser.Length, bPass.Length)</p> <p> '发送Socks5代理第一次连接信息<br /> sProxyServer.Send(bySock5Send, dl, SocketFlags.None)<br /> ReDim bySock5Receive(100)<br /> iRecCount = sProxyServer.Receive(bySock5Receive, bySock5Receive.Length, SocketFlags.None)</p> <p> If (iRecCount < 2) Then<br /> sProxyServer.Close()<br /> Throw New Exception("不能获得代理服务器正确响应。")<br /> End If</p> <p> If (bySock5Receive(0) <> 5 Or (bySock5Receive(1) <> 0 And bySock5Receive(1) <> 2)) Then<br /> sProxyServer.Close()<br /> Throw New Exception("代理服务其返回的响应错误。")<br /> End If<br /> If bySock5Receive(1) = 0 Then<br /> ReDim bySock5Send(9)<br /> bySock5Send(0) = 5<br /> bySock5Send(1) = 1<br /> bySock5Send(2) = 0<br /> bySock5Send(3) = 1<br /> Dim ipAdd As IPAddress = Dns.GetHostAddresses(strRemoteHost)(0)<br /> Dim strIp As String = ipAdd.ToString<br /> Dim strAryTemp() As String = strIp.Split("."c)</p> <p> bySock5Send(4) = Convert.ToByte(strAryTemp(0))<br /> bySock5Send(5) = Convert.ToByte(strAryTemp(1))<br /> bySock5Send(6) = Convert.ToByte(strAryTemp(2))<br /> bySock5Send(7) = Convert.ToByte(strAryTemp(3))</p> <p> bySock5Send(8) = iRemotePort / 256<br /> bySock5Send(9) = iRemotePort Mod 256</p> <p> sProxyServer.Send(bySock5Send, bySock5Send.Length, SocketFlags.None)<br /> iRecCount = sProxyServer.Receive(bySock5Receive, bySock5Receive.Length, SocketFlags.None)<br /> If (bySock5Receive(0) <> 5 Or bySock5Receive(1) <> 0) Then<br /> sProxyServer.Close()<br /> Throw New Exception("第二次连接Socks5代理返回数据出错。")<br /> End If<br /> Return True<br /> Else<br /> If (bySock5Receive(1) = 2) Then<br /> Throw New Exception("代理服务器需要进行身份确认。")<br /> Else<br /> Return False<br /> End If</p> <p> End If</p> <p> End If</p> <p> End Function</p> <p>End Class<br />