encrypt & decrypt sederhana

Berikut ini adalah catatan mengenai encrypt & decrypt, Banyak tehik lain yang lebih baik anda dapat melakukan searching di google. Berikut cara simple encrypt & decrypt data anda. Langkah-langkah.
1. Buka VB 2008, buat sebuah project baru lalu berinama Encrypt-Decrypt-MD5Hash
2. Pada Form1 masukkan 3 buah textbox dan 2 buah tombol seperti pada gambar
3. masukkan kode

Imports System.Security.Cryptography
Imports System
Imports System.Text


Public Class Form1
    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 = 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
        DES.Key = MD5Hash(key)
        DES.Mode = CipherMode.ECB
        Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)
        Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Encrypt(TextBox2.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Decrypt(TextBox2.Text, TextBox3.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.ReadOnly = True
    End Sub
End Class

4. Jalankan program untuk penggunaan lebih lanjut silahkan anda sesuaikan dengan kebutuhan anda. untuk source kode silahkan download di sini. caranya : Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.