100分在线急求在VB环境下Des带密钥加密解密的代码，要调用代码？搞定马上结贴

如题：100分在线急求在VB环境下Des带密钥加密解密的代码，要调用代码？搞定马上结贴

解决方案 »

  1.   

    在google上用“VB Des”作关键字查询
      

  2.   

    http://www.sevillaonline.com/ActiveX/vb5/DES.zip
      

  3.   

    http://www.china-askpro.com/msg1/qa88.shtml
      

  4.   

    谢谢大家
    为什么http://www.sevillaonline.com/ActiveX/vb5/DES.zip的不可能解密字符
    还有，这个例子不有源码？
      

  5.   

    谢谢大家
    为什么http://www.sevillaonline.com/ActiveX/vb5/DES.zip的不可能解密字符
    还有，这个例子没有源码？
      

  6.   

    http://www.sevillaonline.com/ActiveX/vb5/DES.zip解压后里面有个DES Simple.zip，把这个解压后就是示例代码，不过我刚才测试了一下竟然不可用，也不知道怎么回事，楼主自己试试吧希望好运。
      

  7.   

    留个mail发一份加密算法包给你，其中包含DES算法
      

  8.   

    加密中用EncryptObject.DecryptFile就可以加密
    为什么用EncryptObject.DecryptString就报错：Incorrect size descriptor in DES decryption
      

  9.   

    To:chewinggum(口香糖·个人二五计划第一年) 
    文件已经收到，你用过这个类吗？
    使用有点问题,不知道什么原因
      

  10.   

    EncryptString调用是正常的，但是你千万别拿这个函数产生的字符串直接DecryptString，因为Encrypt后的结果并不全都是可显示的字符串，所以在strconv的时候可能部分数据会被转换掉。你再拿这个已经被改编后的结果去DecryptString肯定要出错的。建议全部用EncryptByte和DecryptByte处理，不要图省事，加密解密的对象都应该是二进制数据，别图省事把他们当string处理。
      

  11.   

    谢谢 chewinggum(口香糖·个人二五计划第一年
    有EncryptByte和DecryptByte处理转换为字符串的代码吗？需要的是字符串，VB用的不好，不会转换，最好是有字符与Byte相互转换的代码，谢谢
      

  12.   

    你仔细看EncryptString的代码，他所做的事情就是先把字符串转换成byte数组，然后调用EncryptByte进行加密。只不过最后他又把得到的加密结果转换成字符串。只要把最后这个步骤省略掉，得到加密后的byte数组进行保存或者调用DecryptByte进行解密即可。