Delphi Socket 编程(7)

来源:互联网 发布:便宜已备案域名出售 编辑:程序博客网 时间:2024/03/29 17:16

一:前言

二:Socket5客户端基于Tcp协议的实现

该程序的原理如下:

       你的客户端程序(发送数据)------>Socket5代理服务器(中转数据)----->远程目的主机(显示数据).所以你必须拥有一个Socket5代理服务器软件,强烈推荐朱尧坤先生写的CCproxy,下载地址http://www.youngzsoft.com/.


新建一个工程,放上四个Label,五个Edit,一个ServerSock控件,一个按钮和一个Memo控件.在uses里添加Winsock.窗口初始化的时候初始化各个控件.

procedure TForm1.FormCreate(Sender: TObject); var TempWSAData:TWSAData; begin Label1.Caption:='Socks5代理服务器地址'; Edit1.Text:='127.0.0.1'; Label2.Caption:='Socks5代理服务器端口'; Edit2.Text:='1080'; Label3.Caption:='远程服务器地址'; Edit3.Text:='127.0.0.1'; Label4.Caption:='远程服务器端口'; Edit4.Text:='9999'; Edit5.Text:='输入要发送的字符'; Button1.Caption:='测试'; ServerSocket1.Port:=9999; ServerSocket1.Active:=True; Memo1.Lines.Clear; //初始化Winsock if (WSAStartup(MAKEWORD(2,0),TempWSAData)<>0) then begin Application.MessageBox('程序初始化失败!',Pchar(Application.Title),MB_ICONINFORMATION); Application.Terminate; end else Memo1.Lines.Add('程序初始化成功!'); end; //点Button1的时候通过代理服务器发送数据 procedure TForm1.Button1Click(Sender: TObject); var   MyClientSock:TSocket;   Socket5Proxy:TSockAddr; TargetSock:TSockAddr; MySocketBuf:array[0..256]of byte; SendStrBuf:array[0..1024*16] of char; PcharSocketAddr:PChar; Re,i:integer; begin Memo1.Lines.Add('----------------------------'); //1:创建Socket MyClientSock:=socket(AF_INET,SOCK_STREAM,0); if(MyClientSock=INVALID_SOCKET) then begin Memo1.Lines.Add('创建Socket失败!'); Exit; end else Memo1.Lines.Add('成功创建socket.'); //2:连接Socket5代理服务器 ZeroMemory(@Socket5Proxy,sizeof(Socket5Proxy)); Socket5Proxy.sin_family := AF_INET; GetMem(PcharSocketAddr,Length(Edit1.Text)+1); ZeroMemory(PcharSocketAddr,Length(Edit1.Text)+1); StrPCopy(PcharSocketAddr,Edit1.Text); Socket5Proxy.sin_addr.S_addr :=inet_addr(PcharSocketAddr); FreeMem(PcharSocketAddr); Socket5Proxy.sin_port := htons(StrToInt(Edit2.Text)); Re:=connect(MyClientSock,Socket5Proxy,sizeof(Socket5Proxy)); if Re = SOCKET_ERROR then begin Memo1.Lines.Add('连接代理服务器错误.错误代码:'+IntToStr(WSAGetLastError())); closesocket(MyClientSock); Exit; end else Memo1.Lines.Add('连接代理服务器成功!'); //3:Socket5协议验证与协商 MySocketBuf[0] := $05; MySocketBuf[1] := $01;MySocketBuf[2] := $00; re := send(MyClientSock, MySocketBuf, 3, 0);//发送格式化消息 if re=-1 then begin Memo1.Lines.Add('该服务器不支持Socket5代理!'); closesocket(MyClientSock); Exit; end; re:=recv(MyClientSock,MySocketBuf,257,0); //接收返回结果 if re<2 then begin Memo1.Lines.Add('该服务器不支持Socket5代理!'); closesocket(MyClientSock); Exit; end; if MySocketBuf[1]<>$00 then begin Memo1.Lines.Add('该服务器需要身份验证!'); closesocket(MyClientSock); Exit; end; Memo1.Lines.Add('与Socket5代理服务器协商成功!'); //4:发送远程主机信息并连接 ZeroMemory(@TargetSock,Sizeof(TargetSock)); Getmem(PcharSocketAddr,length(edit3.text)+1); ZeroMemory(PcharSocketAddr,length(edit3.text)+1); StrPcopy(PcharSocketAddr,edit3.text); TargetSock.sin_addr.s_addr := inet_addr(PcharSocketAddr); TargetSock.sin_port := htons(strtoint(edit4.text)); TargetSock.sin_family := AF_INET; MySocketBuf[0] := $05;MySocketBuf[1] := $01; MySocketBuf[2] :=$00; MySocketBuf[3] := $01; CopyMemory(@MySocketBuf[4],@TargetSock.sin_addr,4); CopyMemory(@MySocketBuf[8],@TargetSock.sin_port,2); re:=send(MyClientSock,MySocketBuf,10,0); if re=-1 then begin Memo1.Lines.Add('发送远程主机信息失败!'); closesocket(MyClientSock); Exit; end; re :=recv(MyClientSock,MySocketBuf,1024,0); if re=-1 then begin Memo1.Lines.Add('接收返回信息失败!'); closesocket(MyClientSock); Exit; end; if MySocketBuf[1]<>$00 then begin Memo1.Lines.Add('连接远程主机失败!'); closesocket(MyClientSock); Exit; end; Memo1.Lines.Add('连接远程主机成功!'); //5:发送数据 for i:=0 to Length(Edit5.Text)-1 do SendStrBuf[i]:=Edit5.Text[i+1]; re:=send(MyClientSock,SendStrBuf,Strlen(SendStrBuf),0); if re=-1 then begin Memo1.Lines.Add('发送数据到远程主机失败!'); closesocket(MyClientSock); Exit; end else Memo1.Lines.Add('发送数据到远程主机成功!'); //6:关闭Socket Memo1.Lines.Add('关闭Socket!'); Memo1.Lines.Add('----------------------------'); closesocket(MyClientSock); end; 

 

