VB6 Encryption & Decryption Try it ! (Make itSimple)

[HackerVlad]

Public Function EncryptString(xString As String) As String
    Dim Password As String
    Dim Counter As Double
    Dim temp As Byte
    
    Counter = 1
    
    Do Until Counter = Len(xString) + 1
        temp = Asc(Mid(xString, Counter, 1))
        temp = temp Xor (96)
        Password = Password + Chr(temp)
        Counter = Counter + 1
    Loop
    
    EncryptString = Password
End Function

Public Function DecryptString(xString As String) As String
    Dim Password As String
    Dim Counter As Double
    Dim temp As Byte
    
    Counter = 1
    
    Do Until Counter = Len(xString) + 1
        temp = Asc(Mid(xString, Counter, 1)) Xor (96)
        Password = Password + Chr(temp)
        Counter = Counter + 1
    Loop
    
    DecryptString = Password
End Function