<%
'***********************************
'Fungsi: Makepassword (byvalmaxlen)
'Parameter: Maxlen, panjang angka kata sandi yang akan dihasilkan
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: menghasilkan kata sandi acak dari sejumlah digit
'Contoh: <%= Makepassword (8)%>
'***********************************
functionMakePassword (byvalmaxlen)
Dimstrnewpass
DIMWhatsNext, Atas, Bawah, Intcounter
mengacak
forintcounter = 1tomaxlen
whatsnext = int ((1-0+1)*rnd+0)
IfwhatsNext = 0then
'karakter
atas = 90
lebih rendah = 65
kalau tidak
atas = 57
lebih rendah = 48
endif
StrnewPass = StrnewPass & Chr (int ((lebih rendah+1)*rnd+lebih rendah))
Berikutnya
Makepassword = StrnewPass
fungsi endfungsi
%>