Encrypt merupakan penyamaran data dengan tujuan data tersebut tidak dapat dikenali sedangkan Decrypt mengembalikan data yang disamarkan menyerupai semula, secara logika pengertian dari dua kata diatas menyerupai itu, untuk Encrypt dan Decrypt gotong royong telah dibahas pada artikel sebelumnya adalah Encrypt dan Decrypt Password MD5 MySQL, tetapi kali ini sangat berbeda dan memakai versi Ms. Visual Basic 6.0
Buka Ms. Visual Basic 6.0 – StandartEXE dan buatlah sebuah form jangan lupa tambahkan beberapa komponen menyerupai TextBox, Label, CommandButton dan buat juga sebuah Module, menyerupai gambar berikut : 
Cara Buat Encrypt Dan Decrypt Vb6
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 huruf ke dalam TextBox dan klik tombol proses, maka encrypt dan decrypt akan bekerja, gampang bukan dalam menyamarkan dan mengembalikan data dengan metode Encrypt dan Decrypt

Cara Buat Encrypt Dan Decrypt Vb6