241 messaggi dal 02 ottobre 2001
salve a tutti sto realizzando un sito in cui per accedere ad alcune cartelle è necessario il login.

sono un po' alle prime armi con asp.net..però leggendeo qua e là ho visto che il metodo migliore intanto eè criptare una password.

ho realizzato quindi la pagina di registrazione dell'utente in cui l'utente scrive oltre a tutti i suoi dati personali la password dentro una textbox di tipo password.

funziona tutto per il meglio e in sql server viene inserito l'utente...però la password è in chiaro...come faccio ad inserirla criptata?

va sempre bene il tipo nvarchar per il campo password...successivamente come farò nella pagian di logina decriptare la password? qualcuno mi può mettere sulla strada giusta?
per criptare in passato utilizzavo questo metodo
public static byte[] EncryptPassword(string password)
    {
      UnicodeEncoding encoding = new UnicodeEncoding();
      byte[] hashBytes = encoding.GetBytes( password );
      SHA1 sha1 = new SHA1CryptoServiceProvider();
      byte[] cryptPassword = sha1.ComputeHash ( hashBytes );

      return cryptPassword;
    }


per la password utilizzo un campo binario

ciao marco

Chi parla senza modestia troverà difficile rendere buone le proprie parole.
Confucio

http://nostromo.spaces.live.com/default.aspx
12 messaggi dal 25 novembre 2002
Ciao nostromo,
anche io ho utilizzato questo metodo ma vorrei sapere per recuperare la password memorizzata nel database e inviarla a l' utente in caso di password dimenticata, come devo fare?
1.495 messaggi dal 27 dicembre 2005
Con l sha1 non si può fare...non si può tornare indietro.
154 messaggi dal 21 maggio 2001
Function cripta(ByVal strTesto As String, ByVal intKey As Integer) As String
' ATTENZIONE: intKey deve esser compreso tra 0 e 64
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(ByVal strTesto As String, ByVal intKey As Integer) As String
' ATTENZIONE: intKey deve esser compreso tra 0 e 64
Dim ctInd
Dim chrAnalisi
Dim IntValore As Integer
Dim intResto As Integer
Dim strTesto2 As String
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

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.