document.write('
');
document.write('Option Explicit On
');
document.write('Option Strict On
');
document.write('
');
document.write('Imports System
');
document.write('Imports System.Text
');
document.write('
');
document.write('Public Class PasswordGenerator
');
document.write(' Private PWD_LENGTH As Integer
');
document.write('
');
document.write('#Region " Random Number Generation "
');
document.write(' \'The following class and code in this region was designed
');
document.write(' \'by Phill64 on http://www.vbforums.com. All credit for
');
document.write(' \'random number generation goes to him.
');
document.write(' Protected Class TrueRandom2
');
document.write(' Public Function GetDouble() As Double
');
document.write(' Dim r As New Security.Cryptography.RNGCryptoServiceProvider
');
document.write('
');
document.write(' Dim bt(15) As Byte
');
document.write(' r.GetNonZeroBytes(bt)
');
document.write(' Dim d As Double = bt(0)
');
document.write(' For i As Integer = 1 To 15
');
document.write(' d *= bt(i)
');
document.write(' Next
');
document.write(' d /= (10 ^ (Math.Floor(d).ToString.Length))
');
document.write(' d -= Math.Floor(d)
');
document.write(' Return d
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function GetNext(ByVal lower As Integer, ByVal upper As Integer) As Integer
');
document.write(' \'returns a random itneger between specified bounds
');
document.write(' \'ratio a random decimal number to the required bounds
');
document.write('
');
document.write(' \'Changed CInt to Convert.ToInt32 Derek
');
document.write(' Return Convert.ToInt32((lower + (GetDouble() * (upper - lower))))
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function GetNext() As Integer
');
document.write(' \'returns a random integer
');
document.write('
');
document.write(' \'Changed CInt to Convert.ToInt32 Derek
');
document.write(' Return Convert.ToInt32((GetDouble() * Integer.MaxValue))
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function GetLong() As Long
');
document.write(' \'Changed CLng to Convert.ToInt64 Derek
');
document.write(' Return Convert.ToInt64((GetDouble() * Long.MaxValue))
');
document.write(' End Function
');
document.write(' End Class
');
document.write('#End Region
');
document.write('
');
document.write(' Public Sub New()
');
document.write(' PWD_LENGTH = 13
');
document.write(' End Sub
');
document.write('
');
document.write(' Public Sub New(ByVal PasswordLength As Integer)
');
document.write(' PWD_LENGTH = PasswordLength
');
document.write(' End Sub
');
document.write('
');
document.write(' Public Function Generate() As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write('
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range 32 to 126.
');
document.write(' Dim value As Integer = rng.GetNext(32, 126)
');
document.write('
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function Generate(ByVal AsciiMin As Integer, ByVal AsciiMax As Integer) As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write('
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range AsciiMin to AsciiMax, to get the correct
');
document.write(' \'range we need to take AsciiMax - AsciiMin = (Ascii Range)
');
document.write(' Dim value As Integer = rng.GetNext(AsciiMin, AsciiMax)
');
document.write('
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function Generate(ByVal AsciiMin As Char, ByVal AsciiMax As Char) As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write(' Dim iAsciiMin As Integer = Convert.ToInt32(AsciiMin)
');
document.write(' Dim iAsciiMax As Integer = Convert.ToInt32(AsciiMax)
');
document.write('
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range AsciiMin to AsciiMax, to get the correct
');
document.write(' \'range we need to take AsciiMax - AsciiMin = (Ascii Range)
');
document.write(' Dim value As Integer = rng.GetNext(iAsciiMin, iAsciiMax)
');
document.write('
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function Generate(ByVal ExcludeValues As String()) As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write(' Dim ASCII_VAL(ExcludeValues.Length - 1) As Integer
');
document.write('
');
document.write(' \'Convert the excluded values to the the ASCII
');
document.write(' \'equivalent of the character represention and
');
document.write(' \'add it to the ASCII_VAL array.
');
document.write(' For i As Integer = 0 To ExcludeValues.Length - 1
');
document.write(' ASCII_VAL(i) = Convert.ToInt32(ExcludeValues(i).Chars(0))
');
document.write(' Next
');
document.write('
');
document.write(' Array.Sort(ASCII_VAL)
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range 32 to 126.
');
document.write(' Dim value As Integer = rng.GetNext(32, 126)
');
document.write('
');
document.write(' \'Determine if the value that was generated is
');
document.write(' \'not an excluded value.
');
document.write(' If Array.BinarySearch(ASCII_VAL, value) < 0 Then
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' End If
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function Generate(ByVal AsciiMin As Integer, ByVal AsciiMax As Integer, ByVal ExcludeValues As String()) As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write(' Dim ASCII_VAL(ExcludeValues.Length - 1) As Integer
');
document.write('
');
document.write(' \'Convert the excluded values to the the ASCII
');
document.write(' \'equivalent of the character represention and
');
document.write(' \'add it to the ASCII_VAL array.
');
document.write(' For i As Integer = 0 To ExcludeValues.Length - 1
');
document.write(' ASCII_VAL(i) = Convert.ToInt32(ExcludeValues(i).Chars(0))
');
document.write(' Next
');
document.write('
');
document.write(' Array.Sort(ASCII_VAL)
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range AsciiMin to AsciiMax, to get the correct
');
document.write(' \'range we need to take AsciiMax - AsciiMin = (Ascii Range)
');
document.write(' Dim value As Integer = rng.GetNext(AsciiMin, AsciiMax)
');
document.write('
');
document.write(' \'Determine if the value that was generated is
');
document.write(' \'not an excluded value.
');
document.write(' If Array.BinarySearch(ASCII_VAL, value) < 0 Then
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' End If
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('
');
document.write(' Public Function Generate(ByVal AsciiMin As Char, ByVal AsciiMax As Char, ByVal ExcludeValues As String()) As String
');
document.write(' Dim pwd As String = String.Empty
');
document.write(' Dim rng As New TrueRandom2
');
document.write(' Dim iAsciiMin As Integer = Convert.ToInt32(AsciiMin)
');
document.write(' Dim iAsciiMax As Integer = Convert.ToInt32(AsciiMax)
');
document.write(' Dim ASCII_VAL(ExcludeValues.Length - 1) As Integer
');
document.write('
');
document.write(' \'Convert the excluded values to the the ASCII
');
document.write(' \'equivalent of the character represention and
');
document.write(' \'add it to the ASCII_VAL array.
');
document.write(' For i As Integer = 0 To ExcludeValues.Length - 1
');
document.write(' ASCII_VAL(i) = Convert.ToInt32(ExcludeValues(i).Chars(0))
');
document.write(' Next
');
document.write('
');
document.write(' Array.Sort(ASCII_VAL)
');
document.write(' For i As Integer = 1 To PWD_LENGTH
');
document.write(' Dim GoodValue As Boolean = False
');
document.write('
');
document.write(' Do While Not GoodValue
');
document.write(' \'ASCII value range AsciiMin to AsciiMax, to get the correct
');
document.write(' \'range we need to take AsciiMax - AsciiMin = (Ascii Range)
');
document.write(' Dim value As Integer = rng.GetNext(iAsciiMin, iAsciiMax)
');
document.write('
');
document.write(' \'Determine if the value that was generated is
');
document.write(' \'not an excluded value.
');
document.write(' If Array.BinarySearch(ASCII_VAL, value) < 0 Then
');
document.write(' pwd += Convert.ToChar(value)
');
document.write(' GoodValue = True
');
document.write(' End If
');
document.write(' Loop
');
document.write(' Next
');
document.write('
');
document.write(' rng = Nothing
');
document.write(' Return pwd
');
document.write(' End Function
');
document.write('End Class
');
document.write('
');
document.write('
');