Encrypting and decrypting entirely in memory (VB example)

Here are is an example for VB that demonstrates encryption entirely in memory in a single pass. It shows how to use the Rijndael algorithm.

Visual Basic Copy Code

Visual Basic	Copy Code
Dim xEnc As New XceedEncryption Call xEnc.License( "your license key" ) Dim vaSource As Variant Dim vaDest As Variant Set xEnc. EncryptionMethod = New XceedRijndaelEncryptionMethod vaSource = "This is the data to encrypt" On Error Resume Next Call xEnc. EncryptionMethod.SetSecretKeyFromPassPhrase("This is a weak pass phrase!", 128) vaDest = xEnc.Encrypt(vaSource, True) If Err.Number <> 0 Then Call MsgBox("Error 0x" & Hex(Err.Number) & " " & Err.Description) Else Call MsgBox("Data encrypted successfully!") End If On Error Goto 0 Set xEnc = Nothing



Dim xEnc As New XceedEncryption

Call xEnc.License( "your license key" ) 

Dim vaSource As Variant
Dim vaDest As Variant 

Set xEnc. EncryptionMethod = New XceedRijndaelEncryptionMethod 

vaSource = "This is the data to encrypt" 

On Error Resume Next

Call xEnc. EncryptionMethod.SetSecretKeyFromPassPhrase("This is a weak pass phrase!", 128)

vaDest = xEnc.Encrypt(vaSource, True) 

If Err.Number <> 0 Then
  Call MsgBox("Error 0x" & Hex(Err.Number) & " " & Err.Description) 
Else
  Call MsgBox("Data encrypted successfully!") 
End If 

On Error Goto 0 

Set xEnc = Nothing