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

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   

Télécharger le zip