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
Nama saya Rama, Saya Bukan Seorang Blogger, Blog ini saya buat atas dasar keinginan saya untuk mencoba hal-hal baru yang bermanfaat :)
