OpenProcessToken для процессов LOCAL SERVICE и NETWORK SERVICE

[M.A.R.K]

Ins:

3. SetSecurityInfo (второй параметр - SE_KERNEL_OBJECT) - назначаем владельцем себя

Каким образом стать владельцем? (SetSecurityInfo с какими параметрами?)

[Ins]

SetSecurityInfo с какими параметрами?

Давно не заходил сюда, если еще нужно, то

SetSecurityInfo(TokenHandle, SE_KERNEL_OBJECT,  OWNER_SECURITY_INFORMATION, SelfSID, nil, nil, nil);

[M.A.R.K]

Ins

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,aclAPI,accCtrl;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  OwnerSid           : PSID;

  MarkSid            : PSID;
  MarkSidLen : DWORD;
  DomSidLen               : DWORD;
  DomSid                    : Pointer;
  ProcessHandle      : THandle;
  TokenProcessHandle : THandle;
  TP                 : TTokenPrivileges;
  //////////////////////////////////////////////
  tPACL               : PACL;
  tPACL_2            : PACL;
  tPSID               : PSID;
  tPSD                : PPSECURITY_DESCRIPTOR;
  //////////////////////////////////////////////
  ET                 : array[0..1023] of Char;
  peUse                  : DWORD;
begin
//Включаем 'SeTakeOwnershipPrivilege':
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TokenProcessHandle);
LookupPrivilegeValue(nil,'SeDebugPrivilege',TP.Privileges[0].Luid);
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
TP.PrivilegeCount := 1;
AdjustTokenPrivileges(TokenProcessHandle,FALSE,TP,0,PTokenPrivileges(nil)^,PDWord(nil)^);
CloseHandle(TokenProcessHandle);

//Включаем 'SeDebugPrivilege':
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TokenProcessHandle);
LookupPrivilegeValue(nil,'SeTakeOwnershipPrivilege',TP.Privileges[0].Luid);
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
TP.PrivilegeCount := 1;
AdjustTokenPrivileges(TokenProcessHandle,FALSE,TP,0,PTokenPrivileges(nil)^,PDWord(nil)^);
CloseHandle(TokenProcessHandle);

//Узнаем SID учетки «mark»
MarkSidLen := 0;
DomSidLen := 0;
LookupAccountName(nil,'mark',nil,MarkSidLen,nil,DomSidLen,peUse);
GetMem(MarkSid,MarkSidLen);
GetMem(DomSid,DomSidLen);
Try
  LookupAccountName(nil,'mark',MarkSid,MarkSidLen,DomSid,DomSidLen,peUse);
finally
  FreeMem(MarkSid,MarkSidLen);
  FreeMem(DomSid,DomSidLen);
end;

//Устанавливаем владельца как SID Марка:
{
ProcessHandle := OpenProcess(WRITE_OWNER,FALSE,2276); //2276 - ProcessId процесса LOCAL SERVICE
SetSecurityInfo(ProcessHandle,SE_KERNEL_OBJECT,OWNER_SECURITY_INFORMATION,MarkSid,nil,nil,nil);
} //Но это на 2-ром плане...

//Узнаем SID владельца:
ProcessHandle := OpenProcess(DesiredAccess,FALSE,2276); //DesiredAccess пробовал и READ_CONTROL ($20000) и PROCESS_ALL_ACCESS
OpenProcessToken(ProcessHandle,WRITE_OWNER,TokenProcessHandle);
GetMem(OwnerSid,SizeOf(PSID));
GetSecurityInfo(TokenProcessHandle,SE_KERNEL_OBJECT,OWNER_SECURITY_INFORMATION,OwnerSid,tPSID,tPACL,tPACL_2,tPSD);

FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,GetLastError,GetKeyboardLayout(1049),@ET,1023,nil);
Form1.Caption := StrPas(@ET); //Сообщаем ошибку, если она есть ;-)

end;
end.

1. GetLastError говорит, что переданная область слишком мала...Тогда как узнать необходимый размер OwnerSid для GetSecurityInfo
2. Я немного запутался т.к. не знаю, нужен ли OpenProcessToken или WRITE_OWNER надо передавать в OpenProcess...