网上找到这么一个加密解密的方法，不知道怎么转换到狐表中来，再次求助，谢谢帮忙：
在vb.NET中编写DEC加密程序 ，因为vb.NET的类库中就自带了相应的函数，下面分别是加密函数和解密函数。
加密函数：
Public Shared Function Encrypt（ByVal pToEncrypt As String， ByVal sKey As String） As String
Dim DES As New DESCryptoServiceProvider（）
Dim inputByteArray（） As Byte
inputByteArray = Encoding.Default.GetBytes（pToEncrypt）
''建立加密对象的密钥和偏移量
''原文使用ASCIIEncoding.ASCII方法的GetBytes方法
''使得输入密码必须输入英文文本
DES.Key = ASCIIEncoding.ASCII.GetBytes（sKey）
DES.IV = ASCIIEncoding.ASCII.GetBytes（sKey）
''写二进制数组到加密流
''（把内存流中的内容全部写入）
Dim ms As New System.IO.MemoryStream（）
Dim cs As New CryptoStream（ms， DES.CreateEncryptor， CryptoStreamMode.Write）
''写二进制数组到加密流
''（把内存流中的内容全部写入）
cs.Write（inputByteArray， 0， inputByteArray.Length）
cs.FlushFinalBlock（）
''建立输出字符串
Dim ret As New StringBuilder（）
Dim b As Byte
For Each b In ms.ToArray（）
ret.AppendFormat（""， b）
Next
Return ret.ToString（）
End Function
------------------------------------------------------------------
解密函数：
Public Shared Function Decrypt（ByVal pToDecrypt As String， ByVal sKey As String） As String
Dim DES As New DESCryptoServiceProvider（）
''把字符串放入byte数组
Dim len As Integer
len = pToDecrypt.Length / 2 - 1
Dim inputByteArray（len） As Byte
Dim x， i As Integer
For x = 0 To len
i = Convert.ToInt32（pToDecrypt.Substring（x * 2， 2）， 16）
inputByteArray（x） = CType（i， Byte）
Next
''建立加密对象的密钥和偏移量，此值重要，不能修改
DES.Key = ASCIIEncoding.ASCII.GetBytes（sKey）
DES.IV = ASCIIEncoding.ASCII.GetBytes（sKey）
Dim ms As New System.IO.MemoryStream（）
Dim cs As New CryptoStream（ms， DES.CreateDecryptor， CryptoStreamMode.Write）
cs.Write（inputByteArray， 0， inputByteArray.Length）
cs.FlushFinalBlock（）
Return Encoding.Default.GetString（ms.ToArray）
End Function
-------------------------------------------
两个函数中第一个参数是待加密或解密的字符串，sKey是使用的密钥，必须是8位，使用的时候要注意哦，不然会出错的。
dll文件：
加好友 
发短信
Post By：2013/11/11 8:50:00 [只看该作者]
