從網上找到一份Hook send recv的原始碼，不過時間比較早了，直接使用原始碼里編譯好的exe+dll，可以hook成功，但沒有recv資訊
我現在用的是delphi xe 10.3，改了幾個變數型別后hook 成功，recv也有了，但顯示全是亂碼，
主要目的是截取recv資訊進行修改，原始碼放在藍奏，哪位大神幫忙改造實作一下，分不多，先行謝過。
hook原始碼下載
uj5u.com熱心網友回復：
如果是瀏覽器的話，最好是WSA那套uj5u.com熱心網友回復：
首先熱烈歡迎大佬，在學習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出來的都是亂碼，具體問題出在哪里呢
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/12731.html
上一篇：delphi7連接mariadb資料庫decimal欄位的問題
下一篇：求幫忙