求3DES加密算法(CBC模式，采用PKCS5-Padding填充方式)

1、算法使用CBC工作模式；　
2、填充方式采用PKCS5-Padding方式:
  少1个byte,就补一个byte的 0x01; 
  少2个byte,就补一个byte的 0x02; 
  少3个byte,就补一个byte的 0x03; 
  依此类推.....
  当明文的长度为8的整数倍时，则补 8 byte 的 0x08; 
3、IV向量
　unsigned char iv[8] = {0x01,0x02,0x03,0x04,0x05x,0x06,0x07,0x08};　 

delphi 版本的

LZ很牛啊，3des我倒是用过，不过仅仅是用过...............

求delphi高手前辈们，指点！！！！！！