CRIPTARE FILE DI TESTO

[7marco777]

ho urgentemente bisogno di sapere come potere criptare file di testo
in ASP.
Grazie anticipatamente.
Marco

[fraude]

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