用户密码提取 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

EncryptText

将字符串加密成另一个字符串。

语法：

EncryptText(Value, Key1, Key2)

Value: 要加密的字符串
Key1: 密钥1
Key2: 密钥2

同一个字符串，用不同的密钥加密，会得到不同的加密结果。

EncryptText函数加密的字符串可以用函数DecryptText解密，解密和加密的密钥必须相同。

例如：

Dim Val1 As String = "龙的传人"
Dim Val2 As String = EncryptText(Val1,"a23","op#") '加密
Dim Val3 As String = DecryptText(Val2,"a23","op#") '解密，两个密钥必须和加密的时候相同
Output.Show("加密后：" & val2)
Output.Show("解密后：" & val3)

在命令窗口执行上面的代码，得到的结果是：

加密后：228HqJrxgDHJQFHwqhK3Mg==
解密后：龙的传人

主题：用户密码提取