% 'impostazione delle variabili frase = "xnqantkfqhntsn@ynxhfqnsjy.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 %>
|
|
|
|
||||
|
Studio Odontoiatrico |
||||||
|
Dr. Silvio Falcioni |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Medico Chirurgo Specialista in Odontostomatologia |
|
Stresa
via Verdi, 2 Tel. 0323 31811 Fax 0323 33191 |
||||