TUTORIAL DE LA APLICACIÓN


1. Diseño del Formulario



SOLO configurar las propiedades indicadas en cada uno de los controles del formulario(Ver Cuadro de Controles), lo que no se indica dejarlo tal como está.

Cuadro de Controles
Botones TextFields
Para el boton "Encriptar":
  • Name: btnEncriptar
  • Text: Encriptar
  • FlatStyle: Flat
Para el boton "Desencriptar":
  • Name: btnDesencriptar
  • Text: Desencriptar
  • FlatStyle: Flat
Para el campo "Texto":
  • Name: txtTexto
  • BorderStyle: FixedSingle
Para el campo "Resultado":
  • Name: txtResultado
  • BorderStyle: FixedSingle

2. Codificación

Ingresar el siguiente código dentro del Formulario
'Importaciones necesarias
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1

    Private des As New TripleDESCryptoServiceProvider'Algorithmo TripleDES
    Private hashmd5 As New MD5CryptoServiceProvider 'objeto md5
    Private myKey As String = "MyKey2012" 'Clave secreta(puede alterarse)

'Funcion para el Encriptado de Cadenas de Texto
Private Function Encriptar(ByVal texto As String) As String
        
        If Trim(texto) = "" Then
            Encriptar = ""
        Else
            des.Key = hashmd5.ComputeHash((New UnicodeEncoding).GetBytes(myKey))
            des.Mode = CipherMode.ECB
            Dim encrypt As ICryptoTransform = des.CreateEncryptor()
            Dim buff() As Byte = UnicodeEncoding.ASCII.GetBytes(texto)
            Encriptar = Convert.ToBase64String(encrypt.TransformFinalBlock(buff, 0, buff.Length))
        End If
        Return Encriptar
End Function


'Funcion para el Desencriptado de Cadenas de Texto
Private Function Desencriptar(ByVal texto As String) As String
        If Trim(texto) = "" Then
            Desencriptar = ""
        Else
            des.Key = hashmd5.ComputeHash((New UnicodeEncoding).GetBytes(myKey))
            des.Mode = CipherMode.ECB
            Dim desencrypta As ICryptoTransform = des.CreateDecryptor()
            Dim buff() As Byte = Convert.FromBase64String(texto)
            Desencriptar = UnicodeEncoding.ASCII.GetString(desencrypta.TransformFinalBlock(buff, 0, buff.Length))
        End If
        Return Desencriptar
End Function

'Eventos Click de los botones "Encriptar" y "Desencriptar"
Private Sub btnEncriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncriptar.Click
        Me.txtResultado.Text = Encriptar(Me.txtTexto.Text.Trim)
End Sub

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

End Class



Video Demostrativo

Copyright © 2014 Trujillo - Perú