CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: MOKA en Jueves 24 de Enero de 2008, 22:07
Título: Encriptación Con System.security.cryptography
Publicado por: MOKA en Jueves 24 de Enero de 2008, 22:07
Buenas... soy nueva en el foro, he decidido inscribirme aqui porque veo que hay bastante participación en las discuciones. Espero me puedan ayudar!!
Estoy haciendo una clase de encriptación y quiero utilizar alguno de los métodos de encriptación que brinda VB, como por ejemplo TripleDES o DES.
El problema es que encontré una función que utiliza esto pero me tira un error en la función de desencriptación y ya he intentado mil formas de resolverlo y no puedo :(
Aquí van las funciones:
Imports System.Security.Cryptography
Dim sec As New RSACryptoServiceProvider Dim bytString(), bytEncrypted(), bytDesencrypted() As Byte
Dim ue As New System.Text.UTF8Encoding Dim Encrypted As String = "" Dim Desencrypted As String = "" Dim strEncryptedPassword As String = ""
Public Function Encriptar(ByVal EncriptString As String) As String If EncriptString = "" Then Return Nothing Exit Function End If Try bytString = ue.GetBytes(EncriptString) bytEncrypted = sec.Encrypt(bytString, False) Encrypted = Convert.ToBase64String(bytEncrypted) Catch exc As Exception MsgBox("Un error ha ocurrido en la encriptación.") End Try Return Encrypted
End Function
Public Function Desencriptar(ByVal TextEncripted As String) As String If TextEncripted = "" Then Return Nothing Exit Function End If Try bytDesencrypted = sec.Decrypt(Convert.FromBase64String(TextEncripted), False) Desencrypted = ue.GetString(bytDesencrypted) Catch exc As Exception MsgBox("Un error ha ocurrido en la desencriptación.") End Try Return Desencrypted
End Function
Agradecería muchisisisisimo que me ayudaran!!
Caro
Título: Re: Encriptación Con System.security.cryptography
Publicado por: Nebire en Viernes 2 de Mayo de 2008, 21:19
Hola, pués he probado el código y funciona perfectamente... para ver el errro que te sale podrías añadir a la línea:
Código: Text
MsgBox("Un error ha ocurrido en la desencriptación.")
el memnsaje de rrro así:
Código: Text
MsgBox("Un error ha ocurrido en la desencriptación." & exc.Message)
Con lo cual ya sabríamos que error te sale...
Este mensaje iría mejor en el foro de criptografía (que existe)...