<％
'*******************************
'機能：makepassword（byvalmaxlen）
'パラメーター：Maxlen、生成されるパスワード数字の長さ
著者：アリクシ
'日付：2007/7/12
'説明：任意の数字のランダムパスワードを生成します
'例：<％= makepassword（8）％>
'*******************************
functionmakepassword（byvalmaxlen）
dimstrnewpass
dimwhatsnext、上、下、intcounter
ランダム化
forintcounter = 1tomaxlen
whatsnext = int（（1-0+1）*rnd+0）
ifwhatsnext = 0then
'キャラクター
上部= 90
低= 65
それ以外
上部= 57
低= 48
endif
strnewpass = strnewpass＆chr（int（（upper-lower+1）*rnd+lower）））
次
makepassword = strnewpass
エンド機能
％>