Hola
Lo correcto es usar uno de los mejores algoritmos de encriptacion como Rijndael, aqui un ejemplo
Public Function Ecnripta( _
ByVal strMensaje As String, _
ByVal strClave As String, _
ByVal strIV As String) As String
On Error GoTo Proc_Err
'Crea el objeto con la libreria para encriptar
Dim objRijndael As Rijndael = Rijndael.Create
objRijndael.Mode = CipherMode.CBC
objRijndael.Padding = PaddingMode.PKCS7
'Convierte la Clave en ByteArray
'Dim SecretKey As Byte() = ASCII.GetBytes("01234567890abcde")
Dim bytSecretKey As Byte() = ASCII.GetBytes(strClave)
objRijndael.KeySize = 128
objRijndael.Key = bytSecretKey
'Convierte la IV en ByteArray
'Dim iv As Byte() = ASCII.GetBytes("fedcba9876543210")
Dim iv As Byte() = ASCII.GetBytes(strIV)
objRijndael.BlockSize = 128
objRijndael.IV = iv
'Convierte el Mensaje en ByteArray
Dim encrypted As Byte() = ASCII.GetBytes(strMensaje)
'Crea la instancia para Encriptador
Dim encryptor As ICryptoTransform = objRijndael.CreateEncryptor(bytSecretKey, iv)
'Ejecuta la rutina para Encriptar
Dim bytresult As Byte() = encryptor.TransformFinalBlock(ASCII.GetBytes(strMensaje), 0, strMensaje.Length)
'Libera Recursos
objRijndael.Clear()
encryptor.Dispose()
'Retorna los resultados como Hex y como Base64
Me.strMensajeHex = BytesToHex(bytresult)
Me.strMensajeBin = System.Convert.ToBase64String(bytresult)
'Retorna el resultado como string
Ecnripta= BytesToHex(bytresult)
Exit Function
Proc_Err:
MsgBox(Err.Description)
End Function
Public Function DesEncripta( _
ByVal strMensajeHex As String, _
ByVal strClave As String, _
ByVal strIV As String) As String
On Error GoTo Proc_Err
'Crea el objeto con la libreria para encriptar
Dim objRijndael As Rijndael = Rijndael.Create
objRijndael.Mode = CipherMode.CBC
objRijndael.Padding = PaddingMode.PKCS7
'Convierte la Clave en ByteArray
'Dim SecretKey As Byte() = ASCII.GetBytes("01234567890abcde")
Dim bytSecretKey As Byte() = ASCII.GetBytes(strClave)
objRijndael.KeySize = 128
objRijndael.Key = bytSecretKey
'Convierte la IV en ByteArray
'Dim iv As Byte() = ASCII.GetBytes("fedcba9876543210")
Dim iv As Byte() = ASCII.GetBytes(strIV)
objRijndael.BlockSize = 128
objRijndael.IV = iv
'Convierte el TextoEncryptado en ByteArray
Dim bytMensaje As Byte() = HexToBytes(strMensajeHex)
'Crea la instancia para Desencriptar
Dim objdecryptor As ICryptoTransform = objRijndael.CreateDecryptor(bytSecretKey, iv)
'Ejecuta la rutina para Desencriptar
Dim bytResultado As Byte() = objdecryptor.TransformFinalBlock(bytMensaje, 0, bytMensaje.Length)
'Libera Recursos
objRijndael.Clear()
objdecryptor.Dispose()
'Retorna el resultado como string
DesEncripta= ASCII.GetString(bytResultado)
Exit Function
Proc_Err:
MsgBox("Codigo Hex Incorrecto")
End Function
Saludos
Bitnius
Programador en VB.NET 2008, SQL SERVER 2008, Crystal Report 2008 Si la respuesta es correcta, marcála como correcta. También puedes votar como útil si te sirvió.
