Encriptar/desencriptar HASH
Publicado por Cristian (90 intervenciones) el 19/12/2014 12:57:03
Hola a todos...
Estoy haciendo un abm de usuarios y estoy usando esto para encriptar:
Ahora bien, como hago para desencriptar ???
Muchas gracias
Estoy haciendo un abm de usuarios y estoy usando esto para encriptar:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function CreateHash(ByVal inCadena As String) As String
Dim UE As New UnicodeEncoding
Dim bHash As Byte()
Dim bCadena() As Byte = UE.GetBytes(inCadena)
Dim s1Service As New SHA1CryptoServiceProvider
bHash = s1Service.ComputeHash(bCadena)
Dim Resumen As String
Resumen = Convert.ToBase64String(bHash)
Return Resumen
End Function
Ahora bien, como hago para desencriptar ???
Muchas gracias
Valora esta pregunta
0
