Delphi Debug权限提升

flashrhx2007

于 2008-11-18 15:30:00 发布

阅读量1.8k

点赞数

分类专栏： Delphi 文章标签： delphi token

Delphi 专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一个过程，通过该过程可以在当前进程中启用SeDebug特权。这涉及到使用Windows API函数如OpenProcessToken, LookupPrivilegeValue, 和AdjustTokenPrivileges等来获取和修改进程令牌的特权。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure SetPrivilege;
var
OldTokenPrivileges, TokenPrivileges: TTokenPrivileges;
ReturnLength: dword;
hToken: THandle;
Luid: int64;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
LookupPrivilegeValue(nil, 'SeDebugPrivilege', Luid);
TokenPrivileges.Privileges[0].luid := Luid;
TokenPrivileges.PrivilegeCount := 1;
TokenPrivileges.Privileges[0].Attributes := 0;
AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength);
OldTokenPrivileges.Privileges[0].luid := Luid;
OldTokenPrivileges.PrivilegeCount := 1;
OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength);
end;