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或硬盘系列号进行是否授权用户的辨识是很不错的。

对于字符串加密的功能，我还没想到怎么利用？

真的很强大

大师很强啊。