criptare una password sul database

[vem]

ciao, ho cercato nel forum ed in realtà ho trovato qualcosa. Grazie in anticipo all'autore.

Alcuni dubbi: io ho una form per inserimento dati nel db, e fino a qui ci siamo e funziona tutti benissimo.

Ho trovato questo script,ma non saprei neanche come utilizzarlo:

<%Function Crypt(Value,Hash) Dim i,Ch,Result,XorValue If Hash = "" or IsNull(Hash) then Hash = session.SessionID Result = "" Hash = cStr(Hash) XorValue = 255 for i=1 to Len(Hash):XorValue = XorValue Xor Asc(Mid(Hash,i,1)):next for i=1 to Len(Value) Result = chr(asc(mid(Value,i,1)) Xor XorValue)& Result next Crypt = Result end function Function Decrypt(Value,Hash) Decrypt = Crypt(Value,Hash) end function Testo = "Testo da Criptare" Hash = "axbxcx" StringaCriptata = Crypt(Testo,Hash) Response.Write(StringaCriptata & "
") 'Per decriptare la stringa dovrai conoscere l'hash Response.Write(Decrypt(StringaCriptata,Hash)) %>

dove lo devo inserire?
grazie in anticipo

[Roby_72]

Scritta così da nessuna parte.
Sono due funzioni, una per crittografare e l'altra per decrittografare.
Mi pare ci sia anche qualche commento per essere utilizzata.
La devi applicare alla stringa che vuoi crittografare.

Roby