VB6 - 31 Bit Encryption - To the Next Level

[CVMichael]

This is an improved version of my VB - 31 Bit Encryption function

I had to put the code in a Class because there is some Initializing to do.

This version is much better than the old one. The Seed value is calculated better, it is calculated from the password (as before) but this time through more passes, and the algorithm resembles a HASH output.
The data is encrypted better because it is using the seed value to encrypt, and not only to initialyze the random number generator as before.

Also, you can choose the strength of the encryption by changing two values: the seed passes and data passes. Changing these values to a greater number will result into a better encryption (with the expense of time taken to encrypt)

You can also choose to output/input the data into Hex or Base64

Here is an example how to use it:

Dim cRndEnc As New clsRndCrypt
Dim EncStr As String
Dim DecStr As String
 
EncStr = cRndEnc.RndCryptLevel2("Hello World !", "some password", 5, 10, eBinaryString, eBase64)
 
Debug.Print "Encrypted String to Base64: " & EncStr
 
DecStr = cRndEnc.RndCryptLevel2(EncStr, "some password", 5, 10, eBase64, eBinaryString)
 
Debug.Print "Decrypted String: " & DecStr

In the above example, I chose to have 5 passes for the seed (the password), and 10 passes through the data (to encrypt 10 times), and to output the encrypted data as Base64, and therefore the input for the decryption is also Base64.

I also added in the Class the old encryption "RndCrypt", and also "RndCryptB" (faster version of RndCrypt improved by frozen)

If you find any problems with the code, please let me know so I can fix them.