发表于：2013/5/15 14:44:44
#0楼
Dim key() As Byte, data() As Byte, rlt() As Byte
key = StrConv("设置密码key", vbFromUnicode)
data = StrConv("要加密的数据", vbFromUnicode)
d.SetKey key
d.EncryptDes_ArrToArr data, rlt ‘rlt数据输出就是加密后的内容
data=""'清除掉原来的数据，然后解密还原
d.EncryptDes_ArrToArr rlt , data ,bFlag:=2
msgbox strcov( data,vbUnicode)
还可以进行3des加解密。
