Форум программистов [Powered by Invision Power Board]

Цитата(Zloy_Misha @ 12.7.2008, 01:11

)

Как получить доступ к файлу (сменить владельца и разрешить запись),

Цитата(Zloy_Misha @ 14.7.2008, 17:28

)

а под вистой все файлы системные защищены так

Цитата(Zloy_Misha @ 14.7.2008, 17:28

)

не просто я и как в XP не знаюю

Цитата(Zloy_Misha @ 14.7.2008, 19:10

)

Это штоб никто неудалил

Цитата(Riply @ 14.7.2008, 21:29

)

Администратор удалит всегда.

Цитата(mmvds @ 14.7.2008, 23:25

)

Есть такой файлик в system32

Цитата(mmvds @ 14.7.2008, 23:25

)

Правда если админ фишку знает, то уже ничего не поможет

Цитата(Riply @ 14.7.2008, 21:29

)

Будет время (на что мало шансов) попробую написать небольшой схематичный пример, но под XP.

Код


function Lookup_AccountNameW(const pSysName, pAccountName: PWideChar;
                            var pSd: PSID; var cbSid: DWord; var pDomainName: PWideChar;
                            var cbDomainName: DWord; var peUse: SID_NAME_USE): DWord;
var
 TmpSid, TmpDomain: DWord;
begin
 TmpSid := cbSid;
 TmpDomain := cbDomainName;
 if not LookupAccountNameW(pSysName, pAccountName, pSd, TmpSid, pDomainName, TmpDomain, peUse) then
  begin
   Result := GetLastError;
   if Result = ERROR_INSUFFICIENT_BUFFER then
    begin
     ReallocMem(pSd, TmpSid);
     cbSid := TmpSid;
     ReallocMem(pDomainName, TmpDomain);
     cbDomainName := TmpDomain;
     if LookupAccountNameW(pSysName, pAccountName, pSd, TmpSid, pDomainName, TmpDomain, peUse)
      then Result := ERROR_SUCCESS
      else Result := GetLastError;
    end;
  end
 else Result := ERROR_SUCCESS;
end;

function Get_UserSid(const UserName: WideString; var pSd: PSID; var cbSid: DWord): DWord;
var
 Tmp, cbDomain: DWord;
 peUse: SID_NAME_USE;
 pDomain: PWideChar;
begin
 cbDomain := 0;
 pDomain := nil;
 try
  Result := Lookup_AccountNameW(nil, PWideChar(UserName), pSd, Tmp, pDomain, cbDomain, peUse);
 finally
  ReallocMem(pDomain, 0);
 end;
end;

function Set_KernelObjectOwner(const ObjHandle: THandle; const OwnerName: WideString): DWord;
var
 cbOwnerSid : DWord;
 pOwnerSid: PSID;
 pSecDescr: PSECURITY_DESCRIPTOR;
begin
 pOwnerSid := nil;
 pSecDescr := nil;
 cbOwnerSid := 0;
 try
  Result := Get_UserSid(OwnerName, pOwnerSid, cbOwnerSid);
  if Result = ERROR_SUCCESS then
   begin
    ReallocMem(pSecDescr, SizeOf(SECURITY_DESCRIPTOR) + cbOwnerSid);
    if InitializeSecurityDescriptor(pSecDescr, SECURITY_DESCRIPTOR_REVISION) then
     if SetSecurityDescriptorOwner(pSecDescr, pOwnerSid, False) then
      if SetKernelObjectSecurity(ObjHandle, OWNER_SECURITY_INFORMATION, pSecDescr) then Exit;
   end;
   Result := GetLastError;
  finally
   ReallocMem(pOwnerSid, 0);
   if pSecDescr <> nil then ReallocMem(pSecDescr, 0);
  end;
end;

Код


 ObjHandle := CreateFileW(PWideChar(FileName), WRITE_OWNER, 0, nil, OPEN_ALWAYS, 0, 0);
 if ObjHandle <> INVALID_HANDLE_VALUE then
  try
   RetError := Set_KernelObjectOwner(ObjHandle, UserName);
  finally
   CloseHandle(ObjHandle);
  end
 else RetError := GetLastError;