- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5)
---- Safety对象用于加密不错 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=13766)
-- 发布时间：2012/8/18 18:59:14
-- Safety对象用于加密不错
sub testEncipher()
Dim Safety \'创建一个变量
Set Safety = CreateObject("Stock.Safety")
\'进行数据定长加密
str = "1234567890-44343234"
application.MsgOut Safety.EncipherKey(str,12345,4321,55558)
\'按字符串加密
application.MsgOut Safety.EncipherString(str,"guotx")
\'获取网卡MAC地址
application.MsgOut Safety.NetworkMac()
\'获取IDE硬盘系列号
application.MsgOut Safety.DiskSerialNo()
\'字符串按MD5加密成32位字符串
application.MsgOut Safety.Md5(str)
end sub
在使用VBA写的策略中使用获取网卡MAC或硬盘系列号进行是否授权用户的辨识是很不错的。
对于字符串加密的功能，我还没想到怎么利用？
-- 发布时间：2012/8/19 10:53:27
--
-- 发布时间：2012/8/20 3:24:54
--
真的很强大
大师很强啊。
-- 发布时间：2012/8/20 9:58:34
--
不是我强，是金字塔强，我以前使用API获取网卡和硬盘标识，代码比这复杂多了，使用这种方法确实很简单。
-- 发布时间：2013/2/21 19:17:57
--
超级强大