Membuat Cryptography : Encryption & Decryption Dengan VB.Net 2008

Encryption & Decryption

How to protect your data safely

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 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 :

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

End Module

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

3. Selesai

Contoh Program

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. Gw nemuin salah satunya. Cukup bagus link.

(Sumber Inspirasi)

 

Tagged , , , , ,

4 thoughts on “Membuat Cryptography : Encryption & Decryption Dengan VB.Net 2008

  1. tria says:

    matap gan infonya🙂

  2. pocanz says:

    thx infonya, mudah2an bs running pas gw cb y!!!

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: