VB6 Code - Encrypt Dan Decrypt Sederhana

Di bawah ini merupakan fungsi VB6 untuk melakukan encrypt dan decrypt string secara sederhana, adapun kode VB6 untuk melakukan encrypt dan decrypt string secara sederhana adalah sebagai berikut:

Option Explicit

Public Function Encrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) + 9)
    Next
    Encrypt = msg
End Function

Public Function Decrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) - 9)
    Next
    Decrypt = msg
End Function

Contoh penggunaan fungsi encrypt dan decrypt sederhana

Private Sub Command1_Click()
    Text2.Text = Encrypt(Text1.Text)
End Sub

Private Sub Command2_Click()
    Text3.Text = Decrypt(Text2.Text)
End Sub