Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - MOKA
Páginas: [1]
1
« 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
Páginas: [1]
Mostrar Mensajes
