Safety對象用于加密不錯 [金字塔]
- 咨詢內(nèi)容:
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)用戶的辨識是很不錯的。
對于字符串加密的功能,我還沒想到怎么利用?
- 金字塔客服:
- 用戶回復(fù):
真的很強(qiáng)大
大師很強(qiáng)啊。
- 網(wǎng)友回復(fù):
不是我強(qiáng),是金字塔強(qiáng),我以前使用API獲取網(wǎng)卡和硬盤標(biāo)識,代碼比這復(fù)雜多了,使用這種方法確實很簡單。
- 網(wǎng)友回復(fù): 超級強(qiáng)大
有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫!(不貴!點擊查看價格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容

會員登錄/注冊