Vb.net Encrypt & Decrypt Kodlama Proje Dosyası

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Imports System.Windows.Forms


Public Class Crypto

    Private Shared DES As New TripleDESCryptoServiceProvider
    Private Shared MD5 As New MD5CryptoServiceProvider

    Public Shared Function MD5Hash(ByVal value As String) As Byte()
        Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
    End Function

    Public Shared Function Encrypt(ByVal stringToEncrypt As String, ByVal key As String) As String
        DES.Key = Crypto.MD5Hash(key)
        DES.Mode = CipherMode.ECB
        Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt)
        Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
    End Function

    Public Shared Function Decrypt(ByVal encryptedString As String, ByVal key As String) As String
        Try
            DES.Key = Crypto.MD5Hash(key)
            DES.Mode = CipherMode.ECB
            Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)
            Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            MessageBox.Show("Geçersiz Anahtar", "Şifre Çözme Başarısız", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Function
End Class

'Bu Verileri Şifreler
        Dim key As String = "123"
        textbox2.Text = Crypto.Encrypt(textbox1.Text, key)
        textbox1.Text = ""

        MsgBox("Başarıyla Şifrelendi=   " & EarnTextBox2.Text, MsgBoxStyle.Information)

'Bu verilerin şifresini çözer
        Dim key As String = "123"
        textbox1.Text = Crypto.Decrypt(textbox2.Text, key)
        textbox2.Text = ""
            MsgBox("Şifreleme Çözüldü=   " & EarnTextBox2.Text, MsgBoxStyle.Information)