Enkripsi Descripsi Text dengan VB 6.0

Ini ada lagi kode program yang sangat powerful. Kode ini biasanya digunakan untuk Enkripsi dan Deskripsi Password. Enkripsi dan Deskripsi Password yang saya bagikan kali ini menggunakan pengacak. Ok, jangan bertele-tele lagi langsung saja simak berikut ini.
Berikut cara pembuatannya.

1. Buat Project VB 6.0 baru
2. Tambahkan 2 Label, 2 Textbox dan 2 Commandbutton pada Form yang aktif.
3. Atur Properties Label 1 dan 2 dengan Caption=Enkripsi: dan Caption=Deskripsi:.
4. Atur Properties Textbox 1 dan 2 dengan Name=txtEnkripsi dan Name=txtDeskripsi.
5. Atur Properties Commandbutton 1 dan 2 dengan Name=cmdEnkripsi dan Caption=Enkripsi, Name=cmdDeskripsi dan Caption=Deskripsi.
6. Tambahkan sebuah Module dengan cara pilih menu Project --> Add Module.
7. Ketikkan kode di bawah ini ke dalam Module.

#Const CASE_SENSITIVE_PASSWORD = False 
'Encrypt text
Public Function EnkripsiText(strText As String, ByVal Pengacak As String) As String

Dim i As Integer, c As Integer

Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
    'Convert password to upper case
    'if not case-sensitive
    Pengacak = UCase$(Pengacak)
#End If
'Encrypt string
If Len(Pengacak) Then
    For i = 1 To Len(strText)
    c = Asc(Mid$(strText, i, 1))
    c = c + Asc(Mid$(Pengacak, (i Mod Len(Pengacak)) + 1, 1))
    strBuff = strBuff & Chr$(c And &HFF)
    Next i
Else
    strBuff = strText
End If 
EnkripsiText = strBuff
End Function
Public Function DeskripsiText(strText As String, ByVal Pengacak As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
    'Convert password to upper case
    'if not case-sensitive
    Pengacak = UCase$(Pengacak)
#End If
'Decrypt string
If Len(Pengacak) Then
    For i = 1 To Len(strText)
    c = Asc(Mid$(strText, i, 1))
    c = c - Asc(Mid$(Pengacak, (i Mod Len(Pengacak)) + 1, 1))
    strBuff = strBuff & Chr$(c And &HFF)
    Next i
Else
    strBuff = strText
End If 
DeskripsiText = strBuff
End Function

8. Selanjutnya kembali ke Form dan klik 2x tombol "Enkripsi" dan pada cmdEnkripsi_Click() ketikkan kode di bawah ini.

Me.txtEnkripsi.Text = EnkripsiText(Me.txtDeskripsi.Text, "PENGACAK") 'Ganti PENGACAK sesuai dengan keinginan Anda.

9. Klik 2x tombol "Deskripsi" dan pada cmdDeskripsi_Click() ketikkan kod dibawah ini.

Me.txtDeskripsi.Text = DeskripsiText(Me.txtEnkripsi.Text, "PENGACAK")

10. Jalankan program dan lihat hasilnya. Selsai dan terima kasih.
    

Untuk mendownload contoh programnya bisa disini atau disini.