Como puedo desencriptar el codigo de usuario que me permita ingresar al sistema
Publicado por Miguel Antonio (7 intervenciones) el 24/08/2012 22:56:59
Porfavor: "Como puedo desencriptar el codigo de usuario que me permita ingresar al sistema"
El codigo para encriptar lo esta haciendo sin ningun problema cuando creo mi usuario por el sistema en VS, puedo ver por el sql server el "código encriptado", pero cuando quiero ingresar por el sistema con la "contraseña", no me permite ingresar.
Les agradezco de antemano.
Este es el código para encriptar, lo encontré en internet:
Function EncripcionPassword(ByVal pass)
Dim plaintext() As Byte
plaintext = Encoding.ASCII.GetBytes(pass)
Dim Keys() As Byte = Encoding.ASCII.GetBytes("Encripta")
Dim Memdata As New MemoryStream
Dim Transforma As ICryptoTransform
Dim Des As New DESCryptoServiceProvider
'La funcion CipherMode le permite seleccionar varios tipos de encripcion.
Des.Mode = CipherMode.CBC
Transforma = Des.CreateEncryptor(Keys, Encoding.ASCII.GetBytes("Encripta"))
Dim Encstream As New CryptoStream(Memdata, Transforma, CryptoStreamMode.Write)
Encstream.Write(plaintext, 0, plaintext.Length)
Encstream.FlushFinalBlock()
Encstream.Close()
pass = Encoding.ASCII.GetString(Memdata.ToArray)
Return pass
End Function
'ENCRIPTAR LA CONTRASEÑA
Dim Password As String
EncripcionPassword(Me.TxtContraseñaUsuario.Text)
Password = EncripcionPassword(Me.TxtContraseñaUsuario.Text)
'FIN DE ENCRIPTACIÓN
El codigo para encriptar lo esta haciendo sin ningun problema cuando creo mi usuario por el sistema en VS, puedo ver por el sql server el "código encriptado", pero cuando quiero ingresar por el sistema con la "contraseña", no me permite ingresar.
Les agradezco de antemano.
Este es el código para encriptar, lo encontré en internet:
Function EncripcionPassword(ByVal pass)
Dim plaintext() As Byte
plaintext = Encoding.ASCII.GetBytes(pass)
Dim Keys() As Byte = Encoding.ASCII.GetBytes("Encripta")
Dim Memdata As New MemoryStream
Dim Transforma As ICryptoTransform
Dim Des As New DESCryptoServiceProvider
'La funcion CipherMode le permite seleccionar varios tipos de encripcion.
Des.Mode = CipherMode.CBC
Transforma = Des.CreateEncryptor(Keys, Encoding.ASCII.GetBytes("Encripta"))
Dim Encstream As New CryptoStream(Memdata, Transforma, CryptoStreamMode.Write)
Encstream.Write(plaintext, 0, plaintext.Length)
Encstream.FlushFinalBlock()
Encstream.Close()
pass = Encoding.ASCII.GetString(Memdata.ToArray)
Return pass
End Function
'ENCRIPTAR LA CONTRASEÑA
Dim Password As String
EncripcionPassword(Me.TxtContraseñaUsuario.Text)
Password = EncripcionPassword(Me.TxtContraseñaUsuario.Text)
'FIN DE ENCRIPTACIÓN
Valora esta pregunta


0