<%
'Funktion: Text verhindert verstümmelte Funktionen
'Datum: 2006-3-6
'Autor: Blue2004
'Der Parameter Str ist der ursprüngliche Text, Str1 Autor ist auch du selbst, Reslut erzeugt verstümmelte Samen
Funktionsreadtocode (str, str1, Ergebnis)
Dimname
Dimi, J, k
Ifisnull (str) dann
RedeTocode = ""
Ausgangsfunktion
Endif
Randomisieren
k = instr (str, "</p>")
Dowhilek> 0
Ergebnis = ""
fei = 0to19
j = int (128*rnd) +1
Ifj = 60ORJ = 62Then
J = J+1
Endif
result = result & chr (j) 'generiert eine Zufallszahl.