<%
'***********************************
'Fungsi: generator (panjang)
'Parameter: Panjang, nilai panjang sewenang -wenang, jumlah digit kode acak
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: menghasilkan fungsi kode acak dari setiap bahasa Inggris + digit panjang
'Contoh: Generator (80)
'***********************************
FunctionGenerator (panjang)
Dimi, Temps
temps = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
Ifisnumeric (length) = falsethen
Fungsi keluar
Endif
Fori = 1Tolength
Mengacak
Generator = generator & mid (temps, int ((len (temps)*rnd) +1), 1)
Berikutnya
Fungsi endfungsi
%>