De esta forma encryptas en md5
Imports Microsoft.VisualBasic
Imports System.Security.Cryptography
Imports System.IO
Public Class CommonFunctions2
Public Shared Function MD5Encrypt(ByVal str As String) As String
'Imports System.Security.Cryptography
Dim md5 As MD5CryptoServiceProvider
Dim bytValue() As Byte
Dim bytHash() As Byte
Dim strOutput As String
Dim i As Integer
' Create New Crypto Service Provider Object
md5 = New MD5CryptoServiceProvider
' Convert the original string to array of Bytes
bytValue = System.Text.Encoding.UTF8.GetBytes(str)
' Compute the Hash, returns an array of Bytes
bytHash = md5.ComputeHash(bytValue)
md5.Clear()
For i = 0 To bytHash.Length - 1
'don't lose the leading 0
strOutput &= bytHash(i).ToString("x").PadLeft(2, "0")
Next
MD5Encrypt = strOutput
End Function
End Class
tambien checate esto:
http://www.myforonet.hostei.com/viewtopic.php?f=5&t=2