Encrypting a string with VBA

[cecil]

I would like to encrypt a string using VBA. Can someone give me some pointers? I am using Excel 2007 for this.

Thanks

[HansV]

I have attached a text file with the code for a class module that calls the Cryptographic Service Provider built into Windows. There is no need to understand the code (I don't understand it either).
In the VB Editor, select Insert | Class Module, then copy the contents of the text file into the module.

EncryptClass.txt

Here is an example of how you can use the class module to encrypt a string:

Code: Select all

Sub EncryptExample()
    Dim strSource As String
    Dim strTarget As String
    Dim strPassword As String
    ' Create instance of class module
    Dim cls As New clsEncrypt
    ' Set encryption password.
    cls.Password = "topsecret"
    strSource = "Eileen's Lounge"
    cls.InBuffer = strSource
    cls.Encrypt
    strTarget = cls.OutBuffer
    Debug.Print strTarget
    Set cls = Nothing
End Sub

[cecil]

It worked well. Thanks Hans

I tried to see if it would handle special characters. I used all the special characters on the top row of the keyboard. !@#$%^&*()_+ That gave me some wierd results, which I could not decript. However, when I tried these characters in another string, they all worked fine. Note: I decrypted by copying the encrypted string and pasting it. If I had read from a file, it may have worked.

Thanks again.

[HansV]

The encrypted string may contain line feed characters, which makes it more complicated to handle it.