<%
'impostazione delle variabili
frase = "r.ytszx@gjgywzhntqn.ny" 'l'indirizzo email crittografato dalla prima parte dello script
shift = 5 '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
%>
<%
'impostazione delle variabili
frase2 = "n.xfqafitw@gjgywzhntqn.ny" 'l'indirizzo email crittografato dalla prima parte dello script
shift = 5 'lo stesso valore utilizzato per la crittografia
newfrase2 = ""
'decrittazione dell'indirizzo
for I = 1 to len(frase2)
char = mid(frase2, 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
newfrase2 = newfrase2&newchar
next
%>
<%
'impostazione delle variabili
frase3 = "r.kjqywns@gjgywzhntqn.ny" 'l'indirizzo email crittografato dalla prima parte dello script
shift = 5 'lo stesso valore utilizzato per la crittografia
newfrase3 = ""
'decrittazione dell'indirizzo
for I = 1 to len(frase3)
char = mid(frase3, 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
newfrase3 = newfrase3&newchar
next
%>
<%
'impostazione delle variabili
frase4 = "k.gztwf@gjgywzhntqn.ny" 'l'indirizzo email crittografato dalla prima parte dello script
shift = 5 'lo stesso valore utilizzato per la crittografia
newfrase4 = ""
'decrittazione dell'indirizzo
for I = 1 to len(frase4)
char = mid(frase4, 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
newfrase4 = newfrase4&newchar
next
%>