Rijndael Encryption

[Vayse]

I need to encrypt some strings in serveral programs I have. So I grabbed
some code from the MS help.
I wrote an app that would help me generate the encrypted strings. Its s form
with 4 text boxes

txtBefore - the original string
txtIV, txtKey - the Rijndael IV and Key
txtAfter - the encrypted string

For testing, I enter text into txtBefore, then press btnEncryptText
Then I press btnDecryptText to re generate txtBefore. Unfortunately I get an
error at
csDecrypt.Read( fromEncrypt, 0, fromEncrypt.Len gth)
The message is:
"Padding is invalid and cannot be removed."

I'm new to this whole encryption thing, and can't figure out what I'm doing
wrong.
Is there some padding generated by the text box that I should be removing?

Thanks
Vayse

Private Sub btnEncryptText_ Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnEncryptText. Click

Try
Dim original As String = Me.txtBefore.Te xt
Dim textConverter As New ASCIIEncoding()
Dim myRijndael As New RijndaelManaged ()
Dim encrypted() As Byte
Dim toEncrypt() As Byte
Dim mykey() As Byte
Dim myIV() As Byte

' Clear the text boxes
Me.txtAfter.Cle ar()
Me.txtIV.Clear( )
Me.txtKey.Clear ()

'Create a new key and initialization vector.
myRijndael.Gene rateKey()
myRijndael.Gene rateIV()

'Get the key and IV.
mykey = myRijndael.Key
myIV = myRijndael.IV

Me.txtKey.Text = textConverter.G etString(mykey)
Me.txtIV.Text = textConverter.G etString(myIV)

'Get an encryptor.
Dim encryptor As ICryptoTransfor m =
myRijndael.Crea teEncryptor(myk ey, myIV)

'Encrypt the data.
Dim msEncrypt As New MemoryStream()
Dim csEncrypt As New CryptoStream(ms Encrypt, encryptor,
CryptoStreamMod e.Write)

'Convert the data to a byte array.
toEncrypt = textConverter.G etBytes(origina l)

'Write all data to the crypto stream and flush it.
csEncrypt.Write (toEncrypt, 0, toEncrypt.Lengt h)
csEncrypt.Flush FinalBlock()

'Get encrypted array of bytes.
encrypted = msEncrypt.ToArr ay()

Me.txtAfter.Tex t = textConverter.G etString(encryp ted)

Catch ex As Exception
MsgBox(ex.Messa ge)
End Try

End Sub

Private Sub btnDecryptText_ Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnDecryptText. Click

Try
Dim textConverter As New ASCIIEncoding()
Dim myRijndael As New RijndaelManaged ()
Dim fromEncrypt() As Byte
Dim encrypted() As Byte
Dim key() As Byte
Dim IV() As Byte

Me.txtBefore.Cl ear()

'Create a new key and initialization vector.
myRijndael.Key = textConverter.G etBytes(Me.txtK ey.Text)
myRijndael.IV = textConverter.G etBytes(Me.txtI V.Text)

'Get the key and IV.
key = myRijndael.Key
IV = myRijndael.IV

'Get a decryptor that uses the same key and IV as the encryptor.
Dim decryptor As ICryptoTransfor m =
myRijndael.Crea teDecryptor(key , IV)

'Now decrypt the previously encrypted message using the
decryptor
' obtained in the above step.
encrypted = textConverter.G etBytes(Me.txtA fter.Text)
Dim msDecrypt As New MemoryStream(en crypted)
Dim csDecrypt As New CryptoStream(ms Decrypt, decryptor,
CryptoStreamMod e.Read)

fromEncrypt = New Byte(encrypted. Length) {}

'Read the data out of the crypto stream.
csDecrypt.Read( fromEncrypt, 0, fromEncrypt.Len gth)

'Convert the byte array back into a string.
Me.txtBefore.Te xt = textConverter.G etString(fromEn crypt)

Catch ex As Exception
MsgBox(ex.Messa ge)
End Try

End Sub