Les acl (access control list ) standard en vb

Soyez le premier à donner votre avis sur cette source.

Vue 8 739 fois - Téléchargée 519 fois

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?

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
615
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 juillet 2012

Bonjour,
Je n'ai pas téléchargé l'application, mais les access list servent à configurer les routeurs et firewall, visiblement cela ressemble à un utilitaire de configuration pour Cisco, la syntaxe des access-list est souvent difficile à retenir.
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut
Et ça sert à quoi, à part entrer des textes dans des ListBox ?

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.