Wow Kali Ini Postingan Bagus Neh Tentang
Tutorial Visual Basic 6.0 yaitu
Enkripsi Dan Deskripsi Teks Visual Basic 6.0 dimana pada artikel sebelumnya saya telah membahas tentang
Cara Backup Restore SQL Server 2000…ya itu yang akan kita coba kali ini. Prinsipnya sebuah teks yang bersifat rahasia seperti pesan rahasia atau bisa juga surat cinta yang takut dibaca orang lain..hehehe..bisa kita enkripsikan menjadi chipertext dengan pasword tertentu, kemudian untuk membacanya lagi kita harus menggunakan pasword yang sama pula untuk mengembalikan teks yang terenkripsi menjadi plaintext atau teks awal sebelum di enkripsi.
Sekarang.. mari kita coba membuat program enkripsi dan deskripsi tersebut dengan Visual Basic 6.0.
Pertama masuk ke Visual Basic 6.0, kemudian buat project baru yaitu Standard.exe. Lalu buatlah tampilan form dengan menambahkan 1 buah Label, 2 buah TextBox dan 2 buah CommandButton sehingga menjadi seperti gambar d bawah ini :
kemudian Ganti properti caption dari Label dan CommandButton, kemudian kosongkan properti Text dari Text1 dan Text2, khusus Text1 atur properti MultiLine menjadi True sehingga tampilan menjadi seperti gambar di bawah ini :
Jika user interface sudah selesai langkah terakhir adalah Copy Paste Kode di bawah ini ke Kode Editor Visual Basic :
‘==========ENKRIPSI
Function EncryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid(strText, i, 1))
c = c + Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next
Else
strBuff = strText
End If
EncryptText = strBuff
Else
EncryptText = “”
End If
End Function
‘==========DESKRIPSI
Function DecryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid(strText, i, 1))
c = c – Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next
Else
strBuff = strText
End If
DecryptText = strBuff
Else
DecryptText = “”
End If
End Function
Private Sub Command1_Click()
Text1.Text = EncryptText(Text1.Text, Text2.Text)
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text1.Text = DecryptText(Text1.Text, Text2.Text)
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub
Sekarang program tinggal dijalankan. Masukkan teks yang akan dienkripsikan kemudian masukkan password dan klik tombol ENKRIPSI maka teks akan terenkripsi seperti yang ditunjukkan oleh gambar berikut :
Untuk mendeskripsikan ke teks awal, dengan menggunakan password yang sama kemudian klik tombol DESKRIPSI, makan teks akan kembali menjadi plaintext semula seperti pada gambar berikut :
Selamat Mencoba Ya...Dalam Hal Ini Saya Sendiri Masih Belajar ^_^
