C# Codes
//
/
// SAMPLE: Generates random password, which complies with the strong password
// rules and does not contain ambiguous characters.
//
// To run this sample, create a new Visual C# project using the Console
// Application template and replace the contents of the Class1.cs file with
// the code below.
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
// EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
// WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
//
// Copyright (C) 2004 Obviex(TM). All rights reserved.
//
using System;
using System.Security.Cryptography;
/// <summary>
/// This class can generate random passwords, which do not include ambiguous
/// characters, such as I, l, and 1. The generated password will be made of
/// 7-bit ASCII symbols. Every four characters will include one lower case
/// character, one upper case character, one number, and one special symbol
/// (such as '%') in a random order. The password will always start with an
/// alpha-numeric character; it will not start with a special symbol (we do
/// this because some back-end systems do not like certain special
/// characters in the first position).
/// </summary>
public class RandomPassword
{
// Define default min and max password lengths.
private static int DEFAULT_MIN_PASSWORD_LENGTH = 8 ;
private static int DEFAULT_MAX_PASSWORD_LENGTH = 10 ;
// Define supported password characters divided into groups.
// You can add (or remove) characters to (from) these groups.
private static string PASSWORD_CHARS_LCASE = " abcdefgijkmnopqrstwxyz " ;
private static string PASSWORD_CHARS_UCASE = " ABCDEFGHJKLMNPQRSTWXYZ " ;
private static string PASSWORD_CHARS_NUMERIC = " 23456789 " ;
private static string PASSWORD_CHARS_SPECIAL = " *$-+?_&=!%{}/ " ;
/// <summary>
/// Generates a random password.
/// </summary>
/// <returns>
/// Randomly generated password.
/// </returns>
/// <remarks>
/// The length of the generated password will be determined at
/// random. It will be no shorter than the minimum default and
/// no longer than maximum default.
/// </remarks>
public static string Generate()
{
return Generate(DEFAULT_MIN_PASSWORD_LENGTH,
DEFAULT_MAX_PASSWORD_LENGTH);
}
/// <summary>
/// Generates a random password of the exact length.
/// </summary>
/// <param name="length">
/// Exact password length.
/// </param>
/// <returns>
/// Randomly generated password.
/// </returns>
public static string Generate( int length)
{
return Generate(length, length);
}
/// <summary>
/// Generates a random password.
/// </summary>
/// <param name="minLength">
/// Minimum password length.
/// </param>
/// <param name="maxLength">
/// Maximum password length.
/// </param>
/// <returns>
/// Randomly generated password.
/// </returns>
/// <remarks>
/// The length of the generated password will be determined at
/// random and it will fall with the range determined by the
/// function parameters.
/// </remarks>
public static string Generate( int minLength,
int maxLength)
{
// Make sure that input parameters are valid.
if (minLength <= 0 || maxLength <= 0 || minLength > maxLength)
return null ;
// Create a local array containing supported password characters
// grouped by types. You can remove character groups from this
// array, but doing so will weaken the password strength.
char [][] charGroups = new char [][]
{
PASSWORD_CHARS_LCASE.ToCharArray(),
PASSWORD_CHARS_UCASE.ToCharArray(),
PASSWORD_CHARS_NUMERIC.ToCharArray(),
PASSWORD_CHARS_SPECIAL.ToCharArray()
};
// Use this array to track the number of unused characters in each
// character group.
int [] charsLeftInGroup = new int [charGroups.Length];
// Initially, all characters in each group are not used.
for ( int i = 0 ; i < charsLeftInGroup.Length; i ++ )
charsLeftInGroup[i] = charGroups[i].Length;
// Use this array to track (iterate through) unused character groups.
int [] leftGroupsOrder = new int [charGroups.Length];
// Initially, all character groups are not used.
for ( int i = 0 ; i < leftGroupsOrder.Length; i ++ )
leftGroupsOrder[i] = i;
// Because we cannot use the default randomizer, which is based on the
// current time (it will produce the same "random" number within a
// second), we will use a random number generator to seed the
// randomizer.
// Use a 4-byte array to fill it with random bytes and convert it then
// to an integer value.
byte [] randomBytes = new byte [ 4 ];
// Generate 4 random bytes.
RNGCryptoServiceProvider rng = new RNGCryptoServiceProvider();
rng.GetBytes(randomBytes);
// Convert 4 bytes into a 32-bit integer value.
int seed = (randomBytes[ 0 ] & 0x7f ) << 24 |
randomBytes[ 1 ] << 16 |
randomBytes[ 2 ] << 8 |
randomBytes[ 3 ];
// Now, this is real randomization.
Random random = new Random(seed);
// This array will hold password characters.
char [] password = null ;
// Allocate appropriate memory for the password.
if (minLength < maxLength)
password = new char [random.Next(minLength, maxLength + 1 )];
else
password = new char [minLength];
// Index of the next character to be added to password.
int nextCharIdx;
// Index of the next character group to be processed.
int nextGroupIdx;
// Index which will be used to track not processed character groups.
int nextLeftGroupsOrderIdx;
// Index of the last non-processed character in a group.
int lastCharIdx;
// Index of the last non-processed group.
int lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1 ;
// Generate password characters one at a time.
for ( int i = 0 ; i < password.Length; i ++ )
{
// If only one character group remained unprocessed, process it;
// otherwise, pick a random character group from the unprocessed
// group list. To allow a special character to appear in the
// first position, increment the second parameter of the Next
// function call by one, i.e. lastLeftGroupsOrderIdx + 1.
if (lastLeftGroupsOrderIdx == 0 )
nextLeftGroupsOrderIdx = 0 ;
else
nextLeftGroupsOrderIdx = random.Next( 0 ,
lastLeftGroupsOrderIdx);
// Get the actual index of the character group, from which we will
// pick the next character.
nextGroupIdx = leftGroupsOrder[nextLeftGroupsOrderIdx];
// Get the index of the last unprocessed characters in this group.
lastCharIdx = charsLeftInGroup[nextGroupIdx] - 1 ;
// If only one unprocessed character is left, pick it; otherwise,
// get a random character from the unused character list.
if (lastCharIdx == 0 )
nextCharIdx = 0 ;
else
nextCharIdx = random.Next( 0 , lastCharIdx + 1 );
// Add this character to the password.
password[i] = charGroups[nextGroupIdx][nextCharIdx];
// If we processed the last character in this group, start over.
if (lastCharIdx == 0 )
charsLeftInGroup[nextGroupIdx] =
charGroups[nextGroupIdx].Length;
// There are more unprocessed characters left.
else
{
// Swap processed character with the last unprocessed character
// so that we don't pick it until we process all characters in
// this group.
if (lastCharIdx != nextCharIdx)
{
char temp = charGroups[nextGroupIdx][lastCharIdx];
charGroups[nextGroupIdx][lastCharIdx] =
charGroups[nextGroupIdx][nextCharIdx];
charGroups[nextGroupIdx][nextCharIdx] = temp;
}
// Decrement the number of unprocessed characters in
// this group.
charsLeftInGroup[nextGroupIdx] -- ;
}
// If we processed the last group, start all over.
if (lastLeftGroupsOrderIdx == 0 )
lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1 ;
// There are more unprocessed groups left.
else
{
// Swap processed group with the last unprocessed group
// so that we don't pick it until we process all groups.
if (lastLeftGroupsOrderIdx != nextLeftGroupsOrderIdx)
{
int temp = leftGroupsOrder[lastLeftGroupsOrderIdx];
leftGroupsOrder[lastLeftGroupsOrderIdx] =
leftGroupsOrder[nextLeftGroupsOrderIdx];
leftGroupsOrder[nextLeftGroupsOrderIdx] = temp;
}
// Decrement the number of unprocessed groups.
lastLeftGroupsOrderIdx -- ;
}
}
// Convert password characters into a string and return the result.
return new string (password);
}
}
/// <summary>
/// Illustrates the use of the RandomPassword class.
/// </summary>
public class RandomPasswordTest
{
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main( string [] args)
{
// Print 100 randomly generated passwords (8-to-10 char long).
for ( int i = 0 ; i < 100 ; i ++ )
Console.WriteLine(RandomPassword.Generate( 8 , 10 ));
}
}
//
// END OF FILE
// /
// SAMPLE: Generates random password, which complies with the strong password
// rules and does not contain ambiguous characters.
//
// To run this sample, create a new Visual C# project using the Console
// Application template and replace the contents of the Class1.cs file with
// the code below.
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
// EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
// WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
//
// Copyright (C) 2004 Obviex(TM). All rights reserved.
//
using System;
using System.Security.Cryptography;
/// <summary>
/// This class can generate random passwords, which do not include ambiguous
/// characters, such as I, l, and 1. The generated password will be made of
/// 7-bit ASCII symbols. Every four characters will include one lower case
/// character, one upper case character, one number, and one special symbol
/// (such as '%') in a random order. The password will always start with an
/// alpha-numeric character; it will not start with a special symbol (we do
/// this because some back-end systems do not like certain special
/// characters in the first position).
/// </summary>
public class RandomPassword
{
// Define default min and max password lengths.
private static int DEFAULT_MIN_PASSWORD_LENGTH = 8 ;
private static int DEFAULT_MAX_PASSWORD_LENGTH = 10 ;
// Define supported password characters divided into groups.
// You can add (or remove) characters to (from) these groups.
private static string PASSWORD_CHARS_LCASE = " abcdefgijkmnopqrstwxyz " ;
private static string PASSWORD_CHARS_UCASE = " ABCDEFGHJKLMNPQRSTWXYZ " ;
private static string PASSWORD_CHARS_NUMERIC = " 23456789 " ;
private static string PASSWORD_CHARS_SPECIAL = " *$-+?_&=!%{}/ " ;
/// <summary>
/// Generates a random password.
/// </summary>
/// <returns>
/// Randomly generated password.
/// </returns>
/// <remarks>
/// The length of the generated password will be determined at
/// random. It will be no shorter than the minimum default and
/// no longer than maximum default.
/// </remarks>
public static string Generate()
{
return Generate(DEFAULT_MIN_PASSWORD_LENGTH,
DEFAULT_MAX_PASSWORD_LENGTH);
}
/// <summary>
/// Generates a random password of the exact length.
/// </summary>
/// <param name="length">
/// Exact password length.
/// </param>
/// <returns>
/// Randomly generated password.
/// </returns>
public static string Generate( int length)
{
return Generate(length, length);
}
/// <summary>
/// Generates a random password.
/// </summary>
/// <param name="minLength">
/// Minimum password length.
/// </param>
/// <param name="maxLength">
/// Maximum password length.
/// </param>
/// <returns>
/// Randomly generated password.
/// </returns>
/// <remarks>
/// The length of the generated password will be determined at
/// random and it will fall with the range determined by the
/// function parameters.
/// </remarks>
public static string Generate( int minLength,
int maxLength)
{
// Make sure that input parameters are valid.
if (minLength <= 0 || maxLength <= 0 || minLength > maxLength)
return null ;
// Create a local array containing supported password characters
// grouped by types. You can remove character groups from this
// array, but doing so will weaken the password strength.
char [][] charGroups = new char [][]
{
PASSWORD_CHARS_LCASE.ToCharArray(),
PASSWORD_CHARS_UCASE.ToCharArray(),
PASSWORD_CHARS_NUMERIC.ToCharArray(),
PASSWORD_CHARS_SPECIAL.ToCharArray()
};
// Use this array to track the number of unused characters in each
// character group.
int [] charsLeftInGroup = new int [charGroups.Length];
// Initially, all characters in each group are not used.
for ( int i = 0 ; i < charsLeftInGroup.Length; i ++ )
charsLeftInGroup[i] = charGroups[i].Length;
// Use this array to track (iterate through) unused character groups.
int [] leftGroupsOrder = new int [charGroups.Length];
// Initially, all character groups are not used.
for ( int i = 0 ; i < leftGroupsOrder.Length; i ++ )
leftGroupsOrder[i] = i;
// Because we cannot use the default randomizer, which is based on the
// current time (it will produce the same "random" number within a
// second), we will use a random number generator to seed the
// randomizer.
// Use a 4-byte array to fill it with random bytes and convert it then
// to an integer value.
byte [] randomBytes = new byte [ 4 ];
// Generate 4 random bytes.
RNGCryptoServiceProvider rng = new RNGCryptoServiceProvider();
rng.GetBytes(randomBytes);
// Convert 4 bytes into a 32-bit integer value.
int seed = (randomBytes[ 0 ] & 0x7f ) << 24 |
randomBytes[ 1 ] << 16 |
randomBytes[ 2 ] << 8 |
randomBytes[ 3 ];
// Now, this is real randomization.
Random random = new Random(seed);
// This array will hold password characters.
char [] password = null ;
// Allocate appropriate memory for the password.
if (minLength < maxLength)
password = new char [random.Next(minLength, maxLength + 1 )];
else
password = new char [minLength];
// Index of the next character to be added to password.
int nextCharIdx;
// Index of the next character group to be processed.
int nextGroupIdx;
// Index which will be used to track not processed character groups.
int nextLeftGroupsOrderIdx;
// Index of the last non-processed character in a group.
int lastCharIdx;
// Index of the last non-processed group.
int lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1 ;
// Generate password characters one at a time.
for ( int i = 0 ; i < password.Length; i ++ )
{
// If only one character group remained unprocessed, process it;
// otherwise, pick a random character group from the unprocessed
// group list. To allow a special character to appear in the
// first position, increment the second parameter of the Next
// function call by one, i.e. lastLeftGroupsOrderIdx + 1.
if (lastLeftGroupsOrderIdx == 0 )
nextLeftGroupsOrderIdx = 0 ;
else
nextLeftGroupsOrderIdx = random.Next( 0 ,
lastLeftGroupsOrderIdx);
// Get the actual index of the character group, from which we will
// pick the next character.
nextGroupIdx = leftGroupsOrder[nextLeftGroupsOrderIdx];
// Get the index of the last unprocessed characters in this group.
lastCharIdx = charsLeftInGroup[nextGroupIdx] - 1 ;
// If only one unprocessed character is left, pick it; otherwise,
// get a random character from the unused character list.
if (lastCharIdx == 0 )
nextCharIdx = 0 ;
else
nextCharIdx = random.Next( 0 , lastCharIdx + 1 );
// Add this character to the password.
password[i] = charGroups[nextGroupIdx][nextCharIdx];
// If we processed the last character in this group, start over.
if (lastCharIdx == 0 )
charsLeftInGroup[nextGroupIdx] =
charGroups[nextGroupIdx].Length;
// There are more unprocessed characters left.
else
{
// Swap processed character with the last unprocessed character
// so that we don't pick it until we process all characters in
// this group.
if (lastCharIdx != nextCharIdx)
{
char temp = charGroups[nextGroupIdx][lastCharIdx];
charGroups[nextGroupIdx][lastCharIdx] =
charGroups[nextGroupIdx][nextCharIdx];
charGroups[nextGroupIdx][nextCharIdx] = temp;
}
// Decrement the number of unprocessed characters in
// this group.
charsLeftInGroup[nextGroupIdx] -- ;
}
// If we processed the last group, start all over.
if (lastLeftGroupsOrderIdx == 0 )
lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1 ;
// There are more unprocessed groups left.
else
{
// Swap processed group with the last unprocessed group
// so that we don't pick it until we process all groups.
if (lastLeftGroupsOrderIdx != nextLeftGroupsOrderIdx)
{
int temp = leftGroupsOrder[lastLeftGroupsOrderIdx];
leftGroupsOrder[lastLeftGroupsOrderIdx] =
leftGroupsOrder[nextLeftGroupsOrderIdx];
leftGroupsOrder[nextLeftGroupsOrderIdx] = temp;
}
// Decrement the number of unprocessed groups.
lastLeftGroupsOrderIdx -- ;
}
}
// Convert password characters into a string and return the result.
return new string (password);
}
}
/// <summary>
/// Illustrates the use of the RandomPassword class.
/// </summary>
public class RandomPasswordTest
{
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main( string [] args)
{
// Print 100 randomly generated passwords (8-to-10 char long).
for ( int i = 0 ; i < 100 ; i ++ )
Console.WriteLine(RandomPassword.Generate( 8 , 10 ));
}
}
//
// END OF FILE
// /
VB.NET Codes
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' SAMPLE: Generates random password, which complies with the strong password
' rules and does not contain ambiguous characters.
'
' To run this sample, create a new Visual Basic.NET project using the Console
' Application template and replace the contents of the Module1.vb file with
' the code below.
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND'OR FITNESS FOR A PARTICULAR PURPOSE.
'
' Copyright (C) 2004 Obviex(TM). All rights reserved.
'
Imports System
Imports System.Security.Cryptography
Module Module1
' <summary>
' This class can generate random passwords, which do not include ambiguous
' characters, such as I, l, and 1. The generated password will be made of
' 7-bit ASCII symbols. Every four characters will include one lower case
' character, one upper case character, one number, and one special symbol
' (such as '%') in a random order. The password will always start with an
' alpha-numeric character; it will not start with a special symbol (we do
' this because some back-end systems do not like certain special
' characters in the first position).
' </summary>
Public Class RandomPassword
' Define default min and max password lengths.
Private Shared DEFAULT_MIN_PASSWORD_LENGTH As Integer = 8
Private Shared DEFAULT_MAX_PASSWORD_LENGTH As Integer = 10
' Define supported password characters divided into groups.
' You can add (or remove) characters to (from) these groups.
Private Shared PASSWORD_CHARS_LCASE As String = " abcdefgijkmnopqrstwxyz "
Private Shared PASSWORD_CHARS_UCASE As String = " ABCDEFGHJKLMNPQRSTWXYZ "
Private Shared PASSWORD_CHARS_NUMERIC As String = " 23456789 "
Private Shared PASSWORD_CHARS_SPECIAL As String = " *$-+?_&=!%{}/ "
' <summary>
' Generates a random password.
' </summary>
' <returns>
' Randomly generated password.
' </returns>
' <remarks>
' The length of the generated password will be determined at
' random. It will be no shorter than the minimum default and
' no longer than maximum default.
' </remarks>
Public Shared Function Generate() As String
Generate = Generate(DEFAULT_MIN_PASSWORD_LENGTH, _
DEFAULT_MAX_PASSWORD_LENGTH)
End Function
' <summary>
' Generates a random password of the exact length.
' </summary>
' <param name="length">
' Exact password length.
' </param>
' <returns>
' Randomly generated password.
' </returns>
Public Shared Function Generate(length As Integer ) As String
Generate = Generate(length, length)
End Function
' <summary>
' Generates a random password.
' </summary>
' <param name="minLength">
' Minimum password length.
' </param>
' <param name="maxLength">
' Maximum password length.
' </param>
' <returns>
' Randomly generated password.
' </returns>
' <remarks>
' The length of the generated password will be determined at
' random and it will fall with the range determined by the
' function parameters.
' </remarks>
Public Shared Function Generate(minLength As Integer , _
maxLength As Integer ) _
As String
' Make sure that input parameters are valid.
If (minLength <= 0 Or maxLength <= 0 Or minLength > maxLength) Then
Generate = Nothing
End If
' Create a local array containing supported password characters
' grouped by types. You can remove character groups from this
' array, but doing so will weaken the password strength.
Dim charGroups As Char ()() = New Char ()() _
{ _
PASSWORD_CHARS_LCASE.ToCharArray(), _
PASSWORD_CHARS_UCASE.ToCharArray(), _
PASSWORD_CHARS_NUMERIC.ToCharArray(), _
PASSWORD_CHARS_SPECIAL.ToCharArray() _
}
' Use this array to track the number of unused characters in each
' character group.
Dim charsLeftInGroup As Integer () = New Integer (charGroups.Length - 1 ){}
' Initially, all characters in each group are not used.
Dim I As Integer
For I = 0 To charsLeftInGroup.Length - 1
charsLeftInGroup(I) = charGroups(I).Length
Next
' Use this array to track (iterate through) unused character groups.
Dim leftGroupsOrder As Integer () = New Integer (charGroups.Length - 1 ){}
' Initially, all character groups are not used.
For I = 0 To leftGroupsOrder.Length - 1
leftGroupsOrder(I) = I
Next
' Because we cannot use the default randomizer, which is based on the
' current time (it will produce the same "random" number within a
' second), we will use a random number generator to seed the
' randomizer.
' Use a 4-byte array to fill it with random bytes and convert it then
' to an integer value.
Dim randomBytes As Byte () = New Byte ( 3 ){}
' Generate 4 random bytes.
Dim rng As RNGCryptoServiceProvider = New RNGCryptoServiceProvider()
rng.GetBytes(randomBytes)
' Convert 4 bytes into a 32-bit integer value.
Dim seed As Integer = ((randomBytes( 0 ) And & H7f) << 24 Or _
randomBytes( 1 ) << 16 Or _
randomBytes( 2 ) << 8 Or _
randomBytes( 3 ))
' Now, this is real randomization.
Dim random As Random = New Random(seed)
' This array will hold password characters.
Dim password As Char () = Nothing
' Allocate appropriate memory for the password.
If (minLength < maxLength) Then
password = New Char (random.Next(minLength - 1 , maxLength)){}
Else
password = New Char (minLength - 1 ){}
End If
' Index of the next character to be added to password.
Dim nextCharIdx As Integer
' Index of the next character group to be processed.
Dim nextGroupIdx As Integer
' Index which will be used to track not processed character groups.
Dim nextLeftGroupsOrderIdx As Integer
' Index of the last non-processed character in a group.
Dim lastCharIdx As Integer
' Index of the last non-processed group.
Dim lastLeftGroupsOrderIdx As Integer = leftGroupsOrder.Length - 1
' Generate password characters one at a time.
For I = 0 To password.Length - 1
' If only one character group remained unprocessed, process it;
' otherwise, pick a random character group from the unprocessed
' group list. To allow a special character to appear in the
' first position, increment the second parameter of the Next
' function call by one, i.e. lastLeftGroupsOrderIdx + 1.
If (lastLeftGroupsOrderIdx = 0 ) Then
nextLeftGroupsOrderIdx = 0
Else
nextLeftGroupsOrderIdx = random.Next( 0 , lastLeftGroupsOrderIdx)
End If
' Get the actual index of the character group, from which we will
' pick the next character.
nextGroupIdx = leftGroupsOrder(nextLeftGroupsOrderIdx)
' Get the index of the last unprocessed characters in this group.
lastCharIdx = charsLeftInGroup(nextGroupIdx) - 1
' If only one unprocessed character is left, pick it; otherwise,
' get a random character from the unused character list.
If (lastCharIdx = 0 ) Then
nextCharIdx = 0
Else
nextCharIdx = random.Next( 0 , lastCharIdx + 1 )
End If
' Add this character to the password.
password(I) = charGroups(nextGroupIdx)(nextCharIdx)
' If we processed the last character in this group, start over.
If (lastCharIdx = 0 ) Then
charsLeftInGroup(nextGroupIdx) = _
charGroups(nextGroupIdx).Length
' There are more unprocessed characters left.
Else
' Swap processed character with the last unprocessed character
' so that we don't pick it until we process all characters in
' this group.
If (lastCharIdx <> nextCharIdx) Then
Dim temp As Char = charGroups(nextGroupIdx)(lastCharIdx)
charGroups(nextGroupIdx)(lastCharIdx) = _
charGroups(nextGroupIdx)(nextCharIdx)
charGroups(nextGroupIdx)(nextCharIdx) = temp
End If
' Decrement the number of unprocessed characters in
' this group.
charsLeftInGroup(nextGroupIdx) = _
charsLeftInGroup(nextGroupIdx) - 1
End If
' If we processed the last group, start all over.
If (lastLeftGroupsOrderIdx = 0 ) Then
lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1
' There are more unprocessed groups left.
Else
' Swap processed group with the last unprocessed group
' so that we don't pick it until we process all groups.
If (lastLeftGroupsOrderIdx <> nextLeftGroupsOrderIdx) Then
Dim temp As Integer = _
leftGroupsOrder(lastLeftGroupsOrderIdx)
leftGroupsOrder(lastLeftGroupsOrderIdx) = _
leftGroupsOrder(nextLeftGroupsOrderIdx)
leftGroupsOrder(nextLeftGroupsOrderIdx) = temp
End If
' Decrement the number of unprocessed groups.
lastLeftGroupsOrderIdx = lastLeftGroupsOrderIdx - 1
End If
Next
' Convert password characters into a string and return the result.
Generate = New String (password)
End Function
End Class
' <summary>
' The main entry point for the application.
' </summary>
Sub Main()
Dim I As Integer
For I = 1 To 100
Console.WriteLine(RandomPassword.Generate( 8 , 10 ))
Next
End Sub
End Module
'
' END OF FILE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '
' SAMPLE: Generates random password, which complies with the strong password
' rules and does not contain ambiguous characters.
'
' To run this sample, create a new Visual Basic.NET project using the Console
' Application template and replace the contents of the Module1.vb file with
' the code below.
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND'OR FITNESS FOR A PARTICULAR PURPOSE.
'
' Copyright (C) 2004 Obviex(TM). All rights reserved.
'
Imports System
Imports System.Security.Cryptography
Module Module1
' <summary>
' This class can generate random passwords, which do not include ambiguous
' characters, such as I, l, and 1. The generated password will be made of
' 7-bit ASCII symbols. Every four characters will include one lower case
' character, one upper case character, one number, and one special symbol
' (such as '%') in a random order. The password will always start with an
' alpha-numeric character; it will not start with a special symbol (we do
' this because some back-end systems do not like certain special
' characters in the first position).
' </summary>
Public Class RandomPassword
' Define default min and max password lengths.
Private Shared DEFAULT_MIN_PASSWORD_LENGTH As Integer = 8
Private Shared DEFAULT_MAX_PASSWORD_LENGTH As Integer = 10
' Define supported password characters divided into groups.
' You can add (or remove) characters to (from) these groups.
Private Shared PASSWORD_CHARS_LCASE As String = " abcdefgijkmnopqrstwxyz "
Private Shared PASSWORD_CHARS_UCASE As String = " ABCDEFGHJKLMNPQRSTWXYZ "
Private Shared PASSWORD_CHARS_NUMERIC As String = " 23456789 "
Private Shared PASSWORD_CHARS_SPECIAL As String = " *$-+?_&=!%{}/ "
' <summary>
' Generates a random password.
' </summary>
' <returns>
' Randomly generated password.
' </returns>
' <remarks>
' The length of the generated password will be determined at
' random. It will be no shorter than the minimum default and
' no longer than maximum default.
' </remarks>
Public Shared Function Generate() As String
Generate = Generate(DEFAULT_MIN_PASSWORD_LENGTH, _
DEFAULT_MAX_PASSWORD_LENGTH)
End Function
' <summary>
' Generates a random password of the exact length.
' </summary>
' <param name="length">
' Exact password length.
' </param>
' <returns>
' Randomly generated password.
' </returns>
Public Shared Function Generate(length As Integer ) As String
Generate = Generate(length, length)
End Function
' <summary>
' Generates a random password.
' </summary>
' <param name="minLength">
' Minimum password length.
' </param>
' <param name="maxLength">
' Maximum password length.
' </param>
' <returns>
' Randomly generated password.
' </returns>
' <remarks>
' The length of the generated password will be determined at
' random and it will fall with the range determined by the
' function parameters.
' </remarks>
Public Shared Function Generate(minLength As Integer , _
maxLength As Integer ) _
As String
' Make sure that input parameters are valid.
If (minLength <= 0 Or maxLength <= 0 Or minLength > maxLength) Then
Generate = Nothing
End If
' Create a local array containing supported password characters
' grouped by types. You can remove character groups from this
' array, but doing so will weaken the password strength.
Dim charGroups As Char ()() = New Char ()() _
{ _
PASSWORD_CHARS_LCASE.ToCharArray(), _
PASSWORD_CHARS_UCASE.ToCharArray(), _
PASSWORD_CHARS_NUMERIC.ToCharArray(), _
PASSWORD_CHARS_SPECIAL.ToCharArray() _
}
' Use this array to track the number of unused characters in each
' character group.
Dim charsLeftInGroup As Integer () = New Integer (charGroups.Length - 1 ){}
' Initially, all characters in each group are not used.
Dim I As Integer
For I = 0 To charsLeftInGroup.Length - 1
charsLeftInGroup(I) = charGroups(I).Length
Next
' Use this array to track (iterate through) unused character groups.
Dim leftGroupsOrder As Integer () = New Integer (charGroups.Length - 1 ){}
' Initially, all character groups are not used.
For I = 0 To leftGroupsOrder.Length - 1
leftGroupsOrder(I) = I
Next
' Because we cannot use the default randomizer, which is based on the
' current time (it will produce the same "random" number within a
' second), we will use a random number generator to seed the
' randomizer.
' Use a 4-byte array to fill it with random bytes and convert it then
' to an integer value.
Dim randomBytes As Byte () = New Byte ( 3 ){}
' Generate 4 random bytes.
Dim rng As RNGCryptoServiceProvider = New RNGCryptoServiceProvider()
rng.GetBytes(randomBytes)
' Convert 4 bytes into a 32-bit integer value.
Dim seed As Integer = ((randomBytes( 0 ) And & H7f) << 24 Or _
randomBytes( 1 ) << 16 Or _
randomBytes( 2 ) << 8 Or _
randomBytes( 3 ))
' Now, this is real randomization.
Dim random As Random = New Random(seed)
' This array will hold password characters.
Dim password As Char () = Nothing
' Allocate appropriate memory for the password.
If (minLength < maxLength) Then
password = New Char (random.Next(minLength - 1 , maxLength)){}
Else
password = New Char (minLength - 1 ){}
End If
' Index of the next character to be added to password.
Dim nextCharIdx As Integer
' Index of the next character group to be processed.
Dim nextGroupIdx As Integer
' Index which will be used to track not processed character groups.
Dim nextLeftGroupsOrderIdx As Integer
' Index of the last non-processed character in a group.
Dim lastCharIdx As Integer
' Index of the last non-processed group.
Dim lastLeftGroupsOrderIdx As Integer = leftGroupsOrder.Length - 1
' Generate password characters one at a time.
For I = 0 To password.Length - 1
' If only one character group remained unprocessed, process it;
' otherwise, pick a random character group from the unprocessed
' group list. To allow a special character to appear in the
' first position, increment the second parameter of the Next
' function call by one, i.e. lastLeftGroupsOrderIdx + 1.
If (lastLeftGroupsOrderIdx = 0 ) Then
nextLeftGroupsOrderIdx = 0
Else
nextLeftGroupsOrderIdx = random.Next( 0 , lastLeftGroupsOrderIdx)
End If
' Get the actual index of the character group, from which we will
' pick the next character.
nextGroupIdx = leftGroupsOrder(nextLeftGroupsOrderIdx)
' Get the index of the last unprocessed characters in this group.
lastCharIdx = charsLeftInGroup(nextGroupIdx) - 1
' If only one unprocessed character is left, pick it; otherwise,
' get a random character from the unused character list.
If (lastCharIdx = 0 ) Then
nextCharIdx = 0
Else
nextCharIdx = random.Next( 0 , lastCharIdx + 1 )
End If
' Add this character to the password.
password(I) = charGroups(nextGroupIdx)(nextCharIdx)
' If we processed the last character in this group, start over.
If (lastCharIdx = 0 ) Then
charsLeftInGroup(nextGroupIdx) = _
charGroups(nextGroupIdx).Length
' There are more unprocessed characters left.
Else
' Swap processed character with the last unprocessed character
' so that we don't pick it until we process all characters in
' this group.
If (lastCharIdx <> nextCharIdx) Then
Dim temp As Char = charGroups(nextGroupIdx)(lastCharIdx)
charGroups(nextGroupIdx)(lastCharIdx) = _
charGroups(nextGroupIdx)(nextCharIdx)
charGroups(nextGroupIdx)(nextCharIdx) = temp
End If
' Decrement the number of unprocessed characters in
' this group.
charsLeftInGroup(nextGroupIdx) = _
charsLeftInGroup(nextGroupIdx) - 1
End If
' If we processed the last group, start all over.
If (lastLeftGroupsOrderIdx = 0 ) Then
lastLeftGroupsOrderIdx = leftGroupsOrder.Length - 1
' There are more unprocessed groups left.
Else
' Swap processed group with the last unprocessed group
' so that we don't pick it until we process all groups.
If (lastLeftGroupsOrderIdx <> nextLeftGroupsOrderIdx) Then
Dim temp As Integer = _
leftGroupsOrder(lastLeftGroupsOrderIdx)
leftGroupsOrder(lastLeftGroupsOrderIdx) = _
leftGroupsOrder(nextLeftGroupsOrderIdx)
leftGroupsOrder(nextLeftGroupsOrderIdx) = temp
End If
' Decrement the number of unprocessed groups.
lastLeftGroupsOrderIdx = lastLeftGroupsOrderIdx - 1
End If
Next
' Convert password characters into a string and return the result.
Generate = New String (password)
End Function
End Class
' <summary>
' The main entry point for the application.
' </summary>
Sub Main()
Dim I As Integer
For I = 1 To 100
Console.WriteLine(RandomPassword.Generate( 8 , 10 ))
Next
End Sub
End Module
'
' END OF FILE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '
Code Output B$g3-6YpjA
Nk5{!Yb37
P}o8wX7$!
Dc5+t=Q8}P
gG_2?a4H
yW}5K3w*9
Qr9%5-jHg
8Bg%s*A63q
3Nd?E{5jxY
2Kf!s}E9
3z$XN9q*+