<%
'Función: el texto previene las funciones confusas
'Fecha: 2006-3-6
'Autor: Blue2004
'El parámetro STR es el texto original, el autor Str1 también es usted mismo, RELUT produce semillas confusas
FunctionReadTocode (str, str1, resultado)
dimname
Dimi, J, K
Ifisnull (str) entonces
ReadTocode = ""
Extinción
Endif
Aleatorizar
k = instr (str, "</p>")
Dowhilek> 0
resultado = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62Then
j = j+1
endif
resultado = resultado y chr (j) 'genera un número aleatorio.