<%
'Функция: текст предотвращает искаженные функции
Дата: 2006-3-6
Автор: Blue2004
'Параметр STR - это исходный текст, автор STR1 также вы сами, Reslut производит искаженные семена
FunctionReadToCode (str, str1, результат)
Dimname
DiMi, J, K.
Ifisnull (str) тогда
Readtocode = ""
Выходная функция
Эндиф
Рандомизировать
k = instr (str, "</p>")
Dowhilek> 0
result = ""
fori = 0to19
j = int (128*rnd) +1
ifj = 60orj = 62then
J = J+1
эндиф
Результат = Результат и Chr (j) 'генерирует случайное число.