<%
«Fonction: le texte empêche les fonctions brouillées
'Date: 2006-3-6
'Auteur: Blue2004
'Le paramètre STR est le texte d'origine, l'auteur STR1 est également vous-même, Reslut produit des graines brouillées
FunctionReadTocode (Str, Str1, Result)
tamiser
Dimi, J, K
Ifisnull (str) puis
Readtocode = ""
Sortie
Endire
Randomiser
k = instr (str, "</p>")
Dowhilek> 0
résultat = ""
fori = 0to19
J = int (128 * rnd) +1
ifj = 60orj = 62Then
J = J + 1
endire
result = result & chr (j) 'génère un nombre aléatoire.