<٪
'*********************************
'الوظيفة: makepassword (byvalmaxlen)
المعلمة: maxlen ، طول أرقام كلمة المرور المراد إنشاءها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: إنشاء كلمات مرور عشوائية لأي عدد من الأرقام
"مثال: <٪ = MakePSPORD (8) ٪>
'*********************************
وظيفة POSTRIONMAKESPORD (BYVALMAXLEN)
Dimstnewpass
dimwhatsnext ، العلوي ، السفلي ، intcounter
عشوائي
forintcounter = 1Tomaxlen
WhatsNext = int ((1-0+1)*rnd+0)
ifwhatsnext = 0then
'شخصية
العلوي = 90
أقل = 65
آخر
العلوي = 57
أقل = 48
Endif
strnewpass = strnewpass & chr (int ((love-lower+1)*rnd+lower))
التالي
Makepassword = strnewpass
الوظيفية
٪>