Rajan Verma has posted the following on 11-23-2012 06:31 PM:

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 […]

Encrypt and Decrypt Text