Encrypt and Decrypt Text


Here is a basic Function to Encrypt and Decrypt  any text Public Function evtEncrypt_Decrypt(strText As String, strPWD As String) As String     Dim byteText() As Byte     Dim bytePWD() As Byte     Dim intPWDPos As Integer     Dim intPWDLen As Integer     Dim intLoop As Integer     byteText = strText…