none
mot de passe

Réponses

  • Bonjour,

     

    C'est une question un peu vague.

    Si vous n'avez pas de contrainte sur vos mots de passe, vous pouvez par exemple générer un Guid et prendre ses 8 premières lettres, les 8 caractères du mot de passe généré sont dans l'ensemble {a, b, c, d, e, f, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9}. L'idée est fondée sur le fait que un Guid est généré aléatoirement et il est unique presque à 100%. La fonction suivante implémente la proposition.

     

       Public Function GenererMotDePasse()

            Dim motDePasse = Guid.NewGuid().ToString().Substring(0, 8)

            Return motDePasse

        End Function

     

    Cordialement

    mardi 6 décembre 2011 13:01
  • Bonjour,

    sinon vous pouvez créer un petit code qui permet de faire le mot de passe

        Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
            MsgBox(GenerateRandomString(10, GenerateRandomAlphaString(25)))
        End Sub
        Public Shared Function GenerateRandomAlphaString(ByVal length As IntegerAs String
            Const alpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
            Return GenerateRandomString(length, alpha)
        End Function
     
     
        Public Shared Function GenerateRandomString(ByVal length As IntegerByVal alphabet As StringAs String
            Dim maxlen As Integer = alphabet.Length
     
            Dim sb As New StringBuilder()
            Dim rd As New Random
            For i As Integer = 0 To length - 1
                sb.Append(alphabet(rd.Next(0, maxlen)))
            Next
     
            Return sb.ToString()
        End Function

    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    mardi 6 décembre 2011 14:23

Toutes les réponses

  • Bonjour,

     

    C'est une question un peu vague.

    Si vous n'avez pas de contrainte sur vos mots de passe, vous pouvez par exemple générer un Guid et prendre ses 8 premières lettres, les 8 caractères du mot de passe généré sont dans l'ensemble {a, b, c, d, e, f, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9}. L'idée est fondée sur le fait que un Guid est généré aléatoirement et il est unique presque à 100%. La fonction suivante implémente la proposition.

     

       Public Function GenererMotDePasse()

            Dim motDePasse = Guid.NewGuid().ToString().Substring(0, 8)

            Return motDePasse

        End Function

     

    Cordialement

    mardi 6 décembre 2011 13:01
  • Bonjour,

    sinon vous pouvez créer un petit code qui permet de faire le mot de passe

        Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
            MsgBox(GenerateRandomString(10, GenerateRandomAlphaString(25)))
        End Sub
        Public Shared Function GenerateRandomAlphaString(ByVal length As IntegerAs String
            Const alpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
            Return GenerateRandomString(length, alpha)
        End Function
     
     
        Public Shared Function GenerateRandomString(ByVal length As IntegerByVal alphabet As StringAs String
            Dim maxlen As Integer = alphabet.Length
     
            Dim sb As New StringBuilder()
            Dim rd As New Random
            For i As Integer = 0 To length - 1
                sb.Append(alphabet(rd.Next(0, maxlen)))
            Next
     
            Return sb.ToString()
        End Function

    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    mardi 6 décembre 2011 14:23
  • Bonjour, Mehodev,

    Est-ce que vous avez testé les solutions proposées ? Merci de tenir la communauté informée sur la suite de vos démarches.

     

    Bonne journée,

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    jeudi 8 décembre 2011 07:45
  • merci les gars cela m'a permis d'avancer dans ma bosse 
    jeudi 8 décembre 2011 11:49