Program Enkripsi dengan VB 6

enkripsi adalah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus.

Melalui artikel kali ini teman-teman bisa mencoba membuat program enkripsi data, misalnya kita membuat password dengan database Access yang tidak kita Protect dengan mudah data bisa dibuka, bisa dilihat dan dibaca.

Nah dengan mengenkripsi data maka data yang ada dalam database tidak bisa dibaca jika tidak deskripsi kembali..

Langkah-langkahnya sebagai berikut :

1. Buka VB 6

2. Buatlah

Textbox	2 buah
Command Button	2 Buah

seperti gambar berikut

3. Double klik pada form

    Kemudian ketik script berikut :

    'Untuk mengosongkan text1 dan text2

    Text1 = ""

    Text2 = ""

4. Double klik pada tombol ENKRIPSI

ketik sript berikut :

    Dim Enkrip, Output, Inputan As String  'variable tipe data String

    Dim Panjang_Input As Integer  'variable tipe data integer (hitungan)

    Inputan = Text1.Text

    Panjang_Input = Len(Text1.Text)

    For i = 1 To Panjang_Input

    Enkrip = Mid(Inputan, i, 1)

    Enkrip = Asc(Enkrip)

    Enkrip = (Enkrip + 5) - 13

    Enkrip = Chr(Enkrip)

    Output = Output & Enkrip
    Next i
    Text2.Text = Output

gambar 1 contoh hasil Enkripsi

5.  Double klik pada tombol DESKRIPSI (mengembalikan data asli)

ketik sript berikut :


    Dim Dekrip, Output, Inputan As String
    Dim Panjang_Input, Pesan As Integer
    Inputan = Text1.Text
    Panjang_Input = Len(Text1.Text)
    For i = 1 To Panjang_Input
    Dekrip = Mid(Inputan, i, 1)
    Dekrip = Asc(Dekrip)
    Dekrip = (Dekrip - 5) + 13
    Dekrip = Chr(Dekrip)
    Output = Output & Dekrip
    Next i
    Text2.Text = Output

Gambar 2 Pengembalian Data Kembali

Silahkan kembangkan program tersebut dengan database.

Semoga Berhasil

Tweet