delphi 获取内核地址的简单方法

本文整理自网络，侵删。

 
获取内核地址的函数，是否很简单。获取内核地址后，该干什么，你自己去想象吧！
function GetKernel32Address: Cardinal;
var
  AAA                                             : Integer;
  BBB, CCC, DDD, EEE, FFF, GGG                    : Pointer;
begin
  asm
    MOV EAX,FS:[18H]
    MOV AAA,EAX
  end;
  BBB := Pointer(Pointer(Integer(AAA) + $30)^);
  CCC := Pointer(Pointer(Integer(BBB) + $0C)^);
  DDD := Pointer(Pointer(Integer(CCC) + $0C)^);
  EEE := Pointer(Pointer(Integer(DDD) + $00)^);
  FFF := Pointer(Pointer(Integer(EEE) + $00)^);
  GGG := Pointer(Pointer(Integer(FFF) + $18)^);
  Result := Integer(GGG);
end;
 

相关阅读 >>

Delphi连接access提示密码无效解决一例

Delphi 监控系统文件操作

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi winapi: gettopwindow - 获取指定窗口的子窗口中最顶层的窗口句柄

Delphi 完美的线程注入和卸载

Delphi wmi 获取网络信息

Delphi图片格式判断

Delphi bmp转换png

Delphi xe6通过wifiapi得到wifi信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取内核地址的简单方法