Imports System

Imports System.Security.Cryptography

Imports System.Text

​

Public Module Module1

    Private des As New TripleDESCryptoServiceProvider'Algorithmo TripleDES

    Private hashmd5 As New MD5CryptoServiceProvider 'objeto md5

    Private myKey As String = "MyKey2012" 'Clave secreta(puede alterarse)

    Public Sub Main()

        Console.WriteLine(Encriptar("039Lr6tMhLWYe61sw==_User_j.barrios@tgs-edisa.com"))

        Console.WriteLine(Desencriptar("L5GCv24FaFFnk5i72yW/WYYJryND3H837GkM9w16+iJCYg8JyOCqdiDK5AvIhcWGZoP9iCppaJs="))

    End Sub

    public Function Encriptar(ByVal texto As String) As String

        If texto.Trim() = "" 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

    Private Function Desencriptar(ByVal texto As String) As String

        If texto.Trim() = "" 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

End Module