<%
'Function: text prevents garbled functions
'Date:2006-3-6
'Author: blue2004
'The parameter str is the original text, str1 author is also yourself, reslut produces garbled seeds
FunctionReadToCode(str,Str1,result)
dimname
dimi,j,k
Ifisnull(str)then
ReadToCode=""
ExitFunction
EndIf
Randomize
k=instr(str,"</P>")
Dowhilek>0
result=""
fori=0to19
j=Int(128*Rnd)+1
ifj=60orj=62then
j=j+1
endif
result=result&chr(j)' generates a random number.