乱数によるパスワード生成

unit


[foo.aspx.vb]

    Function randomPassword(ByVal size As Integer)

        Dim returnstr As String = ""
        Dim i As Integer

        Randomize()

        For i = 1 To size
            Select Case CInt(Int( (2 - 0 + 1) * Rnd() + 0) )
                Case 0 'a-z
                    returnstr += Chr(Asc("a") + CInt(Int((25 - 0 + 1) * Rnd() + 0)))
                Case 1 'A-Z
                    returnstr += Chr(Asc("A") + CInt(Int((25 - 0 + 1) * Rnd() + 0)))
                Case 2 '0-9
                    returnstr += Chr(Asc("0") + CInt(Int((9 - 0 + 1) * Rnd() + 0)))
                Case Else
                    returnstr += "x"
            End Select
        Next

        Return returnstr

    End Function