Membuat Cryptography : Encryption & Decryption Dengan VB.Net 2008

Pada sharing tutorial kali ini gw membahas bagaimana membuat encryption & decryption menggunakan fasilitas program VB.Net. Banyak keuntungan dalam menggunakan fasilitas cryptography itu sendiri. Para ‘intruders’ / orang yang tidak bertanggung jawab mempunyai banyak cara untuk mengambil data-data penting yang telah kita simpan seperti password. Data-data penting tersebut haruslah di proteksi sedemikian rupa dengan tingkat pengawasan yang sesuai. Nah dengan adanya fasilitas penggunaan cryptography, ‘bahaya’ besar tersebut dapat diminimalisirkan.

Berikut ini langkah-langkah dalam pembuatan aplikasi sederhana kaitannya dengan encryption & decryption :

 

Buat Form seperti pada gambar Tampilan Program diatas. Adapun Attributes dalam form tersebut adalah :

• (1) : Textbox – txtInput
• (2) : Textbox – txtEncrypt
• (3) : Textbox – txtDecrypt
• (4) : Button – btnEncrypt
• (5) : Button – btnDecrypt

Setelah selesai membuat form seperti pada gambar diatas maka langkah selanjutnya adalah peng-codingan aplikasi :
1. Buat Module terlebih dahulu. Nama module terserah dengan keinginan teman-teman. Di program ini gw beri nama modProcedures. Codingnya sbb :

Imports System.Text

Imports System.Windows.Forms

Module modProcedures

'public variables

Private Const INT_lens As Integer = 1

Public str As StringBuilder

Public searchStr As String

Dim b As Integer = 6

Dim p() As Integer = {2, 4, 7, 9, 3, INT_lens}

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim c As Integer

Dim lens As Integer

'Encrypt function

Public Function Encrypt(ByVal inputstr As String)

str = New StringBuilder(inputstr)

lens = str.Length

While (lens < b) OrElse (lens Mod b)

str.Append(" ")

lens += INT_lens

End While

For i = 0 To ((lens / b) - INT_lens)

For j = 0 To (b - INT_lens)

k = p(j) + 100

c = (6 * i + j)

str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)

Next

Next

Return str.ToString

str = Nothing

End Function

'Decrypt function

Public Function Decrypt(ByVal inputstr As String)

str = New StringBuilder(inputstr)

lens = str.Length

While (lens < b) OrElse (lens Mod b)

str.Append(" ")

lens += INT_lens

End While

For i = 0 To ((lens / b) - INT_lens)

For j = 0 To (b - INT_lens)

k = p(j) + 100

c = (6 * i + j)

str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) - k), c, INT_lens)

Next

Next

Return str.ToString

str = Nothing

End Function

 =======================================================

2. Setelah itu baru kita masuk ke coding di form yang telah dibuat. Codingnya sbb :

Public Class Form1

Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click

Me.txtEncrypt.Text = Encrypt(Me.txtInput.Text)

End Sub

Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click

Me.txtDecrypt.Text = Decrypt(Me.txtEncrypt.Text)

 End Sub

End Class

========================================================

                                Contoh Program Encryption & Decryption Dengan VB.Net

Program ini adalah contoh paling sederhana dari penggunaan cryptography. Dapat dimodifikasi sesuai dengan kebutuhan teman-teman. Apabila ada masukan dan hal-hal yang kurang dimengerti langsung isi comment dibawah ^_^