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==
解密后：龙的传人

本页地址：http://www.foxtable.com/webhelp/topics/0350.htm