17/09/2011, 06:03
|
| | | Fecha de Ingreso: septiembre-2011
Mensajes: 8
Antigüedad: 13 años, 3 meses Puntos: 0 | |
| Respuesta: Biblioteca de Clases,Funciones y Sub-rutinas.
Para crear un pass al azar.
Function GeneraPassword
Randomize Timer
Letras = ""
For t = 65 To 90
Letras = Letras & Chr(t)
Next
For t = 48 To 57
Letras = Letras & Chr(t)
Next
For t = 1 to 8
GeneraPassword = GeneraPassword & Mid(Letras, Int(RND * Len(Letras)) + 1, 1)
Next
End Function |