Visual Basic.NET - Encriptar un texto

Buenas tardes!

Estoy utilizando visual basic .net 2005 y me gustaría poder encriptar un texto string.

Lo único que he encontrado es lo siguiente:

Public Shared Function Encrypt(ByVal strData As String) As String
Miembro de System.Web.Security.PassportIdentity

pero al poner el Imports en el formulario me dice que Security no es un mienbro de web¿?¿

Alguien sabe porque no me lo detecta, estoy usando un winforms pero tendría que leer la libreria de web igualmente o no? Alguien sabe una manera facil de poder encriptar y desencriptar una simple cadena de texto.

Muchas gracias,

Maria.

'una forma facil

dim xcadena as string
xcadena="cadena que se quiere encriptar"
MSGBOX(ENCRIPTAR(xcadena))
MSGBOX( DESENCRIPTAR(xcadena))

Function ENCRIPTAR(ByVal string_encriptar As String) As String
Dim R As Integer
Dim I As Integer
R = Len(Trim(string_encriptar))
For I = 1 To R
Mid(string_encriptar, I, 1) = Chr(Asc(Mid(string_encriptar, I, 1)) - 1)
Next I
Return string_encriptar
End Function

Function DESENCRIPTAR(ByVal string_desencriptar As String) As String
Dim R As Integer
Dim i As Integer
R = Len(Trim(string_desencriptar))
For i = 1 To R
Mid(string_desencriptar, i, 1) = Chr(Asc(Mid(string_desencriptar, i, 1)) + 1)
Next i
Return string_desencriptar
End Function

' si te sirve favor de indicarlo por aqui

Muy buenos días! Primero agradecer la rápida contestación que he recibido.

He preferido la segunda opción de Harold porque utiliza las librerías específicas del .net y lo veo más técnico. Aún así, muchas gracias de nuevo. Lo importante era poder encriptar la información puesto que esta es confidencial, y si no la primera opción me habría ido tambien muy bien.

Gracias y hasta pronto.

Maria.

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

Private Sub btnEncriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncriptar.Click
txtResultado.Text = Encriptar(txtEncriptar.Text)
End Sub

Private Sub btnDesencriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDesencriptar.Click
txtDesencriptado.Text = Desencriptar(txtResultado.Text)
End Sub

Hola de nuevo!

Guardo una información encriptada (gracias a ti) en un fichero de configuración (config.ini) y cuando quiero desencriptarla, primero leyendo el fichero y luego poniéndola en una variable string me sucede un error, y me salta a la excepción de que no se puede desencriptar.

Puedes saber a que es debido? normalmente una variable string no suele causar problemas porque lo acepta todo.

Muchas gracias,

Maria.

cuando encriptas lo hace asi

bytString = ue.GetBytes(EncriptString)
bytEncrypted = sec.Encrypt(bytString, False)
Encrypted = Convert.ToBase64String(bytEncrypted)

los bytes de bytEncripted los presentas en tu resultado con convert.ToBase64String, que queire decir de Base64 lo paso a string.

Ahora para desencriptar debemos hacer lo contrario de String a Base64 usando Convert.FromBase64String(Tustring)

tengo el mismo problema, al desencriptar me da error, concretamente al ejecutar la función: bytDesencrypted = sec.Decrypt(...).
¿sabeis cual es el problema? Gracias por adelantado.

Excelente articulo, me gustó, yo vi este video y me funcionó bastante bien! Espero les sirva:


En la descripción comparten el código