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或硬盤系列號進行是否授權用戶的辨識是很不錯的。

對于字符串加密的功能，我還沒想到怎么利用？

真的很強大

大師很強啊。