Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- OpenWindow(1,0,0,99,99,"")
- hWnd = WindowID(1)
- ;PSECURITY_DESCRIPTOR pSD;
- *pACL.ACL
- cbACL = 1024;
- ; Initialize a security descriptor.
- *pSD.SECURITY_DESCRIPTOR = AllocateMemory(#SECURITY_DESCRIPTOR_MIN_LENGTH)
- InitializeSecurityDescriptor_(*pSD, #SECURITY_DESCRIPTOR_REVISION)
- ; Initialize a DACL.
- *pACL = AllocateMemory(cbACL);
- InitializeAcl_(*pACL, cbACL, #ACL_REVISION2)
- SetSecurityDescriptorDacl_(*pSD, #True,*pACL, #False)
- #DACL_SECURITY_INFORMATION = 4
- a = #DACL_SECURITY_INFORMATION
- #OWNER_SECURITY_INFORMATION = $00000001
- #GROUP_SECURITY_INFORMATION = $00000002
- #DACL_SECURITY_INFORMATION = $00000004
- #SACL_SECURITY_INFORMATION = $00000008
- #LABEL_SECURITY_INFORMATION = $00000010
- #PROTECTED_DACL_SECURITY_INFORMATION = $80000000
- #PROTECTED_SACL_SECURITY_INFORMATION = $40000000
- #UNPROTECTED_DACL_SECURITY_INFORMATION = $20000000
- #UNPROTECTED_SACL_SECURITY_INFORMATION = $10000000
- a = #DACL_SECURITY_INFORMATION ;| #PROTECTED_DACL_SECURITY_INFORMATION
- ;SetFileSecurity_("C:\TEST.TXT",#DACL_SECURITY_INFORMATION, *pSD) ; <-- remove all rights from a certain file
- SetKernelObjectSecurity_(GetCurrentProcess_(), #DACL_SECURITY_INFORMATION, *pSD) ; <-- now you cannot close the process with the task manager
- Repeat
- Until WindowEvent()=#WM_CLOSE
Advertisement
Add Comment
Please, Sign In to add comment