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 指针入门知识

Delphi 分割文件合并文件的函数

Delphi窗口最小化和还原事件捕获

Delphi 为richedit设置行号

Delphi 数据异或校验

Delphi点击网页弹出的alert对话框的确定按钮

Delphi 让label 始终在form的正中显示

Delphi tstringlist 排序 customsort

Delphi 正则表达式起步

Delphi判断系统是否安装tcp/ip协议

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

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