Hasilkan kata sandi pengguna secara acak (bagus), instruksi: Dengan menghasilkan kata sandi secara acak dan kemudian mengirim email kata sandi ke pengguna terdaftar, Anda dapat mengonfirmasi apakah email pengguna diisi dengan benar.
Catatan: Dengan secara acak menghasilkan kata sandi dan kemudian kirim email ke kata sandi ke pengguna terdaftar, Anda dapat mengonfirmasi apakah email pengguna diisi dengan benar. Kata sandi yang dihasilkan secara otomatis cenderung lebih aman, dan pada saat yang sama, Anda dapat memfilter pengguna yang tidak valid.
Simpan kode berikut sebagai file random.asp:
Salinan kode adalah sebagai berikut:
<%
Substrrandomize (Strseed)
Dimi, nseed
nseed = clng (0)
Fori = 1tolen (strseed)
nseed = nseEdxor ((256*((i-1) mod4)*ascb (mid (strseed, i, 1)))))))
Berikutnya
Acak
Endsub
FunctionGenerCassword (nlength)
Dimi, Bmadeconsonant, C, nrnd
Conststrdoubleconsonants = "bdfglmnpst"
Conststrconsonants = "bcdfghklmnpqrstv"
Conststrvocal = "aeiou"
GeneratePassword = ""
bmadeconsonant = false
Fori = 0TonLength
nrnd = rnd
IfgenerCasword <> "" dan (bmadeconsonant <> true) dan (nrnd <0,15) kemudian
c = mid (strdoubleconsonants, int (len (strdoubleconsonants)*rnd+1), 1)
C = C&C
i = i+1
bmadeconsonant = true
Kalau tidak
If (bmadeconsonant <> true) dan (nrnd <0,95) lalu
c = mid (strconsonants, int (len (strconsonants)*rnd+1), 1)
bmadeconsonant = true
Kalau tidak
c = mid (strvocal, int (len (strvocal)*rnd+1), 1)
bmadeconsonant = false
Endif
Endif
GeneratePassword = GeneratePassword & c
Berikutnya
Iflen (generatePassword)> nlengththen
GeneratePassword = kiri (generatePassword, nlength)