USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Gerando senhas aleatórias
Postada em 6/10/2003 por ^HEAVY-METAL^            
Public Function PassGen(Optional nLen As Integer = 8) As String
Dim range As Collection
Dim ivalue, icount
Dim  iLen As Long
Dim pass As String

Set range = New Collection
range.Add ("0")
range.Add ("1")
range.Add ("2")
range.Add ("3")
range.Add ("4")
range.Add ("5")
range.Add ("6")
range.Add ("7")
range.Add ("8")
range.Add ("9")
range.Add ("A")
range.Add ("B")
range.Add ("C")
range.Add ("D")
range.Add ("E")
range.Add ("F")
range.Add ("G")
range.Add ("H")
range.Add ("I")
range.Add ("J")
range.Add ("K")
range.Add ("L")
range.Add ("M")
range.Add ("N")
range.Add ("O")
range.Add ("P")
range.Add ("Q")
range.Add ("R")
range.Add ("S")
range.Add ("T")
range.Add ("U")
range.Add ("V")
range.Add ("W")
range.Add ("X")
range.Add ("Y")
range.Add ("Z")
range.Add ("a")
range.Add ("b")
range.Add ("c")
range.Add ("d")
range.Add ("e")
range.Add ("f")
range.Add ("g")
range.Add ("h")
range.Add ("i")
range.Add ("j")
range.Add ("k")
range.Add ("l")
range.Add ("m")
range.Add ("n")
range.Add ("o")
range.Add ("p")
range.Add ("q")
range.Add ("r")
range.Add ("s")
range.Add ("t")
range.Add ("u")
range.Add ("v")
range.Add ("w")
range.Add ("x")
range.Add ("y")
range.Add ("z")

    icount = 0
    ivalue = 0
    iLen = range.Count

   Do Until icount = nLen
     Randomize
     ivalue = CByte(Mid(CStr(Rnd(GetTickCount)), 3, 2))
      If ivalue > 0 And ivalue <= iLen Then
         icount = icount + 1
         pass = pass & range(ivalue)
      End If
   Loop

PassGen = pass
End Function

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página