文件加密算法单元EncryptFileDecryptFile

functionEncrypt(constS:String;Key:Word):String;functionDecrypt(constS:String;Key:Word):String;procedureEncryptFile(INFName,OutFName:String;Key:Word);procedureDecryptFile(INFName,OutFName:String;Key:Word);