<％
'*******************************
'関数：ジェネレーター（長さ）
'パラメーター：長さ、任意の長さの値、ランダムコード桁数
著者：アリクシ
'日付：2007/7/15
'説明：英語 +桁の長さのランダムコード関数を生成する
'例：ジェネレーター（80）
'*******************************
functiongenerator（長さ）
ディミ、温度
temps = "abcdefghijklmnopqrstuvwxyz1234567890"
generator = ""
ifisnumeric（length）= falsethen
exitFunction
endif
fori = 1tolength
ランダム化
generator = generator＆mid（temps、int（（len（temps）*rnd）+1）、1）
次
エンド機能
％>