ระบบกำหนดรหัสผ่านแบบสุ่ม

การคัดลอกรหัสมีดังนี้:

-

'ระบบจัดสรรรหัสผ่านแบบสุ่ม

FunctionCreatePass ()

dimran, i, lengthnum

LengthNum = 6

createPass = ""

fori = 1tolengthnum

สุ่ม

ran = cint (rnd*2)

สุ่ม

ifran = 0 แล้ว

ran = cint (rnd*25) +97

createPass = createPass & ucase (chr (ran))

elseifran = 1 จากนั้น

ran = cint (rnd*9)

createPass = createPass & ran

elseifran = 2 จากนั้น

ran = cint (rnd*25) +97

createPass = createPass & ch (วิ่ง)

endif

ต่อไป

endfunction

Response.writeCreatePass ()

-