Salinan kode adalah sebagai berikut:
<%
'Sistem mengalokasikan kata sandi acak
FunctionCreatePass ()
Dimran, I, Lengthnum
Panjang = 6
CreatePass = ""
Fori = 1tolengthnum
Mengacak
Ran = cint (rnd*2)
Mengacak
Ifran = 0then
Ran = cint (rnd*25) +97
CreatePass = createPass & ucase (chr (ran))
Elseifran = 1then
Ran = cint (rnd*9)
CreatePass = createPass & ran
Elseifran = 2then
Ran = cint (rnd*25) +97
CreatePass = createPass & chr (ran)
Endif
Berikutnya
Fungsi endfungsi
response.writecreatePass ()
%>