• Home
 · 
• String Manipulation
 · 
• A nifty littel password generator

A nifty littel password generator

A nifty littel password generator

API Declarations


Const Abc = "ABCDEFGHIJLMNOPQRSTUVWXYZ" ' is that all letters in the alphabet?



Rate A nifty littel password generator

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim i, x, z, a
    Randomize
    For z = 1 To 12
        a = Int((Rnd * 2) + 1)
        If a = 1 Then
            i = Int((Rnd * 25) + 1)
            x = Mid(Abc, i, 1)
        End If
        If a = 2 Then
            x = Int((Rnd * 9) + 1)
        End If
        Text1 = Text1 & x
    Next
End Sub