# Safety 安全加密算法
CreateObject("Stock.Safety")
Safety对象支持涉及安全方面的一系列算法，可以帮助用户进行数据加/解密，制作注册码等。
方法
| 方法 | 说明 |
|---|---|
| NetworkMac | 取用户机器网卡MAC地址，一般用做识别用户唯一标识的作用，但如果用户计算机没有网卡，那么此方法返回空字符串 |
| DiskSerialNo | 取用户机器硬盘序列号，一般用做识别用户唯一标识的作用，但一般只对普通IDE硬盘有效，可以结合NetworkMac方法一起使用 |
| Md5 | 将给定的字符串采用MD5加密算法定长加密到16位字符串 |
| EncipherString | 将给定的字符串按照指定的键进行加密。例如： Msgbox Safety.EncipherString(str,"weiwei")，此示例将str变量中的字符串按照键“weiwei”字符串进行加密后打印到屏幕上 |
| EncipherKey | 将给定的字符串按照指定的加密键定长加密到15位字符串。例如： msgbox Safety.EncipherKey(str,12345,4321,55558). 注意3个加密键只能为数字 |
示例
Dim Safety '创建一个变量
'创建Array对象，将对象实例置变量d中
Set Safety = CreateObject("Stock.Safety")
'进行数据定长加密
str = "1234567890-44343234"
msgbox Safety.EncipherKey(str,12345,4321,55558)
1
2
3
4
5
6
2
3
4
5
6