Criptare password

[maximum]

Io per criptare una password in fase di inserimento della stessa eseguo la seguente:

1)Nella pagina di inserimento metto in testa questa include:

contenente la seguente:

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

2)Nella pagina di inserimento poi faccio la seguente:

recupero la password digitata sul campo

password = trim(request.form("password"))
password = replace(password,"'","")

la cripto:

'cripta la password in fase di registrazione
password=cripta(password,Key)

e poi eseguo la insert:

sql = "INSERT INTO tabella([Password]) VALUES('" & password & "')" 

objConn.execute(sql)

Come vedi nella "funzioni.asp", oltre alla funzione cripta, c'è la funzione decripta che esegue esattamente il contrario della prima.

ES:

<%=decripta(objrsModProfilo("Password"), key)%>

P.S.: "key" va comunque passato come parametro in entrambe le funzioni.

Spero di esserti stato utile ed esaustivo.