VB加密解密字符串

DimoDimstrasstringSeto=CreateObject("MyEncrypt.DES")str=o.Encrypt("加密的明文","8位数密匙（记住要用于解密）")str=o.Decrypt("解密的密文","8位数密匙（加密时的密匙）")