从网上找到的支持Delphi2009/2010的DES加密单元的加密,以前的DES加密单元不支持UnicodeString,开发环境D2010