<% '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 %>

INDICE GENERALE FOTO  

PREZZI ED ORDINI

 

cell.: 3333162819

esempio n 3

 

  Indietro - Back