delphi加密解密函数源码