DelphiSockets.pas单元中TIpSocket的Bug

原作者: [db:作者] 来自: [db:来源] 收藏邀请

　　由于最近在看UDP打洞，本着力求精简，不用三方控件的原则下，折腾了Sockets.pas这个单元。在弄清如何用Sockets单元中类执行udp server的功能时，发现了一个小BUG。

BUG描述:

　　无法判断UDP数据包是谁发来的。这个BUG存在于TIpSocket类的ReceiveFrom方法中，功能是从当前的Socket中接收数据包，并可以返回对方的TSockAddr,在UDP接收中，这个很重要，因为UDP需要知道数据包是从哪里发送来的。

　　此函数的实现为：

function TIpSocket.ReceiveFrom(var buf; bufsize: Integer; ToAddr: TSockAddr; var len: Integer; flags: Integer): Integer;
begin
{$IFDEF MSWINDOWS}
  Result := ErrorCheck(WinSock.recvfrom(FSocket, buf, bufsize, flags, ToAddr, len));
{$ENDIF}
{$IFDEF LINUX}
  Result := ErrorCheck(Libc.recvfrom(FSocket, buf, bufsize, flags, @ToAddr, @len));
{$ENDIF}
if Result <> SOCKET_ERROR then
    DoReceive(pchar(@Buf), Result);
end;

可以发现，ToAddr是传值进入函数而被WinSock.RecvFrom调用的，这意味着，返回的源地址并不能返回。修正起来很简单，把声明改成var传入就可以了

function TIpSocket.ReceiveFrom(var buf; bufsize: Integer; var ToAddr: TSockAddr; var len: Integer; flags: Integer): Integer;
begin
{$IFDEF MSWINDOWS}
  Result := ErrorCheck(WinSock.recvfrom(FSocket, buf, bufsize, flags, ToAddr, len));
{$ENDIF}
{$IFDEF LINUX}
  Result := ErrorCheck(Libc.recvfrom(FSocket, buf, bufsize, flags, @ToAddr, @len));
{$ENDIF}
if Result <> SOCKET_ERROR then
    DoReceive(pchar(@Buf), Result);
end;

修正方案：
使用给vcl打补丁的方法

unit u_SocketsPatcher;

interface
uses
  Sockets, WinSock;

implementation

Procedure PatchVCLCode(ProcOld, ProcNew: Pointer);
var
  newCode : packed record
    JmpRel32  : Byte;
    Offset32  : Integer;
end;
begin
  newCode.JmpRel32  := $E9;
  newCode.Offset32  := Integer(procNew) - Integer(procOld) - 5;
  WriteProcessMemory(
      GetCurrentProcess,
      procOld,
      @newCode,
      SizeOf(newCode),
      DWORD(nil^) );

end;


type
  TIPSocketPatch = Class(TIpSocket)
  Private
function ReceiveFrom2(var buf; bufsize: Integer; var ToAddr: TSockAddr; var len: Integer; flags: Integer = 0): Integer;
  End;

{ TIPSocketPatch }

function TIPSocketPatch.ReceiveFrom2(var buf; bufsize: Integer;
var ToAddr: TSockAddr; var len: Integer; flags: Integer): Integer;
begin
{$IFDEF MSWINDOWS}
  Result := ErrorCheck(WinSock.recvfrom(Handle, buf, bufsize, flags, ToAddr, len));
{$ENDIF}
{$IFDEF LINUX}
  Result := ErrorCheck(Libc.recvfrom(FSocket, buf, bufsize, flags, @ToAddr, @len));
{$ENDIF}
if Result <> SOCKET_ERROR then
    DoReceive(pchar(@Buf), Result);
end;

initialization
  PatchVCLCode(@TIpSocket.ReceiveFrom, @TIPSocketPatch.ReceiveFrom2);
end.

在工程中加入此单元的引用即可

BUG的影响

　　由于DELPHIER们使用UDP很少使用Sockets.pas中的单元而一般用Indy组件，所以这个BUG影响范围很小，即使使用udp，也都是只用TUdpSocet类作为Client端，而不会调用这个方法。所以，这是一个基本上不会被调用的BUG函数，也很少影响到Delphier们。但如果要想自己力求精简的编写一些基础组件的话，这个问题就会被波及，比如此次我弄的这个UDP Hole Punching的时候，终于显现出来了，也花了我半天的时间，唉....
　

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

MATLAB机器人学工具箱（RoboticsToolbox）sl_drivepoint模型consecutivezerocrossings ...发布时间：2022-07-18

[matlab] 23.matlab自带kmeans函数实现聚类发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19166|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9981|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8321|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8690|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8634|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9650|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8617|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7994|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8648|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7531|2022-11-06

客服电话

电子邮件

DelphiSockets.pas单元中TIpSocket的Bug

请发表评论

全部评论

上一篇：

下一篇：

bluegill/katana:

OpenNBS/OpenNoteBlockStudio: An open-sou

juleswhite/mobilecloud-15: Programming C

JunichiT/JTMaterialSwitch: A Customizabl

delphi 数据导出进度条自己生成

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053

客服电话

电子邮件

DelphiSockets.pas单元中TIpSocket的Bug

请发表评论

全部评论

上一篇：

下一篇：

bluegill/katana:

OpenNBS/OpenNoteBlockStudio: An open-sou

juleswhite/mobilecloud-15: Programming C

JunichiT/JTMaterialSwitch: A Customizabl

delphi 数据导出 进度条自己生成

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053

delphi 数据导出进度条自己生成