قم بإعداد وظيفة تنشئ كلمات مرور عشوائية؟

<٪

وظيفة makepassword (Byval Maxlen)

قاتمة strnewpass

قاتمة Whatsnext ، العلوي ، السفلي ، intcounter

عشوائي

لـ Intcounter = 1 إلى Maxlen

WhatsNext = int ((1-0 1) * rnd 0)

إذا كان whatsnext = 0 ثم

العلوي = 90

أقل = 65

آخر

العلوي = 57

أقل = 48

إنهاء إذا

strnewpass = strnewpass & chr (inchete -lower 1) * rnd lower)

التالي

Makepassword = strnewpass

وظيفة نهاية

حدد طول كلمة المرور ، واتصل بالوظيفة

Response.write Makepassword (16)

٪>