如何调用DES函数，并获得加密结果。

Question

函数如下：
procedure DES(           { Function encrypt/decrypt data using DES algotithm }
    const Input  : TArrayOf8Bytes;       { 64 bit of input                   }
    var   Output : TArrayOf8Bytes;       { 64 bit output from DES algorithm  }
    const Key    : TArrayOf8Bytes;       { 64 bit key for DES algorithm      }
    Encrypt      : Boolean);             { TRUE to encrypt, FALSE to decrypt }

Answer 1

var 
  Input  : TArrayOf8Bytes;
  Output : TArrayOf8Bytes; 
  Key: TArrayOf8Bytes; 
  
加密DES(Input ,Output , Key,True);
解密DES(Input ,Output , Key,False);Input为你需要加密的内容
Key为你自己定义的密钥

Answer 2

谢谢 函数调用可以通过 如何获得加密后字串呢。如何转换为 string ？

Answer 3

其实我的问题是 有如下文件：http://www.koders.com/delphi/fid82119510EA84E4057CDC9786AEFC59189CA82327.aspx如何获取加密和解密字符？

Answer 4

用tplockbox吧里面有好几个算法

Answer 5

http://www.2ccc.com/article.asp?articleid=756