UWSC ランダムパスワード作成処理

uwsc
ランダムパスワードを作成する処理です。
lenに文字数を指定してください。
[java]
function GetRandomePassword(len)
phrase1 = “”
phrase1 = phrase1 + “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
phrase1 = phrase1 + “abcdefghijklmnopqrstuvwxyz”
phrase1 = phrase1 + “0123456789”
phrase2 = “”
phrase2 = phrase2 + “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
phrase2 = phrase2 + “abcdefghijklmnopqrstuvwxyz”
phrase3 = “0123456789”
password = “”
for i = 1 to len
n = random(3)
if n = 0 then
password = password + copy(phrase1, random(length(phrase1)), 1)
endif
if n = 1 then
password = password + copy(phrase2, random(length(phrase2)), 1)
endif
if n = 2 then
password = password + copy(phrase3, random(length(phrase3)), 1)
endif
next
result = password
fend
[/java]