Catch except As System.Runtime.InteropServices.COMException
MessageBox.Show( except.ToString() )
End Try
VB.NET - Decryption
Copy Code
Dim encrypt As New XceedEncryptionLib.XceedEncryptionClass()
encrypt.License( "your license key" )
Dim rijndael As New XceedEncryptionLib.XceedRijndaelEncryptionMethodClass()
Try rijndael.SetSecretKeyFromPassPhrase( "This is a weak pass phrase", 128 )
encrypt.EncryptionMethod = rijndael
Dim bytesRead As Object = Nothing Dim decryptedData As Object = encrypt.ReadFile( "c:\test\file.enc", 0, 0, _ XceedEncryptionLib.EXEFileProcessing.efpDecrypt, true, bytesRead )
MessageBox.Show( System.Text.Encoding.Unicode.GetString( CType( decryptedData, byte() ) ) ) Catch except As System.Runtime.InteropServices.COMException MessageBox.Show( except.ToString() ) End Try