<%
	' Parte Modificabile : Chiave INTERA di codifica e decodifica
	' ATTENZIONE: intKey deve esser compreso tra 0 e 64 
	dim key
		key = 5
	' Fine Parte modificabile
	
	function cripta(strTesto,intKey)
		dim ctInd
		dim chrAnalisi
		dim strTesto2
		For ctInd = 1 To Len(strTesto)
			chrAnalisi = Mid(strTesto, ctInd, 1)
			chrAnalisi = Asc(chrAnalisi) + intKey
			chrAnalisi = chrAnalisi Mod 256
			strTesto2 = strTesto2 & Chr(chrAnalisi)
		Next
		cripta=strTesto2
	end function

	function decripta(strTesto, intKey)
		dim ctInd
		dim chrAnalisi
		dim IntValore
		dim intResto
		dim strTesto2
		    For ctInd = 1 To Len(strTesto)
			chrAnalisi = Mid(strTesto, ctInd, 1)
			intValore = Asc(chrAnalisi)
			intResto = (intKey + intValore) Mod 256
			If (intValore + intKey < 256) Then
			    strTesto2 = strTesto2 & Chr(intValore - intKey)
			Else
			    strTesto2 = strTesto2 & Chr(256 - intKey + intResto)
			End If
		    Next
		decripta=strTesto2
	end function
%>