begin process at 2008 09 05 20:52:01
1 237 501 membres
441 nouveaux aujourd'hui
14 313 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GÉNÉRATEUR DE MOTS DE PASSE TECHNOLOGIE .NET


Information sur la source

Catégorie :VB.NET Source .NET ( DotNet ) Niveau : Initié Date de création : 25/06/2003 Date de mise à jour : 25/06/2003 11:07:33 Vu / téléchargé: 5 434 / 420

Note :
4 / 10 - par 2 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Ce code simplissime permet d'utiliser le service cryptographique du Framework pour générer un mot de passe. Cette fonctionnette est basé sur un article de MSDN de mars 2003. Très utile pour ceux qui utilisent les DirectoryServices pour ajouter des utilisateurs sur un domaine Windows 2000/2003

NB : fonctionnel avec le framework 1.1 et VS 2003
non certifié pour versions antérieures

Insérez cette fonction avec les autres SUB de votre application et appellez là de cette manière :
dim str As String = randomize()  

ou utilisez la dll fournit comme assembly dans votre application (ZIP)

Source

  • Function randomize()
  • Dim str As String
  • Dim oct As Array = Array.CreateInstance(GetType(Byte), 10)
  • Dim random() As Byte = New Byte(1000) {}
  • Dim rng As New System.Security.Cryptography.RNGCryptoServiceProvider
  • rng.GetBytes(random)
  • Dim b As Byte
  • Dim i As Integer = 0
  • For Each b In random
  • If i < 10 Then
  • If b.ToString("d") > 48 And b.ToString("d") < 58 Then
  • oct.SetValue(b, i)
  • i = i + 1
  • ElseIf b.ToString("d") > 64 And b.ToString("d") < 91 Then
  • oct.SetValue(b, i)
  • i = i + 1
  • ElseIf b.ToString("d") > 96 And b.ToString("d") < 123 Then
  • oct.SetValue(b, i)
  • i = i + 1
  • End If
  • End If
  • Next
  • str = System.Text.ASCIIEncoding.ASCII.GetString(oct)
  • return str
  • End Function
Function randomize()
Dim str As String
        Dim oct As Array = Array.CreateInstance(GetType(Byte), 10)
        Dim random() As Byte = New Byte(1000) {}
        Dim rng As New System.Security.Cryptography.RNGCryptoServiceProvider
        rng.GetBytes(random)
        Dim b As Byte
        Dim i As Integer = 0
        For Each b In random
            If i < 10 Then
                If b.ToString("d") > 48 And b.ToString("d") < 58 Then
                    oct.SetValue(b, i)
                    i = i + 1
                ElseIf b.ToString("d") > 64 And b.ToString("d") < 91 Then
                    oct.SetValue(b, i)
                    i = i + 1
                ElseIf b.ToString("d") > 96 And b.ToString("d") < 123 Then
                    oct.SetValue(b, i)
                    i = i + 1
                End If
            End If
        Next
        str = System.Text.ASCIIEncoding.ASCII.GetString(oct)
        return str
End Function   

Conclusion

Ce code utilise les services cryptographiques .NET pour générer un tableau de 1000 octets compris entre h00 et hFF. Néanmoins, tout ces octets ne sont pas utilisables dans le mot de passe. Les trois conditions If servent à ne prendre en compte que les caractères alphanumériques . Remplcez 10 (deux fois) par le nombre de caractères souhaité dans le mot de passe
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de laestrella le 25/06/2003 10:25:47

    Un fichier Zip en plus et c'est bon(plus facile pour archiver).

  • signaler à un administrateur
    Commentaire de SupraDolph le 27/06/2003 20:25:11

    Généré un pass c'est bien mais pouvoir le testé et savoir s'il provient du générateur c'est mieu :-)
    Ce serai bien que tu fasse la fonction.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Boutique

Boutique de goodies CodeS-SourceS