找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 5935|回复: 2

[开源] 【分享】提升权限到debug

[复制链接]

2

主题

4

回帖

0

精华

银牌会员

积分
428
发表于 2009-5-23 13:25:58 | 显示全部楼层 |阅读模式

  1. function EnableDebugPrivilege: Boolean;
  2.   function EnablePrivilege(hToken: Cardinal; PrivName: string;
  3.     bEnable: Boolean): Boolean;
  4.   var
  5.     TP: TOKEN_PRIVILEGES;
  6.     Dummy: Cardinal;
  7.   begin
  8.     TP.PrivilegeCount := 1;
  9.     LookupPrivilegeValue(nil, PChar(PrivName), TP.Privileges[0].Luid);
  10.     if bEnable then
  11.       TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
  12.     else   
  13.       TP.Privileges[0].Attributes := 0;
  14.     AdjustTokenPrivileges(hToken, false, TP, SizeOf(TP), nil, Dummy);
  15.     Result := GetLastError = ERROR_SUCCESS;
  16.   end;
  17. var
  18.   hToken: Cardinal;
  19. begin
  20.   OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
  21.   Result := EnablePrivilege(hToken, 'SeDebugPrivilege', true);
  22.   CloseHandle(hToken);
  23. end;
复制代码

275

主题

3017

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17064

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-25 13:50:58 | 显示全部楼层
<p>3环开放的API的做法里那貌似是唯一方案.</p>
<p>&nbsp;</p>
<p>NT系列本不是开放给3环调用的....</p>
<p>&nbsp;</p>
<p>不过有时确实方便多了.</p>
我就是嗷嗷叫的老马了......

23

主题

117

回帖

1

精华

银牌会员

积分
400
发表于 2009-5-24 07:35:24 | 显示全部楼层
提权不需要这么麻烦的,一句API就够了,NTadjustprivilege就够了
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表