document.write('
');
document.write('Public Function pass(Optional intLength As Integer = 8, Optional boolIncUpper As Boolean = False, Optional boolIncSign As Boolean = False)
');
document.write('
');
document.write(' Dim strPass As String
');
document.write(' Dim strLower As String
');
document.write(' Dim strUpper As String
');
document.write(' Dim strNumber As String
');
document.write(' Dim strSign As String
');
document.write(' Dim strChars As String
');
document.write(' Dim intMax As Integer
');
document.write(' Dim i As Integer
');
document.write('
');
document.write(' strLower = "qwertyuiopasdfghjklzxcvbnm"
');
document.write(' strUpper = "QWERTYUIOPASDFGHJKLZXCVBNM"
');
document.write(' strNumber = "123456789"
');
document.write(' strSign = "-^@[;:],./!""#$%&\'()=~|`{+*}<>?_"
');
document.write('
');
document.write(' strChars = strLower & strNumber
');
document.write('
');
document.write(' If boolIncUpper = True Then
');
document.write('
');
document.write(' strChars = strChars & strUpper
');
document.write('
');
document.write(' End If
');
document.write('
');
document.write(' If boolIncSign = True Then
');
document.write('
');
document.write(' strChars = strChars & strSign
');
document.write('
');
document.write(' End If
');
document.write('
');
document.write(' intMax = Len(strChars)
');
document.write('
');
document.write(' For i = 1 To intLength
');
document.write('
');
document.write(' strPass = Mid(strChars, Int((intMax - 1 + 1) * Rnd + 1), 1) & strPass
');
document.write('
');
document.write(' Next i
');
document.write('
');
document.write(' pass = strPass
');
document.write('
');
document.write('End Function
');
document.write('
');
document.write('
');