（二十二）字符串的加密、解密

一、字符串的加密
方法一：
a.开始–>所有程序–>QTP–>Tools–>password ecoder
b.在password中输入需要加密的字符串
c.点击generate，在encoded String 中显示已加密的字符串
d.点击Copy赋值生成的字符串
在QTP中使用setSecure方法

语法：object.setSecure "5b23b9e5be5419ff434391325fa1e442fce8f258"

方法二：将DataTable中数据进行加密
a.选中需要加密数据所在的单元格
b.在右键菜单中，点击Data\Encrypt
c.单元格中显示被加密后的字符串
方法三：Crypt.Encrypt方法

Crypt Object
Description:The object used to encrypt strings. 

Associated Method:
Description:Encrypts a string
Syntax:Crypt.Encrypt(Data)
Data:Type为string 是要加密的字符串

二、字符串解密
对任意不需要加密显示的文本框对象，使用setSecure方法，输入需要解密的字符串
对该对象使用GetROProperty方法获得该文本框显示的文本内容，即为解密后的字符串。

在Flight4a中，密码是在专家视图中是加密显示的，考虑一种情况：对于之前版本的系统做登录测试时，想要知道用的密码是什么，此时就需要解密。可以选用"用户名"不用加密解密的作为中介，来进行解密
Option Explicit
Dialog("Login").WinEdit("Agent Name:").SetSecure "5b246c6fd802606324fb4524696a776b"
Dim txt
txt=Dialog("Login").WinEdit("Agent Name:").GetROProperty("text")
Msgbox txt