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 & EnkripNext 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
0 Response to "Program Enkripsi dengan VB 6"
Posting Komentar