<%
'Função: o texto impede funções ilegais
Data: 2006-3-6
'Autor: Blue2004
'O parâmetro str é o texto original, o autor str1 também é você mesmo, Reslut produz sementes ilegais
FunctionReadTocode (str, str1, resultado)
Dimname
Dimi, J, k
Ifisnull (str) Então
Readtocode = ""
Saída de saída
Endif
Randomizar
k = instrum (str, "</p>")
Dowhilek> 0
resultado = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62then
j = j+1
endif
resultado = resultado e chr (j) 'gera um número aleatório.