non lo trovo... era qui su html.it...

comunque riporto il codice in vbscript funzionante (lo ho provato in unione ad ASP...)...
serviva per decriptare un testo (ovviamente criptato con algoritmo inverso...)...

codice:
Function decriptafrase(frase)
'impostazione delle variabili
'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
     decriptafrase = decriptafrase&newchar
   next

end Function