'A sample visual code on how to generate a best random password generator
Public Function GeneratePassword(ByVal lngLength As Long) _
As String
On Error GoTo Err_Proc
Dim iChr As Integer
Dim c As Long
Dim strResult As String
Dim iAsc As String
Randomize Timer
For c = 1 To lngLength
'Randomly decide what set of ASCII chars we will use
iAsc = Int(3 * Rnd + 1)
'Randomly pick a char from the random set
Select Case iAsc
Case 1
iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))
Case 2
iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))
Case 3
iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))
Case Else
Err.Raise 20000, , "GeneratePassword has a problem."
End Select
strResult = strResult & Chr(iChr)
Next c
GeneratePassword = strResult
Exit_Proc:
Exit Function
Err_Proc:
MsgBox Err.Number & ": " & Err.Description, _
vbOKOnly + vbCritical
GeneratePassword = vbNullString
Resume Exit_Proc
End Function
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :