How to use the TripleDesStream class?

Greg McGuffey — Thu, 01 Feb 2007 09:46:46 GMT

I've built a little utility to see how the TripleDesStream class works, so I can encrypt sensitive strings in source code.

I have a form with:

- textbox to get seed string

- textbox for text to encrypt

- button to encrypt

- textbox with encrypted text

- button to decrypt

- text box with decrypted text

The encrypt code is:

[codesnippet] Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
Dim seed As String = String.Empty
Dim text As String = String.Empty

' Must have text
If Me.txtTextToEncrypt.Text Is Nothing OrElse Me.txtTextToEncrypt.Text.Trim().Length() = 0 Then
MessageBox.Show("You must provide some text to encrypt!")
Return
End If

' Get text to encrypt
text = Me.txtTextToEncrypt.Text

' Get byte arrays for key and initialization vector
If Not Me.txtSecuritySeed.Text Is Nothing Then
seed = Me.txtSecuritySeed.Text
End If
Dim securityKey As Byte() = SecurityBasics.GetSecurityKey(seed, 24)
Dim initVector As Byte() = SecurityBasics.GetSecurityVector(seed, 8)

' Encrypt
Dim crypto As New TripleDesStream(securityKey, initVector)
Me.txtEncryptedText.Text = crypto.Encrypt(text)
End Sub
[/codesnippet]

This seems to work fine. However, I get an error when I decrypt the text:

[codesnippet] Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
Dim seed As String = String.Empty
Dim text As String = String.Empty

' Must have text
If Me.txtEncryptedText.Text Is Nothing OrElse Me.txtEncryptedText.Text.Trim().Length() = 0 Then
MessageBox.Show("You must provide some text to decrypt!")
Return
End If

' Get text to encrypt
text = Me.txtEncryptedText.Text

' Get byte arrays for key and initialization vector
If Not Me.txtSecuritySeed.Text Is Nothing Then
seed = Me.txtSecuritySeed.Text
End If
Dim securityKey As Byte() = SecurityBasics.GetSecurityKey(seed, 24)
Dim initVector As Byte() = SecurityBasics.GetSecurityVector(seed, 8)

' Encrypt
Dim crypto As New TripleDesStream(securityKey, initVector)
Me.txtDecryptedText.Text = crypto.Decrypt(text)
End Sub
[/codesnippet]

The error is "Invalid character in Base-64 string.

What am I doing wrong?

RE: How to use the TripleDesStream class?

Greg McGuffey — Thu, 01 Feb 2007 09:46:46 GMT

That was easy...done!

RE: How to use the TripleDesStream class?

Greg McGuffey — Thu, 01 Feb 2007 09:44:38 GMT

You should probably update the xml comments for both the TripleDesStream and TripleDesWrapper then. TripleDesWrapper indicates it is marked as obsolete (if you look in object browser) and says to use TripleDesStream instead...hence why I used it :ermm:

I'm switching to TripleDesWrapper now though! ;)

RE: How to use the TripleDesStream class?

StrataFrame Team — Thu, 01 Feb 2007 08:36:43 GMT

I believe it's the cust_CreditCard field that is encrypted within the CustomersBO business object in the CRM sample.

RE: How to use the TripleDesStream class?

StrataFrame Team — Thu, 01 Feb 2007 08:36:12 GMT

Ah, the TripleDesStream should be marked as obsolete. It was intended to be used as a replacement for the TripleDesWrapper, but it was never completed. So, you will need to use the TripleDesWrapper instead. There is a sample of how to encrypt fields within the CRM sample distributed with the framework.

StrataFrame Forum » StrataFrame Application Framework - V1 » Role Based Security » How to use the TripleDesStream class?

How to use the TripleDesStream class?

RE: How to use the TripleDesStream class?

RE: How to use the TripleDesStream class?

RE: How to use the TripleDesStream class?

RE: How to use the TripleDesStream class?