DecryptText

将加密后的字符串解密。

语法：

DecryptText(Value, Key1, Key2)

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

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

例如：

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/0351.htm