Delphi用XOR算法加解密文件例程,很有学习参考价值!