主题：用户密码提取

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