广告
淘宝内部优惠券
当前位置: 开发异常方案库» Delphi » Hook Send Recv 求助

Hook Send Recv 求助

开发异常方案库  收集整理于:2020-04-22 12:18:00  浏览:66次
从网上找到一份Hook send recv的源码,不过时间比较早了,直接使用源码里编译好的exe+dll,可以hook成功,但没有recv信息 我现在用的是delphi xe 10.3,改了几个变量类型后hook 成功,recv也有了,但显示全是乱码, 主要目的是截取recv信息进行修改,源码放在蓝奏,哪位大神帮忙改造实现一下,分不多,先行谢过。hook源码下载

------网友观点--------------------
如果是浏览器的话,最好是WSA那套

------网友观点--------------------
引用 1 楼 武稀松 的回复:
如果是浏览器的话,最好是WSA那套
首先热烈欢迎大佬,在学习delphi hook时,无数次看到各地转发的大佬写的Hook源码 目的不是截取浏览器的,是指定应用程序geturl的返回数据,我测试hook的目标程序就是随便用delphi写的idhttp.get,源码中的MyRecv如下: function MyRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall; var    dwSize: cardinal;    tmp:String; begin    MessageBeep(1000);             WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);    Result := OldRecv(S, Buf, len, flags);    JmpCode.Address := @MyRecv;    WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize);    setlength(tmp,len);    move(buf,tmp[1],len);    showmessage(tmp); end; 可以hook拦截成功,但showmessage出来的都是乱码,具体问题出在哪里呢
发布此文章仅为传递网友分享,不代表本站观点,若侵权请联系我们删除,本站将不对此承担任何责任。
软件开发 程序错误 异常 ybaby.netCopyright © 2020-2026  ybaby 版权所有  桂ICP备17004385号-2 网站地图