-
'ฟังก์ชั่น: ข้อความป้องกันฟังก์ชั่นที่อ่านไม่ออก
วันที่: 2006-3-6
'ผู้แต่ง: Blue2004
'พารามิเตอร์ str เป็นข้อความต้นฉบับผู้เขียน Str1 ก็เป็นตัวคุณเอง Reslut ผลิตเมล็ดพันธุ์ที่อ่านไม่ออก
functionReadTocode (str, str1, ผลลัพธ์)
ชื่อหรี่
Dimi, J, K
ifisnull (str) จากนั้น
readTocode = ""
exitfunction
endif
สุ่ม
K = Instr (str, "</p>")
Dowhilek> 0
ผลลัพธ์ = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62 จากนั้น
j = j+1
endif
result = result & chr (j) 'สร้างหมายเลขสุ่ม