在java中,提示代码为:
加密 Cipher wrapper = Cipher.getInstance("DESede/CBC/PKCS5Padding", "BC");
wrapper.init(Cipher.WRAP_MODE, new SecretKeySpec(key, "DESEDE"), new IvParameterSpec(IV));
byte[]  cryptograph = wrapper.wrap(new SecretKeySpec(original, "DESEDE"));解密
Cipher wrapper = Cipher.getInstance("DESede/CBC/PKCS5Padding", "BC");
wrapper.init(Cipher.UNWRAP_MODE, new SecretKeySpec(key, "DESEDE"), new IvParameterSpec(IV));
 Key  original = wrapper.unwrap(cryptograph, "DESede", Cipher.SECRET_KEY);
但是不知道怎么在delphi里转化用。
希望高手给个提示。

解决方案 »

  1.   

    好像delphi中没有这样的库。去找第三方控件看看。
      

  2.   

    http://www.vckbase.com/sourcecode/algorithms/这里有些加解密的算法
      

  3.   

    3DES用delphi写的算法我也在找 
    我这有DES和MD5算法  不知道LZ需要不
      

  4.   

    http://www.vclxx.org/DELPHI/D32FREE/CHIPHER.ZIP如果要单独的我看过delphi,以前倒是用过C的
      

  5.   

    http://www.vclxx.org/DELPHI/D32FREE/CHIPHER.ZIP之前很早找到过 不过下不了 刚才也下不了  不知道能否发一份到我邮箱 谢谢
    [email protected]
      

  6.   

    在传输过程中,整个报文是要用DES算法进行过加密的(算法和加解密调用方式参见另行的调用说明),即报文发送方传输前需要加密,报文接收方接到报文处理前需要解密。加密算法采用Tri-DES(3DES)算法,其中的调用参数如下:
    加密密钥为24个 bytes的char,其值如下:
    char[] key= {218,239,227,22,31,53,120,224,223,223,171,210,140,158,47,86, 122,39, 238,95,47,138,44,155};
    初始化矢量为8个bytes的char,其值如下:
    char[] iv = {1,2,3,4,5,6,7,8};
    在调用加解密时,密钥和初始化矢量都要转换为“8859_1”的编码类型。
    下面提供在java中的初始化加密实例和解密实例的调用方法,仅供参考:
    加密 Cipher wrapper = Cipher.getInstance("DESede/CBC/PKCS5Padding", "BC");
    wrapper.init(Cipher.WRAP_MODE, new SecretKeySpec(key, "DESEDE"), new IvParameterSpec(IV));
    byte[]  cryptograph = wrapper.wrap(new SecretKeySpec(original, "DESEDE"));解密
    Cipher wrapper = Cipher.getInstance("DESede/CBC/PKCS5Padding", "BC");
    wrapper.init(Cipher.UNWRAP_MODE, new SecretKeySpec(key, "DESEDE"), new IvParameterSpec(IV));
     Key  original = wrapper.unwrap(cryptograph, "DESede", Cipher.SECRET_KEY);
    这个是具体文档