java 中的3DES算法，怎么转化成delphi算法，急。

[zhangzhihui528]

在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里转化用。
希望高手给个提示。

[yintao1021]

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

[keyz]

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

[zhangzhihui528]

能具体给个提示吗？什么方面的库

[zhangzhihui528]

或者控件

[kinglh]

http://www.vckbase.com/sourcecode/algorithms/

这里有些加解密的算法

[yintao1021]

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

[zhangzhihui528]

这个不需要，就是想找3DES的

[constantine]

http://www.vclxx.org/DELPHI/D32FREE/CHIPHER.ZIP

如果要单独的我看过delphi，以前倒是用过C的

[zhangzhihui528]

怎么没有人具体的指导下呢？

[zhangzhihui528]

在传输过程中，整个报文是要用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);


这个是具体文档