<%
Fungsi: Teks mencegah fungsi kacau
'Tanggal: 2006-3-6
'Penulis: Blue2004
'Parameter STR adalah teks asli, penulis STR1 juga diri Anda sendiri, Reslut menghasilkan biji yang kacau
FunctionReadtocode (str1, hasil)
Dimname
Dimi, J, k
Ifisnull (str) lalu
ReadTocode = ""
Fungsi keluar
Endif
Mengacak
k = instr (str, "</p>")
Dowhilek> 0
hasil = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62then
j = j+1
endif
Hasil = Hasil & Chr (J) 'menghasilkan angka acak.