ASPでのパスワードジェネレータの例

パスワードを生成する必要があるアプリケーションを作成している場合、ASPのこのコードは非常に役立ちます。

次のコードをコピーして、名前を付けて保存します GeneratorPassword.asp

'ASPのパスワードジェネレータの例

関数gen_con（max_num）

dim gen_array（36）
'文字配列 

gen_array（0）= "0"
gen_array（1）= "1"
gen_array（2）= "2"
gen_array（3）= "3"
gen_array（4）= "4"
gen_array（5）= "5"
gen_array（6）= "6"
gen_array（7）= "7"
gen_array（8）= "8"
gen_array（9）= "9"
gen_array（10）= "a"
gen_array（11）= "b"
gen_array（12）= "c"
gen_array（13）= "d"
gen_array（14）= "e"
gen_array（15）= "f"
gen_array（16）= "g"
gen_array（17）= "h"
gen_array（18）= "i"
gen_array（19）= "j"
gen_array（20）= "k"
gen_array（21）= "l"
gen_array（22）= "m"
gen_array（23）= "n"
gen_array（24）= "o"
gen_array（25）= "p"
gen_array（26）= "q"
gen_array（27）= "r"
gen_array（28）= "s"
gen_array（29）= "t"
gen_array（30）= "u"
gen_array（31）= "v"
gen_array（32）= "w"
gen_array（33）= "x"
gen_array（34）= "y"
gen_array（35）= "z"

ランダム化
'長さに達するまでチェーンを生成します

do while len（出力） num = gen_array（Int（（35-0 + 1）* Rnd + 0））
出力=出力+数値
ループ

'関数は結果を返します=出力

gen_con =出力
終了機能

'最大値をとる出力関数

リクエストの場合。 フォーム（ "NUMGEN"）<> "" THEN

intGEN = CInt（リクエスト。 フォーム（ "NUMGEN"））
a = 0
<500の間に行う
response.write gen_con（intGEN）＆ "
"
a = a + 1
ループ
終了する場合


%>

 o =文字「o」
 O =大文字の「O」
 0 =ゼロ
 l =文字「l」
 1 =番号1

文字数を選択...
6文字の長いパスワード
8文字の長いパスワード
10文字の長さのパスワード