Add Powerful Encryption To Your Visual Basic Programs -

Private Sub cmdDecrypt_Click()
    'Make sure we have entered all the information:
    If txtMessage.Text <> "" And txtPassword <> "" Then
        
        'This is our encryption object
        Dim DecryptData As New EncryptedData
        
        'We send the object the password to use to unlock the encryption:
        DecryptData.SetSecret (txtPassword.Text)
        
        'Send the ciphertext to the object and tell it to decrypt it.
        DecryptData.Decrypt (txtMessage.Text)
        
        'Get our plaintext from the object
        txtMessage.Text = DecryptData.Content
    End If
End Sub

Private Sub cmdEncrypt_Click()
    'Make sure we have entered all the information:
    If txtMessage.Text <> "" And txtPassword <> "" Then
    
        'This is our encryption object
        Dim encryptdata As New EncryptedData
    
        'Before we can start encrypting, we got to define the
        'algorithm, keysize, and the password (Used to generate key)
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'Algorithm to use: AES (Advanced Encryption Standard)
        encryptdata.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_AES
        
        'You could also use:
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'encryptdata.Algorithm =CAPICOM_ENCRYPTION_ALGORITHM_3DES
        'encryptdata.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_DES
        'encryptdata.algorithm = CAPICOM_ENCRYPTION_ALGORITHM_RC2
        'encryptdata.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_RC4
        
        'Next we set our key size, which is a no brainer to put to max.
        encryptdata.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
        
        'Next we set our secret password to unlock the message.
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        encryptdata.SetSecret (txtPassword.Text)
        
        'We send the object the plaintext scramble:
        encryptdata.Content = txtMessage.Text
        
        'Return message as base64
        txtMessage.Text = encryptdata.Encrypt(CAPICOM_ENCODE_BASE64)
    End If
End Sub