Encryption dan Decryption String Dengan VB.NET Bagian 1

Setelah beberapa hari yang lalu saya memposting tentang Mengatasi "Could not load file or assembly 'file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified."

Kali ini saya akan memposting tentang  Encryption dan Decryption String Dengan VB.NET
Apa itu Encryption ? Encryption adalah proses untuk mengaburkan informasi untuk membuat informasi terseubt tidak bisa dibaca tanpa pengetahuan khusus

Apa itu Decryption ? Decryption adalah proses untuk mengubah hasil dari encryption ke bentuk aslinya sehingga informasi tersebut dapat dibaca

Encryption dan decryption biasa digunakan untuk menyimpan konfigurasi atau pengaturan khusus pada sebuah program agar konfigurasi tersebut tidak mudah  dibaca oleh orang lain
atau juga biasanya digunakan untuk menyimpan sebuah password user ke dalam database

Kali ini saya akan memberikan tutorial tentang Encryption dan Decryption String Dengan VB.NET

:Langkah langkah membuat Encryption dan Decryption String Dengan VB.NET

1. Buka Visual Studio dan buatlah sebuah project dengan nama encrypt_decrypt_text_bagian1

2. Buatlah sebuah form dengan nama frmencryptdecrypt

3. Design Form tersebut sesaui dengan gambar di bawah ini

Object	Property	Value
Label1	Name	Label1
Label2	Name	Label2
Textbox1	Name	Txt_awal
Textbox2	Name	Txt_encrypt
Button1	Name	Btn_encrypt
	Text	Encryption

4. Double Click Form encrypt decrypt lalu 2 buah Namespace

1. Import System.Io
2. Imports System.Security.Cryptography

5. Pada Event Form_Load tambahkan script di bawah ini

txt_awal.Text = ""
txt_encrypt.Text = ""

6. Buatlah sebuah fungsi untuk Encrypt String dengan script dibawah ini

    Private Function EncryptText(ByVal SourceText As System.String) As System.String
        Dim MyKey As String = "Tutorial Koding"
        Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
        Dim strResult As System.String = ""

        Try
            Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Strings.Left(MyKey, 8))
            Dim InputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(SourceText)
            Dim des As New DESCryptoServiceProvider
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(bykey, IV), CryptoStreamMode.Write)
            cs.Write(InputByteArray, 0, InputByteArray.Length)
            cs.FlushFinalBlock()
            strResult = Convert.ToBase64String(ms.ToArray())
        Catch ex As Exception
            Throw New Exception
        End Try
        Return strResult
    End Function

7. Double Click tombol btn_encrypt lalu tambahkan script dibawah ini

txt_encrypt.Text = EncryptText(txt_awal.Text)

8. Tekan Ctrl+S lalu jalankan program tersebut dengan menekan F5

9. Input kan sebuah string ke dalam txt_awal lalu tekan tombol Encrypt maka hasilnya akan seperti gambar dibawah ini

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Semoga berhasil

Untuk dercryption saya kan melanjutkannya pada postingan selanjutnya dengan judul Encryption dan Decryption String Dengan VB.NET Bagian 2