Rusli

Private _Key As String = "abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#$%^&*()-_=+\|]}[{';:/?.>,<"

''' <summary>
''' Secure Password Generator 隨機密碼產生器
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function PasswordGenerator(ByVal vintPWDCount As Integer) As String
	Dim aryKey As Char() = _Key.ToCharArray
	Dim intRondomizeIndex As Integer = 0
	
	If vintPWDCount < 8 Then vintPWDCount = 8
	
	Dim strReturn As New StringBuilder
	For intIndex As Integer = 1 To vintPWDCount
		Randomize()
		Dim rdnValue As Integer = CInt(Int(((aryKey.Length - 1) * Rnd())))
		strReturn.Append(aryKey(rdnValue))
	Next
	
	Return strReturn.ToString
End Function