Encripsi Deskripsi dengan VB.net

Encripsi Deskripsi dengan VB.net - 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 :

Tampilan Program

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 :

01        Imports System.Text

02        Imports System.Windows.Forms

03       

04        Module modProcedures

05            'public variables

06            Private Const INT_lens As Integer = 1

07            Public str As StringBuilder

08            Public searchStr As String

09            Dim b As Integer = 6

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

11            Dim i As Integer

12            Dim j As Integer

13            Dim k As Integer

14            Dim c As Integer

15            Dim lens As Integer

16       

17            'Encrypt function

18            Public Function Encrypt(ByVal inputstr As String)

19       

20                str = New StringBuilder(inputstr)

21                lens = str.Length

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

23                    str.Append(" ")

24                    lens += INT_lens

25                End While

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

27                    For j = 0 To (b - INT_lens)

28                        k = p(j) + 100

29                        c = (6 * i + j)

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

31                    Next

32                Next

33                Return str.ToString

34                str = Nothing

35            End Function

36       

37            'Decrypt function

38            Public Function Decrypt(ByVal inputstr As String)

39       

40                str = New StringBuilder(inputstr)

41                lens = str.Length

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

43                    str.Append(" ")

44                    lens += INT_lens

45                End While

46       

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

48                    For j = 0 To (b - INT_lens)

49                        k = p(j) + 100

50                        c = (6 * i + j)

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

52                    Next

53                Next

54                Return str.ToString

55                str = Nothing

56            End Function

57       

58        End Module

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

01        Public Class Form1

02       

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

04       

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

06               End Sub

07       

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

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

10            End Sub

11        End Class

3. Selesai

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 ^_^

Ada beberapa contoh dalam penggunaan cryptography. Ane nemuin salah satunya. Cukup bagus link.

Oke J

Komentar Anda :

---