LES ACL (ACCESS CONTROL LIST ) STANDARD EN VB

'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

Télécharger le zip