قم بإنشاء كلمة مرور المستخدم بشكل عشوائي (جيد) ، والتعليمات: عن طريق إنشاء كلمة مرور بشكل عشوائي ، ثم أرسل كلمة المرور بالبريد الإلكتروني إلى المستخدم المسجل ، يمكنك تأكيد ما إذا تم ملء البريد الإلكتروني للمستخدم بشكل صحيح.
ملاحظة: عن طريق إنشاء كلمة مرور بشكل عشوائي ثم إرسال كلمة المرور بالبريد الإلكتروني إلى المستخدم المسجل ، يمكنك تأكيد ما إذا كان بريد إلكتروني المستخدم تم ملؤه بشكل صحيح. تميل كلمات المرور التي تم إنشاؤها تلقائيًا إلى أن تكون أكثر أمانًا ، وفي الوقت نفسه ، يمكنك تصفية المستخدمين غير الصالحين.
احفظ الكود التالي كملف عشوائي. asp:
نسخة الكود كما يلي:
<٪
Substrrrandomize (strseed)
ديمي ، نسيد
nseed = clng (0)
fori = 1tolen (strseed)
nseed = nseedxor ((256*((I-1) mod4)*ASCB (mid (strseed ، i ، 1))))))))))))))))))))))))
التالي
عشوائي
ينتهي
وظيفة generatepassword (Nlength)
Dimi ، Bmadeconsonant ، C ، nrnd
conststrdoubleconsonants = "bdfglmnpst"
conststrconsonants = "BCDFGHKLMNPQRSTV"
conststrvocal = "aeiou"
cenderatepassword = ""
bmadeconsonant = خطأ
fori = 0tonlength
nrnd = rnd
ifgeneratepassword <> "" و (bmadeconsonant <> true) و (nrnd <0.15) ثم
C = Mid (StrdoubleConsonants ، int (len (strdoubleConsonants)*rnd+1) ، 1)
C = C & C.
i = i+1
bmadeconsonant = صحيح
آخر
إذا (bmadeconsonant <> true) و (nrnd <0.95) ثم
ج = منتصف (strconsonants ، int (len (strconsonants)*rnd+1) ، 1)
bmadeconsonant = صحيح
آخر
ج = منتصف (strvocal ، int (len (strvocal)*rnd+1) ، 1)
bmadeconsonant = خطأ
Endif
Endif
cenderatepassword = cenderatepassword & c
التالي
iflen (cenderatepassword)> nlengththen
cenderatePassword = Left (internatepassword ، nlength)