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

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

真的很强大

 

大师很强啊。

不是我强，是金字塔强，我以前使用API获取网卡和硬盘标识，代码比这复杂多了，使用这种方法确实很简单。

超级强大