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加解密。

http://blog.gkong.com/images/file/zip.gifDES.rar

顶~~~
顺便附上百度百科中的C语言版本：http://baike.baidu.com/view/584868.htm
Good Luck~