sub testEncipher()
     Dim Safety '創(chuàng)建一個變量
     Set Safety = CreateObject("Stock.Safety")
     '進(jìn)行數(shù)據(jù)定長加密
     str = "1234567890-44343234"
     application.MsgOut Safety.EncipherKey(str,12345,4321,55558)

     '按字符串加密
     application.MsgOut Safety.EncipherString(str,"guotx")

     '獲取網(wǎng)卡MAC地址
     application.MsgOut Safety.NetworkMac()

     '獲取IDE硬盤系列號
     application.MsgOut Safety.DiskSerialNo()

     '字符串按MD5加密成32位字符串
     application.MsgOut Safety.Md5(str)
end sub

在使用VBA寫的策略中使用獲取網(wǎng)卡MAC或硬盤系列號進(jìn)行是否授權(quán)用戶的辨識是很不錯的。

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

真的很強(qiáng)大

大師很強(qiáng)啊。