-
-
'ฟังก์ชั่น: เครื่องกำเนิดไฟฟ้า (ความยาว)
'พารามิเตอร์: ความยาวค่าความยาวโดยพลการจำนวนตัวเลขรหัสสุ่ม
'ผู้แต่ง: Alixi
'วันที่: 2007/7/15
'คำอธิบาย: สร้างฟังก์ชั่นรหัสสุ่มของความยาวภาษาอังกฤษ + ตัวเลขใด ๆ
'ตัวอย่าง: เครื่องกำเนิด (80)
-
FunctionGenerator (ความยาว)
DiMi, Temps
temps = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
ifisnumeric (ความยาว) = falsethen
exitfunction
endif
fori = 1tolength
สุ่ม
Generator = Generator & Mid (Temps, Int ((len (temps)*rnd) +1), 1)
ต่อไป
endfunction
-