مثال مولد كلمة المرور في ASP

إذا كنت تقوم بإنشاء تطبيق حيث يكون من الضروري إنشاء كلمة مرور ، فسيكون هذا الجزء من التعليمات البرمجية في ASP مفيدًا للغاية.

انسخ الكود التالي واحفظه بالاسم GeneratorPassword.asp

مثال على منشئ كلمات المرور في ASP

الدالة gen_con (max_num)

خافت gen_array (36)
مجموعة من الشخصيات 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "أ"
gen_array (11) = "ب"
gen_array (12) = "c"
gen_array (13) = "د"
gen_array (14) = "هـ"
gen_array (15) = "f"
gen_array (16) = "ز"
gen_array (17) = "ح"
gen_array (18) = "أنا"
gen_array (19) = "j"
gen_array (20) = "ك"
gen_array (21) = "l"
gen_array (22) = "م"
gen_array (23) = "n"
gen_array (24) = "س"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "r"
gen_array (28) = "s"
gen_array (29) = "t"
gen_array (30) = "u"
gen_array (31) = "v"
gen_array (32) = "w"
gen_array (33) = "س"
gen_array (34) = "y"
gen_array (35) = "z"

عشوائيا
قم بإنشاء السلسلة حتى يتم الوصول إلى الطول

افعل بينما len (الإخراج) العدد = gen_array (Int ((35-0 + 1) * Rnd + 0))
الإخراج = الإخراج + الأسطوانات
حلقه

تقوم الدالة بإرجاع نتيجة = إخراج

gen_con = الإخراج
وظيفة النهاية

وظيفة الإخراج التي تأخذ القيمة القصوى

إذا طلب. نموذج ("NUMGEN") <> "" ثم
intGEN = CInt (طلب. نموذج ("NUMGEN"))
أ = 0
افعل بينما <500
response.write gen_con (intGEN) & "
"
أ = أ + 1
حلقه
إنهاء إذا


%>

 س = الحرف "س"
 O = الحرف الكبير "O"
 0 = صفر
 l = الحرف "l"
 1 = رقم 1