Public Function GetSecureRandomString(ByVal iLength As Integer) As String Dim result As New StringBuilder Dim number(0) As Byte Using gen As New RNGCryptoServiceProvider() While result.Length < iLength gen.GetBytes(number) If IsNumInRange(number(0), 32, 126) Then result.Append(ChrW(number(0))) End If End While End Using Return result.ToString End Function Private Function IsNumInRange(ByVal number As Integer, ByVal rngStart As Integer, ByVal rngStop As Integer) As Boolean If number >= rngStart AndALso number < rngStop Then Return True End If Return False End Function
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add betterbuiltsupport@spartacus2.betterbuilt.net to your trusted senders list in your email software.