Attribute VB_Name = "暗証生成"
Sub 暗証32桁生成マクロ――英数字のみ()
    Randomize '●●●乱数発生ルーチンを初期化する
    暗証 = ""
    kk = 0
    Do Until kk = 32
        コード = Int(256 * Rnd)
        If コード < 48 Or コード > 122 Then
        ElseIf コード > 57 And コード < 65 Then
        ElseIf コード > 90 And コード < 97 Then
        Else
            kk = kk + 1
            暗証 = 暗証 + Chr(コード)
        End If
    Loop
    Debug.Print 暗証
End Sub
Sub 暗証32桁生成マクロ――記号入り()
'――パスワードで使える通常記号24件( !#$()*+,-./:;@[]^_`{|}~)
'――パスワードで使えない特殊記号10件("%&'<=>?\)
    Randomize '●●●乱数発生ルーチンを初期化する
    暗証 = ""
    kk = 0
    Do Until kk = 32
        コード = Int(256 * Rnd)
        If コード < 32 Or コード > 127 Then
        ElseIf コード = 34 Then '"
        ElseIf コード = 37 Then '%
        ElseIf コード = 38 Then '&
        ElseIf コード = 39 Then ''
        ElseIf コード = 60 Then '<
        ElseIf コード = 61 Then '=
        ElseIf コード = 62 Then '>
        ElseIf コード = 63 Then '?
        ElseIf コード = 92 Then '\
        ElseIf コード = 127 Then '
        Else
            kk = kk + 1
            暗証 = 暗証 + Chr(コード)
        End If
    Loop
    Debug.Print 暗証
End Sub