<٪
'*********************************
'الوظيفة: gen_key (الأرقام)
'المعلمات: أرقام ---- عدد البتات لإنشاء أرقام عشوائية
المؤلف: Alixi
"التاريخ: 2007/7/13
الوصف: إنشاء عدد عشوائي من الأرقام المحددة بالأرقام والأحرف الكبيرة والأحرف الصغيرة ؛ قيمة الإرجاع: عدد عشوائي من المضاعفات المحددة ليتم إنشاؤه
"مثال: <٪ = gen_key (8) ٪>
'*********************************
functiongen_key (الأرقام)
تحديد المصفوفة وتهيئتها
Dimchar_array (80)
تهيئة الرقم
fori = 0to9
char_array (i) = CSTR (i)
التالي
تهيئة رسائل رأس المال
fori = 10to35
char_array (i) = chr (i+55)
التالي
تهيئة الحروف الصغيرة
fori = 36to61
char_array (i) = chr (i+61)
التالي
عشوائي "تهيئة مولد الأرقام العشوائية.
dowhilelen (الإخراج) <الأرقام
num = char_array (int ((62-0+1)*rnd+0))
الإخراج = الإخراج+num
حلقة
قم بتعيين قيمة الإرجاع
gen_key = الإخراج
الوظيفية
٪>