sub testEncipher()
     Dim Safety '創(chuàng)建一個(gè)變量
     Set Safety = CreateObject("Stock.Safety")
     '進(jìn)行數(shù)據(jù)定長(zhǎng)加密
     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硬盤(pán)系列號(hào)
     application.MsgOut Safety.DiskSerialNo()

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

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

對(duì)于字符串加密的功能，我還沒(méi)想到怎么利用？

真的很強(qiáng)大

大師很強(qiáng)啊。