<％
'*******************************
'機能：gen_key（桁）
'パラメーター：数字----乱数を生成するためのビット数
著者：アリクシ
'日付：2007/7/13
'説明：数字、大文字、小文字で指定された乱数の数字を生成します。返品値：生成される指定された倍数の乱数
'例：<％= gen_key（8）％>
'*******************************
functiongen_key（桁）
'配列を定義して初期化します
dimchar_array（80）
'番号を初期化します
fori = 0to9
char_array（i）= cstr（i）
次
'大文字を初期化します
fori = 10to35
char_array（i）= chr（i+55）
次
'小文字を初期化します
fori = 36to61
char_array（i）= chr（i+61）
次
ランダム化 '乱数ジェネレーターを初期化します。
Dowhilelen（出力）<桁
num = char_array（int（（62-0+1）*rnd+0））
出力=出力+num
ループ
'返品値を設定します
gen_key = output
エンド機能
％>