[VB.NET] Gerador de Chaves

[Dark_KinG]

A função abaixo utiliza o StringBuilder e a classe Random para fazer a geração de uma senha aleatória com digitos e letras.

O parâmetro de entrada é o tamanho da senha, a saida será a senha formada.

Observe o uso do AndAlso e OrElse, recursos não documentados do VB.NET

Function GetRandomPassword(ByVal length As Integer) As String 
Static rand As New Random 
Dim password As New System.Text.StringBuilder(length) 

For i As Integer = 1 To length 
Dim charIndex As Integer 
' allow only digits and letters 
Do 
charIndex = rand.Next(48, 123) 
Loop Until (charIndex >= 48 AndAlso charIndex <= 57) OrElse (charIndex _ 
>= 65 AndAlso charIndex <= 90) OrElse (charIndex >= 97 AndAlso _ 
charIndex <= 122) 
' add the random char to the password being built 
password.Append(Convert.ToChar(charIndex)) 
Next 
Return password.ToString() 
End Function

 

[brixsat]

Obrigado

Andava a procura de algo assim! Obrigado:espi28: