Chave para encriptação

[Otacildo Ferreira da Silva]

Bom dia a todos,

O meu formulário possui dois botões e três textbox, um deles é txtChave o qual queria para informar como chave de encriptação, para que não tivesse uma chave fixa. Achei este programa mas não consegui colocar na linha Private Const key As String = txtChave.text. Alguém tem como ajudar.

Imports System.Text

Imports System.Security.Cryptography

Public Class frmCrypto

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.TextBox2.Text = Crypto.Encrypt(Me.TextBox1.Text)

Me.TextBox1.Clear()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.TextBox1.Text = Crypto.Decrypt(Me.TextBox2.Text)

Me.TextBox2.Clear()

End Sub

End Class

''' <summary>

''' Encriptação simples usando TripleDES

''' (Triple Data Encryption Standard)

''' </summary>

''' <remarks></remarks>

Partial Class Crypto

Private Shared TripleDES As New TripleDESCryptoServiceProvider

Private Shared MD5 As New MD5CryptoServiceProvider

' Definição da chave de encriptação/decriptação

Private Const key As String = "123456"

''' <summary>

''' Calcula o MD5 Hash

''' </summary>

''' <param name="value">Chave</param>

Public Shared Function MD5Hash(ByVal value As String) As Byte()

' Converte a chave para um array de bytes

Dim byteArray() As Byte = ASCIIEncoding.ASCII.GetBytes(value)

Return MD5.ComputeHash(byteArray)

End Function

''' <summary>

''' Encripta uma string com base em uma chave

''' </summary>

''' <param name="stringToEncrypt">String a encriptar</param>

Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String

Try

' Definição da chave e da cifra (que neste caso é Electronic

' Codebook, ou seja, encriptação individual para cada bloco)

TripleDES.Key = Crypto.MD5Hash(key)

TripleDES.Mode = CipherMode.ECB

' Converte a string para bytes e encripta

Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt)

Return Convert.ToBase64String(TripleDES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))

Catch ex As Exception

MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

Return String.Empty

End Try

End Function

''' <summary>

''' Decripta uma string com base em uma chave

''' </summary>

''' <param name="encryptedString">String a decriptar</param>

Public Shared Function Decrypt(ByVal encryptedString As String) As String

Try

' Definição da chave e da cifra

TripleDES.Key = Crypto.MD5Hash(key)

TripleDES.Mode = CipherMode.ECB

' Converte a string encriptada para bytes e decripta

Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)

Return ASCIIEncoding.ASCII.GetString(TripleDES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))

Catch ex As Exception

MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

Return String.Empty

End Try

End Function

End Class

[SuporteHSL]

Qual seria sua necessidade de criptografia? Tem uns exemplos de encritação básica em diversos sites, veja no Macoratti. Caso queira trocar ideia me fale.