放上一个ServerSocket控件是用来接收信息并显示出来的.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
  TempStr:String;
begin
  TempStr:=Socket.ReceiveText;
  Application.MessageBox(Pchar(TempStr),'接收信息',0);
end;

程序退出的时候要做一些工作.


procedure TForm1.FormDestroy(Sender: TObject);
begin
  WSACleanUP();//Winsocket释构
end;
效果图如下,运行CCproxy来显示连接信息:

 

也就是说,只要我们和代理服务器握手和协商成功后,就可以直接把代码服务器看成透明不存在的了,把代理服务器看作是远程主机即可.我们上面的程序只是针对没有用户验证的情况.如果代理服务器需要验证的话只要修改一下握手协商过程即可.想更加深入了解的朋友点这里下载一个CSocksifiedSocket类(VC代码).

 

:代理服务器原理-----一个简单的QQ数据转发程序

上一节我们讲述了Socket5代理编程的一些流程,本节将以一个简单的数据转发例子说明代理服务器的工作原理,为下一节的Socket5代理服务器编程做好准备。

什么是代理服务器呢?

简单的说,就是数据转发程序,它的工作流程如下:

       需要代理的程序A--->代理服务器--->目的服务器B。代理服务器接收A发送的数据并发送给B,同样,接收B发送的数据发送给A。A与B之间互相通信的时候都是直接跟代理服务器打交道而已。

      网上曾经有一个IP电话的代理程序,就是用来转发UDP数据的。

比如说你属于局域网接入INTENET,也就是说你是没有动态IP的,这种情况下别人如何将数据发送到你的电脑呢?一个方法是用Socket Tcp编程,你先连接对方,不过这种连接要求对方有动态IP地址。另一种方法就是利用代理了。当然,还有其它方法,如果有时间我们会在后面提一提。

      这个例子是这样实现的:比如说你在局域网内的IP地址为192.168.0.77,你连接入INTENET的主机动态IP地址为202.98.26.74,那么你先在主机运行代理程序,并在Edit1填上你的IP地址192.168.0.77,对方将数据发送到主机202.98.26.74端口6660,主机再将数据转发到你的电脑。该程序代码如下:

const MaxPackets=160; var PacketLen,PlayPackets:integer; ok:integer=0; mPackets:integer=1; sPackets:integer=1; MBuffer:array[1..160,1..2000] of char; //8 Seconds procedure TForm1.FormCreate(Sender: TObject); begin NMUDP1.ReportLevel := Status_Basic; NMUDP1.LocalPort := 6660;//本地监听端口 NMUDP1.RemotePort := 6661;//远程接收数据端口 PlayPackets:=0; end; procedure TForm1.Edit1Change(Sender: TObject); begin NMUDP1.Remotehost:=edit1.text;//远程主机的IP地址 end; procedure TForm1.NMUDP1DataReceived(Sender: TComponent;NumberBytes: Integer; FromIP: String; Port:Integer); var mdata:array[1..2000] of char; k:integer; begin PacketLen:=NumberBytes; NMUDP1.ReadBuffer(mdata,NumberBytes);//接收数据 for k:=1 to NumberBytes do MBuffer[mPackets mod MaxPackets+1][k]:=mdata[k]; label2.caption:='Packets:'+inttostr(mPackets); inc(mPackets); NMUDP1.SendBuffer(mdata,NumberBytes);//将数据发送到目的主机 end;  

 

