黃易群俠傳M脫機外掛應用程式黃易神行
2685
2

取得DLL中所有輸出函數名稱

boy93485 發表於 2009-3-28 20:20:37 | 只看該作者 回帖獎勵 |倒序瀏覽 |
取得某一dll所有輸出函數名
uses里加上ImageHlp

procedure ListDLLFunctions(DLLName: String; List: TStrings);
type
chararr = array [0..$FFFFFF] of Char;
var
H: THandle;
I,
fc: integer;
st: string;
arr: Pointer;
ImageDebugInformation: PImageDebugInformation;
begin
List.Clear;
DLLName := ExpandFileName(DLLName);
if FileExists(DLLName) then
begin
H := CreateFile(PChar(DLLName), GENERIC_READ, FILE_SHARE_READ or
FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H<>INVALID_HANDLE_VALUE then
try
ImageDebugInformation := MapDebugInformation(H, PChar(DLLName), nil, 0);
if ImageDebugInformation<>nil then
try
arr := ImageDebugInformation^.ExportedNames;
fc := 0;
for I := 0 to ImageDebugInformation^.ExportedNamesSize - 1 do
if chararr(arr^)[I]=#0 then
begin
st := PChar(@chararr(arr^)[fc]);
if Length(st)>0 then
List.Add(st);
if (I>0) and (chararr(arr^)[I-1]=#0) then
Break;
fc := I + 1
end
finally
UnmapDebugInformation(ImageDebugInformation)
end
finally
CloseHandle(H)
end
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStrings;
I: integer;
S: String;

begin
List := TStringList.Create;

ListDLLFunctions(&#39;c:windowssystemAbcsda.dll&#39;, List);
showmessage(inttostr(list.count));
S := &#39;List of functions&#39;;
for I := 0 to List.Count - 1 do
S := S + #13#10 + List[I];
ShowMessage(S);

List.Free
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


vash 當前離線
UID
1304753
熱心
220 值
嘉獎
0 次
違規
0 次
在線時間
8 小時
經驗
220 點
積分
220
精華
0
最後登錄
2009-9-7
閱讀權限
25
註冊時間
2009-9-3
論壇幣
470 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
QQ 查看詳細資料
Rank: 3
vash 2009-9-4 13:08:30
這是什麽的源碼啊  大大給說下  -_-!
蘿莉有三好:
清音
腰柔
易推倒
回覆

使用道具 舉報

S-BB 當前離線
UID
538360
熱心
399 值
嘉獎
0 次
違規
0 次
在線時間
114 小時
經驗
389 點
積分
2956
精華
0
最後登錄
2013-9-6
閱讀權限
40
註冊時間
2007-9-8
論壇幣
2038 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
6338 點
查看詳細資料
Rank: 5Rank: 5Rank: 5
S-BB 2009-9-13 17:42:26
o.....我以前也學過......它可以把所有dll 的 variables全部找出黎......要封外掛首先要封的就是這些動態變數 @_@
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-22 03:51 , Processed in 0.055702 second(s), 18 queries , Memcache On.

版權說明:
  本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證,協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理,說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等,商標及著作權,均歸各公司及程式原創所有,本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?