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