Visual Basic.NET - Encriptar fichero de texto

   
Vista:

Encriptar fichero de texto

Publicado por NoExit (1 intervención) el 27/11/2007 01:25:23
Hola a todos, ¿alguien me puede mostrar un ejemplo de como encriptar y desencriptar un fichero de texto de forma sencilla con las clases que suministra vb.net?. He probado mil ejemplos y todos me dan alguna clase de error. Por favor, si no es mucho pedir, un ejemplo completo, con los espacios de nombres que hay que importar, etc...

Gracias mil de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Encriptar fichero de texto

Publicado por kryptic (40 intervenciones) el 27/11/2007 16:36:15
Imports System.Security.Cryptography

Public Class Form1

Private Crypto As New RSACryptoServiceProvider
Private ue As New System.Text.UTF7Encoding

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

Private Sub bntDesencriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntDesencriptar.Click
Me.txtDesencriptado.Text = Desencriptar(Me.txtEncriptado.Text)
End Sub

Private Function Encriptar(ByVal Texto As String) As String
Dim strTextoEncriptado As String
Dim bytTexto As Byte()
Dim bytEncry As Byte()

Try
bytTexto = ue.GetBytes(Texto)
bytEncry = Crypto.Encrypt(bytTexto, False)
strTextoEncriptado = Convert.ToBase64String(bytEncry)

Return strTextoEncriptado
Catch ex As Exception

End Try
End Function

Private Function Desencriptar(ByVal Texto As String) As String
Dim strTextoDesencriptado As String
Dim bytDesenc As Byte()

bytDesenc = Crypto.Decrypt(Convert.FromBase64String(Texto), False)
strTextoDesencriptado = ue.GetString(bytDesenc)

Return strTextoDesencriptado
Try

Catch ex As Exception

End Try
End Function
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Encriptar fichero de texto

Publicado por Danny (1 intervención) el 29/03/2015 15:46:32
La encriptación funciona.
La desencriptación muestra un textbox vacío.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar