-
-
'ฟังก์ชั่น: 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 = เอาต์พุต
endfunction
-