elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Denegar Acceso a Archivo o Directorios [SUB]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Denegar Acceso a Archivo o Directorios [SUB]  (Leído 2,798 veces)
Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Denegar Acceso a Archivo o Directorios [SUB]
« en: 10 Agosto 2009, 02:31 am »

Ufff como me ha costado hacer este Sub .__. y la traigo al mejor foro ;D

Actualizado tambien para archivos...

Bueno marca los permisos de una carpeta o archivo para que salga

Acceso Denagado a: "C:\XXX"

Al intentar eliminar, explorar, renombrar, etc, etc, etc; quita todos los permisos, pero tambien los restablece ;)

Primero debemos Importar:
Código
  1. Imports System.IO
  2. Imports System.Security.AccessControl

y e aqui el Sub ^^
Código
  1.    Public Sub ProtectedFolderOrFile(ByVal F As String, ByVal bool As Boolean)        
  2. Dim dInfo As New DirectoryInfo(F), _
  3.         dSecurity As DirectorySecurity = dInfo.GetAccessControl()
  4.  
  5.        Select Case bool
  6.            Case True
  7.                dSecurity.SetAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
  8.            Case False
  9.                dSecurity.RemoveAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
  10.                dInfo.SetAccessControl(dSecurity)
  11.                dSecurity.AddAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Allow))
  12.        End Select
  13.        dInfo.SetAccessControl(dSecurity)
  14.    End Sub



« Última modificación: 10 Agosto 2009, 05:55 am por Keyen Night » En línea

La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Denegar abrir acceso a webs desde mi ordenador
Redes
abelku 1 1,960 Último mensaje 26 Agosto 2011, 17:39 pm
por ThonyMaster
Denegar Acceso a nuestro servidor / PC
GNU/Linux
Pablo Videla 5 2,651 Último mensaje 4 Septiembre 2011, 21:29 pm
por P-Joe
Denegar acceso al wifi sin filtrado mac. Como hacerlo? « 1 2 »
Hacking Wireless
sauces 16 13,523 Último mensaje 23 Diciembre 2011, 11:13 am
por Sh4k4
Denegar acceso a página web (Router Comtrend VR-3025un)
Redes
d3xf4ult 5 5,544 Último mensaje 22 Febrero 2012, 21:39 pm
por d3xf4ult
Denegar acceso a todos los puertos menos uno en iptables « 1 2 »
GNU/Linux
WHK 12 5,815 Último mensaje 10 Mayo 2015, 04:22 am
por WHK
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines