encrypt string problem

[Techno]

Hi there

i seem to be having an "Invalid length of data" problem when i am trying to encrypt a string

I am using tripleDES

Public Function EncryptString(ByVal InputString As String) As String

        Dim data As Byte()
        Dim dest As Byte()
        Dim transform As ICryptoTransform

        data = Encoding.Default.GetBytes(InputString)

        transform = des.CreateDecryptor
        dest = transform.TransformFinalBlock(data, 0, data.Length) '<< HERE!!!!

        Return Convert.ToBase64String(dest, 0, dest.Length)    
End Function

any ideas?

[Techno]

anyone?

[WALDO]

It seems to me that dest and data have to be the same size. Try re-dimensioning dest to the same size as data.

transform = des.CreateDecryptor
ReDim dest(data.Length - 1)
dest = transform.TransformFinalBlock(data, 0, data.Length)

This is just a guess.