上面的程序简单的实现了一对一连接数据单向发送的转发.修改一下即可做成双向数据转发.

下面我们就以一个简单QQ数据转发程序为例说明一下.该例子分为服务端和客户端两个程序,要求运行服务端的电脑必须有动态IP地址.

服务端用到一个TServerSocket和TNMUDP。ServerSocket1接收到客户端发送的数据通过NMUDP1发送到滕讯服务器,NMUDP1接收到滕讯服务器的数据再通过ServerSocket1发送到客户端。代码如下:

procedure TForm1.FormCreate(Sender: TObject); begin NMUDP1.LocalPort:=4000;//本地端口:接收滕讯服务器发回来的信息 NMUDP1.RemoteHost:='202.104.129.251';//远程主机:滕讯服务器 NMUDP1.RemotePort:=8000;//远程端口 ServerSocket1.Port:=9000; ServerSocket1.Active:=True; end; procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.SimpleText:='远程主机'+Socket.RemoteAddress+'成功建立连接!'; end; procedure TForm1.ServerSocket1ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin StatusBar1.SimpleText:='Socket错误!'; ErrorCode:=0; end; procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.SimpleText:='远程主机'+Socket.RemoteAddress+'断开连接!'; end; procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var Len:integer; rec_bytes: integer; rec_Buffer: array[0..8191] of char; begin try Len:=Socket.ReceiveLength; rec_bytes:=socket.ReceiveBuf(rec_buffer,Len); NMUDP1.SendBuffer(rec_buffer,rec_bytes); except end; end; procedure TForm1.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var C:array[1..8192] of Char; I:Integer; begin NMUDP1.ReadBuffer(C,I); //收到的字符定义给c if i=0 then Exit; if ServerSocket1.Socket.ActiveConnections>0 then ServerSocket1.Socket.Connections[0].SendBuf(c,i); end; 客户端用到一个TClientSocket和TNMUDP。NMUDP1接收到QQ的数据,通过ClientSocket1发送给服务端,ClientSocket1接收到服务端的数据再通过NMUDP1转发给QQ。代码如下: procedure TForm1.FormCreate(Sender: TObject); begin NMUDP1.LocalPort:=8000;//打开端口给本地QQ连接.可以随便改变 NMUDP1.RemoteHost:='127.0.0.1';//发送信息给本地的QQ时候用,不能改变 NMUDP1.RemotePort:=4000;//发送信息给本地的QQ端口.不能改变 end; procedure TForm1.Button1Click(Sender: TObject); begin ClientSocket1.Address:=Edit1.Text; ClientSocket1.Port:=9000; ClientSocket1.Active:=True; end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.SimpleText:='成功连接'; end; procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket); begin StatusBar1.SimpleText:='断开连接'; end; procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin StatusBar1.SimpleText:='Socket错误'; ErrorCode:=0; end; procedure TForm1.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var C:array[1..8192] of Char; I:Integer; begin NMUDP1.ReadBuffer(C,I); try if ClientSocket1.Active then ClientSocket1.Socket.SendBuf(c,i); except end; end; procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var Len:integer; rec_bytes: integer; rec_Buffer: array[0..8191] of char; begin try Len:=Socket.ReceiveLength; rec_bytes:=socket.ReceiveBuf(rec_buffer,Len); NMUDP1.SendBuffer(rec_buffer,rec_bytes); except end; end; 

 

使用说明和演示程序在http://tty.yyun.net/lovejingtao/ocx/QQProxyClient.htm。前面提到局域网与局域网之间不用代理服务器通信。也就是
局域网电脑A---》拨号主机C--》INTENET
局域网电脑B---》拨号主机D--》INTENET


如何不用代理服务器实现A与B通信呢?利用映射原理即可,由于路由的缘故,C和D会自动转发数据到A和B的,我的一个朋友很早就试验成功了,可惜的是该原理只能用于UDP协议。


五:Socket5代理服务器的设计

有个上面两讲的内容,大家应该很容易设计出自己的Socket5代理服务器了。提示:回去看第一节,验证的时候客户端会把登陆地址和密码发给服务器的。这个就留给大家作为作业吧:)这里是答案


本篇文章来源于 黑基网-中国最大的网络安全站点 原文链接:http://www.hackbase.com/tech/2006-03-13/29900.html

原创粉丝点击