Les acl (access control list ) standard en vb

Télécharger le projet
Commenter

Description

Je me nome Yassine Safsouf, et voici un petit programme qui permet de créer une liste d'accès standard.

Source / Exemple : 


'variables locales de stockage des valeurs de propriétés
Private mvarNum As Integer 'copie locale
Private mvarPermission As Boolean 'copie locale
Private mvarAdrs As String 'copie locale
Private mvarMasqG As String 'copie locale
''Private mvarInterface As String 'copie locale
''Private mvarDirection As String 'copie locale

'Public Property Let Direction(ByVal vData As String)
''utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
''Syntax: X.Direction = 5
'    mvarDirection = vData
'End Property
'
'
'Public Property Get Direction() As String
''utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
''Syntax: Debug.Print X.Direction
'    Direction = mvarDirection
'End Property
'
'
'
'Public Property Let Interface(ByVal vData As String)
''utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
''Syntax: X.Interface = 5
'    mvarInterface = vData
'End Property
'
'
'Public Property Get Interface() As String
''utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
''Syntax: Debug.Print X.Interface
'    Interface = mvarInterface
'End Property

Public Property Let MasqG(ByVal vData As String)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.MasqG = 5
    mvarMasqG = vData
End Property

Public Property Get MasqG() As String
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.MasqG
    MasqG = mvarMasqG
End Property

Public Property Let Adrs(ByVal vData As String)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.Adrs = 5
    mvarAdrs = vData
End Property

Public Property Get Adrs() As String
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Adrs
    Adrs = mvarAdrs
End Property

Public Property Let Permission(ByVal vData As Boolean)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.Permission = 5
    mvarPermission = vData
End Property

Public Property Get Permission() As Boolean
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Permission
    Permission = mvarPermission
End Property

Public Property Let Num(ByVal vData As Integer)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.Num = 5
    mvarNum = vData
End Property

Public Property Get Num() As Integer
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Num
    Num = mvarNum
End Property

Public Function Afficher() As String
Dim access As String

If (Permission = True) Then
    access = "permit"
Else
    access = "deny"
End If

If (Adrs = "0.0.0.0" And MasqG = "255.255.255.255") Then
    Afficher = "access-list " & Num & " " & access & " any"
Else
    If (MasqG = "0.0.0.0") Then
        Afficher = "access-list " & Num & " " & access & " host " & Adrs
    Else
        Afficher = "access-list " & Num & " " & access & " " & Adrs & " " & MasqG
    End If
End If
End Function

Conclusion :


J?espère que ce programme est pourra vous aidez, et bonne réception?
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.