Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
607
Assunto : .NET
Titulo: Geração de senhas aleatórias

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon




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 que já foram citados em dicas aqui no site.


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


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 1/31/2017 10:45:00 AM
nome: nVUQMKrCMeslcfi
email: derby451@hotmail.com
comentário:
UVX4Zw http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 8:01:00 AM
nome: UDkNHlOMbKU
email: jogcbfn@hotmail.com
comentário:
Nztcbu http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 7:58:00 AM
nome: mWnbwhqeaIejpehG
email: derby451@hotmail.com
comentário:
DywMo1 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/8/2017 5:26:00 PM
nome: PCodqbHzVhDxjPTem
email: jfvynms4281rt@hotmail.com
comentário:
FuZ4zy http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br