实现Sock5代理

实现Sock5代理

有很多公司不能直接和Internet相连，必须通过代理和www连接，浏览、下载资料。

代理服务器支持的协议也有所不同，有支持Sock、HTTP代理的这样我们做的客户端软件就需要支持这些代理，使用户能够通过这些代理透过防火墙和外网相连，一般Sock分为Sock4和Sock5，这里我们只实现Sock5协议。

RFC1928描述了Socks协议的细节，告诉我们客户程序如何同Socks代理协商，取得透过该协议对外传输的途径。英文的URL为： http://www.ietf.org/rfc/rfc1928.txt，建议先了解以上链接内容后在阅读下文。另外给大家推荐学习协议的好地方： http://www.cnpaf.com中国协议分析网，有很多好东东，可以去看看。

下面说明一下实现的方法。

代理的实现方法实际就是Socket编程，只要通讯时遵循它们的协议就可以。首先理解它们的协议是关键。

示意图：

1.1    Sock5协议实现

1.1.1        Sock5协议内容

1．  客户端首先要与代理服务器连接，连接后要向代理发送版本号、认证方法、方法选择格式如下：

版本号（1字节） |  供选择的认证方法(1字节)  |  方法序列（1-255个字节长度）

如果你支持的版本为SOCK5那么版本号就为0x05；可供选择的方法是指你的协议支持几种认证方式，因为我们实现只支持一种所以就填0x01，如果你是两种就写0x02；认证方法序列包括（0x00为不需认证、0x02为需要用户名和密码认证，通常是这两种，如果想了解更多请参看Rfc1928）。

这样组合你的报文应该为：0x05 0x01 0x00

如果需要认证那么为：0x05 0x01 0x02

2．  代理接收到客户端的请求，会向客户端返回信息，格式为：

版本号 | 服务器选定的方法

如果服务器支持验证方式，返回的报文为：

0x05 0x02

3．  接下来根据服务器的验证方式，发送验证信息了，报文格式为：

0x01 | 用户名长度（1字节）| 用户名（长度根据用户名长度域指定） | 口令长度（1字节） | 口令（长度由口令长度域指定）

4．  服务器接收信息后进行验证，返回如下格式：

0x01 | 验证结果标志

验证结果标志：0x00表示验证成功，其他值均为错误码

1.1.2        Sock5协议实现

根据上面所述的步骤和协议内容，就可以实现SOCK5代理了。下面我给出我写的实现SOCKT5代理的函数代码和注释，供参考（delphi6＋win2K＋sp4调试通过，代理服务器用的是CCProxy6.0）

function TBZSock5ProxyApi.SetProxy(ASocket: Pointer): Integer;
var
  proxyUser, proxyPwd: String;
  bIsValid: Boolean;
  sock:  ^ TSocket;
  sockServer: TSockAddrIn;
  command: array [ 0 .. 9 ] of Byte;
  re, len, ulen, plen: Integer;
//   buffer: PByte;
  buffer: array [ 0 .. 1023 ] of Byte;
begin
  sock : =  ASocket;
   if  FProxyParam.GetServer  =   ''  then
  begin
    Result : =   0 ;
    Exit;
  end
   else
  begin
    Result : =   0 ;
    sock ^  : =  socket(AF_INET, SOCK_STREAM,  0 );
     if  sock ^   =  INVALID_SOCKET then
    begin
      Result : =   1 ;
      Exit;
    end;
 
    sockServer.sin_family : =  AF_INET;