Encriptacion

Aqui tienes una funcion para encriptar un string:

Public Shared Function Encrypt(ByVal text As String, ByVal password
As String) As String

' Create the 3DES provider object
Dim tdes As New TripleDESCryptoServiceProvider

' Convert the string to a byte array
Dim data() As Byte = UTF8.GetBytes(text)

' Derive the key from the password
Dim iv() As Byte = {0, 0, 0, 0, 0, 0, 0, 0}
Dim keyb() As Byte = (New PasswordDeriveBytes(password,
iv).CryptDeriveKey("TripleDES", "MD5", tdes.KeySize, iv))

' Create an encryptor object
Dim transform As ICryptoTransform = tdes.CreateEncryptor(keyb, iv)

' Encrypt the string, convert the result to Base64 and UrlEncode
it
Return
System.Convert.ToBase64String(transform.TransformFinalBlock(data, 0,
data.Length))

End Function

La funcion para desencriptar te queda de tarea, que como puedes ver no es
tan complicado y nunca esta demas aprender. :)

Eduardo A. Morcillo [MS MVP VB]