现在的位置: 首页 > 综合 > 正文

Delphi Socket 编程（7）

2018年02月06日 ⁄ 综合 ⁄ 共 8747字 ⁄ 字号 小 中 大 ⁄ 评论关闭

一:前言

二: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

返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