生成随机密码的函数

PHP:

Function Createpass(LengthNum)
'lengthNum是长度，默认是下面的16位
        Dim Ran,i
        if Not IsNumeric(LengthNum) then LengthNum=16
        Createpass=""
        For i=1 To LengthNum
            Randomize
            Ran = CInt(Rnd * 2)
            Randomize
            If Ran = 0 Then
                Ran = CInt(Rnd * 25) + 97
                Createpass =Createpass& UCase(Chr(Ran))
            ElseIf Ran = 1 Then
                Ran = CInt(Rnd * 9)
                Createpass = Createpass & Ran
            ElseIf Ran = 2 Then
                Ran = CInt(Rnd * 25) + 97
                Createpass =Createpass& Chr(Ran)
            End If
        Next
    End Function