Cara Buat Encrypt dan Decrypt VB6

Encrypt merupakan penyamaran data dengan tujuan data tersebut tidak bisa dikenali sedangkan Decrypt mengembalikan data yang disamarkan seperti semula, secara logika pengertian dari dua kata diatas seperti itu, untuk Encrypt dan Decrypt sebenarnya telah dibahas pada artikel sebelumnya yaitu Encrypt dan Decrypt Password MD5 MySQL, tetapi kali ini sangat berbeda dan menggunakan versi Ms. Visual Basic 6.0

Buka Ms. Visual Basic 6.0 - StandartEXE dan buatlah sebuah form jangan lupa tambahkan beberapa komponen seperti TextBox, Label, CommandButton dan buat juga sebuah Module, seperti gambar berikut : 

Copykan syntak function berikut ke dalam module

#Const CASE_SENSITIVE_PASSWORD = False
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
    strPwd = UCase$(strPwd)
#End If

'Encrypt string
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 i
Else
    strBuff = strText
End If
    EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If

'Decrypt string
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 i
Else
    strBuff = strText
End If
DecryptText = strBuff
End Function

Option Explicit
#Const CASE_SENSITIVE_PASSWORD = False
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
    strPwd = UCase$(strPwd)
#End If

'Encrypt string
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 i
Else
    strBuff = strText
End If
    EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If

'Decrypt string
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 i
Else
    strBuff = strText
End If
DecryptText = strBuff
End Function

Selanjutnya double klik pada CommandButton dan copykan syntak dibawah ini

Label2.Caption = EncryptText(Text1.Text, "ContohEncryptDecrypt")
Label4.Caption = DecryptText(Label2.Caption, "ContohEncryptDecrypt")

Kemudian simpan dan Run/F5, inputkan beberapa karakter ke dalam TextBox dan klik tombol proses, maka encrypt dan decrypt akan bekerja, mudah bukan dalam menyamarkan dan mengembalikan data dengan metode Encrypt dan Decrypt