Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
ProcedureTForm1.GetPermissions(Path : String); var SecDescSize: Cardinal; SecDesc: PSECURITY_DESCRIPTOR; ACL: PACL; DaclPresent, DaclDefaulted : LongBool; begin GetFileSecurity(PChar(Path), OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, nil, 0, SecDescSize); SecDesc := GetMemory(SecDescSize); if GetFileSecurity(PChar(Path), OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION, SecDesc, SecDescSize, SecDescSize) then Begin If GetSecurityDescriptorDacl(SecDesc,DaclPresent,ACL,DaclDefaulted) Then Begin if DaclPresent then Begin // I don't know where to go from here! End; End; End Else Begin // No Access to read security End; FreeMem(SecDesc, SecDescSize); // end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.