<%
'impostazione delle variabili
frase = "rwox@bjrurwpyqxcx.rc" 'l'indirizzo email crittografato dalla prima parte dello script
shift = 9 'lo stesso valore utilizzato per la crittografia
newfrase = ""
'decrittazione dell'indirizzo
for I = 1 to len(frase)
char = mid(frase, I, 1)
for k = 97 to 122
if char = chr(k) then
if (k-shift) >= 97 then
newchar = chr(k-shift)
exit for
else
newchar = chr(k-shift+26)
exit for
end if
else
newchar = char
end if
next
newfrase = newfrase&newchar
next
%>
